1 | (* Content-type: application/vnd.wolfram.mathematica *)
|
---|
2 |
|
---|
3 | (*** Wolfram Notebook File ***)
|
---|
4 | (* http://www.wolfram.com/nb *)
|
---|
5 |
|
---|
6 | (* CreatedBy='Mathematica 11.1' *)
|
---|
7 |
|
---|
8 | (*CacheID: 234*)
|
---|
9 | (* Internal cache information:
|
---|
10 | NotebookFileLineBreakTest
|
---|
11 | NotebookFileLineBreakTest
|
---|
12 | NotebookDataPosition[ 158, 7]
|
---|
13 | NotebookDataLength[ 13578, 373]
|
---|
14 | NotebookOptionsPosition[ 11762, 325]
|
---|
15 | NotebookOutlinePosition[ 12096, 340]
|
---|
16 | CellTagsIndexPosition[ 12053, 337]
|
---|
17 | WindowFrame->Normal*)
|
---|
18 |
|
---|
19 | (* Beginning of Notebook Content *)
|
---|
20 | Notebook[{
|
---|
21 | Cell[BoxData[{
|
---|
22 | RowBox[{"Clear", "[", "T", "]"}], "\[IndentingNewLine]",
|
---|
23 | RowBox[{
|
---|
24 | RowBox[{"G", "=",
|
---|
25 | RowBox[{"6.67", "*",
|
---|
26 | SuperscriptBox["10",
|
---|
27 | RowBox[{"-", "8"}]]}]}], ";"}], "\[IndentingNewLine]",
|
---|
28 | RowBox[{
|
---|
29 | RowBox[{"kB", "=",
|
---|
30 | RowBox[{"1.381", "*",
|
---|
31 | SuperscriptBox["10",
|
---|
32 | RowBox[{"-", "16"}]]}]}], ";"}], "\[IndentingNewLine]",
|
---|
33 | RowBox[{
|
---|
34 | RowBox[{"mH", "=",
|
---|
35 | RowBox[{"1.673", "*",
|
---|
36 | SuperscriptBox["10",
|
---|
37 | RowBox[{"-", "24"}]]}]}], ";"}], "\[IndentingNewLine]",
|
---|
38 | RowBox[{
|
---|
39 | RowBox[{"sigmaH", "=",
|
---|
40 | RowBox[{"6.3", "*",
|
---|
41 | SuperscriptBox["10",
|
---|
42 | RowBox[{"-", "18"}]]}]}], ";"}], "\[IndentingNewLine]",
|
---|
43 | RowBox[{
|
---|
44 | RowBox[{"MJ", "=",
|
---|
45 | RowBox[{"1.898", "*",
|
---|
46 | SuperscriptBox["10", "30"]}]}], ";"}], "\[IndentingNewLine]",
|
---|
47 | RowBox[{
|
---|
48 | RowBox[{"RJ", "=",
|
---|
49 | RowBox[{"7.1492", "*",
|
---|
50 | SuperscriptBox["10", "9"]}]}], ";"}]}], "Input",
|
---|
51 | CellChangeTimes->{{3.7136261949353323`*^9, 3.713626261700678*^9},
|
---|
52 | 3.713626327176093*^9, {3.713626383061019*^9, 3.713626404273737*^9}, {
|
---|
53 | 3.713695868389865*^9,
|
---|
54 | 3.7136958730701323`*^9}},ExpressionUUID->"553848b8-eddb-47d5-bc1d-\
|
---|
55 | 395f48fe8f68"],
|
---|
56 |
|
---|
57 | Cell[BoxData[{
|
---|
58 | RowBox[{
|
---|
59 | RowBox[{"Rp", "=",
|
---|
60 | RowBox[{"2.14559", "RJ"}]}], ";"}], "\[IndentingNewLine]",
|
---|
61 | RowBox[{
|
---|
62 | RowBox[{"Mp", "=",
|
---|
63 | RowBox[{"0.263435", "MJ"}]}], ";"}], "\[IndentingNewLine]",
|
---|
64 | RowBox[{
|
---|
65 | RowBox[{"Tp", "=", "3000"}], ";"}], "\[IndentingNewLine]",
|
---|
66 | RowBox[{
|
---|
67 | RowBox[{"\[Rho]p", "=",
|
---|
68 | RowBox[{"1.32443", "*",
|
---|
69 | SuperscriptBox["10",
|
---|
70 | RowBox[{"-", "16"}]]}]}], ";"}], "\[IndentingNewLine]",
|
---|
71 | RowBox[{
|
---|
72 | RowBox[{"\[Gamma]", "=",
|
---|
73 | FractionBox["5", "3"]}], ";"}], "\[IndentingNewLine]",
|
---|
74 | RowBox[{
|
---|
75 | RowBox[{"csp", "=",
|
---|
76 | SqrtBox[
|
---|
77 | FractionBox[
|
---|
78 | RowBox[{"kB", " ", "Tp"}], "mH"]]}], ";"}], "\[IndentingNewLine]",
|
---|
79 | RowBox[{
|
---|
80 | RowBox[{"np", "=",
|
---|
81 | FractionBox["\[Rho]p", "mH"]}], ";"}], "\[IndentingNewLine]",
|
---|
82 | RowBox[{
|
---|
83 | RowBox[{"photonFlux", "=",
|
---|
84 | RowBox[{"2", "*",
|
---|
85 | SuperscriptBox["10", "13"]}]}], ";"}], "\[IndentingNewLine]",
|
---|
86 | RowBox[{
|
---|
87 | RowBox[{"\[Tau]1", "=", "1.00628"}], ";"}]}], "Input",
|
---|
88 | CellChangeTimes->{{3.71362633231955*^9, 3.713626361618585*^9}, {
|
---|
89 | 3.7136264102121964`*^9, 3.713626418718432*^9}, {3.713626455861565*^9,
|
---|
90 | 3.713626584841625*^9}, {3.713626679747116*^9, 3.713626682220549*^9}, {
|
---|
91 | 3.7136269026322317`*^9, 3.7136269088723497`*^9}, {3.7136286439786263`*^9,
|
---|
92 | 3.7136286446182337`*^9}, {3.713630835260355*^9,
|
---|
93 | 3.713630841362711*^9}},ExpressionUUID->"07141f60-acdb-48b0-99c2-\
|
---|
94 | 73847a485bb2"],
|
---|
95 |
|
---|
96 | Cell[BoxData[{
|
---|
97 | RowBox[{
|
---|
98 | RowBox[{"\[Rho]Scale", "=", "\[Rho]p"}], ";"}], "\[IndentingNewLine]",
|
---|
99 | RowBox[{
|
---|
100 | RowBox[{"lScale", "=", "Rp"}], ";"}], "\[IndentingNewLine]",
|
---|
101 | RowBox[{
|
---|
102 | RowBox[{"nScale", "=",
|
---|
103 | FractionBox["\[Rho]Scale", "mH"]}], ";"}]}], "Input",
|
---|
104 | CellChangeTimes->{{3.713626999600709*^9, 3.7136270205489597`*^9}, {
|
---|
105 | 3.71362766412037*^9, 3.713627697619659*^9},
|
---|
106 | 3.7138729850194407`*^9},ExpressionUUID->"d31a88fd-5e0f-4d8d-8702-\
|
---|
107 | 1bc10c7a7272"],
|
---|
108 |
|
---|
109 | Cell[BoxData[{
|
---|
110 | RowBox[{
|
---|
111 | RowBox[{"rCrit", "=",
|
---|
112 | FractionBox[
|
---|
113 | RowBox[{
|
---|
114 | RowBox[{"(",
|
---|
115 | RowBox[{"\[Gamma]", "-", "1"}], ")"}], "G", " ", "Mp"}],
|
---|
116 | RowBox[{"\[Gamma]", " ",
|
---|
117 | SuperscriptBox["csp", "2"], " ", "Rp"}]]}], ";"}], "\[IndentingNewLine]",
|
---|
118 | RowBox[{
|
---|
119 | RowBox[{"rZero", "=",
|
---|
120 | FractionBox["rCrit",
|
---|
121 | RowBox[{"rCrit", "-", "1"}]]}], ";"}]}], "Input",
|
---|
122 | CellChangeTimes->{{3.713626281202592*^9, 3.713626324110792*^9}, {
|
---|
123 | 3.7136264916729097`*^9, 3.7136264924511213`*^9}, {3.7136265927178164`*^9,
|
---|
124 | 3.7136266076961927`*^9}, {3.7136266870427856`*^9,
|
---|
125 | 3.713626688378542*^9}},ExpressionUUID->"b346f127-2b08-4a58-bed0-\
|
---|
126 | 28dc9e113969"],
|
---|
127 |
|
---|
128 | Cell[BoxData[{
|
---|
129 | RowBox[{
|
---|
130 | RowBox[{"\[Rho]", "[", "r_", "]"}], ":=",
|
---|
131 | SuperscriptBox[
|
---|
132 | RowBox[{"(",
|
---|
133 | RowBox[{"rCrit",
|
---|
134 | RowBox[{"(",
|
---|
135 | RowBox[{
|
---|
136 | FractionBox["1", "r"], "-",
|
---|
137 | FractionBox["1", "rZero"]}], ")"}]}], ")"}],
|
---|
138 | FractionBox["1",
|
---|
139 | RowBox[{"\[Gamma]", "-", "1"}]]]}], "\[IndentingNewLine]",
|
---|
140 | RowBox[{
|
---|
141 | RowBox[{"P", "[", "r_", "]"}], ":=",
|
---|
142 | SuperscriptBox[
|
---|
143 | RowBox[{"\[Rho]", "[", "r", "]"}], "\[Gamma]"]}], "\[IndentingNewLine]",
|
---|
144 | RowBox[{
|
---|
145 | RowBox[{"T", "[", "r_", "]"}], ":=",
|
---|
146 | FractionBox[
|
---|
147 | RowBox[{"P", "[", "r", "]"}],
|
---|
148 | RowBox[{"\[Rho]", "[", "r", "]"}]]}], "\[IndentingNewLine]",
|
---|
149 | RowBox[{
|
---|
150 | RowBox[{"cs", "[", "r_", "]"}], ":=",
|
---|
151 | SqrtBox[
|
---|
152 | FractionBox[
|
---|
153 | RowBox[{"kB", " ",
|
---|
154 | RowBox[{"T", "[", "r", "]"}], "Tp"}], "mH"]]}]}], "Input",
|
---|
155 | CellChangeTimes->{{3.713626619385159*^9, 3.713626664099715*^9}, {
|
---|
156 | 3.7136269277289143`*^9, 3.713626928247748*^9}, {3.713695699664135*^9,
|
---|
157 | 3.713695744107896*^9}, 3.713695781224615*^9, {3.713695895504698*^9,
|
---|
158 | 3.7136959144768057`*^9}, {3.713695944593337*^9,
|
---|
159 | 3.7136959475273457`*^9}},ExpressionUUID->"d5060ae3-cc3d-47c4-a22b-\
|
---|
160 | 8c872a469087"],
|
---|
161 |
|
---|
162 | Cell[BoxData[
|
---|
163 | RowBox[{"(*",
|
---|
164 | RowBox[{
|
---|
165 | "All", " ", "of", " ", "these", " ", "assume", " ", "no", " ",
|
---|
166 | "recombination", " ", "and", " ", "that", " ", "the", " ", "ionization",
|
---|
167 | " ", "front", " ", "is", " ", "infinitesimally", " ", "thin"}],
|
---|
168 | "*)"}]], "Input",
|
---|
169 | CellChangeTimes->{{3.713631887596486*^9, 3.713631908009849*^9}, {
|
---|
170 | 3.7137049846704817`*^9,
|
---|
171 | 3.713704999596072*^9}},ExpressionUUID->"94e840b5-33fd-4f26-9000-\
|
---|
172 | 5aadf0791ea3"],
|
---|
173 |
|
---|
174 | Cell[CellGroupData[{
|
---|
175 |
|
---|
176 | Cell[BoxData[
|
---|
177 | RowBox[{
|
---|
178 | RowBox[{"(*",
|
---|
179 | RowBox[{
|
---|
180 | RowBox[{
|
---|
181 | RowBox[{
|
---|
182 | "Assume", " ", "everything", " ", "prior", " ", "to", " ", "\[Tau]"}],
|
---|
183 | "=",
|
---|
184 | RowBox[{"1", " ", "is", " ", "ionized"}]}], ",", " ",
|
---|
185 | RowBox[{"calculate", " ", "required", " ", "velocity"}]}], "*)"}],
|
---|
186 | "\[IndentingNewLine]",
|
---|
187 | RowBox[{
|
---|
188 | RowBox[{"v", "=",
|
---|
189 | FractionBox["photonFlux",
|
---|
190 | RowBox[{
|
---|
191 | RowBox[{"\[Rho]", "[", "\[Tau]1", "]"}], "nScale"}]]}],
|
---|
192 | "\[IndentingNewLine]",
|
---|
193 | FractionBox["v",
|
---|
194 | RowBox[{"cs", "[", "\[Tau]1", "]"}]]}]}]], "Input",
|
---|
195 | CellChangeTimes->{{3.7136267011906147`*^9, 3.7136267289693737`*^9}, {
|
---|
196 | 3.7136267597435513`*^9, 3.713626769230329*^9}, {3.713626892233293*^9,
|
---|
197 | 3.713626894828991*^9}, {3.7136269309853*^9, 3.713626933628139*^9}, {
|
---|
198 | 3.713626982694852*^9, 3.7136269924723263`*^9}, {3.713627025511931*^9,
|
---|
199 | 3.713627028218363*^9}, {3.713628516868369*^9, 3.7136285695205708`*^9}, {
|
---|
200 | 3.713628612137115*^9, 3.713628642156434*^9}, {3.7136289447528067`*^9,
|
---|
201 | 3.7136289468090887`*^9}, {3.713630825751483*^9, 3.713630846719757*^9}, {
|
---|
202 | 3.713695713422142*^9, 3.713695713605722*^9}, {3.713705013950159*^9,
|
---|
203 | 3.7137050162739563`*^9}},ExpressionUUID->"1835abe6-07f6-40f2-984b-\
|
---|
204 | 1d7d9f66acfe"],
|
---|
205 |
|
---|
206 | Cell[BoxData["261175.89604990068`"], "Output",
|
---|
207 | CellChangeTimes->{{3.713626895357489*^9, 3.713626938708778*^9},
|
---|
208 | 3.7136270291038733`*^9, 3.713628655289853*^9, 3.713628999930332*^9,
|
---|
209 | 3.713630870870409*^9, 3.713695607714477*^9, 3.713695881864212*^9,
|
---|
210 | 3.7137048092027407`*^9,
|
---|
211 | 3.713705016629191*^9},ExpressionUUID->"3114da80-c217-4239-a873-\
|
---|
212 | 755a55f2cc7d"],
|
---|
213 |
|
---|
214 | Cell[BoxData["0.5306835829144527`"], "Output",
|
---|
215 | CellChangeTimes->{{3.713626895357489*^9, 3.713626938708778*^9},
|
---|
216 | 3.7136270291038733`*^9, 3.713628655289853*^9, 3.713628999930332*^9,
|
---|
217 | 3.713630870870409*^9, 3.713695607714477*^9, 3.713695881864212*^9,
|
---|
218 | 3.7137048092027407`*^9,
|
---|
219 | 3.713705016629841*^9},ExpressionUUID->"f067ed7a-7f63-49fd-9548-\
|
---|
220 | ff5daf219f55"]
|
---|
221 | }, Open ]],
|
---|
222 |
|
---|
223 | Cell[CellGroupData[{
|
---|
224 |
|
---|
225 | Cell[BoxData[
|
---|
226 | RowBox[{
|
---|
227 | RowBox[{"(*",
|
---|
228 | RowBox[{
|
---|
229 | RowBox[{"Assume", " ", "velocity", " ", "is", " ",
|
---|
230 | FractionBox[
|
---|
231 | SubscriptBox["c", "s"], "10"]}], ",", " ",
|
---|
232 | RowBox[{"calculate", " ",
|
---|
233 | RowBox[{"(",
|
---|
234 | RowBox[{"location", " ", "of"}], ")"}], " ", "required", " ", "density",
|
---|
235 | " ", "to", " ", "match", " ", "flux"}]}], "*)"}], "\[IndentingNewLine]",
|
---|
236 | RowBox[{"Solve", "[",
|
---|
237 | RowBox[{
|
---|
238 | RowBox[{
|
---|
239 | RowBox[{"\[Rho]", "[", "r", "]"}], "==",
|
---|
240 | FractionBox[
|
---|
241 | RowBox[{"5", "photonFlux"}],
|
---|
242 | RowBox[{
|
---|
243 | RowBox[{"cs", "[", "r", "]"}], " ", "nScale"}]]}], ",", "r"}],
|
---|
244 | "]"}]}]], "Input",
|
---|
245 | CellChangeTimes->{{3.713628670743627*^9, 3.713628841500167*^9}, {
|
---|
246 | 3.713629171048444*^9, 3.713629172488421*^9}, {3.713629227967517*^9,
|
---|
247 | 3.713629429399823*^9}, {3.7136294815224037`*^9, 3.7136294828852*^9}, {
|
---|
248 | 3.7136303637903423`*^9, 3.713630382787796*^9}, {3.713630915521286*^9,
|
---|
249 | 3.713630924439519*^9}, {3.7136309706703978`*^9, 3.71363105223066*^9}, {
|
---|
250 | 3.713632473106514*^9, 3.713632476975827*^9}, {3.7136956210558167`*^9,
|
---|
251 | 3.7136956325625467`*^9}, {3.7136959893659277`*^9, 3.713695995595943*^9}, {
|
---|
252 | 3.713696040526523*^9, 3.713696050935316*^9}, {3.71369609758183*^9,
|
---|
253 | 3.7136962211992493`*^9}, {3.7137047870613403`*^9, 3.71370478788995*^9}, {
|
---|
254 | 3.71370482500047*^9, 3.7137048967930117`*^9}, {3.713704975437333*^9,
|
---|
255 | 3.713704982689413*^9}, {3.7138734726181726`*^9, 3.713873472865411*^9}, {
|
---|
256 | 3.713875020430887*^9,
|
---|
257 | 3.71387502210718*^9}},ExpressionUUID->"c2bfc427-365e-4937-8f4e-\
|
---|
258 | ad562024f397"],
|
---|
259 |
|
---|
260 | Cell[BoxData[
|
---|
261 | RowBox[{"{",
|
---|
262 | RowBox[{"{",
|
---|
263 | RowBox[{"r", "\[Rule]", "0.855487591900579`"}], "}"}], "}"}]], "Output",
|
---|
264 | CellChangeTimes->{
|
---|
265 | 3.713630383647726*^9, {3.7136310270527973`*^9, 3.713631052567198*^9}, {
|
---|
266 | 3.7136956250195503`*^9, 3.713695632707082*^9}, 3.713696053381459*^9,
|
---|
267 | 3.713696100890504*^9, {3.713696144751809*^9, 3.713696222081403*^9}, {
|
---|
268 | 3.713704789499631*^9, 3.713704862362192*^9}, {3.71370489368416*^9,
|
---|
269 | 3.713704896999915*^9}},ExpressionUUID->"730d38a4-66b4-4079-b0f7-\
|
---|
270 | 1c44bfa1a033"]
|
---|
271 | }, Open ]],
|
---|
272 |
|
---|
273 | Cell[BoxData[
|
---|
274 | RowBox[{
|
---|
275 | RowBox[{
|
---|
276 | RowBox[{"\[Tau]", "[", "r_", "]"}], ":=",
|
---|
277 | RowBox[{"Integrate", "[",
|
---|
278 | RowBox[{
|
---|
279 | RowBox[{
|
---|
280 | RowBox[{"density", "[", "rad", "]"}], " ", "sigmaH", " ", "lScale", " ",
|
---|
281 | "nScale"}], ",",
|
---|
282 | RowBox[{"{",
|
---|
283 | RowBox[{"rad", ",", "r", ",", "rZero"}], "}"}]}], "]"}]}],
|
---|
284 | ";"}]], "Input",
|
---|
285 | CellChangeTimes->{{3.71362706445865*^9, 3.7136271456786346`*^9}, {
|
---|
286 | 3.713627584927602*^9, 3.713627613958808*^9}, {3.713627656176298*^9,
|
---|
287 | 3.713627660279965*^9}, {3.7136277137384987`*^9, 3.7136277782479553`*^9}, {
|
---|
288 | 3.713628479013278*^9, 3.713628480979281*^9}, {3.7136285958056307`*^9,
|
---|
289 | 3.713628599143648*^9}},ExpressionUUID->"c105ff3a-5995-47f8-8a91-\
|
---|
290 | 2db64d1ca5cc"],
|
---|
291 |
|
---|
292 | Cell[CellGroupData[{
|
---|
293 |
|
---|
294 | Cell[BoxData[
|
---|
295 | RowBox[{"Solve", "[",
|
---|
296 | RowBox[{
|
---|
297 | RowBox[{
|
---|
298 | RowBox[{"\[Tau]", "[", "r", "]"}], "\[Equal]", "1"}], ",", "r"}],
|
---|
299 | "]"}]], "Input",
|
---|
300 | CellChangeTimes->{{3.71362778851396*^9, 3.713627805545353*^9},
|
---|
301 | 3.713631932052615*^9,
|
---|
302 | 3.7137049373266*^9},ExpressionUUID->"4080f259-bc93-4172-94ec-21d6a2fa7c23"],
|
---|
303 |
|
---|
304 | Cell[BoxData[
|
---|
305 | TemplateBox[{
|
---|
306 | "Solve","ratnz",
|
---|
307 | "\"Solve was unable to solve the system with inexact coefficients. The \
|
---|
308 | answer was obtained by solving a corresponding exact system and numericizing \
|
---|
309 | the result.\"",2,125,6,24334043938025421380,"Local"},
|
---|
310 | "MessageTemplate"]], "Message", "MSG",
|
---|
311 | CellChangeTimes->{
|
---|
312 | 3.713630761955323*^9},ExpressionUUID->"4568e811-10f5-4f81-a497-\
|
---|
313 | 00b499edda27"],
|
---|
314 |
|
---|
315 | Cell[BoxData[
|
---|
316 | RowBox[{"{",
|
---|
317 | RowBox[{"{",
|
---|
318 | RowBox[{"r", "\[Rule]", "1.006277590333768`"}], "}"}], "}"}]], "Output",
|
---|
319 | CellChangeTimes->{
|
---|
320 | 3.71362811665779*^9, {3.713628575155105*^9, 3.7136285930162077`*^9},
|
---|
321 | 3.713628648592134*^9,
|
---|
322 | 3.713630761962076*^9},ExpressionUUID->"87e80af0-460b-436b-a8d2-\
|
---|
323 | a34e296247fc"]
|
---|
324 | }, Open ]]
|
---|
325 | },
|
---|
326 | WindowSize->{960, 1028},
|
---|
327 | WindowMargins->{{Automatic, 0}, {0, Automatic}},
|
---|
328 | FrontEndVersion->"11.1 for Linux x86 (64-bit) (April 18, 2017)",
|
---|
329 | StyleDefinitions->"Default.nb"
|
---|
330 | ]
|
---|
331 | (* End of Notebook Content *)
|
---|
332 |
|
---|
333 | (* Internal cache information *)
|
---|
334 | (*CellTagsOutline
|
---|
335 | CellTagsIndex->{}
|
---|
336 | *)
|
---|
337 | (*CellTagsIndex
|
---|
338 | CellTagsIndex->{}
|
---|
339 | *)
|
---|
340 | (*NotebookFileOutline
|
---|
341 | Notebook[{
|
---|
342 | Cell[558, 20, 1146, 34, 177, "Input", "ExpressionUUID" -> \
|
---|
343 | "553848b8-eddb-47d5-bc1d-395f48fe8f68"],
|
---|
344 | Cell[1707, 56, 1379, 37, 283, "Input", "ExpressionUUID" -> \
|
---|
345 | "07141f60-acdb-48b0-99c2-73847a485bb2"],
|
---|
346 | Cell[3089, 95, 467, 11, 98, "Input", "ExpressionUUID" -> \
|
---|
347 | "d31a88fd-5e0f-4d8d-8702-1bc10c7a7272"],
|
---|
348 | Cell[3559, 108, 665, 17, 98, "Input", "ExpressionUUID" -> \
|
---|
349 | "b346f127-2b08-4a58-bed0-28dc9e113969"],
|
---|
350 | Cell[4227, 127, 1160, 32, 175, "Input", "ExpressionUUID" -> \
|
---|
351 | "d5060ae3-cc3d-47c4-a22b-8c872a469087"],
|
---|
352 | Cell[5390, 161, 448, 10, 55, "Input", "ExpressionUUID" -> \
|
---|
353 | "94e840b5-33fd-4f26-9000-5aadf0791ea3"],
|
---|
354 | Cell[CellGroupData[{
|
---|
355 | Cell[5863, 175, 1237, 28, 121, "Input", "ExpressionUUID" -> \
|
---|
356 | "1835abe6-07f6-40f2-984b-1d7d9f66acfe"],
|
---|
357 | Cell[7103, 205, 365, 6, 32, "Output", "ExpressionUUID" -> \
|
---|
358 | "3114da80-c217-4239-a873-755a55f2cc7d"],
|
---|
359 | Cell[7471, 213, 365, 6, 32, "Output", "ExpressionUUID" -> \
|
---|
360 | "f067ed7a-7f63-49fd-9548-ff5daf219f55"]
|
---|
361 | }, Open ]],
|
---|
362 | Cell[CellGroupData[{
|
---|
363 | Cell[7873, 224, 1552, 33, 85, "Input", "ExpressionUUID" -> \
|
---|
364 | "c2bfc427-365e-4937-8f4e-ad562024f397"],
|
---|
365 | Cell[9428, 259, 515, 10, 32, "Output", "ExpressionUUID" -> \
|
---|
366 | "730d38a4-66b4-4079-b0f7-1c44bfa1a033"]
|
---|
367 | }, Open ]],
|
---|
368 | Cell[9958, 272, 717, 17, 34, "Input", "ExpressionUUID" -> \
|
---|
369 | "c105ff3a-5995-47f8-8a91-2db64d1ca5cc"],
|
---|
370 | Cell[CellGroupData[{
|
---|
371 | Cell[10700, 293, 320, 8, 34, "Input", "ExpressionUUID" -> \
|
---|
372 | "4080f259-bc93-4172-94ec-21d6a2fa7c23"],
|
---|
373 | Cell[11023, 303, 399, 9, 41, "Message", "ExpressionUUID" -> \
|
---|
374 | "4568e811-10f5-4f81-a497-00b499edda27"],
|
---|
375 | Cell[11425, 314, 321, 8, 32, "Output", "ExpressionUUID" -> \
|
---|
376 | "87e80af0-460b-436b-a8d2-a34e296247fc"]
|
---|
377 | }, Open ]]
|
---|
378 | }
|
---|
379 | ]
|
---|
380 | *)
|
---|
381 |
|
---|