u/erica/UniformCollapse: ring_analysis2 (1).nb

File ring_analysis2 (1).nb, 679.7 KB (added by Erica Kaminski, 10 years ago)
Line 
1(* Content-type: application/vnd.wolfram.mathematica *)
2
3(*** Wolfram Notebook File ***)
4(* http://www.wolfram.com/nb *)
5
6(* CreatedBy='Mathematica 8.0' *)
7
8(*CacheID: 234*)
9(* Internal cache information:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[ 157, 7]
13NotebookDataLength[ 682291, 13545]
14NotebookOptionsPosition[ 671612, 13222]
15NotebookOutlinePosition[ 672368, 13249]
16CellTagsIndexPosition[ 672236, 13243]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21Cell["Variables/Equations", "Text",
22 CellChangeTimes->{{3.6433936472822604`*^9, 3.643393648389862*^9},
23 3.6433938599110737`*^9, {3.643394044849951*^9, 3.6433940463631535`*^9}}],
24
25Cell[BoxData[{
26 RowBox[{"\[Rho]0", " ", "=", " ",
27 RowBox[{"initial", " ", "density"}]}], "\[IndentingNewLine]",
28 RowBox[{"r0", " ", "=", " ",
29 RowBox[{
30 "initial", " ", "radius", " ", "of", " ", "outermost", " ",
31 "sphere"}]}], "\[IndentingNewLine]",
32 RowBox[{"r02", "=",
33 RowBox[{
34 "initial", " ", "radius", " ", "of", " ", "a", " ", "smaller", " ", "inner",
35 " ", "sphere", " ", "of", " ", "same", " ",
36 "density"}]}], "\[IndentingNewLine]",
37 RowBox[{
38 RowBox[{"r", " ", "=", " ",
39 RowBox[{"radius", " ", "of", " ", "outermost", " ", "sphere"}]}], ",", " ",
40 RowBox[{"r", "=",
41 RowBox[{"r",
42 RowBox[{"(", "t", ")"}]}]}]}], "\[IndentingNewLine]",
43 RowBox[{
44 RowBox[{"r2", " ", "=", " ",
45 RowBox[{"radius", " ", "of", " ", "inner", " ", "sphere"}]}], ",",
46 RowBox[{"r2", "=",
47 RowBox[{"r2",
48 RowBox[{"(", "t", ")"}]}]}]}], "\[IndentingNewLine]",
49 RowBox[{"G", " ", "=", " ",
50 RowBox[{"gravitational", " ", "constant"}]}], "\[IndentingNewLine]",
51 RowBox[{"t", " ", "=", " ",
52 RowBox[{"time", " ", "collapsing", " ", "for"}]}], "\[IndentingNewLine]",
53 RowBox[{
54 RowBox[{
55 RowBox[{"\[Xi]", "+",
56 RowBox[{
57 FractionBox["1", "2"], "sin2\[Xi]"}]}], " ", "=", " ",
58 RowBox[{
59 RowBox[{"kt", " ", "--"}], " ", "Equation", " ", "that", " ", "gives",
60 " ", "position", " ", "as", " ", "function", " ", "of", " ", "time"}]}],
61 ",", " ", "where"}], "\[IndentingNewLine]",
62 RowBox[{
63 RowBox[{
64 FractionBox["r",
65 SubscriptBox["r", "0"]], "=", " ",
66 SuperscriptBox[
67 RowBox[{"Cos", "[", "\[Xi]", "]"}], "2"]}], " ", ",", " ", "and", ",",
68 " ",
69 RowBox[{"k", " ", "=", " ",
70 SqrtBox[
71 RowBox[{
72 FractionBox["8", "3"], "\[Pi]", " ", "G", " ",
73 SubscriptBox["\[Rho]", "0"]}]]}]}], "\[IndentingNewLine]",
74 RowBox[{"t1", " ", "=", " ",
75 RowBox[{
76 "starting", " ", "iteration", " ", "time", " ", "to", " ", "solve", " ",
77 "for", " ", "position"}]}], "\[IndentingNewLine]",
78 RowBox[{"t2", " ", "=", " ",
79 RowBox[{"final", " ", "iteration", " ", "time"}]}], "\[IndentingNewLine]",
80 RowBox[{"timestep", " ", "=", " ",
81 RowBox[{"iteration", " ", "dt"}]}], "\[IndentingNewLine]",
82 RowBox[{"v", "=",
83 RowBox[{
84 RowBox[{"-",
85 SubscriptBox["r", "0"]}],
86 RowBox[{
87 SqrtBox[
88 RowBox[{
89 FractionBox["8", "3"],
90 SubscriptBox["\[Pi]G\[Rho]", "0"],
91 RowBox[{"(",
92 RowBox[{
93 FractionBox[
94 SubscriptBox["r", "0"], "r"], "-", "1"}], ")"}]}]], " ", "--"}], " ",
95 "describes", " ", "the", " ", "local", " ", "velocity", " ", "at", " ",
96 "radius", " ", "r", " ",
97 RowBox[{"(", "t", ")"}]}]}], "\[IndentingNewLine]",
98 RowBox[{"a", "=",
99 RowBox[{
100 RowBox[{"-", "G"}], " ",
101 RowBox[{
102 FractionBox["Minit",
103 SuperscriptBox["r", "2"]], " ", "--"}], " ", "describes", " ", "the",
104 " ", "local", " ", "acceleration", " ", "at", " ", "radius", " ", "r",
105 RowBox[{"(", "t", ")"}]}]}], "\[IndentingNewLine]",
106 RowBox[{"Minit", " ", "=", " ",
107 RowBox[{
108 "mass", " ", "contained", " ", "in", " ", "uniform", " ", "sphere", " ",
109 "of", " ", "radius", " ", "r0",
110 RowBox[{"(",
111 RowBox[{
112 "this", " ", "stays", " ", "constant", " ", "over", " ", "time", " ",
113 "as", " ", "the", " ", "sphere", " ", "shrinks"}],
114 ")"}]}]}], "\[IndentingNewLine]",
115 RowBox[{"Minit2", " ", "=", " ",
116 RowBox[{
117 "mass", " ", "of", " ", "second", " ", "inner", " ", "sphere", " ", "of",
118 " ", "radius", " ", "r02"}]}]}], "Text",
119 CellChangeTimes->{{3.643393653994272*^9, 3.6433938196382*^9},
120 3.643393854059063*^9, {3.643393888453326*^9, 3.643393889451728*^9}, {
121 3.6433940423227463`*^9, 3.6433941742531953`*^9}, {3.64339720156345*^9,
122 3.643397208525463*^9}, {3.6433973706009674`*^9, 3.6433973920198174`*^9}, {
123 3.6433977290307617`*^9, 3.6433978175133324`*^9}, {3.643397875302288*^9,
124 3.6433979361450033`*^9}, {3.643398217527527*^9, 3.64339824646938*^9}, {
125 3.644321694226617*^9, 3.644321724185331*^9}, {3.6443217716470456`*^9,
126 3.644321793805313*^9}, {3.644327573904916*^9, 3.644327649770255*^9}, {
127 3.6443277567563744`*^9, 3.6443277851359973`*^9}, {3.6443278274674187`*^9,
128 3.644327906247925*^9}, {3.644334796560515*^9, 3.644334825007142*^9}, {
129 3.644335051928121*^9, 3.644335255169746*^9}}],
130
131Cell[CellGroupData[{
132
133Cell[BoxData[
134 RowBox[{
135 RowBox[{"\[Rho]0", " ", "=", " ", "5"}], ";"}]], "Input",
136 CellGroupingRules->{GroupTogetherGrouping, 10001.},
137 CellChangeTimes->{{3.64339223233391*^9, 3.643392235751316*^9}, {
138 3.643393545961867*^9, 3.6433935689379187`*^9}, 3.643397426689885*^9, {
139 3.64432452065828*^9, 3.6443245211763096`*^9}, {3.644324596674628*^9,
140 3.6443246348698125`*^9}, {3.6443247859984565`*^9,
141 3.6443248109078813`*^9}, {3.644324933918917*^9, 3.644324935132986*^9}, {
142 3.6443251642100887`*^9, 3.6443251764947915`*^9}, {3.644325255753325*^9,
143 3.644325256122346*^9}, 3.6443280862952228`*^9}],
144
145Cell[BoxData[{
146 RowBox[{
147 RowBox[{"Minit", " ", "=", " ",
148 RowBox[{
149 FractionBox["4", "3"], "*", "\[Pi]", "*", "\[Rho]0", "*", " ",
150 SuperscriptBox["r0", "3"]}]}], ";"}], "\[IndentingNewLine]",
151 RowBox[{
152 RowBox[{"Minit2", " ", "=", " ",
153 RowBox[{
154 FractionBox["4", "3"], "*", "\[Pi]", "*", "\[Rho]0", "*",
155 SuperscriptBox[
156 RowBox[{"(", "r02", ")"}], "3"]}]}], ";"}]}], "Input",
157 CellGroupingRules->{GroupTogetherGrouping, 10001.},
158 CellChangeTimes->{{3.6433972218236866`*^9, 3.6433972232744894`*^9},
159 3.643397428811489*^9, 3.644324596674628*^9, 3.6443280862952228`*^9, {
160 3.6443352855664845`*^9, 3.64433531136596*^9}, {3.6443354377871914`*^9,
161 3.64433550192686*^9}}],
162
163Cell[BoxData[
164 RowBox[{
165 RowBox[{"G", "=", "1"}], ";"}]], "Input",
166 CellGroupingRules->{GroupTogetherGrouping, 10001.},
167 CellChangeTimes->{{3.6433922391365223`*^9, 3.643392239713723*^9},
168 3.6433974306522923`*^9, 3.644324596674628*^9, {3.644324735987596*^9,
169 3.644324771052602*^9}, {3.6443251904655905`*^9, 3.644325211071769*^9}, {
170 3.6443252516210885`*^9, 3.6443252539952245`*^9}, {3.644325288373191*^9,
171 3.644325291144349*^9}, 3.644325351789818*^9, {3.6443254125032907`*^9,
172 3.6443254126342983`*^9}, {3.6443254841213865`*^9, 3.644325484269395*^9},
173 3.6443280862952228`*^9}],
174
175Cell[BoxData[
176 RowBox[{
177 RowBox[{"k", "=", " ",
178 SqrtBox[
179 RowBox[{
180 FractionBox["8", "3"], "\[Pi]", "*", "G", "*", "\[Rho]0"}]]}],
181 ";"}]], "Input",
182 CellGroupingRules->{GroupTogetherGrouping, 10001.},
183 CellChangeTimes->{{3.643393923456399*^9, 3.643393941332432*^9},
184 3.6433974331794963`*^9, {3.6443218078381157`*^9, 3.644321808425149*^9},
185 3.644322961793118*^9, 3.6443245435475893`*^9, 3.644324596674628*^9,
186 3.6443280862952228`*^9}],
187
188Cell[BoxData[{
189 RowBox[{
190 RowBox[{"r0", "=", "10"}], ";"}], "\[IndentingNewLine]",
191 RowBox[{
192 RowBox[{"r02", "=", "5"}], ";"}]}], "Input",
193 CellGroupingRules->{GroupTogetherGrouping, 10001.},
194 CellChangeTimes->{{3.643392242432128*^9, 3.6433922436523314`*^9},
195 3.6433974369899035`*^9, 3.6443245966756277`*^9, {3.644324655059967*^9,
196 3.6443246937601805`*^9}, 3.6443280862962227`*^9, {3.644334755788183*^9,
197 3.644334760874474*^9}}],
198
199Cell["\<\
200Testing the function \[OpenCurlyDoubleQuote]find \
201root\[CloseCurlyDoubleQuote], to solve for position (\[Xi]) letting t = 1 . \
202The {} gives the variable (\[Xi]) to solver for, and the starting point on \
203the real line to look for the root (in this case, 0):\
204\>", "Text",
205 CellGroupingRules->{GroupTogetherGrouping, 10001.},
206 CellChangeTimes->{{3.643394250990743*^9, 3.643394288451211*^9}, {
207 3.6443218633292894`*^9, 3.6443219252948337`*^9}, {3.644321963834038*^9,
208 3.644321988637457*^9}, 3.6443245966756277`*^9, 3.6443280862962227`*^9}],
209
210Cell[BoxData[
211 RowBox[{"FindRoot", "[",
212 RowBox[{
213 RowBox[{"\[Xi]", "+",
214 RowBox[{
215 FractionBox["1", "2"], " ",
216 RowBox[{"Sin", "[",
217 RowBox[{"2", " ", "*", "\[Xi]"}], "]"}]}], "-", "k"}], ",", " ",
218 RowBox[{"{",
219 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}]], "Input",
220 CellGroupingRules->{GroupTogetherGrouping, 10001.},
221 CellChangeTimes->{{3.643392612960764*^9, 3.6433927140611486`*^9}, {
222 3.64339390768497*^9, 3.643393919944393*^9}, {3.6433974402885094`*^9,
223 3.6433974415395117`*^9}, {3.6443218249760957`*^9, 3.64432185092258*^9},
224 3.6443245966756277`*^9, 3.6443280862962227`*^9}]
225}, Open ]],
226
227Cell[BoxData[
228 RowBox[{"{",
229 RowBox[{"\[Xi]", "\[Rule]", "6.377918725472139`"}], "}"}]], "Output",
230 CellChangeTimes->{3.6444868190731907`*^9, 3.644523294148*^9,
231 3.644753387231*^9}],
232
233Cell[CellGroupData[{
234
235Cell[BoxData[
236 RowBox[{"?", "First"}]], "Input",
237 CellChangeTimes->{{3.644486937826434*^9, 3.6444869417636595`*^9}}],
238
239Cell[BoxData[
240 RowBox[{
241 StyleBox["\<\"\!\(\*RowBox[{\\\"First\\\", \\\"[\\\", \
242StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\"]\\\"}]\) gives the first element in \
243\!\(\*StyleBox[\\\"expr\\\", \\\"TI\\\"]\). \"\>", "MSG"],
244 "\[NonBreakingSpace]",
245 ButtonBox[
246 StyleBox["\[RightSkeleton]", "SR"],
247 Active->True,
248 BaseStyle->"Link",
249 ButtonData->"paclet:ref/First"]}]], "Print", "PrintUsage",
250 CellChangeTimes->{3.644753387418*^9},
251 CellTags->"Info3644738987-5112488"]
252}, Open ]],
253
254Cell[CellGroupData[{
255
256Cell[BoxData[
257 RowBox[{"Needs", "[", "\"\<PlotLegends`\>\"", "]"}]], "Input",
258 CellChangeTimes->{{3.6444867177923975`*^9, 3.6444867375165257`*^9}}],
259
260Cell[BoxData[
261 RowBox[{
262 StyleBox[
263 RowBox[{"General", "::", "obspkg"}], "MessageName"],
264 RowBox[{
265 ":", " "}], "\<\"\[NoBreak]\\!\\(\\\"PlotLegends`\\\"\\)\[NoBreak] is now \
266obsolete. The legacy version being loaded may conflict with current \
267functionality. See the Compatibility Guide for updating information.\"\>"}]], \
268"Message", "MSG",
269 CellChangeTimes->{3.644753388151*^9}]
270}, Open ]],
271
272Cell[BoxData[{
273 RowBox[{
274 RowBox[{"t1", "=", "0"}], ";"}], "\[IndentingNewLine]",
275 RowBox[{
276 RowBox[{"t2", "=", ".24"}], ";"}], "\[IndentingNewLine]",
277 RowBox[{
278 RowBox[{"timestep", "=", "0.001"}], ";"}], "\[IndentingNewLine]",
279 RowBox[{
280 RowBox[{"r", "=",
281 RowBox[{"Table", "[",
282 RowBox[{
283 RowBox[{"r0", "*",
284 SuperscriptBox[
285 RowBox[{"(",
286 RowBox[{"Cos", "[",
287 RowBox[{"\[Xi]", "/.",
288 RowBox[{"First", "[",
289 RowBox[{"FindRoot", "[",
290 RowBox[{
291 RowBox[{"\[Xi]", "+",
292 RowBox[{
293 FractionBox["1", "2"],
294 RowBox[{"Sin", "[",
295 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
296 RowBox[{"k", "*", "t"}]}], ",", " ",
297 RowBox[{"{",
298 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}], "]"}],
299 ")"}], "2"]}], ",",
300 RowBox[{"{",
301 RowBox[{"t", ",", "t1", ",", "t2", ",", " ", "timestep"}], "}"}]}],
302 "]"}]}], ";"}], "\[IndentingNewLine]",
303 RowBox[{
304 RowBox[{"r2", "=",
305 RowBox[{"Table", "[",
306 RowBox[{
307 RowBox[{"r02", "*",
308 SuperscriptBox[
309 RowBox[{"(",
310 RowBox[{"Cos", "[",
311 RowBox[{"\[Xi]", "/.",
312 RowBox[{"First", "[",
313 RowBox[{"FindRoot", "[",
314 RowBox[{
315 RowBox[{"\[Xi]", "+",
316 RowBox[{
317 FractionBox["1", "2"],
318 RowBox[{"Sin", "[",
319 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
320 RowBox[{"k", "*", "t"}]}], ",", " ",
321 RowBox[{"{",
322 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}], "]"}],
323 ")"}], "2"]}], ",",
324 RowBox[{"{",
325 RowBox[{"t", ",", "t1", ",", "t2", ",", " ", "timestep"}], "}"}]}],
326 "]"}]}], ";"}], "\[IndentingNewLine]",
327 RowBox[{
328 RowBox[{"rsmall", " ", "=", " ",
329 RowBox[{"Table", "[",
330 RowBox[{
331 RowBox[{".1", "*",
332 SuperscriptBox[
333 RowBox[{"(",
334 RowBox[{"Cos", "[",
335 RowBox[{"\[Xi]", "/.",
336 RowBox[{"First", "[",
337 RowBox[{"FindRoot", "[",
338 RowBox[{
339 RowBox[{"\[Xi]", "+",
340 RowBox[{
341 FractionBox["1", "2"],
342 RowBox[{"Sin", "[",
343 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
344 RowBox[{"k", "*", "t"}]}], ",", " ",
345 RowBox[{"{",
346 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}], "]"}],
347 ")"}], "2"]}], ",",
348 RowBox[{"{",
349 RowBox[{"t", ",", "t1", ",", "t2", ",", " ", "timestep"}], "}"}]}],
350 "]"}]}], ";"}], "\[IndentingNewLine]",
351 RowBox[{
352 RowBox[{"t", "=",
353 RowBox[{"Table", "[",
354 RowBox[{"t", ",",
355 RowBox[{"{",
356 RowBox[{"t", ",", "t1", ",", "t2", ",", "timestep"}], "}"}]}], "]"}]}],
357 ";"}], "\[IndentingNewLine]",
358 RowBox[{"ListPlot", "[",
359 RowBox[{
360 RowBox[{"{",
361 RowBox[{
362 RowBox[{"Transpose", "[",
363 RowBox[{"{",
364 RowBox[{"t", ",", "r"}], "}"}], "]"}], ",",
365 RowBox[{"Transpose", "[",
366 RowBox[{"{",
367 RowBox[{"t", ",", "r2"}], "}"}], "]"}], ",", " ",
368 RowBox[{"Transpose", "[",
369 RowBox[{"{",
370 RowBox[{"t", ",", " ", "rsmall"}], "}"}], "]"}]}], "}"}], " ", ",",
371 " ",
372 RowBox[{"AxesLabel", " ", "\[Rule]", " ",
373 RowBox[{"{",
374 RowBox[{"time", ",", " ", "position"}], "}"}]}]}],
375 "]"}], "\[IndentingNewLine]",
376 RowBox[{
377 RowBox[{
378 RowBox[{"Transpose", "[",
379 RowBox[{"{",
380 RowBox[{"t", ",", "r"}], "}"}], "]"}], "//", "MatrixForm"}],
381 ";"}]}], "Input",
382 CellGroupingRules->{GroupTogetherGrouping, 10001.},
383 CellChangeTimes->{{3.643392885506071*^9, 3.643393109717497*^9}, {
384 3.643393377019794*^9, 3.643393379651599*^9}, {3.6433934712007203`*^9,
385 3.643393497401378*^9}, 3.6433947019830008`*^9, 3.6433947850647507`*^9, {
386 3.6443227192792473`*^9, 3.6443227613216515`*^9}, 3.6443229702596025`*^9, {
387 3.644323435355204*^9, 3.6443234707422285`*^9}, 3.644324049965358*^9, {
388 3.644325017424693*^9, 3.644325018500755*^9}, {3.6443250544418106`*^9,
389 3.6443250559178953`*^9}, {3.6443255162472243`*^9, 3.644325516417234*^9}, {
390 3.6443255980699043`*^9, 3.644325642625453*^9}, {3.644325672875183*^9,
391 3.6443257337146626`*^9}, {3.644325774302984*^9, 3.644325813125205*^9}, {
392 3.6443258449100227`*^9, 3.644325861455969*^9}, 3.644328086297223*^9, {
393 3.644330912838892*^9, 3.644330963629797*^9}, 3.6443310035550804`*^9, {
394 3.644331064052541*^9, 3.6443310644405627`*^9}, {3.6443311004596233`*^9,
395 3.6443314596641684`*^9}, {3.6443314978533525`*^9, 3.64433165550837*^9}, {
396 3.64433170691131*^9, 3.6443318050939255`*^9}, {3.6443318398069115`*^9,
397 3.6443318464782925`*^9}, {3.6443344579921503`*^9, 3.644334519100645*^9}, {
398 3.644334576298917*^9, 3.6443345781660233`*^9}, {3.6443346150661345`*^9,
399 3.6443346563954983`*^9}, {3.6443348547178416`*^9, 3.644334901736531*^9},
400 3.644334933348339*^9, {3.644334963666073*^9, 3.644334977498864*^9},
401 3.64433503144695*^9, {3.6443355943911486`*^9, 3.6443356226447644`*^9}, {
402 3.6444272668315277`*^9, 3.644427304003654*^9}, {3.6444866696546445`*^9,
403 3.644486670430689*^9}, {3.644486710367973*^9, 3.6444867127071066`*^9}}],
404
405Cell[BoxData[
406 GraphicsBox[{{}, {{},
407 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.007333333333333334],
408 AbsoluteThickness[1.6], PointBox[CompressedData["
4091:eJxVlws4VHkfx92FQi6DYZg5R2W37aKUbq/fv1xKSoqVymIrG+0WqZVSoVIk
410SqFSq0RJF7nlfpkxhplxjZbapNpkad26UKF65xz/8z7Pe55nHs95Zvznd/l+
411P98zvK0BG3wV5OTk3spe1N//v8zReObblrVbXcBdcZbDu28kvveBca84Q4ns
412fvTIzrJ95/0gRTkv+Pj/3g8Ep+Od3uay+1C9rJUvD+4D94+TWm99ZT4fAqWj
413nY1TZfcHeqdbTrp7CLhJgvXeX5j/D4eV5jWb4sdJtOz5utgLu4+C7sKCrowx
4145rzjILdHa+j6KIlKHCcrzDx5Agh/xQNHPzPnR0F48P5DDp9ItCRfHFxx9RSM
415Ryp9HBhhvu80nH090hU6TKIi08h/1xfFQY+G84r+98z3nwXvLWXqtu9IdKWa
416mx3kFw92L24uPjzE1HMO/NWnSS8PkOjpZ/oLoednucKUPqa+BGBb549GviGR
4178Zxn5ioRiVC+dteZ9T1MvUnAOqYWIN9Nos3bl1IngkOAwfnEV0z9FyFUvu3D
418lJckSr5EX2BiYBW7s5PpJxmeTGl2u/OURE8aP7q+unEZwlw+2jY/Zvq7Auc7
419b2x48ieJjJTcNWfl/gHxjZEhNS1Mvykglg7cvdBEIo/F9IFQFPW6e0090/81
4206FpizOkWk2iNdfRyn9fXYHy8z36biJlHKtgv2baxWkCivvXUiamwTNNypVoF
421M5/rYHM1T31eCYlifvtnLPPtdbDa+zbJpoCZVxroVVx6MTuXRDNPsmQtpMH8
42224odClnM/NJhfvKswyWZJKpLtS94/yUdwraXFf54g5nnDfghavTIo2sk+lU2
423LUOlm2CxpV208Aoz35sQZ9l95NAFEqm3pwX+Rz0D3h/+6cqNc8y8M6Dwjb52
424biyJblPtat+C1l+j61KjmPnfgt8dWyr3HSPRauo4ViY8JW4/+/4Is49MiO31
425068OIdEbatwmt+HMI8WNaC+zn9sQ4zT53NVdJKKm10zcgXRJ1oOXO5h93YHn
426hTnZKltJ9J3nmaphi7tQY7Nvj6Yns7+74KDV//rTjySSyE5jz7kHrkTmmGgd
427s8974B4gvfq7I4n84/sPwYIs+HpRpVLVltlvFqw5e8P+0DISyYqTtXwf4maF
428m7UuYPZ9H4wqv1pPnkMiN5l4ZCuFvbEGB2dYMPvPhgS3tc3mPBKly6bXnpYN
4293Nx75kpsRg/ZYB7V5CPSIdGHL49CeqfngLHbw11+Gow+cqD3wEarfkUS2dEC
430yIG9R09dcR0nsF5yIGitftzlDwRKMKQbAtuF5FB1H4H1kwsWM70ym7oINFFe
431LtQU9F0t7SCwnnJh41hAcdQjAs2nrzyYf1X+6cJ6AusrD+xvW/aKhAQ6xpfK
432FJQHg65K4gWlBNZbHvTyBzefyCVQq2z7splAevaT44WZBNZfPtw10reQXCMQ
433SR+YD4fzvaeXXiCwHvPBcd9zn9g4Au31oxbwAEz7zYogksD6fABVN7Umt4QS
434SDhsIdvwA5Bs+bLULojAei0Ac/PE6Ul+BNKdKBCiTz3LrPUisH4LYMppq7TH
435bgSiqxPLPh+xZlC8msB6LgTPQYudFxGBcv8YzKhxKoRPK4wHHRYSWN+FcCug
4360uPRTAIp0A0XwsH9n8IRj8B6LwLr9j4UwyLQhgnBgEm7wp58DQLrX3Zf2dFT
437Kkeg61S7j4ogqd8tLHWYh/1QDKFNB9R93/DQO+o4j2JoKIr2VnnOw/4oBtsr
438AxsiW3loBSX/p8WgkLq46GUtD/ulBJQTTbcal/HQOUq+XiWgszSAmJfNw/4p
439gVtBLOm0dB56eZBaSAmIFul+N3KBh/1UCjlhezXTYnjIkhZ4KSR3OK/6IYyH
440/VUKmmqCtPggHopItJVJphQ6Fnb1tfjysN/KIMCqbmDQg4ceEvSC4aV36N4e
441Jx72Xxnk/tJtW2bDQzyK/v1lMKv51YxfLXnYj+Ww3uX77g8kD+2h7BFYDu9e
442rLLbxOJhf5ZDVcpVlYuTeEhAbfd9OeTu8BjKHuViv1aAxSJvYVofF02dMCQs
443ttuMAju52L8VMEWaOp3VzEX0+D5XwM/J1laJAi72cyV8da2Y1p/LRXR5hypB
4444hxYwEnnYn9XQsc81rXpiVw0keN8UFz0JVn1BBf7nQ/Jav0/8YO56FaNk8zR
445fGhezUlx2cHF/ucDv+B7raKNXOQic6POMT5oPtbYNrKSi3nAh4ENyqs1FnHR
446Jyp9qvmQUfZH0MgMLuYDH76Nno0uNOCia2zKEALwnC5c7KzKxbwQwN+Nvh77
447+s3QKnrBAph0oU1rpM4M80MAI5pvXnFvm6GhDKpAAQzZx7E/nDTDPBFAo+ru
4484d2+ZugiVZ1UADfTm3LOrjDDfBGAs0dQlIeZGUIycTlOrgJ32HlPNGaKeVMF
449ETWj69rbTVHPGNVwFWiHBySfzjPF/KkCX8f3OV1xpohSi0wy8CzTt6DT3xTz
450qAqMNsyuOmBniuh2m6vgn1TNN/mmpphPVXDC8O2yM584iD5ORwht8QVC1RYO
4515pUQQufKR3DucBCNI1chGLaOBzYd42B+CSFxyDzaxJODJh4fhLA1X7VI0YqD
452eSaECEuV18c0OIjGQbsQmsKmDl3+2wTzTQjvz2/PWV1sgsIoOxtWw9eUJZ/j
453zphg3lUDvyLizA5fEzSDNlA16FRHz29dYoL5Vw3lTVmXm7VMUBP9eFENf0V8
4542+fVZYx5WA2Lgjq3hhYZo/2UHZ5VQ8n1lK/TThtjPsreT2K3e3obIzNKzqYi
455aLlvH2g6zxjzUgTi4MIV/krGqJaSn48IuK5zS5e2sTE/RbDU2WBJQgYbBVDr
456TRVBhMeQzp4QNuapCBJOSWOaV7GRAW14EZTU3+jINmRjvtZA/PKm2do9RqiS
457Ks+8BtSE86/0FRhh3tbA8eyM2XaRRmjHL9RVA+pLyed6rkaYvzWg6/guwZNr
458hKiHJxlh4dRwm7lRvyHmcQ14JXJcVhUbIoqOIb01wNNLFf5z3BDzuRZ6NlWw
459htcZIi/6wFpwcVog3cU2xLyuhc7GYYd1XQZIhQZULaQatnck3TPA/K4FG2dr
460wfJgA0RtQy+rFsTeEVPW2hhgntdCcEFS+QNlA0Q/3Q3WwhIWOyuknoX5LgZd
4614cXkc+dY6CtlN0sxVKXFGct5sDDvxRBZvDy93ISFblJyDhJDdmtgeO0Lfcx/
462Mch1Nz80StdHzhMNQ8ufrrHZv+jjPBBDX++8kJMW+miEWsewGMYdCsyTe/Vw
463PkhghWLuwKtMPZRCtWstgf2bsj96++vhvJCA9sZKQs1CDznQA5TAFqV2rb9e
4646+L8kID17jpWw3VdNEDHgwSEhmXLO7x0cZ5IQM5qyEGerYuSKLyPSUDqMvno
465gkc6OF+kcNwupm9PrA6yoRcihb+W++jft9fBeSMFfnOawevxqaibwusRKSzQ
466sTirkTcV548UGn+Txhv5TUUT+JPCWYP1F5VNpuI8koJXxqUDokbtCbwo1AHf
467o8XNOVwb51MdsPn+YQlztRFtX9s6aLdO6WRVauG8qgObU1p2TmwtRNsjsg7G
46865TlMoM0cX7VwR3drmBt8RQ0Ib86cO+LcPVmT8F5VgeSfpNZgf6T0Z/UeifV
469QzT7EIf9QAPnWz0I4/Js535RR4ep8TnWg+uLkdkRy9Vx3tVDhk38zLYINTSN
470FmA9PI5atfNd+SScf/UQ3Df4MX5YFTXU0xeMRAbu97NQxXlYDx+2JMeYuaug
471389TQG0AZ05vm9sRZZyPDRAofP7bhWtKiEMLugHUFgjDt5cp4rxsAKc9Ssrk
472QwUkon9eNYBRV1stp1Me52cDJIQ/3BT6txzaReG0pQEcyVs2viXfYCJPGyBl
473l/yWD5e+gD5tkEaYkxy92ctnDCbytRF0Mq0Dtqh9hnIKB+6NENu6fiPnzAhM
4745G0jIH/J2M+978GX/vnVCPO3zbRK0XgLE/nbCO6iXW0Zgn/hv21F8f8=
475 "]]},
476 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.007333333333333334],
477 AbsoluteThickness[1.6], PointBox[CompressedData["
4781:eJxVlwlUjXkfx9v35d7nIRVZQzPGHtnevn9KZMmSSZYpg0aZocRkCRVCKEIh
479JlIkS9q077db3duqTDESRpoypSyFFt77PPd/33Pe55x7Os+5t//9Ld/v5/vc
480ERs9V7qpKCkpvZO9uL//fw0gfXHvapZuXA4n1fF277+x9H4D+lxCjCWy+56D
481W7N3nXNHpHqyz5H/ve+FxUcaXc1l974D4he83LcLTp+0am99VXx+D7J6GiuF
482svu9rWMma93dj+HhBStc+xX/748F5sVrQvtYMuf5suAL2w+BnZ7aFNurOO8I
483lHYYdl7vYUmmvZ7KuGNHMdJDde+hL4rzj8PfZ/d+u88smZVS6pN79QT6AtU+
484ve1WfN8pnHnd3eTbxZL0oYH/rkgPQYuuw7z2D4rvPwPXddk6Nu9ZcqVoeIK3
485eyhsX9yceaBTUc9ZeOiMll5+y5KnX/gvRMvPSmmRbYr6zsPUKqUn8A1LBk98
486Zq4REIacpdtOr2hR1BsOo8PansrNLFm7eTZ3Iuw8B50Le6Wo/yJ8les+6r9k
487ScQl/sKQQZbBWxsV/UTgiX71qjtPWfKk8pPjqxuX4bf8k031Y0V/V3Cu8cbK
488J3+yxETNyWB80h8IrQzcU1yj6DcSpdK3dy9UscR5Jn8g0o+/bl5Sruj/Gppm
489DTZrLmXJEquguRteX0NfX9v8TWLFPKIwf9am1UUFLGlbwZ0YhTkGkxdo5yrm
490cx3WV5N1pmSy5ORv//TGvbsOy53vwq1TFfOKxoDcSy8mJLFk3DEjWQvRmHpb
491tUElXjG/GEyNGH8gM44lZVHzUz/0x8Bvc3bajzcU87yBH473HHx0jSW/yqZl
492rHYTFuvqxdOvKOZ7EyGTmw/uv8ASnfpor//oxOLDgZ+u3DirmHcs0t4MFCQF
493s+Q2167gFmp/DSqLOq6Y/y38bl+Tt+swSxZxxxnF4enI28++P6jYRxyCW90H
494Fu1hyRtu3ENu4/Qj1dVkp2I/t3Fysd7Zq9tYwk2veuQdxEjiH7zcotjXHTxP
495S0zQ2MiS79afLuyyuIti6107DNYr9ncXdobtrz//yBKJ7DTTiffgODKuV7xM
496sc97cPKUXv3dniUeoe37MS0eXy9q5GnaKPYbjyVnbszfP4clsuJkLd9HyHj/
497YbXTFPu+D5O8r1Z6E1mySiYe2UqxM3jQvrEWiv0n4PyqpdXmI1gSI5tefXQC
498hifdM1czVeghAebHqzaIGZZ87H+0p3VMIgaverjNXVehj0S07l1t2a7KElte
499AInYeejEFcc+huolEd5LB4Zc/siQ88Z8Q7CZPqqzqI2h+kmCxTiXuKomhsjL
500S0JxatvVrAaG6ikJq3s9M44/YshU/krG1KvKT6eXM1RfyZh/e3KrWMSQw/lS
501mYKS0eGoVjoti6F6S0Zrfsfao0kMqZVtXzYTxCQ8OZIWx1D9peCuyUALyTWG
502jOIPTMGBFNcxWRcYqscU2O96viE4hCE73bkFPMDQ9mHpCGSoPh+g8KahXo0v
503Q0RdFrINP4BkXf9sW2+G6jUV5uZhY8LdGcLKC0TQiWdxJS4M1W8q9E9ZRj9e
504xRC+ulLZ5wOWdJQuYqie07C+w2LrRcKQpD86YosXp+HzvMEddtMZqu803PLM
505c340jiEqfMNp2Lf7sz8ZwVC9p8Oqvo2cNGLISrlgMKReZUeKLkP1L7vPa2jJ
506UmLIda7dR+kIb1/lF9UlpH7IgG/VXh23N0LynjvOOQMV6UGuGs+F1B8ZsLny
507dmVgrZDM4+T/NAMqUTPTX5YIqV8yoR42dOPgbCE5y8nXJRPMbM+RUxKE1D+Z
508uOVtJB0dIyQv93ELyYR4Bvtd9wUh9VMWEv12GkSfFJLJvMCzENHgsPAHPyH1
509VxYMtAuiQ72FJCDMRiaZLDRMb2qrcRNSv2XD07LsbYezkDwcyS8YL119d7Ys
510FlL/ZSPpl2abbGshGcHRvz0b46tfjf11spD6MQcrln/f/HGUkOzg7OGVg/cv
511FtquMRJSf+agMPKqxkUtISngtvshB0lbnDsTegTUr7mwmOEqim4TEKHckJhp
512u5Z4NQqof3OhL40aY1QtIPz4vuTi5wgry7ACAfVzHr465o5uTxIQvrz9eZA4
513eKWaxQiov/PQMMXo2pgwAZHneD5UZ/RHaB4VUL/nI0K7/ad8HwG5VbxY5uh8
514VC8yi1y+RUD9n4/81O8N01cLyHKZG5nD+TB4rLupe4GA8iAfb1eqL9KdISCf
515ufQpykds9h/e3WMFlA/5+NZzJihtkIBcM+UMUYD1Y0QzHTQFlBcF+LvSzXlX
516uyFZyC+4AFoX6gy7ywwpPwrQbfDm1fDbhqQzliuwAJ3zQ0w/HjOkPClApeb2
517ru1uhuQiV520ADdjqhLPzDOkfCmAg7P3cedhhoTIxGWvVwgnbL0n7jWgvClE
518QHHPsvp6A9LSyzVcCIG/Z8SpZAPKn0K42X9IbAoxIJxaZJLBszi31EYPA8qj
519QpisnFC419aA8O1WF+KfKIM3KUMNKJ8KcdT43ZzTn/UJfxwjQl1oqkizRp/y
520SgTfScoBZnf0CY8jRxGMa/u8qg7rU36JENZpHjRkvT6RPz6IsDFFM13VUp/y
521TISAyRqvD+vqEx4H9SJU+Qk7L/+tR/kmwodzmxMXZegRP87OxkX4GjnrS8hp
522Pcq7IuTnBpze4qZHxvIGKgJTFDS1dpYe5V8RcqriL1cb6pEq/vGiCH8FfNvl
5230qRLeViEGd6NG33Tdcluzg7PipB5PfLr6FO6lI+y98NN69e76pJhnJyHilFz
524f77X0Cm6lJdilPqkzfNQ0yUlnPw2iDHccVLW7Dodyk8xZjsMmnU+Vod4cuuN
525EiPAuZPZsUeH8lSM8yekJ6sX6pBBvOHFyCy/0ZBgrEP5WozQuVUTBC3aJI8r
526z7wY2qKpV9pStSlvi3EkIXaCbaA22fILdxVDZ/ao5wMctSl/i8Havz+/frg2
5274R6eZITFia46c5N2LcrjYriEmS1fmKFFODruaS3GiAFRon+OaFE+l6BlTa5R
5281zIt4sIfWILli6dJt5lqUV6XoLGyy25ZkybR4AFVgijj+obwe5qU3yWwdrAq
529mOujSbhtDIgvQalrgP5Sa03K8xL4pIbnPFDXJPzTXUcJZhmZxu8p16B8LwUr
530uhhx9qwG+crZbXIpCqNDBis5a1DelyIwY25MzhANcpOTs3cpEmq9/EteqFP+
531l0KpufqhSYw6cZA3jJo/HYMTflGneVCKttYpe45ZqJNubh1dpeizSzWPaFWj
532+SDBPNWkt6/i1Egk166VBLvXJHxy9VCjeSGBYHXeSG0LNWLHD1CCdWr1hn+9
533VqX5IYHV9jKjiuuq5C0fDxKIjLPnNrio0jyRQMmy007ZVJWEc3jvlUC6XO/Q
534tEcqNF+kOGJ7sm1HsAqx5hcixV9zNwy8P1+F5o0U+dXRg173KZNmDq8HpZjG
535WJzRTVam+SNF5W/SUBN3ZSLHnxRnBq24qD5EmeaRFC6xl/aKK5XkeFEpQ75z
536zSoHfyWaT2UwzffwOz9JifD2tSlDvVVko1HeN8jzqgzWJwxtF5t+A2+PwDL0
537lakrxXl/hTy/ynCHbfIRlPZDLr8yOLUFOLqa9kOeZ2WQtA8Z7+XRhz+59WqV
538I8h0v5npg17I860copBkm0n9PTjAjc++HI4vuicEzO2BPO/KEWsdOq4u4AtG
5398wIsx+PjC7e+z/kMef6Vw6et41No1ydUlPMXugO9drtbfII8D8vxcV3EyWFO
5403fj9HAfUCjiYtdatOtgFeT5WwEv0/LcL1z7CjBd0BbSnifw3Z3+APC8rsHiH
541mvqoh+8h5n9eVcCkqa7ErPEd5PlZgfP+D9f4/t2JbRxOaypgP+qWtVtmB+R5
542WoHIbcrrPl5qx0DeIJWYGBG01mXDv5DnayWYOCvPddqtyOFw4FSJ4NoVq81O
543N0Oet5UgHpLen1tfwY3/+VWJqZvGWUbqvoQ8fyvhJN5WF1vwFP8FQ9z22w==
544
545 "]]},
546 {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.007333333333333334],
547 AbsoluteThickness[1.6], PointBox[CompressedData["
5481:eJw9lwlYTXkfx+sO2V9UVEoJ2UcYSym+kS2SEmWXRGZClzJMQiRTKEqLVLTv
5493e567rntdavbHkaFmRZr4yVRZOe95/S/73menp7T8j+/5fv9fM81dvXcuI+j
550pqb2VvnFfFddN6KZS4avGW/vrne1xzZh56DA/9+7wLo0YaOj8v7z6d8KvK8d
551gOfoRX98ua76PRfPPSgfP+X9SW3e6kc+3nAb0rD5cZTq70/A5XTtYGPl/R8v
552pswdnO2LIwkxoZaRqv/3Q4dHTdf8CBks2zcERx0+h/B758YNDVeddx4TUkK0
553C8JkyLMZzpn55wUY2zjdXxuqOj8QvKiOPdQVGRaLq34vunURGlF3s78Hq553
554GY6LPcWTLstAGwa8dKBDcFIvysvkour5VzFkUtXTnwJliC2fwD96IBQD14zn
555FAeo6glDg7FdhZO/DH9/Yh+I+lDe1Fo/VX3hGLB99kSD0zLom7ZO1jgbgUOS
556LTk2J1X1RuL7Q8dSxxMybHOzYE6EZ0jH5sXHVPVfx5mYra7fjsjQv4doVNmL
557WmMPq/q5AfVenyJdDxkeNHxwfJISg+jpzZ+57qr+YhHudi4wZa8MegOc/vOz
558MA6xFvd2ULtV/d6EUSV1MGm7DFvM2QNx5FVm9kFnVf/xqBJUjtJ0lMF2UdAy
559l2fxGHhcfPmanWoeCdBfKNR6ayPDKwfmxASMoq5en7FSNZ9EbJMKR1hZyXDp
560YOeXjLeJiNAdvm+uhWpeSVjfO+Hq9wUyzPxzrLKFJDznD/BLm6OaXzJsdbaa
561zJopQ23CSqr3WzK469dzL5uo5pmCFS2x9lVGMngop6U7IBXTg0Ik7Xqq+aYi
5628Whv8F0tGYa2JHGXDE3Dm2KTqvgRqnmnoTls0Ma1g2TIZNodlQ7RHXW9RjXV
563/NOxt4sz1PQzjbXMcWMzsCzu1OjfemmyjwxsDXXX93tF47/MuA0y4TDOTOvI
564M5rsJxO6iudPLNtoMNO7PTELrR9eHH/STJN9ZcFy/wKZWyON6TuulL2flo1V
565iWahJQqa7C8bc863/ttXTKNaedo40xw4hV1IH0TTZJ85sN8+gu7JpfFraJcv
566FvDQJC/5Lk2jyX55GLVm717nWzSUxSlbzoXmnOl1tyNpsu9czJRShpNDaGxS
567ike5UohMDK0cAmiyfz46/2nV3uJLI1k5vZYkPpI3tfmZedFED3wcHMp17/mV
568xrtv9068mCKAxx6brAAXmuhDgLFe52f3ONFYwQpAgDeNsXcXraeJXgToNj10
569wsmaRrgu2xCWaf6sZmdOE/0IQa87bGNoSqO/PCGC/cf9ophMEz0J0RHHjVkz
570jsYv7CWCtxbHJXEkTfQlgsFC/s57A2j4l9QoFSTCL3syuG2fpERvIqSM2e9d
5718lqKv5TbV84Ef6mlWvs8kRL9iZHRdZAedl+KSeyBYmy59SPLu05K9CjGg/CO
572PnGJFF4HmAVIkCCu49aJpUSfEgjapW/y0qWQv5+m3LAEVh7Vtn6xUqJXCrP9
573tmwzuCqFVn+BOLD7364QfynRLwW7i5P/bvldCra6KgorGv551/erlOhZ+fN5
5746iNe7ZBCGNedVrlOip2Vce+oDVKib2UfDs0nnZdLwWEbliKu49GR+vlSonfl
5753OZppOhOlWJjv2DQ+j3ssZmelOifRsT41r6fh0mRyLR7T6mjc+Y5H75SxA8y
5763NH62BjxmkIPc9wWGebs3DVtcAcFVW6IRiaetrtDYTkj/79l8N75JPpAGUX8
577kocpJlOtnEQUwhj57sqDd7f9Qp1kivgnD7J8A6uscAqPfJiF5CHyhu4EzQCK
578+CkfY7VvRq07RmEuK/B83Hau3e+8jyL+ykfwfF/bBZspnI2wVkomH+FNyzWe
579raCI3wpgaO1iv38+hTsT2QWDn1TwjJ5EEf8VoNKi/cw/mhSMGfp3FWDO9OfN
580t9Up4sdCHG05lRDxRoIjjD24hZg14374jHYJ8WchwrYluV2pl6CU2W5vIfLP
581q8nl+RLi1yKcfPSHiyJDgtH9hoRVxseX0VES4t8iLI7N07QIkIAd36ciqM9a
5827Zd5VEL8XIzg5W5tnbslYMvzLYZN4tCmHlsJ8XcxxA+3Dq01l6A/zUtwp+7S
583RO4UCfF7CVzyOosfaUqQXrlO6egSJD8UnzP6ISb+L8Ewz1lDpr8Uw17pRk3/
584Enx38Oj+1iwmPCiB/yfXxrgyMT4y6VNeAsvOaqvBPDHhQwno08MeWEaLET+O
585MUQpnC0WzbQ4Lya8KEWeZbeC4ynGGnbBpTCb5LTk2lYx4UcpguZ9HfvKWow3
586aUyBpXgsqG0dPltMeFKKjjPvdN7riHGdqa6mFIrG5jXJ6mLCl1I4DOx6o/dS
587BCuluGyGl8EjSRy8+Z6I8KYMMcsio50KRfj3C9NwGV751F0ySBUR/pThWpXN
588/dQQERi1KCWD8+Zx3e9+FxEelUH/Q9NSjd0isO3eLoPzhX2mD1eJCJ/KECRS
589m8qdLQJ7nKYc6WPO/KkYIyK8kqNGW8Zr/yoEiyNHOSbvcuuTPhESfsnhzXst
5902lAjRP/rgxz3HziZpSo52I8LOWR9P93OixSCxUGLHEuu3Ci77CskfJPjQV7j
591Rn1XIc4wdtYtx/Yf5kX7VgsJ78qxtNloiccsIaayBipHLt+aM3O0kPCvHKUO
592OYuT3wvQyL5elEPfkTui+YGA8LAc1imeMcWFAhxn7NBajur743/sThAQPpaj
5936JO5LXVeACNGzoYVOFoWeKXUXUB4WYFbz4Ia/NYKoGDk51KBvhnTB/XOEhB+
594VmCrloepzkgBPJn1JlTggkh7was3fMLTCsw8ZPeNe5cPHdbwFWibsswtWcQn
595fK1EzI0cy4BwPoqZ8iZX4pbNqQ2ax/iEt5XojrbdvnYzH+77masShyK7tGYt
5964BP+VsK46LExpc0H8/KkJCw+nk20bujMJTyuhFvPX6tPpuSCoeOJF5WILbzq
597xHXNJXxW4DGCt2Ua5mIXe6ACAc8uGU95yCO8VuCbxb1tHeE8aLCAUoAzPySi
598yY5H+K3ACYMfSzmDeWC2oc1TYGN0SrxrSQ7huQJuwXPbeo4r3wvYAhXYHLWp
599lzc7h/C9Crou7oKwp9n4zthtbhW6g9oLoqOzCe+rsCE09GLx+mykMnI+WoXH
600LrIdP9SyCf+rUC6RY5MoC3b9DSNQckdD5pZF8qAKnehePW1MFvqYdbyvwqiQ
601XufY8kySD9UIvMZZNdIrEzeZdhdV44pNcrPPhEySF9WYEbLv9P26DKxiB1gN
602b793241PZJD8qMY0i/S5dhMz8JqNh2q4uO/Z5VybTvKkGsOceU3zvdIRyeD9
603SzUGqI/TadNLJ/lSg+PrgyavLU7DUnYhNRjgFXDcc28ayZsaOF61fW+tkYbn
604DF5P1yDyo8+jgrRUkj818I/QaWxYnYp+/NVg/nv5lUPPU0ge1WBlTvmEy/4p
605YPHCqUWuUWCEgVEKyadaLOLhx0hZMlj7WtfCT2+Ig5NDMsmrWmj3DLFq60wC
606a4+AWmQPKjCM8E0i+VULi1OnhPtHJqFffrUoyFrKWRKfSPKsFmft2w3UTBPR
607xKx3cB2OmxxuishPIPlWhyerOF6PVibgFFthHdCyzEFeH0/yrg6F1+sP6TrG
608w4QVYB3qjZbme2XdIvlXhyi/6NUfM2+ivo69IJW0lO5IjiN5WIcVZgtvzouK
609xbFrDFDrMTVy57sv52JIPtZjoxPXfJr7DYxnBV0P39ZPaqOso0le1uP5sAjX
6107jHXUcF+vKqHl5knt60tkuRnPczH7HpQGav83MTg9G499Dl3V222Cyd5Wg+t
61162tGP30bhjGsQRrA3WKuvz0glORrA1IyPmt9G3gVhQwOnBpQvOhUiEnHZZK3
612DXBvUN+T6huEfezHrwZlDi5zPnwngORvA4RPqbib8rP4H5aiZTw=
613 "]]}, {}}, {}},
614 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
615 Axes->{True, True},
616 AxesLabel->{
617 FormBox["time", TraditionalForm],
618 FormBox["position", TraditionalForm]},
619 AxesOrigin->{0, 0},
620 DisplayFunction->Identity,
621 Frame->{{False, False}, {False, False}},
622 FrameLabel->{{None, None}, {None, None}},
623 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
624 GridLines->{None, None},
625 GridLinesStyle->Directive[
626 GrayLevel[0.5, 0.4]],
627 ImageSize->{521., Automatic},
628 Method->{},
629 PlotRange->{{0, 0.24}, {0, 10.}},
630 PlotRangeClipping->True,
631 PlotRangePadding->{{
632 Scaled[0.02],
633 Scaled[0.02]}, {
634 Scaled[0.02],
635 Scaled[0.05]}},
636 Ticks->{Automatic, Automatic}]], "Output",
637 CellChangeTimes->{
638 3.6443350368272576`*^9, 3.644335623279801*^9, 3.644424785367596*^9,
639 3.644424906441521*^9, {3.6444272838555017`*^9, 3.6444273048016996`*^9},
640 3.644431611601034*^9, 3.6444863437140017`*^9, 3.644486675896001*^9,
641 3.644486819323205*^9, 3.64452329454*^9, 3.644523364594*^9,
642 3.644525562204*^9, 3.644753389557*^9}],
643
644Cell["\<\
645Note, \[OpenCurlyDoubleQuote]table\[CloseCurlyDoubleQuote] makes a list of \
646numbers, and when you look at: {t, r} // Matrix form, you can see what that \
647looks like -- we are transposing it so that it has the right, xy values, \
648which is what ListPlot plots.\
649\>", "Text",
650 CellChangeTimes->{{3.644334529732253*^9, 3.6443345704835844`*^9}}],
651
652Cell[BoxData[{
653 RowBox[{
654 RowBox[{"\[Rho]", " ", "=", " ",
655 RowBox[{"Table", "[",
656 RowBox[{
657 RowBox[{"Minit", "/",
658 RowBox[{"(",
659 RowBox[{
660 FractionBox["4", "3"], "\[Pi]",
661 SuperscriptBox[
662 RowBox[{"(",
663 RowBox[{"r0", "*",
664 SuperscriptBox[
665 RowBox[{"(",
666 RowBox[{"Cos", "[",
667 RowBox[{"\[Xi]", "/.",
668 RowBox[{"First", "[",
669 RowBox[{"FindRoot", "[",
670 RowBox[{
671 RowBox[{"\[Xi]", "+",
672 RowBox[{
673 FractionBox["1", "2"],
674 RowBox[{"Sin", "[",
675 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
676 RowBox[{"k", "*", "t"}]}], ",", " ",
677 RowBox[{"{",
678 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
679 "]"}], ")"}], "2"]}], ")"}], "3"]}], ")"}]}], ",",
680 RowBox[{"{",
681 RowBox[{"t", ",", "t1", ",", "t2", ",", " ", "timestep"}], "}"}]}],
682 "]"}]}], ";"}], "\[IndentingNewLine]",
683 RowBox[{
684 RowBox[{"\[Rho]2", " ", "=", " ",
685 RowBox[{"Table", "[",
686 RowBox[{
687 RowBox[{"Minit2", "/",
688 RowBox[{"(",
689 RowBox[{
690 FractionBox["4", "3"], "\[Pi]",
691 SuperscriptBox[
692 RowBox[{"(",
693 RowBox[{"r02", "*",
694 SuperscriptBox[
695 RowBox[{"(",
696 RowBox[{"Cos", "[",
697 RowBox[{"\[Xi]", "/.",
698 RowBox[{"First", "[",
699 RowBox[{"FindRoot", "[",
700 RowBox[{
701 RowBox[{"\[Xi]", "+",
702 RowBox[{
703 FractionBox["1", "2"],
704 RowBox[{"Sin", "[",
705 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
706 RowBox[{"k", "*", "t"}]}], ",", " ",
707 RowBox[{"{",
708 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
709 "]"}], ")"}], "2"]}], ")"}], "3"]}], ")"}]}], ",",
710 RowBox[{"{",
711 RowBox[{"t", ",", "t1", ",", "t2", ",", " ", "timestep"}], "}"}]}],
712 "]"}]}], ";"}], "\[IndentingNewLine]",
713 RowBox[{"ListPlot", "[",
714 RowBox[{
715 RowBox[{"{",
716 RowBox[{
717 RowBox[{"Transpose", "[",
718 RowBox[{"{",
719 RowBox[{"t", ",", "\[Rho]"}], "}"}], "]"}], ",", " ",
720 RowBox[{"Transpose", "[",
721 RowBox[{"{",
722 RowBox[{"t", ",", "\[Rho]2"}], "}"}], "]"}]}], "}"}], ",",
723 RowBox[{"AxesLabel", " ", "\[Rule]", " ",
724 RowBox[{"{",
725 RowBox[{"time", ",", " ", "density"}], "}"}]}]}], "]"}]}], "Input",
726 CellGroupingRules->{GroupTogetherGrouping, 10001.},
727 CellChangeTimes->{{3.643396966570801*^9, 3.6433970383263407`*^9}, {
728 3.643397076766412*^9, 3.643397166956386*^9}, {3.644326551847457*^9,
729 3.644326675454527*^9}, {3.6443267153938117`*^9, 3.644326766392729*^9},
730 3.6443269454929724`*^9, 3.6443270310118637`*^9, 3.644328086297223*^9, {
731 3.644331865082357*^9, 3.6443318719437494`*^9}, {3.644331998378981*^9,
732 3.644332003738288*^9}, {3.644335666292261*^9, 3.644335680074049*^9}, {
733 3.644335899822618*^9, 3.6443359474023395`*^9}, {3.644336347633231*^9,
734 3.6443363915557437`*^9}}],
735
736Cell[BoxData[
737 GraphicsBox[{{}, {{},
738 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.007333333333333334],
739 AbsoluteThickness[1.6], PointBox[CompressedData["
7401:eJxVlwk0lXkfx0MZRaW6m+3atwrZUiq/X7KGRFIzlSnatWBKRkhakEaR1KQU
741NbKHZMm+L5eLZEzZamhKvSEJpZr3Po//fc95n3Oce+5x7//5Ld/v5/tcZfej
742zntEZ8yY8UHwR73+/8XArykfnji4b4QtJ7N1tP/3fidE2fYU3hO8/xJ0sPjY
743lf3gNqsxw0dE+H8vGJcZ5lwRZeBJRqb1S/9jULZrQlp8pvDzfnDqSXU2bxYD
744fx3U0JdID4Byk+MKAz8Ivx8Mzt/2BTjOYeDqPsffrh0JARtJy29z5wrPOwsl
745j2Z2KEoz8LGtlOiS0PPgWzlpdm6R8PwwSAn9M8CMzUDT3Hrf0tsXYJlG5Z92
746csL7XQTF/p/iMhQZWMA9986pIBJ87tUr7lYT3v8yRMU0lh3VZuDNaqUsn/1R
7474P2htqdVV1hPNIhLdf8dasTArs/0DcEicNTsqqmwvhiwiG3d/xkZKKfXoyZ+
748+irsXaDXm2strDcWtku2qNZvYOBPu1dRJ4L0+qgaQ1dh/dch8lmk6+QOBt74
749nb5AS9zQm7VX2M8NkCx2zY88wsBn/IlN/X/EgcLmHU92nRD2dxPYvc6/XA5m
750oMxM13k6ObegqFtyk9wFYb/xoJ5gZSAWw8CtK+kDQUOH/8wmXtj/HWgtjpd9
751n8xAe5PwtTtf3YFtXyX5Iw+F80iA4ok3HS5lDPyPE3ViAixry5aX5Qnnkwi5
7529vlX13YyMOLQ66mUD4nQbGa/pqlfOK+7YDw0xikaYeCSUJaghbvA9btuMv+7
753cH73wNomN7tBkom8BMu8j9/uwe68qJR3Mkwyzz8gqCvQzleLiZ6CaXFmJsGj
754HDH+QRMmmW8SjP2u5dNoxcQ5nXe91sy5DzNs0s7EujLJvO/DiIPlj617mZhK
755tSudDE2rh11+PcEk808Gv/OaA9FhTFxPHcdKATBeHcy9wST7SAG9mGuZCulM
756fEuNWz4VzryaLxJdyiT7SYU4C1NWYBsTqem1qqTBvPby318MMMm+0iDCqdii
757dJKJ2tsvVX7SSocQ6wW97Lkssr900O5pNR1WZmGD4DRZvQxIj7xlZmXCIvvM
758gGt9i7q5Diw8EPU+AIwzQXylCfOkB4vsNxN0uf1T2/1ZKChO0PIDyH2FObVR
759LLLvB/Ba09zzcQoLXQTiEawU5jGVPE0rWWT/WXB8sO8H2y4W3hNMr/NuFvTk
760dae8GWMRPWTBq1LXJrn5bBz79tRvUCMb3G9KfB/QZhN9ZEN2QOVLK0s2WtAC
761yIb5mZJ6FrvYRC/ZIMZrzOkLZGMMh24I0vhjjvJxbKKfHDjovm7GtwI2TpeX
762A/EFo0/PdrKJnnLAwyF0Im+cjYb09RDa38alxrI4RF8Pge9csF7ThINnyhsF
763CnoI4ePLHA9t5RC9PYQ6LWm7A/4cbBdsXzATMDObPaR8i0P0lwtlTN9ZN8o5
764qEofmAv+YT8HdgxwiB5zocA2atdfs2Xwl/3UAh4Bq6awN0lPhujzEfhFx66z
765dJXBqk9agg0/ghdcXdGCQBmi1zyQN2RniyXJ4KLpAuHcnBYpnRYZot880Mrj
766fl7xWQbp6urzQC7mcshSNVmi53xIzxjvk9ooizm3hu/X2uUDdIse6wuQJfrO
767hz0JH/gpqbIoSjecDy3pNlnez2SJ3gugTCZVYs1sOXSeFgzoB5VMLTCVI/ov
768gKFPen+Pe8phItXu0wKQ39dkNxovR/xQCCc2ZohItsvhKHXc1kJ4ez5cwkZC
769nvijEAzdFO5mmcmjOSX/rkJoa8l2sfeVJ355DJkOVf0qD+QxmpKv22M4IdG4
770ffWgPPHPY/h6SZ2ZoKaAL/2phTyGC206mT/uUiB+KgKPm56co7cVUJ8WeBFc
771+vQl9m2vAvFXETAyZao6FLl4+uo6gWSKoKpj4JKpO5f4rRjM2q03qCZxsU2F
772XjA85ihl33jHJf4rBtnE621pBoqoTNH/fTEcuV1u6H5SkfixBC6828lrqFFE
773b8oeXiWQwb4QPCGhRPxZAsXvnmwb1lPCCmq7H0vgX41erfYtSsSvpaB1a7Ar
774JVgJF0wbEp57WT7wT1Ui/i0FvnSKhkOHEtLj+1wK170LFmqLKBM/l4FXWnEM
775S1cZ6fICysDx5ysq3O3KxN9lMDvsrws2Eco4nePlsC1xw+f4ImXi93J47hE+
776tfi9MibX2gkcXQ7uEX3nxhVViP/L4e+s5ElJFxXcKHDjwjPl4LKtSd03XIXw
777oBxUpZNdsVwFJ6n0qS4HnxBnZ99JFcKHcogOM9+tZqCKd2QpQ1SAvvgujy2H
778VQkvKmBb7G+F8qmqaEMvuAJ2bI/3DHmjSvhRAS2KA8rXtNRw5D5VYAXwrq3W
779P3hQjfCkArTvltyTzFTD61R1jRWwmzPL5uJHNcKXCgh/vjLnm6k6okBctlKV
780YPed5+RzVp3wphIKRcV+/daijm+mqIYrget/0POhggbhTyXEftY9lHJYAym1
781CCQD8+qDmj+VaRAeVcJUlJhIFkMT6XZbK2G/+8WUEU9NwqdK0NksktlWo4n0
782cQuroONlscMRFS3Cqyqw2Hhgef9pLaRxtKkKXr08E7dhQIvwqwqywlIdW221
783cfrxoQpUc7r7wnO0Cc+q4EZFV1Y8dzHSOOisgsXu3VyjyMWEb1WQ8rb0trfI
784EjxF2ZlTDcr5c94E+y0hvKuGqAdDCyM/LkFN2kDVMGl1ubnOZynhXzUY63w5
7859/P4UmyhHy+qYdbTmfHhQTqEh9Xw6PXNxEBJXTxB2aGnGhTlOkN9b+kSPlZD
7868iaHtzlGeqhIyZlbA5O/Oboeb9MjvKwB9VMV60VNl2EdJb+dNRAsxxdxjVxG
787+FkDSkP+n3peLcOj1HoTamCR/9BYNeoTntZAxKaqrBW39ZFNG74GzF68mDgg
788YkD4Wgs3z9t/ubjPAMuo8tRqIaIkIfpZmwHhbS10GI/HRqAh7ttLXbWw3X+2
789Qf9DQ8LfWnjmXWKpvtQIqYcnAWGhjDfRGZdiRHhcC0U/GUXELjVGio5+g7Vw
790Js5MzfORMeFzHXxfV8r1tViObvSBdWAkctpZ7vlywus66JfJTav1NUFxGlB1
791wHK/Ovkf2RWE33VwSvp8i1TdCqS2wcisg2633ssPTq4kPK+DRcUHwg6uNEX6
7926W64DppaGIYvZqwifK+H4CvMzIonq/A7ZTf9epjrWbC59cFqwvt66O2eE9d3
793fQ0mUXL2qYeKsF5OZ6QZ4X89HLulNJobDbhhumHwKUo2r3dGkgf1wPSOqNgw
794gDhOreNTPSS+W1d8LWgtyYcGeCp5ZsRNxRzjqXZNGuA7M8fzWKs5yYsG+Jrk
795tbYsfB1a0QNsANv3RtnoaEHyowEyfQdb2CqWOETHQwMMhb7hnxOzInnSAGm6
796W/4dHbPCWArvUw2wuO9D/tiENcmXRkjqWWvvMs8WzeiFNMINWT9Htul6kjeN
797MJ8Z6hkeaIf/UHgNaoTY1FOaNl32JH8aoXzu5Hwn1w04jb9G2OGo2r5w1JHk
798USOs8XKetfbZxmm8iPKgxWK5kwzfieQTD6KMXcNXPXdG2r7reHB452Bw1QwX
799klc8cJr6K3uL5Wak7XGOB/XRUoet011JfvHgfKq9eLbpVpyWHw9OGw0H5Yz/
800SPKMBxyPYcXk19uwg1qvRBNI/aNVF8hyI/nWBLWRXJ6U9U4MpMZn2wTtssYV
801Yxm7SN41gWVxb9FGGw9UpwXYBHgoQfq20h6Sf02QvilEydhiHzY30RcY3Yme
802ZVp9gORhE2zR0gqRyj+Ex69QQG2GpyavFmooeJF8bIZYcfAYMfVBBVrQzaDx
803T+Rp+9ZjJC+bQeKpwYJcMT+soX9eNcNo8LWvkVIBJD8Fn3fUCzgbH4yHKZw+
804aYZS36shf8w+S/K0GSIT9HfGpYchkzYIH9w4a73M9S+RfOXD7L2NRz56xGAJ
805hQNXPuz1qV18qS+O5C0fEi1YSccs7uEe+ucXH0a6Tltv0swi+cuHN1dtzUve
806l+B/AbYq56g=
807 "]]},
808 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.007333333333333334],
809 AbsoluteThickness[1.6], PointBox[CompressedData["
8101:eJxVlwk0lXkfx0MZRaW6m+3atwrZUiq/X7KGRFIzlSnatWBKRkhakEaR1KQU
811NbKHZMm+L5eLZEzZamhKvSEJpZr3Po//fc95n3Oce+5x7//5Ld/v5/tcZfej
812zntEZ8yY8UHwR73+/8XArykfnji4b4QtJ7N1tP/3fidE2fYU3hO8/xJ0sPjY
813lf3gNqsxw0dE+H8vGJcZ5lwRZeBJRqb1S/9jULZrQlp8pvDzfnDqSXU2bxYD
814fx3U0JdID4Byk+MKAz8Ivx8Mzt/2BTjOYeDqPsffrh0JARtJy29z5wrPOwsl
815j2Z2KEoz8LGtlOiS0PPgWzlpdm6R8PwwSAn9M8CMzUDT3Hrf0tsXYJlG5Z92
816csL7XQTF/p/iMhQZWMA9986pIBJ87tUr7lYT3v8yRMU0lh3VZuDNaqUsn/1R
8174P2htqdVV1hPNIhLdf8dasTArs/0DcEicNTsqqmwvhiwiG3d/xkZKKfXoyZ+
818+irsXaDXm2strDcWtku2qNZvYOBPu1dRJ4L0+qgaQ1dh/dch8lmk6+QOBt74
819nb5AS9zQm7VX2M8NkCx2zY88wsBn/IlN/X/EgcLmHU92nRD2dxPYvc6/XA5m
820oMxM13k6ObegqFtyk9wFYb/xoJ5gZSAWw8CtK+kDQUOH/8wmXtj/HWgtjpd9
821n8xAe5PwtTtf3YFtXyX5Iw+F80iA4ok3HS5lDPyPE3ViAixry5aX5Qnnkwi5
8229vlX13YyMOLQ66mUD4nQbGa/pqlfOK+7YDw0xikaYeCSUJaghbvA9btuMv+7
823cH73wNomN7tBkom8BMu8j9/uwe68qJR3Mkwyzz8gqCvQzleLiZ6CaXFmJsGj
824HDH+QRMmmW8SjP2u5dNoxcQ5nXe91sy5DzNs0s7EujLJvO/DiIPlj617mZhK
825tSudDE2rh11+PcEk808Gv/OaA9FhTFxPHcdKATBeHcy9wST7SAG9mGuZCulM
826fEuNWz4VzryaLxJdyiT7SYU4C1NWYBsTqem1qqTBvPby318MMMm+0iDCqdii
827dJKJ2tsvVX7SSocQ6wW97Lkssr900O5pNR1WZmGD4DRZvQxIj7xlZmXCIvvM
828gGt9i7q5Diw8EPU+AIwzQXylCfOkB4vsNxN0uf1T2/1ZKChO0PIDyH2FObVR
829LLLvB/Ba09zzcQoLXQTiEawU5jGVPE0rWWT/WXB8sO8H2y4W3hNMr/NuFvTk
830dae8GWMRPWTBq1LXJrn5bBz79tRvUCMb3G9KfB/QZhN9ZEN2QOVLK0s2WtAC
831yIb5mZJ6FrvYRC/ZIMZrzOkLZGMMh24I0vhjjvJxbKKfHDjovm7GtwI2TpeX
832A/EFo0/PdrKJnnLAwyF0Im+cjYb09RDa38alxrI4RF8Pge9csF7ThINnyhsF
833CnoI4ePLHA9t5RC9PYQ6LWm7A/4cbBdsXzATMDObPaR8i0P0lwtlTN9ZN8o5
834qEofmAv+YT8HdgxwiB5zocA2atdfs2Xwl/3UAh4Bq6awN0lPhujzEfhFx66z
835dJXBqk9agg0/ghdcXdGCQBmi1zyQN2RniyXJ4KLpAuHcnBYpnRYZot880Mrj
836fl7xWQbp6urzQC7mcshSNVmi53xIzxjvk9ooizm3hu/X2uUDdIse6wuQJfrO
837hz0JH/gpqbIoSjecDy3pNlnez2SJ3gugTCZVYs1sOXSeFgzoB5VMLTCVI/ov
838gKFPen+Pe8phItXu0wKQ39dkNxovR/xQCCc2ZohItsvhKHXc1kJ4ez5cwkZC
839nvijEAzdFO5mmcmjOSX/rkJoa8l2sfeVJ355DJkOVf0qD+QxmpKv22M4IdG4
840ffWgPPHPY/h6SZ2ZoKaAL/2phTyGC206mT/uUiB+KgKPm56co7cVUJ8WeBFc
841+vQl9m2vAvFXETAyZao6FLl4+uo6gWSKoKpj4JKpO5f4rRjM2q03qCZxsU2F
842XjA85ihl33jHJf4rBtnE621pBoqoTNH/fTEcuV1u6H5SkfixBC6828lrqFFE
843b8oeXiWQwb4QPCGhRPxZAsXvnmwb1lPCCmq7H0vgX41erfYtSsSvpaB1a7Ar
844JVgJF0wbEp57WT7wT1Ui/i0FvnSKhkOHEtLj+1wK170LFmqLKBM/l4FXWnEM
845S1cZ6fICysDx5ysq3O3KxN9lMDvsrws2Eco4nePlsC1xw+f4ImXi93J47hE+
846tfi9MibX2gkcXQ7uEX3nxhVViP/L4e+s5ElJFxXcKHDjwjPl4LKtSd03XIXw
847oBxUpZNdsVwFJ6n0qS4HnxBnZ99JFcKHcogOM9+tZqCKd2QpQ1SAvvgujy2H
848VQkvKmBb7G+F8qmqaEMvuAJ2bI/3DHmjSvhRAS2KA8rXtNRw5D5VYAXwrq3W
849P3hQjfCkArTvltyTzFTD61R1jRWwmzPL5uJHNcKXCgh/vjLnm6k6okBctlKV
850YPed5+RzVp3wphIKRcV+/daijm+mqIYrget/0POhggbhTyXEftY9lHJYAym1
851CCQD8+qDmj+VaRAeVcJUlJhIFkMT6XZbK2G/+8WUEU9NwqdK0NksktlWo4n0
852cQuroONlscMRFS3Cqyqw2Hhgef9pLaRxtKkKXr08E7dhQIvwqwqywlIdW221
853cfrxoQpUc7r7wnO0Cc+q4EZFV1Y8dzHSOOisgsXu3VyjyMWEb1WQ8rb0trfI
854EjxF2ZlTDcr5c94E+y0hvKuGqAdDCyM/LkFN2kDVMGl1ubnOZynhXzUY63w5
8559/P4UmyhHy+qYdbTmfHhQTqEh9Xw6PXNxEBJXTxB2aGnGhTlOkN9b+kSPlZD
8568iaHtzlGeqhIyZlbA5O/Oboeb9MjvKwB9VMV60VNl2EdJb+dNRAsxxdxjVxG
857+FkDSkP+n3peLcOj1HoTamCR/9BYNeoTntZAxKaqrBW39ZFNG74GzF68mDgg
858YkD4Wgs3z9t/ubjPAMuo8tRqIaIkIfpZmwHhbS10GI/HRqAh7ttLXbWw3X+2
859Qf9DQ8LfWnjmXWKpvtQIqYcnAWGhjDfRGZdiRHhcC0U/GUXELjVGio5+g7Vw
860Js5MzfORMeFzHXxfV8r1tViObvSBdWAkctpZ7vlywus66JfJTav1NUFxGlB1
861wHK/Ovkf2RWE33VwSvp8i1TdCqS2wcisg2633ssPTq4kPK+DRcUHwg6uNEX6
8626W64DppaGIYvZqwifK+H4CvMzIonq/A7ZTf9epjrWbC59cFqwvt66O2eE9d3
863fQ0mUXL2qYeKsF5OZ6QZ4X89HLulNJobDbhhumHwKUo2r3dGkgf1wPSOqNgw
864gDhOreNTPSS+W1d8LWgtyYcGeCp5ZsRNxRzjqXZNGuA7M8fzWKs5yYsG+Jrk
865tbYsfB1a0QNsANv3RtnoaEHyowEyfQdb2CqWOETHQwMMhb7hnxOzInnSAGm6
866W/4dHbPCWArvUw2wuO9D/tiENcmXRkjqWWvvMs8WzeiFNMINWT9Htul6kjeN
867MJ8Z6hkeaIf/UHgNaoTY1FOaNl32JH8aoXzu5Hwn1w04jb9G2OGo2r5w1JHk
868USOs8XKetfbZxmm8iPKgxWK5kwzfieQTD6KMXcNXPXdG2r7reHB452Bw1QwX
869klc8cJr6K3uL5Wak7XGOB/XRUoet011JfvHgfKq9eLbpVpyWHw9OGw0H5Yz/
870SPKMBxyPYcXk19uwg1qvRBNI/aNVF8hyI/nWBLWRXJ6U9U4MpMZn2wTtssYV
871Yxm7SN41gWVxb9FGGw9UpwXYBHgoQfq20h6Sf02QvilEydhiHzY30RcY3Yme
872ZVp9gORhE2zR0gqRyj+Ex69QQG2GpyavFmooeJF8bIZYcfAYMfVBBVrQzaDx
873T+Rp+9ZjJC+bQeKpwYJcMT+soX9eNcNo8LWvkVIBJD8Fn3fUCzgbH4yHKZw+
874aYZS36shf8w+S/K0GSIT9HfGpYchkzYIH9w4a73M9S+RfOXD7L2NRz56xGAJ
875hQNXPuz1qV18qS+O5C0fEi1YSccs7uEe+ucXH0a6Tltv0swi+cuHN1dtzUve
876l+B/AbYq56g=
877 "]]}, {}}, {}},
878 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
879 Axes->{True, True},
880 AxesLabel->{
881 FormBox["time", TraditionalForm],
882 FormBox["density", TraditionalForm]},
883 AxesOrigin->{0, 0},
884 DisplayFunction->Identity,
885 Frame->{{False, False}, {False, False}},
886 FrameLabel->{{None, None}, {None, None}},
887 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
888 GridLines->{None, None},
889 GridLinesStyle->Directive[
890 GrayLevel[0.5, 0.4]],
891 Method->{},
892 PlotRange->{{0, 0.24}, {0, 89.75610225742331}},
893 PlotRangeClipping->True,
894 PlotRangePadding->{{
895 Scaled[0.02],
896 Scaled[0.02]}, {
897 Scaled[0.02],
898 Scaled[0.05]}},
899 Ticks->{Automatic, Automatic}]], "Output",
900 CellChangeTimes->{3.64467707531*^9, 3.644753389988*^9}],
901
902Cell[CellGroupData[{
903
904Cell[BoxData[
905 RowBox[{"\[Rho]2ff", " ", "=", " ",
906 RowBox[{"Minit2", "/",
907 RowBox[{"(",
908 RowBox[{
909 FractionBox["4", "3"], "\[Pi]",
910 SuperscriptBox[
911 RowBox[{"(",
912 RowBox[{"r02", "*",
913 SuperscriptBox[
914 RowBox[{"(",
915 RowBox[{"Cos", "[",
916 RowBox[{"\[Xi]", "/.",
917 RowBox[{"First", "[",
918 RowBox[{"FindRoot", "[",
919 RowBox[{
920 RowBox[{"\[Xi]", "+",
921 RowBox[{
922 FractionBox["1", "2"],
923 RowBox[{"Sin", "[",
924 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
925 RowBox[{"k", "*", ".24"}]}], ",", " ",
926 RowBox[{"{",
927 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}], "]"}],
928 ")"}], "2"]}], ")"}], "3"]}], ")"}]}]}]], "Input",
929 CellChangeTimes->{{3.644677098278*^9, 3.644677104321*^9}}],
930
931Cell[BoxData["7661.73929271612`"], "Output",
932 CellChangeTimes->{3.6446771059230003`*^9, 3.64475339001*^9}]
933}, Open ]],
934
935Cell[CellGroupData[{
936
937Cell[BoxData["t2"], "Input",
938 CellChangeTimes->{{3.6446770558*^9, 3.644677055927*^9}}],
939
940Cell[BoxData["0.24`"], "Output",
941 CellChangeTimes->{3.64441790252892*^9, 3.644486343890012*^9,
942 3.644486819505215*^9, 3.644523294804*^9, 3.644677056347*^9,
943 3.64475339002*^9}]
944}, Open ]],
945
946Cell[CellGroupData[{
947
948Cell[BoxData[{"t", "\[IndentingNewLine]",
949 RowBox[{"\[Rho]", ";"}], "\[IndentingNewLine]",
950 RowBox[{
951 RowBox[{"{",
952 RowBox[{"t", ",", "\[Rho]"}], "}"}], ";"}], "\[IndentingNewLine]",
953 RowBox[{
954 RowBox[{
955 RowBox[{"{",
956 RowBox[{"t", ",", "\[Rho]"}], "}"}], " ", "//", " ", "MatrixForm"}],
957 ";"}]}], "Input",
958 CellChangeTimes->{{3.644417859374452*^9, 3.6444179427052183`*^9}, {
959 3.644424743982229*^9, 3.644424744610265*^9}}],
960
961Cell[BoxData[
962 RowBox[{"{",
963 RowBox[{
964 "0.`", ",", "0.001`", ",", "0.002`", ",", "0.003`", ",", "0.004`", ",",
965 "0.005`", ",", "0.006`", ",", "0.007`", ",", "0.008`", ",",
966 "0.009000000000000001`", ",", "0.01`", ",", "0.011`", ",", "0.012`", ",",
967 "0.013000000000000001`", ",", "0.014`", ",", "0.015`", ",", "0.016`", ",",
968 "0.017`", ",", "0.018000000000000002`", ",", "0.019`", ",", "0.02`", ",",
969 "0.021`", ",", "0.022`", ",", "0.023`", ",", "0.024`", ",", "0.025`", ",",
970 "0.026000000000000002`", ",", "0.027`", ",", "0.028`", ",", "0.029`", ",",
971 "0.03`", ",", "0.031`", ",", "0.032`", ",", "0.033`", ",", "0.034`", ",",
972 "0.035`", ",", "0.036000000000000004`", ",", "0.037`", ",", "0.038`", ",",
973 "0.039`", ",", "0.04`", ",", "0.041`", ",", "0.042`", ",",
974 "0.043000000000000003`", ",", "0.044`", ",", "0.045`", ",", "0.046`", ",",
975 "0.047`", ",", "0.048`", ",", "0.049`", ",", "0.05`", ",",
976 "0.051000000000000004`", ",", "0.052000000000000005`", ",", "0.053`", ",",
977 "0.054`", ",", "0.055`", ",", "0.056`", ",", "0.057`", ",", "0.058`", ",",
978 "0.059000000000000004`", ",", "0.06`", ",", "0.061`", ",", "0.062`", ",",
979 "0.063`", ",", "0.064`", ",", "0.065`", ",", "0.066`", ",", "0.067`", ",",
980 "0.068`", ",", "0.069`", ",", "0.07`", ",", "0.07100000000000001`", ",",
981 "0.07200000000000001`", ",", "0.073`", ",", "0.074`", ",", "0.075`", ",",
982 "0.076`", ",", "0.077`", ",", "0.078`", ",", "0.079`", ",", "0.08`", ",",
983 "0.081`", ",", "0.082`", ",", "0.083`", ",", "0.084`", ",", "0.085`", ",",
984 "0.08600000000000001`", ",", "0.08700000000000001`", ",", "0.088`", ",",
985 "0.089`", ",", "0.09`", ",", "0.091`", ",", "0.092`", ",", "0.093`", ",",
986 "0.094`", ",", "0.095`", ",", "0.096`", ",", "0.097`", ",", "0.098`", ",",
987 "0.099`", ",", "0.1`", ",", "0.101`", ",", "0.10200000000000001`", ",",
988 "0.10300000000000001`", ",", "0.10400000000000001`", ",", "0.105`", ",",
989 "0.106`", ",", "0.107`", ",", "0.108`", ",", "0.109`", ",", "0.11`", ",",
990 "0.111`", ",", "0.112`", ",", "0.113`", ",", "0.114`", ",", "0.115`", ",",
991 "0.116`", ",", "0.117`", ",", "0.11800000000000001`", ",",
992 "0.11900000000000001`", ",", "0.12`", ",", "0.121`", ",", "0.122`", ",",
993 "0.123`", ",", "0.124`", ",", "0.125`", ",", "0.126`", ",", "0.127`", ",",
994 "0.128`", ",", "0.129`", ",", "0.13`", ",", "0.131`", ",", "0.132`", ",",
995 "0.133`", ",", "0.134`", ",", "0.135`", ",", "0.136`", ",", "0.137`", ",",
996 "0.138`", ",", "0.139`", ",", "0.14`", ",", "0.14100000000000001`", ",",
997 "0.14200000000000002`", ",", "0.14300000000000002`", ",",
998 "0.14400000000000002`", ",", "0.145`", ",", "0.146`", ",", "0.147`", ",",
999 "0.148`", ",", "0.149`", ",", "0.15`", ",", "0.151`", ",", "0.152`", ",",
1000 "0.153`", ",", "0.154`", ",", "0.155`", ",", "0.156`", ",", "0.157`", ",",
1001 "0.158`", ",", "0.159`", ",", "0.16`", ",", "0.161`", ",", "0.162`", ",",
1002 "0.163`", ",", "0.164`", ",", "0.165`", ",", "0.166`", ",", "0.167`", ",",
1003 "0.168`", ",", "0.169`", ",", "0.17`", ",", "0.171`", ",",
1004 "0.17200000000000001`", ",", "0.17300000000000001`", ",",
1005 "0.17400000000000002`", ",", "0.17500000000000002`", ",", "0.176`", ",",
1006 "0.177`", ",", "0.178`", ",", "0.179`", ",", "0.18`", ",", "0.181`", ",",
1007 "0.182`", ",", "0.183`", ",", "0.184`", ",", "0.185`", ",", "0.186`", ",",
1008 "0.187`", ",", "0.188`", ",", "0.189`", ",", "0.19`", ",", "0.191`", ",",
1009 "0.192`", ",", "0.193`", ",", "0.194`", ",", "0.195`", ",", "0.196`", ",",
1010 "0.197`", ",", "0.198`", ",", "0.199`", ",", "0.2`", ",", "0.201`", ",",
1011 "0.202`", ",", "0.203`", ",", "0.20400000000000001`", ",",
1012 "0.20500000000000002`", ",", "0.20600000000000002`", ",",
1013 "0.20700000000000002`", ",", "0.20800000000000002`", ",", "0.209`", ",",
1014 "0.21`", ",", "0.211`", ",", "0.212`", ",", "0.213`", ",", "0.214`", ",",
1015 "0.215`", ",", "0.216`", ",", "0.217`", ",", "0.218`", ",", "0.219`", ",",
1016 "0.22`", ",", "0.221`", ",", "0.222`", ",", "0.223`", ",", "0.224`", ",",
1017 "0.225`", ",", "0.226`", ",", "0.227`", ",", "0.228`", ",", "0.229`", ",",
1018 "0.23`", ",", "0.231`", ",", "0.232`", ",", "0.233`", ",", "0.234`", ",",
1019 "0.23500000000000001`", ",", "0.23600000000000002`", ",",
1020 "0.23700000000000002`", ",", "0.23800000000000002`", ",",
1021 "0.23900000000000002`", ",", "0.24`"}], "}"}]], "Output",
1022 CellChangeTimes->{{3.6444247449512844`*^9, 3.6444247488185053`*^9},
1023 3.6444315448672175`*^9, 3.644486343928014*^9, 3.6444868195422173`*^9,
1024 3.6445232948199997`*^9, {3.644523352336*^9, 3.644523356543*^9},
1025 3.644753390033*^9}]
1026}, Open ]],
1027
1028Cell[BoxData[
1029 RowBox[{
1030 RowBox[{
1031 RowBox[{"Transpose", "[",
1032 RowBox[{"{",
1033 RowBox[{"t", ",", "\[Rho]"}], "}"}], "]"}], " ", "//", "MatrixForm"}],
1034 ";"}]], "Input",
1035 CellChangeTimes->{{3.644417780566944*^9, 3.6444178379942293`*^9},
1036 3.644417897404627*^9}],
1037
1038Cell[BoxData[{
1039 RowBox[{
1040 RowBox[{"v", "=", " ",
1041 RowBox[{"Table", "[",
1042 RowBox[{
1043 RowBox[{"-",
1044 SqrtBox[
1045 RowBox[{
1046 FractionBox[
1047 RowBox[{"8", "\[Pi]"}], "3"], "G", "*", "\[Rho]0", "*",
1048 SuperscriptBox["r0", "2"],
1049 RowBox[{"(",
1050 RowBox[{
1051 FractionBox["r0",
1052 RowBox[{"r0", "*",
1053 SuperscriptBox[
1054 RowBox[{"(",
1055 RowBox[{"Cos", "[",
1056 RowBox[{"\[Xi]", "/.",
1057 RowBox[{"FindRoot", "[",
1058 RowBox[{
1059 RowBox[{"\[Xi]", "+",
1060 RowBox[{
1061 FractionBox["1", "2"],
1062 RowBox[{"Sin", "[",
1063 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
1064 RowBox[{"k", "*", "t"}]}], ",", " ",
1065 RowBox[{"{",
1066 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}]}], "]"}],
1067 ")"}], "2"]}]], "-", "1"}], ")"}]}]]}], ",",
1068 RowBox[{"{",
1069 RowBox[{"t", ",", "t1", ",", "t2", ",", "timestep"}], "}"}]}], "]"}]}],
1070 ";"}], "\[IndentingNewLine]",
1071 RowBox[{
1072 RowBox[{"v2", "=", " ",
1073 RowBox[{"Table", "[",
1074 RowBox[{
1075 RowBox[{"-",
1076 SqrtBox[
1077 RowBox[{
1078 FractionBox[
1079 RowBox[{"8", "\[Pi]"}], "3"], "G", "*", "\[Rho]0", "*",
1080 SuperscriptBox["r02", "2"],
1081 RowBox[{"(",
1082 RowBox[{
1083 FractionBox["r02",
1084 RowBox[{"r02", "*",
1085 SuperscriptBox[
1086 RowBox[{"(",
1087 RowBox[{"Cos", "[",
1088 RowBox[{"\[Xi]", "/.",
1089 RowBox[{"FindRoot", "[",
1090 RowBox[{
1091 RowBox[{"\[Xi]", "+",
1092 RowBox[{
1093 FractionBox["1", "2"],
1094 RowBox[{"Sin", "[",
1095 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
1096 RowBox[{"k", "*", "t"}]}], ",", " ",
1097 RowBox[{"{",
1098 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}]}], "]"}],
1099 ")"}], "2"]}]], "-", "1"}], ")"}]}]]}], ",",
1100 RowBox[{"{",
1101 RowBox[{"t", ",", "t1", ",", "t2", ",", "timestep"}], "}"}]}], "]"}]}],
1102 ";"}], "\[IndentingNewLine]",
1103 RowBox[{
1104 RowBox[{"vsmall", " ", "=", " ",
1105 RowBox[{"Table", "[",
1106 RowBox[{
1107 RowBox[{"-",
1108 SqrtBox[
1109 RowBox[{
1110 FractionBox[
1111 RowBox[{"8", "\[Pi]"}], "3"], "G", "*", "\[Rho]0", "*",
1112 SuperscriptBox[
1113 RowBox[{"(", ".01", ")"}], "2"],
1114 RowBox[{"(",
1115 RowBox[{
1116 FractionBox[".01",
1117 RowBox[{".01", "*",
1118 SuperscriptBox[
1119 RowBox[{"(",
1120 RowBox[{"Cos", "[",
1121 RowBox[{"\[Xi]", "/.",
1122 RowBox[{"FindRoot", "[",
1123 RowBox[{
1124 RowBox[{"\[Xi]", "+",
1125 RowBox[{
1126 FractionBox["1", "2"],
1127 RowBox[{"Sin", "[",
1128 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
1129 RowBox[{"k", "*", "t"}]}], ",", " ",
1130 RowBox[{"{",
1131 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}]}], "]"}],
1132 ")"}], "2"]}]], "-", "1"}], ")"}]}]]}], ",",
1133 RowBox[{"{",
1134 RowBox[{"t", ",", "t1", ",", "t2", ",", "timestep"}], "}"}]}], "]"}]}],
1135 ";"}], "\[IndentingNewLine]",
1136 RowBox[{
1137 RowBox[{"vsmall2", " ", "=", " ",
1138 RowBox[{"Table", "[",
1139 RowBox[{
1140 RowBox[{"-",
1141 SqrtBox[
1142 RowBox[{
1143 FractionBox[
1144 RowBox[{"8", "\[Pi]"}], "3"], "G", "*", "\[Rho]0", "*",
1145 SuperscriptBox[
1146 RowBox[{"(", ".1", ")"}], "2"],
1147 RowBox[{"(",
1148 RowBox[{
1149 FractionBox[".1",
1150 RowBox[{".1", "*",
1151 SuperscriptBox[
1152 RowBox[{"(",
1153 RowBox[{"Cos", "[",
1154 RowBox[{"\[Xi]", "/.",
1155 RowBox[{"First", "[",
1156 RowBox[{"FindRoot", "[",
1157 RowBox[{
1158 RowBox[{"\[Xi]", "+",
1159 RowBox[{
1160 FractionBox["1", "2"],
1161 RowBox[{"Sin", "[",
1162 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
1163 RowBox[{"k", "*", "t"}]}], ",", " ",
1164 RowBox[{"{",
1165 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
1166 "]"}], ")"}], "2"]}]], "-", "1"}], ")"}]}]]}], ",",
1167 RowBox[{"{",
1168 RowBox[{"t", ",", "t1", ",", "t2", ",", "timestep"}], "}"}]}], "]"}]}],
1169 ";"}], "\[IndentingNewLine]",
1170 RowBox[{
1171 RowBox[{"vsmall3", " ", "=", " ",
1172 RowBox[{"Table", "[",
1173 RowBox[{
1174 RowBox[{"-",
1175 SqrtBox[
1176 RowBox[{
1177 FractionBox[
1178 RowBox[{"8", "\[Pi]"}], "3"], "G", "*", "\[Rho]0", "*",
1179 SuperscriptBox[
1180 RowBox[{"(", ".5", ")"}], "2"],
1181 RowBox[{"(",
1182 RowBox[{
1183 FractionBox[".5",
1184 RowBox[{".5", "*",
1185 SuperscriptBox[
1186 RowBox[{"(",
1187 RowBox[{"Cos", "[",
1188 RowBox[{"\[Xi]", "/.",
1189 RowBox[{"First", "[",
1190 RowBox[{"FindRoot", "[",
1191 RowBox[{
1192 RowBox[{"\[Xi]", "+",
1193 RowBox[{
1194 FractionBox["1", "2"],
1195 RowBox[{"Sin", "[",
1196 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
1197 RowBox[{"k", "*", "t"}]}], ",", " ",
1198 RowBox[{"{",
1199 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
1200 "]"}], ")"}], "2"]}]], "-", "1"}], ")"}]}]]}], ",",
1201 RowBox[{"{",
1202 RowBox[{"t", ",", "t1", ",", "t2", ",", "timestep"}], "}"}]}], "]"}]}],
1203 ";"}], "\[IndentingNewLine]",
1204 RowBox[{
1205 RowBox[{"vsmall4", " ", "=", " ",
1206 RowBox[{"Table", "[",
1207 RowBox[{
1208 RowBox[{"-",
1209 SqrtBox[
1210 RowBox[{
1211 FractionBox[
1212 RowBox[{"8", "\[Pi]"}], "3"], "G", "*", "\[Rho]0", "*",
1213 SuperscriptBox["1", "2"],
1214 RowBox[{"(",
1215 RowBox[{
1216 FractionBox["1",
1217 RowBox[{"1", "*",
1218 SuperscriptBox[
1219 RowBox[{"(",
1220 RowBox[{"Cos", "[",
1221 RowBox[{"\[Xi]", "/.",
1222 RowBox[{"First", "[",
1223 RowBox[{"FindRoot", "[",
1224 RowBox[{
1225 RowBox[{"\[Xi]", "+",
1226 RowBox[{
1227 FractionBox["1", "2"],
1228 RowBox[{"Sin", "[",
1229 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
1230 RowBox[{"k", "*", "t"}]}], ",", " ",
1231 RowBox[{"{",
1232 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
1233 "]"}], ")"}], "2"]}]], "-", "1"}], ")"}]}]]}], ",",
1234 RowBox[{"{",
1235 RowBox[{"t", ",", "t1", ",", "t2", ",", "timestep"}], "}"}]}], "]"}]}],
1236 ";"}], "\[IndentingNewLine]",
1237 RowBox[{"ListLinePlot", "[",
1238 RowBox[{
1239 RowBox[{"{",
1240 RowBox[{
1241 RowBox[{"Transpose", "[",
1242 RowBox[{"{",
1243 RowBox[{"t", ",", "v"}], "}"}], "]"}], ",",
1244 RowBox[{"Transpose", "[",
1245 RowBox[{"{",
1246 RowBox[{"t", ",", "v2"}], "}"}], "]"}]}], "}"}], ",", " ",
1247 RowBox[{"AxesLabel", " ", "\[Rule]", " ",
1248 RowBox[{"{",
1249 RowBox[{"time", ",", " ", "\"\<velocity of outer radius\>\""}], "}"}]}],
1250 ",", " ",
1251 RowBox[{"PlotLegend", " ", "\[Rule]", " ",
1252 RowBox[{"{",
1253 RowBox[{"\"\<r0\>\"", ",", " ", "\"\<r0/2\>\""}], "}"}]}], ",", " ",
1254 RowBox[{"LegendPosition", " ", "\[Rule]", " ",
1255 RowBox[{"{",
1256 RowBox[{"1", ",",
1257 RowBox[{"-", ".5"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]",
1258 RowBox[{"ListLinePlot", "[",
1259 RowBox[{
1260 RowBox[{"{",
1261 RowBox[{
1262 RowBox[{"Transpose", "[",
1263 RowBox[{"{",
1264 RowBox[{"t", ",", "vsmall"}], "}"}], "]"}], " ", ",", " ",
1265 RowBox[{"Transpose", "[",
1266 RowBox[{"{",
1267 RowBox[{"t", ",", "vsmall3"}], "}"}], "]"}], ",", " ",
1268 RowBox[{"Transpose", "[",
1269 RowBox[{"{",
1270 RowBox[{"t", ",", "vsmall4"}], "}"}], "]"}]}], " ", "}"}], ",", " ",
1271 RowBox[{"AxesLabel", " ", "\[Rule]", " ",
1272 RowBox[{"{",
1273 RowBox[{"time", ",", " ", "\"\<velocity of outer radius\>\""}],
1274 "}"}]}]}], "]"}], "\[IndentingNewLine]"}], "Input",
1275 CellGroupingRules->{GroupTogetherGrouping, 10001.},
1276 CellChangeTimes->{{3.644326804423904*^9, 3.644326873397849*^9}, {
1277 3.6443270515600395`*^9, 3.644327080682705*^9}, 3.6443271141006165`*^9, {
1278 3.6443271480765595`*^9, 3.6443271745240726`*^9}, 3.6443272190816207`*^9,
1279 3.6443272581048527`*^9, 3.644327302377385*^9, 3.6443273744345064`*^9,
1280 3.6443280862982225`*^9, {3.64433206496979*^9, 3.64433209713363*^9}, {
1281 3.6443361181811075`*^9, 3.6443361723432055`*^9}, {3.644418984607812*^9,
1282 3.6444190087321916`*^9}, {3.644424676875391*^9, 3.6444247168186755`*^9}, {
1283 3.6444249195412703`*^9, 3.644424956650393*^9}, {3.644425080699488*^9,
1284 3.6444251685485125`*^9}, 3.644425204366562*^9, {3.644425522443754*^9,
1285 3.6444255515944223`*^9}, {3.644425804009859*^9, 3.6444258786021256`*^9}, {
1286 3.6444259118380265`*^9, 3.6444259606448183`*^9}, {3.644427380807047*^9,
1287 3.6444273860533466`*^9}, {3.644428554024151*^9, 3.644428609642332*^9}, {
1288 3.6444315159745646`*^9, 3.644431530251382*^9}, {3.6444316177723875`*^9,
1289 3.644431621505601*^9}, 3.644486408778723*^9, {3.6444865358189893`*^9,
1290 3.6444865570322027`*^9}, {3.644486633353568*^9, 3.644486639767935*^9}, {
1291 3.6444867639080353`*^9, 3.6444867642410545`*^9}, {3.64452333713*^9,
1292 3.64452333855*^9}, {3.644523384422*^9, 3.644523398625*^9}}],
1293
1294Cell[BoxData[
1295 GraphicsBox[{InsetBox[
1296 GraphicsBox[{{}, {{}, {},
1297 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
1298 0.011111111111111112`], AbsoluteThickness[1.6],
1299 LineBox[CompressedData["
13001:eJxdlnk4lfkbxgslMiZLZUuWLIWiDkJ5yHbOsUtomVJhWoikqUQqMZgmpUiU
1301aFGWbGVJlodznM3a1GRKKS2mMJX2UvzO+57vX7/3ulwuF57zLPf9uV/dTZF+
1302oVKTJk0aFH9R3///+V40+pfnJh+YXRlv/alL1Cz5ORgOnH4vrdn9oPnbgW0N
1303MSe3wJl/zzsd1nxOfh8FpxS8lpV1DzXvVy1zG4iNgY2RG0eUWt+Sv98LoT9P
1304b4vV+tC875WhxbTSOBhu/vWZxp7P5P8PgtyFiaSx29+alz32/vP0jsOgesnk
1305jYHZOKl3BAocblf5cidhPUtByuT3ZBh0SMyxj5ZCSf0UWD1hE7heRwZtbwh+
1306azqfBjb2Kaequ6ag5POOQsUaz8mseFms004a9q07BvVPfnjPMZVDyecfh6eH
1307R6ys++TxLFenInrLCdBoOhmVm6aAkn4yYPXXx7e8bBWx7yv9gTA3PPbhqqGf
1308UdLfKQj3TOtc0zkDNRc9mjf1UCbksR9sunlZifSbBXJyk9VYB5RxTYgdVREG
1309NUSrFQJVSP/Z0LdQJ3uKuSrmnKEfiHvOcLWWm0nmyYH76kUPLj6dife7Pq98
1310djkXLFqquz0bZpH5zkK//aqL1lmzUV0mQNGs6hxk+0f0bo5SI/PmwVjh19G7
1311bHUMsqELguwTq/g/DTTI/PnQurtL9vgkTfSwTnUMfpEPgdrSBo/7NMk+CsDg
131226Pw+FotHPGlKhbAi93r4iJOziH7uQA3PuZ9rIzUxj/C/x0rGr0A8ky1g54e
1313c8m+LsLwl/UhBao6aPL7LPEIF2FvkZYjO1GH7O8SHO47WqX3TgfbC1xq3v+4
1314BNOvSquZbtQl+7wMqafH7vzao4vbxdtSkymEJm1zj17QI/sthKMFda/2l+uh
1315fO/FqOXyVyBIep564Fx9su8rMLftFHtbuj4WU+POuArHmh+N1kzok/1fBZ+Y
131688n2UfOQTZWbVQSHp4QdkRqYR+5RBIw7/G0yfgY4RK1bqxgyhEcaXTgG5D7F
1317ILO5UEbAMERqez16JdC+Jb/jaKEhuVcJ7N8VXZipZoTz16W3fjQuBXdbkdHz
1318NCNyv1KYWWE4vO+HEQrF1TQWXYOt42PpQVHG5J7XYGDDP/WHnhnj1hP/xYFl
1319GWgMps78HDCf3LcMeItdvOtF81HcnHjkchCadWp12i8g9y6H8825Sy2uL0B/
1320sXjEJwXG2embXxqZkPtXANM4cdOHsyZ4Sby93osV8PRgvnSgsinRQwUY3QhT
1321V04xxQ8/7u59ZVgJGozweKNxU6KPSjBLl59xJsYMnWkBVML9uPS6LcNmRC+V
13220M2KDM3etBBPqdEDgWzFXoUFDxYS/VTBMlP5krl+i1DSXhX894Dpul+0iOip
1323Csr3lO4+r2uOS+jnOji+ag+0Wm9O9HUd3vzYHiSda46JKBIr6DpcZnWnyf5j
1324TvR2HYz3Vk51nmmBd8TXF+8EyqW3vLzpZ0H0dwOyR6R9tx23QH264A3QiI8J
1325C+iyIHq8AQy9kpUJCotx1xbqANWwPAyZg+zFRJ/VYKamsf9o6mLkfDQWX7ga
1326jpVkGOwSLCZ6rQH//oKUXNklqCJpEC5UJg9NdVtC9FsDepzo0zXJS5DuTlAD
1327TrNqB0p4S4iea6Fk7Tvdl1MZWHXuzRWeey3U8B1qw90YRN+1sCIlQtYuhYFS
13289MC18MewQYK/kEH0XgcM9sKMenlL9JMIBkCQfWuHhyXRfx3YTB6Pjz5miReo
1329ce/WwZfrtZv5PZbEDzeBnzRnYoeKFb6jygXdhIZ3nKFtAVbEHzehNKlR2HDG
1330CldQ8u+7Cb2R/W5hj6yIX+ph2jkpja261phByXd9PRRtCBjnhVoT/9SD2t2C
1331hkPF1jgQSx2kHnapnzbMfWNN/HQLTBP11WZaLkULWuC3YOdzzp7R2KXEX7fg
1332N62HVotbluKhTCexZG7BHjllv/uyNsRvDaClUHr7pZcN3tajDwxnXd8LN2XZ
1333EP81QHfbmbWsfhvUpej/XwOEcefdyDO0JX5shDC7tYqhkba4k7JHVCOs+lRX
1334lVdnS/zZCJohg589peywhbru+0aw3GjptNvDjvi1CX6y05ebfdoOlSSGhCTz
1335J52WT+2If5vAtfahwV2zZUiv72sTmP+1rubDvmXEz80wW6hklcNbhnR7cc0w
1336ero+gq+ynPi7GSoi25cmbFyOkhRHiCjSSuaWLyd+R2BnFATljC/Hqzx3saMR
1337AuOMBNJe9sT/CPNT50jJ5Nmjj9iNyokI+VdC2Xmv7QkPEM6xFn3/GwC/UOnD
1338RYhb+zCt7AQQPiAcURk9bPIcMF+DMkQLbM/53eWqpgPhRQs41x+oOu7igEz6
1339wC1g3PvL555IB8KPFggL/Etpe44Dvr1CNdgCoYu6FTe2ORCetIBNlun06rcO
1340mE11J2qB+d3ejK1ajoQvLSBM6hMkMB3RQSwulkIrhDlvVR+LcSS8aQXNTI/U
1341RwWO+HKMGrgVkrcGp8/vdiT8aYWDkY9rBr47IqUWsWRg+1Rm/jSTFYRHrTCQ
13426SFVsHoF0uP2tEKb6u3iaykrCJ9aIST/U4JF3QqkyylzoFfF6tCilysIrziw
13437mKaoFjNCWkcreRAxMlrfxSynAi/OMC1CZljuN8JJa8PHDiRPvDa9JoT4RkH
1344RquXnWh67IQ0Dno50D/8o6Zf2ZnwTVz/FMfyhKszJlB2VuPCXcXJ0x7EOhPe
1345cSGOfd+rsdwZjWgDcaHZaLY/vHAm/OOC8iuXoyGaLthNv15w4YDxSLaFnwvh
1346IRfcJ4bZJakuuIeywyMuCN2nX77X4kL4yIUQ1yv9dd9ccC4lZ+020HqWFRbI
1347cCW8bIMLt2Gwdocr8in5BbdBvvtT5ydFroSfbaDA0im598IVI6nzFrSBs2Fb
1348coGeG+FpG9xl3jnmFuyGs2nDt8GUx4/43XluhK886NlTneLY74bNVHvzePD8
13492Y6ES9pMwlsetJ/pqJkUzMRfw6iHB543Vc6uv8Ak/OUBjx8whf+CidTLk5iw
1350ULbOcanTAhbhMQ8Ul+4cfRjJQoqOe1/xQP3qtvC8GhbhMx9smq3DM8ZZuJ4u
1351yIeoMo4z141NeM2H9OIpLyCDjVNpQPHBX1vpqVI/m/CbD0O5+oluJu5IXUO1
1352jA+tKh1dr/e5E57z4eFa9plZInek3+7e8EFBm32qS9OD8F0AisM6wUaRHjhO
13532c1CAD3HGvIWcz0I7wWQ/DlmmrSmJxZSco4WwFnG98OluzwJ/wXQvrPc1rnL
1354E70kA8OMzMymJwu8SB4IIPr45rk5qV74iTrHRwEk9g0rpQ15kXwQwifmjpkd
1355nt6YR41rLYRfZHzy4q97k7wQQgV3RO/xTz7oSi9QCDzW/YlAJx+SH0JwPP+1
13562C7WB1/T8SAE87jN985V+ZA8EUJrRCj/5IgPZlF4HxNCXgnnEMPYl+SLCJJi
13577nzJDvVFe/ogIsj+EOH28JIvyRsRnLv3/I3moC8OUng9IALn2RsM9s73I/kj
1358gvg4bx3VSD+U4E8EIfoqB2fV+pE8EsH0GXYNRZNXIo0XqXZQ+CXr6nevlSSf
13592kHxcsfPTudXIm1fp3a4X+uytebdSpJX7TCs61mRxfJH2h5J7cDRGNlscsmf
13605Fc7qLp/q+NKrUKJ/NqhTu+EfGPoKpJn7bChLjc7tnMV/k2dd1oHTEROLdpp
1361G0DyrQNs12caGl0LwHhqfawOcGveOLDEMJDkXQdYvT1SwCwMRANagB1wWc3C
1362a8nCIJJ/HSCXMHrkRVMQdnbQD+THTtOLX72a5GEHpGZ7R3tPrMbdJymgdsLy
1363HivNL5VrSD52Am9fMDNi11qcUvrb7VSXThgKjhgqll6H/wNMBhak
1364 "]]},
1365 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
1366 0.011111111111111112`], AbsoluteThickness[1.6],
1367 LineBox[CompressedData["
13681:eJxdl3k0lesXx0WZr5uhjJnHkOmYZZN5Lg2aU6EUkXQrkUq6cbspRaJEg5IG
1369VEg4G8eZjJWbK1IaVLiV5lL8zvue56/fs5ZlWdjvs/f+fj/f9+isiwuNFBUR
1370ERkTfFHf///8LB27H7RuPihXpNh/6ahlCn8Ohz0nP4qpd/KZP/Zsqks8vhFO
1371vTrrsV+9m/w+Hk7IBrtc73zE3K103WcwKRHWxq0dlW96Sv5+J0T+LtOSpPGC
1372ueuNoZXk1WQYYW54rrbjFfn/vSB1bjJ9/N4w0+VJyN8nt+wHpQum7wzM35J6
1373B6DY7V7lAtZ7Zq2frKjpnwdhyC0t3zXhA6l/CJZNOoat1v7EdLrF/aPhbCY4
1374uh46cbvjM3neYShfHjTFL+Urs0YzfWRBzRGofforZJbZd/L8o/Bs/6idfd8P
13755mmWdnnCxmOg1nA8viDzJ7lPNiz7/uRusNMEs+87/UDQiknqXzw8Se53AmKC
1376MtuXt4ugusVjffF9OVDo/2jdnYtTUHjfXJCSmqLit0cUl0c4UxVhSI2/TDZM
1377DIX3z4O+Odp50yynYv4p+kDyC4a3vdQ0FPaTD72qpY/OP5uGvR1fFz6/WABW
1378jbc7g+rEUdjfaRhwXXzePlcCVacukTOvPAN5i2J71sdLorDfQhgv+T7W7S+F
1379Sx3pgiDx1C7lbwNpFPZfBE3bOySOishgoH2Ge/jLIgjTFDN40ieDwnkUg8GP
1380xzEp1bI4uoCqWAwvt69Mjj3+Gwrncw5ufS78XBEnh3/FvBovHTsH0r4qe4MC
1381f0fhvM7DyLfVEcVK09H0z5mCFs7DzlINd/+06Sic3wXY33e4UvfDdGwt9qr6
1382+OsCyFwWUzFbK0/meREyTo4/2NAlj5sF01KZWgINmpaBPaBA5lsCh4tr3uy+
1383oYDSPefj50pfgqVi+qphWopk3pdAq+WE/6YsRbxCtTv9MhxhPh6rmlQk878M
13848xPPHnSNV0J/qtzMUtg/LeqA6KAS2UcpMB5wNk0NnYHD1Lg1rkA270C9V/MM
1385sp8rMHV9yVQuYyZS0+vSLYPWjUVth0tmkn2Vwe5tCSU5KsposjKr6bPxVQhw
13864hu9yFQm+7sKM8oNR3b9UkaeoJqaxTWInhjPWhqvQvZ5DQbX/Fu777kKRh/7
1387Lxlsr4PaUMaMr0tUyX6vA9vaK6SWr4qCywlavgE883aNdlc1su8bcJZZ4GB1
1388Uw0XCcQjWCkwTsusf22kTvZfDr7Gaes+nVbHC4Lp9Zwvh2d7i8TCFDSIHsrB
13896FaUqsIhDfz0q3vnG8MKUGPEpBhNaBB9VIB5lvT0U4mz0JMWQAX0JmfVbByZ
1390RfRSAZ1+cZF56zTxhArdEEiU75Sd/UiT6KcSXMyky7RCtVB4vUr475Gv926+
1391FtFTJdzYcXX7WR1ttKHPTXB/0xpmt1qb6OsmvPu1ealYgTamIV+goJtw0a8z
1392U+JfbaK3m2C8s0Lcc4YOPhBsXzATuCG28fWdUB2iv1uQNyq2YNNRHdSjC94C
1393tZTEqCUdOkSPt4ChW7YwVVYXt22kFnAb5kah75C/LtHnbTBXUdt9OEMXmz8b
1394CzZ8G46UZRts4+oSvVbBooHiQwUSeqgovCCcqzg4LO6jR/RbBbrNCSerDuoh
1395fTtuFXjMrB4sY+sRPVdD2YoPOq/F9bHyzLtL7IBqqOK4Vcf46BN9V8O8Q7ES
1396zof0UZRuuBr+GjFIXcTTJ3qvAYb/nOxaaQMMFQoGgJt3d0ugAdF/DThOmUhJ
1397OGKA56h2u2vg283q9ZwuA+KHO8BJnzW5RdEQP1Dllt6Bug/Nw5uWGBJ/3IGr
13986fW8ulOGOI+Sf98d6Ikb8Il6bEj8UguSZ0TVonWMMJuS7+paKF2zZIIdaUT8
1399Uwsq3cV1+64Y4WAStZBa2KZ60rDgnRHx010wS9NTmWFrjFa0wO/C1hfNO8aS
1400jIm/7sIfGv121o3GuC/HQyCZu7BDSiG0V8KE+K0ONGSv3nsdbIL3dOkFw2nv
1401j7x1uSbEf3XQ2XJqhd+ACepQ9P+vDqJY+rcKDWcTP9ZDlPMKuci42biVskd8
1402PSz+UlNZWDOb+LMe1COGvgaJmmIjtd2P9WC71tZje6Ap8WsD/OasJ6V80hTl
1403hYaEdMun7bbPTIl/G8C7ut+g29wM6fF9bwDL+yurPu0yI35mgjJP3i6fbYb0
14049ZKZMHayNpajaE78zYTyuFaH1LXmKExxhNhSjYOsG+bE7wj+2cVL8yfM8TI7
1405QOBohLBkI65Y8BzifwSTjFmiUwvn4HyBGxXSEIouRfoXvp1DeIBwxs/i5z9g
1406gd+o9GEhJK/oz7x+zILwAeGA4th+0xcWWKRGGaIRNuf/6XVZ3ZLwohE8a/dU
1407HvWyRF96wY1g3LPqa1ecJeFHI0SF3ZffnG+J7y9RF2yESItOubUtloQnjeCY
1408ayZz+70l5lG34zeCSWcII1rDivClEXjpfdxUXyt0E4jLT7YJojyjVccTrQhv
1409mkA9JzDjcbEVvh6nGm6Cg9HhWSadVoQ/TbA37knV4E8rpNQikAxsFvctkjS1
1410JjxqgsGcQNHiZdZIt9vVBC1K965cO2RN+NQEEUVfUq1qrJEup9AMPYp2+yxe
1411WxNeNcPK85ncKyo2SONoYTPEHr/2V4mfDeFXM7AcI2YZ7rZB4etDMxzLGnxr
1412ds2G8KwZxm67HGt4YoM0DnqaYWDkV9WAAoPwTVD/RLPtMW8GplJ2VmFBt9wU
1413yUdJDMI7FiT79wbX32CgEW0gFjCNlBfBSwbhHwsU3ngdjlC3xU769YIFe4xH
141486xCbQkPWRAwOeJflmGLOyg7PGYBL0Dm4sNGW8JHFkR4Xxqo+WGLWpScNVtA
141543luVBjDjvCyBc7dg6HqLXbIoeQX3gJFAc88n5baEX62gKyfdtnDl3YYR623
1416uAU8DVsOFuvaE562QLfvgyM+4faoTBu+BaY9eczpLLQnfGVD147bh9wH7JFJ
1417XU+fDS+eb0m9oOlAeMuG1lNtVSLhDrghijpsCLqjeHr1OQfCXzawOUumcV46
1418IPXyJCAsXF/p7uAx25HwmA1yDlvH+uMckaLjzjdsUL28KaawypHwmQOOTPuY
14197AlHXE0X5ED89WZPlo8T4TUHsq5MewnZTihOA4oDizTln8kPOBF+c2C4QC/N
1420x9QZqW0oXedAk2Jbx9tdzoTnHOhf4X9qJt8Z6be7dxyQ1fQ/0aHuQvjOBbkR
14217XCjOBecoOxmxYWuI3WF1iwXwnsuHPyaKCmmPhdLKDkncOE04+f+q9vmEv5z
1422oXXrDSfPjrkYLGwYpufkNDyd7UrygAsJR9dr5We44hdqHZ+5kNY3Ip857Ery
1423gQdffLfMaAsCLKTatefBqqnzC1NuAskLHpSzRnWf/OaG3vQAecD2650M83Aj
1424+cED97PfrzgnueFbOh54YJm8/uGZSjeSJzxoio3kHB91w1wK7+M8KCxr3scw
1425dif5wof0xAff8iLd0ZVeCB/yPsX69F9wJ3nDhzMPX7xTH3LHIQqve/jgqbzG
1426YKfJPJI/fEhJDtFWipuHQvzxIUJPce/M6nkkj/ggM925rnSKB9J4EW0F2VW5
1427l38Ge5B8agW5i22/e5z1QNq+Hq3QW+0VXfXBg+RVK4zoBJXn+nkibY/0VmhW
1428G11vesGT5FcrKAX8qGGJeqFQfq1Qo3tMuj7Si+RZK6ypKchLavfCf6j1SrbB
1429ZJx46VYnb5JvbeC0OsfQ6Jo3plDj82sDH+baQRtDH5J3bWD3/kCxb4kPGtAC
1430bIOLKlbBNnN8Sf61gVTq2IGXDb7Y3kYfKEqS1E1Z5kfysA0y8kISQib9cPtx
1431CqjtMLfLTv1bhT/Jx3Zg7wr3jd0WgLNoQbfDp7LhPeregSQv22G4OKpN1jwI
1432W+iPV+1QVbfIX8csmORnOwyIRL1a5xuCsRRO77cDy/L+w3me80metkOCiMhA
143374/5OIM2SAf073VdFd+xgORrB7znfjmaxQ3FegoHSzpAq0O0WOzbQpK3HRD9
14343Yq3YftijKQ/fnXAl0guvyU2jORvB6yclH7m4rYc/wdtj2xL
1435 "]]}}, {}},
1436 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
1437 Axes->{True, True},
1438 AxesLabel->{
1439 FormBox["time", TraditionalForm],
1440 FormBox["\"velocity of outer radius\"", TraditionalForm]},
1441 AxesOrigin->{0, 0},
1442 DisplayFunction:>$DisplayFunction,
1443 FormatType->TraditionalForm,
1444 Frame->{{False, False}, {False, False}},
1445 FrameLabel->{{None, None}, {None, None}},
1446 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
1447 GridLines->{None, None},
1448 GridLinesStyle->Directive[
1449 GrayLevel[0.5, 0.4]],
1450 Method->{},
1451 PlotRange->{{0, 0.24}, {-112.05730686837674`, 0}},
1452 PlotRangeClipping->True,
1453 PlotRangePadding->{{
1454 Scaled[0.02],
1455 Scaled[0.02]}, {
1456 Scaled[0.05],
1457 Scaled[0.02]}},
1458 Ticks->{Automatic, Automatic}], {-1, -0.6180339887498948}, {
1459 Left, Bottom}, {2, 1.2360679774997896`}], GraphicsGroupBox[{
1460 {GrayLevel[0],
1461 RectangleBox[{1.05, -0.55}, {1.85, 0.050000000000000086`}]},
1462 {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}],
1463 GraphicsGroupBox[{RectangleBox[{1, -0.5}, {1.8, 0.10000000000000009`}],
1464 InsetBox[
1465 GraphicsBox[{{{InsetBox[
1466 GraphicsBox[{
1467 {Hue[0.9060679774997897, 0.6, 0.6],
1468 LineBox[{{0, 0.5}, {1, 0.5}}]}, {}},
1469 PlotRange->{{0, 1}, {0, 1}}], {0.08, 0.08}, {
1470 Left, Bottom}, {1, 1}],
1471 InsetBox["\<\"r0/2\"\>", {1.2100000000000002`, 0.58}, {-1, 0},
1472 Automatic, {1, 0}]}, {InsetBox[
1473 GraphicsBox[{
1474 {Hue[0.67, 0.6, 0.6], LineBox[{{0, 0.5}, {1, 0.5}}]}, {}},
1475 PlotRange->{{0, 1}, {0, 1}}], {0.08, 1.24}, {
1476 Left, Bottom}, {1, 1}],
1477 InsetBox["\<\"r0\"\>", {1.2100000000000002`, 1.74}, {-1, 0},
1478 Automatic, {1, 0}]}}, {}},
1479 AspectRatio->0.7500000000000001,
1480 FormatType->TraditionalForm,
1481 PlotRange->{{-0.1, 3.26}, {-0.1, 2.42}}], {1, -0.5}, {
1482 Left, Bottom}, {0.8, 0.6000000000000001}]}]}}]},
1483 AspectRatio->Automatic,
1484 Background->None,
1485 ColorOutput->Automatic,
1486 ImageSize->Automatic,
1487 PlotRange->All]], "Output",
1488 CellChangeTimes->{
1489 3.6444865590563183`*^9, {3.644486640819995*^9, 3.644486651698617*^9},
1490 3.6444868206072783`*^9, 3.644523296337*^9, {3.644523342414*^9,
1491 3.644523401427*^9}, {3.644525551025*^9, 3.644525572803*^9},
1492 3.64475339181*^9}],
1493
1494Cell[BoxData[
1495 GraphicsBox[{{}, {{}, {},
1496 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.008333333333333333],
1497 AbsoluteThickness[1.6], LineBox[CompressedData["
14981:eJxdl3k81Pkfx0tWUip0Kh1WSjoUpaLeihXKpk1SW7Y7HUrIESFniIybEMYx
1499bsZ9vpkZMxhDiXRsRa02tVhkVVK/+X59/vp9H495eMxjxuf7Pl6v5+s7K09f
1500++2cxJQpU4bEL+rv/1/fMofaTU+bAV8wbXeOvTpOvj8JV00Zg4/sdfCr+6Vq
1501h3BrUOV8CZkVbUA+t4WKeNsCa4d96Dovb2/PTQfQfjJHSVrtIPm+M5w/vHX6
1502zBhzdOlT3SSd4wbGrIxAw+mW5P89oWiobBnP8XfUfX0gOPqqF7g4MHcFv7Mi
15035/nAkfg5JYfVT2Gl8SwJdX8/eP39k3zE29Pk/Dvw3+KN7lLxZ3FHcaNj7YNA
1504cDKRwELz8+R+d+H+I4XkOFlrLF/m+/FgeQhMLCweaeBfJPcPhUZXtcBtnpcx
1505nreiwM6aAcPMcZ2x7TaknjBY5gi9Up+u4osv9A3Bsue65tYjtqS+CEg18jgU
1506pXUdl2x8qSJ1OxKM4oONVOXtSL1RYJdqEPR+0A6PndWhTgTmcovo1yJ7Un8M
1507HFBI/yib44BxsfQF7nH2Mo6BN0g/ccBR9XJRvOiIz1rHDr1Nuw8ah/U5E3ud
1508SH/x4Gs41U55tTMulrSYvZ6dAP3BMxSDpFxIv4lwsurpgR3vXNByO30gbPY3
1509zN3Mv0n6TwJmGvuhY7or7tcO2H2yNwlW7t98Yoa/G5lHMghta7/+c+EW/nOQ
1510OjEZgvmnLVSM3cl8UuCln40ye60HBl35ezxzKAW+TTML2i/lSebFBJ/FGp9t
1511nDxR3X+BuAUmjF68UVH73pPMLxV+tuVq6h27jcLkX0pHJlJhRuefrSPC22Se
1512afBwZu3o851eeFk8rUWS6eBzvXzBWL4XmW867B8NZhore6NMF9N2p0wGWB8K
1513luuI8CbzzgDzV3nPoqf7YBbV7lwWzP1Y6Bx104fMnwUHOndce9TvgybUcQsy
1514oSJ/aLfJKV+yj0x4E5/sItHpix+ocS/NAuErS+a4kR/ZTxYUxgeYadf4ITW9
1515h8rZoG+jvrBskz/ZVzbYp71kuKX7o9rxe5zRNTmg7CJzMmDJHbK/HHgyJKP6
1516OvQONolPU9yYC9IN+4I9pALIPnPhgLy9wRW3ALzI6HeDLXlwa67/j/ThALLf
1517PJAsme+86WIgiosTt5wPEydO2Mh2B5J950OJn2Oq7pEgNBeLR7xSyA53f1/X
1518GkT2XwB1tVyZeMO7mCqeXhezAN6uH37TVnuX6KEAinbvOWClHYyfJjqc+1QL
1519YUyFpWVcEEz0UQj62ZIeYWohaEALoBDmBx5ZqcsMIXophNLx4flGSvcwYhHd
1520EEh1FliVR98j+mGDPyPCa++MUJwsjw2B627I/m0YSvTEhvmMZ39W+YSiJn0V
1521wdfhJ1MFnFCiryJYKd3FmDGVgd51zWIFFYFGdFm6DzCI3opg1tcPVtvdGfhY
1522vH3xTOCPhNiXa2oYRH/F0ObPMzH/xsCf6QOLQThs/bhaJ4zosRi2TknLPOMa
1523hvbW1AJKQBT9UtKkKozoswQkXHpXXh8PQ+7oGvGGS+DPu6v0n+uEE72Wgqsv
1524v8DPLRwVJguEsqcvyp1qwol+S2GqSmh+3vdwpKtrLAVb6UOD6/QiiJ7LQPKe
15259LOR2xHIThjM4O8rgyCVHR2SvAii7zIQgPGBU1KRKEE3XAYLOUyUMY4kei+H
1526Rau/JkvcjcTfJgUDnEinmyZtkUT/5ZD+frzjrXwUplDtdpSDP+fILw8toogf
1527KsCaH3hB7n4UDlPHWVbADxnJbtbrKOIP8fs3f/0eoxKNeyj5v6gAs3mGjJ6L
15280cQvlcCK8wC//GgMo+RrVQkL5O033hmNJv6phLt9TzX7dGKw5ya1kEqwcgtV
1529y/aKIX6qAvutI2NtTTG4iRZ4FbT1rmUclYsl/qqCypNBw8ZHY/F2pL5YMlVw
1530NmNQhZkcS/xWDStyFHde+BCLj5TpBcOmgSXHYzTjiP+qwWJBef62W3G4kqJ/
1531fzXMFXTamQjiiB9r4FTHQH+b3H28TtnDtgbGFP2chMfvE3/WwJ5NKQ7Auo/1
15321HZHasBCw/Tohk/3iV9rQf7J4sw4vXiUmzQkqBvmjfkFxxP/1sKtIvO+0efx
1533SI/vSy0UQZjmhzUJxM8I1md4CeedEpAuzw1BV7th6lV+AvE3QsCXqP3TFiTi
1534ZIrXQabWQg+184nE73Xwqr8i721pIrL4+8SOrgOV/aZSW6QfEP/XwY4NfP6K
1535Yw/QTOxGee86yF23wCgr5wHhQR2Mhcz82vHjAX6m0odXB5I9CZvb1ZIIH+rA
1536w+Hb/NnmSZikSBmiHt6EZ/6U5J5EeFEP5usVBgIyk9CIXnA9DNxQbBZ1JBF+
15371IOSMYtpMyUZ/82gCqwH/Mso4vK6ZMKTeui3a2toskzGGKq65nowfj7VPtA3
1538mfClHloOm77PZyejnlhcxrM4kGjl46PbnUx4wwFJt/SKzbNT8P041TAHlGLZ
1539spG6KYQ/HKgL9Fly/nIKUmoRSwaO3aoNZ8WlEB5xQH8u7vyjOQXpdh9ywH44
15409fPdrymETxxo7D1ZraXORPo4eS7cW9YVd/Q4k/CKC1Ez5Oq/BzORxtEhLvwX
15415em8uo5J+MWF3WCxpmuYiZOPD1yYkPtoIaeaSnjGhZ3aetnPjqYijYMuLly4
1542EjmgGZJK+MYF3VWLZqtwU9GDsvMiHvgo5S7N+5xKeMcDK7Mn5k82pOFq2kA8
1543uOlQpph8Lo3wjwc9+3W+yyekYRv9eMEDm9+O12h0phEe8uAnh3DDH7Lp6ETZ
15444SUPTD9eq/Lem074yIN3l363595Ox+WUnJc1wNVtId+51emElw1gulRbLehz
1545Ogoo+Z1sgD22L74v25JB+NkA8lM/iXztMvAatd7kBnjaL1TnF2QQnjbAbK2M
1546z+8GM3AhbfgGkFirfXZwI4vwlQ+s1jPD72xZiFR5KnzQDL7u2clmEd7yYU5P
1547kAl3lIUXzlMXH85sqB0q355J+MuHXNVzXuieidTDk5iwMLRFxbWbl0l4zAf/
15482ssdq2ZlIUVH5z4+mFklSseZZxE+C+CjUu9So8QstKIPFICyES9Lpy+L8FoA
1549ugKfD55bslGKBpQAtMzu1Kp4ZxN+C2DP2WTUas9Gahvz8gTQfiTIBJVzCM8F
15508HhNSshjhxykn+4GBeAq/z3hdmMO4Xsj2IYu8XiulIvfKbttaoQ3Erv0/nXI
1551JbxvhADP+llPRLmYTsnZrhE0uNEGSWvyCP8b4VWuVtRZ3zz8dbJhCPmwbcmO
1552v/JIHjSCgUjLefsv+fgftY7RRqj/4+MPN1Y+yYcm2CcytJk7vQATqXa1m6Dq
1553SnXMSp0CkhdNoKwgq+FlW4CG9ACbQOH00Uj9jAKSH01gsaH/lvPrAhyg46EJ
1554iuu6521ZXEjypAnsEzYr3zMvxCgK7+NNEP9DVjuRUUjypRlk/1Hodn1YiLvo
1555hTRDWlfaK305NsmbZohWO3Npnjkb31F4dW+GmS1GbrNj2SR/mmE0fMMqi242
1556TuKvGXoiaobk1xaRPGqGS5XXrWwdi5DGi4QQrLa1WSU2FJF8Eor5zh5/tLAY
1557afvqC+GqfrSsoU0xySshhNi+WaTLL0baHr5COHXt7aEJ5RKSX0LYVajT/cK7
1558BCflJwSH5WsNtPpKSJ4J4SCrXfPaoVLspNYr3QLLfL1xGreU5FsL5OxMk7i5
1559rQxvUeMzboGBfzc7Xy0uI3nXAqMOl1WjtMtxFS3AFujwD+vlcspJ/rVASXz+
15608kGLChS10Bd8CrYM1h2tIHnYAhXsozkzHlTijXAKqCKIu2cy7dvhKpKPIogx
1561/Vk4f2k1KtGCFsEJhqtN+0g1yUsRVCnrpf7aXYMN9M8rETBXX7D06q0l+SmC
1562aQPftu6TrEMbCqftIjDUWz9Hi1VH8lQEG8RgWXemHufTBmmF153lF7t0OCRf
1563W2E4a9WJMR0u1lA4sGiFzN0KT4vseCRvW+FIe6sBfGnAc/TPr1bIGbmypHxC
1564QPK3FZRWaEj59TTj/wCjYMKj
1565 "]]},
1566 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.008333333333333333],
1567 AbsoluteThickness[1.6], LineBox[CompressedData["
15681:eJxdl3k0Vesfxo2HKHOiRFK6lSuaFX1TuqKRbkWpXKW4MiSVSiLVrdtVEdEk
1569kSHJPE/ve8wc8xAlGTKETEfmyu/svd+/fnsty9rrHO/+Ds/zeTZVK0dTawE+
1570Pr4h3g/1+/+vH2+Ga/ZY7QfpAY7vcedbiLm3BPebywXdnP3RlPvfWS6PbCBG
1571JbGSXz6YfO4EUmKNJcPOYeiqXIxh2xUXSM6xeadUFUW+7wqpziEviuXj0OUe
1572dW3RaDe4PG2qFFuQQP7eA+qSZjaUuCQj3ZZ93gEON+BSyqCZ8pI0ct5NOHPm
1573a29ybQbKMJotsPKf26BXEXQswCubnH8H/Mv9ZDoVMdqUVHwx5+W/YMnRaV7h
1574zCbP+w/YVxvKg0tzUZryrT6TtPtQnHgq3Fgtnzz/ISTbDK3UcCtAz/MXxTnb
1575+MDcwE/qRvWFpB5fMPRTPBmmWYyaJukHguLQX3EGd0pIfX5wve1i+4r2UrRg
1576VfMSlqc/aBscqz6qW0bqfQwR+s/Mmx6XoyOnNlMngqPPRYt3wxWk/kCwQYqt
1577f6tXoadP6AsS9q/YqFFXRfp5CoYx/TFKN6rRh4rxA1/CnoH303zYolVD+nsO
1578CjNSPb6fa5Ci0CGJ3xNewPOLh6OVvGtJv0FgZfrX/ebNdchMhz4QXiqeCGjo
1579rSP9B4ONj3jt7Kf1aPeGu/qWncFweVfl/utG78k8XoFycYea9uR79M2EOpF3
1580v/LaySVvGsh8QsDCp3PFUfNGdO9s9/Sb4RBwZL170jDrA5lXKEQt49Q+y/iA
1581Vv4jz2shFLwvFPFH2X0k83sNG0607Rda2IQ4r3akjPx8Dc2zdUaiK5rIPMPg
1582AndCJdzjE7LjTUtBKBy0tD1kuaubyXzDwbDSW/JRZzMSawh10hOLgKU1Z4/e
1583C/xM5h0BJzerGjTvakFRVLtSkWA04690b6aFzD8Swsc6gzjmrciYOk7+DRhV
15843xQUSGol+3gDPttYg7YSbaiXGrdSFEzbvwgQsm0j+4mCazf61tfmtSFqelWL
158534JFv6JYg3I72ddb0F8+aiJ9pR0tt3iQO/pbNIRoih7wqm8n+4uGwf/SDmpq
1586f0ElvNPmr3oHM9onw2W9v5B9voO9XZf91/Z8QbY+/W6wLgbabr665Lujg+w3
1587BuxGq8I0QzoQrzhey7FgP+x0TWymg+w7FnSfuFkus+hEf/LEw1spHPsSknw7
1588vZPsPw5Y/TZfl8/rQq9502sIjYOva/bYylzoInqIgwN5fe/0a7vQ9591rj3q
15898dBuoaadrt1N9BEPOWGbz1952I0MaAHEw8DJ2VO3B7uJXuIhoG6pSever8hP
1590gW4I7NWnZt2J+Ur0kwBOaqJZ1yV6EFNeAgTOFREuceghekqAeK7sXevKHrSG
1591vhIhvKmFe0irl+grERJ/tIwE+fQiL1zKU1Ai6H5yN4CRXqI33ufq+17rHOxD
1592tbzt82YCjcJbPz5I7SP6S4I1crVJ2+d/Q2r0gUlwbPqA2OFr34gek+BAlXQ6
1593p/UbOm9DLSAZVuk9jQg16Cf6TAY577H81sh+lDf6G2/DyTAnulf01pwBotcU
1594eKi13sXXeQDJMgVC0I0GKfHGAaLfFNDfaMId0htEdHXFKbAxe3jdH68HiZ5T
1595ISv2vudt4SGU8GIwonBXKvieLS9Q0xki+k6FWp1h4R9nh5AA3XAqhAymWku9
1596GiJ6T4N7DvckrOqHkCkjGJg5+24Vd9Yw0X8a5Jaf+sXeMoxCqHbr0mDqgUZK
1597zflh4od04LfrCFz6ZhhxqePM0iHgN8HBzM/DxB/pcLi6VCRAjou2UfJvSocW
15985K6TZswlfsmA2rhnbYs8uciXku/xDFjUJW1dk8ol/smACxc9tSoGuKjtCrWQ
1599DFje5po2V32E+CkT7gqkXI46NoK0aYHz7r1sJ739R4i/MsHni1sBu3wEefpv
160050kmEwo3NbkYsr4Tv2XB5fdZEYvgO6peTC8Y5GtGRfa5fif+y4Lz1YZGdfHf
1601kSpF//4suCuYujyh7zvxYzb0+bef6106is5R9nDKBqkCy1F3y1Hiz2y4mqL8
16026NyzUcSmtjuSDXl78tflvx8lfs2BLauU6lxlxpA0Y0ioVvc457N3jPg3B/Q0
1603jJWl7o0henyTOYD0jSfGisaInxFE2+uv3Ck8jujy3BAsk7UaFt4+TvyNYIRb
1604/2i15zhiUhyDmqqxXRUaJ37HUK/v2dr2axxFFu7iORqD68lvZ223TBD/Y1Cu
1605M35m6z6B9vPcKOOFodvURLQzZ4LwAEOciPnJzzMTaIJKn3wMj2PlHc30Jwkf
1606MAhePCJwyGsSBc+nDMEGufFG0Y8Fk4QXbKga++nVLTqFdtILZoOBWck9z91T
1607hB9s0OOm7Hv7cAoNRVAFssGhM36eTf0U4QkbfNXkdmTOn0aBVHWlbJDsTDgQ
1608aTlN+MIGifcTH1dHTKOtPHEZzc6F97USD44PTBPe5EKhqty2Vet/oK/TVMO5
1609oCt5pjPS/QfhTy6UKsz8W1n0A1Fq4UkGWkI/nI6Q/kl4lAt2d69UrbX4ieh2
1610q3KhMcPTwC3iJ+FTLgifOXz6xshPRB8nkwc5KkP8u7f+IrzKg6mgqDmfvX8h
1611GkcH8qC1b2e03qdfhF95UJ/LWuW0cgYxrw95sHB35byrV2cIz/Jg7yG/BafK
1612ZhCNg4Y8iM865asgyYcZvuWBfLPASpeNfPg6ZWeFfJCAM6ydVnyY4V0+cBwM
1613nQP+48PLaAPlw4xpyyfrVD7M8I/3/T+D3qe08+FK+vUiH6wXDcnel+DHDA/z
1614IXS1muPgJn58ibJDcz7UOTr2fj7Djxk+5sNNO5UES39+rELJWbkA5im1KF/O
161548cMLwtASWJNmgaXHxdR8rMsgGTHBRs8VAUww88CaAjuuuNqIoAdqfW+KoAq
1616kw01828IYIanBfA2eJvz2UQBPI82fAFUK+xine8UwAxfC+H85DH7tQqCGFHl
1617LSkEkxSzspRdgpjhbSHUGer58nkI4jOnqasQtvh9clNIFsQMfwthPavlhXCf
1618IKZenniEBTXjtZaVqkKY4XEhNGp8975mLoQpOrr2FEJMeuYhBV8hzPC5CCxn
1619fA9FcoTwcfrAIjhiZvtiPUsYM7wugvDMDall+sKYRQOqCKLcPya5uAtjht9F
16208Kd8yjqdLGFMbUMupgief9J1XjotjBmeF0FHrIPhjs0sTL/dDRbBOXeH7WFu
1621LMzwvRga7+xJNEUs/Iuym3Yx6DtrJRwVFMEM74vBTmNcp3KnCA6n5OxcDG4P
1622H6/LfiCCGf4XQ/0yc//1jSJ4L9MwbL1kYL1nsShm8qAYLLb2dMo5iOIxah2j
1623xVDZPhjxKlMUM/lQAgXBOVGzxGfhIKrdDSXQYRvufspiFmbyogQ67eXsOLGz
16248B/0AEtA983RJ+bCYpjJjxI4HZhroHFMDA/Q8VAC839/OWSVKoaZPCkBQXnH
1625MBU5cfyYwvt0CVi1CK//57w4ZvKlFOoWqdxn14vjLfRCSoG76Iv41KbZmMmb
1626Upge2tR1InQ27qLw6l4KNTnaIeqSczCTP6Xwe5HC09vuczCDv1J4uTHtSfbw
1627HMzkUSn8kejzSNJWAtN4EeCAbLGaS1GHBGbyiQNuDoaKG60lMW3f7Rw4aq57
1628IbtXEjN5xYGhbqeRz5ukMG2PWxwQir3bc9BLCjP5xQHXEM0iwUopzMiPA75f
1629t9ZrKUtjJs84cP2RW6vmOWlcT61XtAxmUFD/kWJpzORbGWgqSJuqLJHB16jx
1630GZWBTln3nrGbMpjJuzI4MSK4175PBi+lBVgGC68cEV9uJouZ/CsD+9Xsql6O
1631LC4voy/o0rTfG2Aoh5k8LINg2fD7UCaHLzyigFoOWlt92zWOzsVMPpZDsF8i
1632a3h0Ll5IC7ocfO7esXYLksdMXpbD4gWmTnqH5+EC+t+rchh/LFW/R00BM/lZ
1633Dp1r+m4lsxSxPYXTmnJwSEo5XM2aj5k8LYc0Pj6tsRUL8FzaIBWgUaHl73FN
1634CTP5WgGKTf96JsxRxtkUDg5VQKB8EL/OiApm8rYCDvqx7dNXqGLxieCD5g8q
1635oKwi0mmd+WL8PzgWuNg=
1636 "]]},
1637 {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.008333333333333333],
1638 AbsoluteThickness[1.6], LineBox[CompressedData["
16391:eJxdlnlcTfkbx1tvqbTe6pa0iAwaZI/yiEyUrcwgYpqImqgkhEQyhmlCkaxJ
1640aZG079t5Wu+ti3Y1aCVU0qao0O+ec75//c7rdV+9zuvenvN9ns/n836OgZOH
1641nbOEmJhYi+hD//3/69ujgdqNTltA5ZMwZI9XKMXeO4Lf+VmSvl7R1Jjfn/ne
164211wgUS+tSlwjmXzvCcpyTRUDXhnUKW6iVftJb8godHmiU51Lfu8DWV6R9wQa
1643SJ3oMjKRTfCFE+N2OkllxeT/z0J9+sTSCu8yyqx1c1CY+zk4ntm3Q3e6gNQ7
1644DwcOfOjOqKukctcrSMz5+wKYPw/fHRbwjNS/CKHPrqt2alVTy9MFxwrv/wOO
1645QtPm2V415Hn/QtGpxmcRlbVUtu5fPbbZl0GQti/G2rCePP8qZLj0zzH2baDu
1646luone7kEg/rN10brG16Q84SA1XWtvdFzm6hXo8wDQav/j2TLi/+R812HM+3H
1647OmZ3vKSmzGuezvEPBRPL3TW7zF6T896AWIs79q9uNFM7962gK4JH8DGHJwMt
16485Pw3wYXSavvTqI26fYu5IHXL7GXG9W2kn9tgldibqHOunfrv+Zetb6LvQNDt
1649Ulg5v4P0dxd4E8pdIS0dlJbUNsWfU+/B3WPbE3SC3pB+w8HJ7o/LzSveUjtM
1650mYJwX+v3sMbut6T/CHAJlq9TuN1JbVh6ycKxMwJO2FRtObP+HZnHA9AVvDU0
1651GX1HfbSlK4ru55zeO/3RezKfSHAI7py9y/4DFXjw/fijgUjw4Dy51Tipi8wr
1652CuJnCuvu5HZRc/7WELUQBUFH+eLxbt1kfg9h6e/tW6Sm9lDCB2szh74/hGYF
165306GE5z1kntFwdPCrXszZj5SbaFo8qRiYb3JWbXBBL5lvDFhVBSld6+yl5Bqj
1654PM3lYmFG7cFdgTc/kXnHwt4VBpbNNn1UPN2uchysnwjVCZzoI/OPg5iRznCh
1655fT9lTZfTeATra85LSqT3Ez0eQfBqTp+r4gDVTY9bJx7GD90Lk3IdIPrEw+lz
1656PUvqSgYoenrV0x6DQ6+WXKPuINHrMVjMGrZVOTlIzXK4Ujz8UwJEzpXdGtAw
1657SPRLgL5/s3+bazJEVYiqac97AhMme2PUgoaInk9g07sToYu6hijX4F5fWJwI
16587ecfHA9Z+5nomwhuw9XRcyM/U6LDiVpOgkMDnqflJj4TvZPA7Jav40yHYepX
1659kXlEksLuN5EZF3KGif7JwOl1+TBLc4R6KJpeY1QyfFi40VX16AjxQzJsLel5
1660YlE3Qn3+Xu/TZZQCHQ6GJjkmX4g/UqAwesWRk1e/UJaMAVLg016FsQt9X4hf
1661UiCsfoZt26av1HUe0xAcMhqbdDHxK/FPKngayuafURyl2OOlwk11GekK91Hi
1662p1RIGVS75Fw1Si1krjSIedU6uG3+GPFXGqR9ax0KDx6jArBS5KA0MHvtZwlD
1663Y8Rvou+NNj80/W2cqhOpL5oJNEmvenkla5z4Lx0WcuvS12h/owyZgumwe3yr
16643PbT34gf02FrtUqOsO0bdcSFFiAD5pnfjo2y/E78mQHcoJHStrjvVMnwTyKF
1665M2ByQrfsX5N/EL9mwtX5S7xDvH5QauwBIfxco7J80w/i30ywWGY72G8+QTGn
1666E2TCsoKBxb88nCB+zoL8pMv+F6TFMPVeX2y5TRaEHHxWZmgqhqy/s6DOdED6
166720ExlGAazoLIvixn5QdiyPo9GwLdAxWdGsTQjjUMTBx8Mm9wkjiy/s+G4mf7
1668fhStFMdIut36bBi7YpxZe0Qc2TzkgLjb25szHonjIF1uRw6E/STZl9cijmw+
1669cmB7TaVMGFcCV9P2f5UDrZSfaba1BLJ5yYW65Dvt+v4SGELbd08u6L9Tca7N
1670kkA2P7lw9Jj//OefJLD9JC1ILsxq98lWN5JENk95cEki80T8bkk0YQwuug9w
1671HQ0KlUQ2X3kQ/Ma3rOiZJPqHrhFZJg/Kl7/ytuJIIZu3fDjxIj9WH6SwZhoj
1672MGjUDsts9pFCNn/5cKTGan19ihQa0PTvzYdLklmzUnukkM1jAfSEdhzuniGN
1673h+l4eBaAcpnjsJ+jNLL5LIBTmbrXDt+RxiJa3aECKNlYurj0hTSyeS2ElfN0
16746n1UOajCBhJqjM4eDt7EQVaOQjA3ttZVDuQgM77RQqAsrL+O8DnI5pmChEMW
1675c9ZJyyBzPF8KZqo5DUivkUG2HAVDgw3XFvjLILvFEQwNrN2qKRlk847QYOHf
16761v5DBuPKbUSJRvDZ+/Gg60pZZPOPoFtvfcfVTxa3iNKoGoDw3s5WtrNQFlke
1677ICTL2O9tmZDFr/T2KUW4kaThscNiErJ8QJA8tlNiW8AkjNCmA1EE3C9Nsi/L
1678JiHLiyKoHvke8F5WDtcxAheB5Y6KQP8NcsjyowjMBzM3P74qh/2x9AGLwL0z
1679RdOlQQ5ZnhRBiCF3bZ62PN6kT1dZBEqdqVvjHOWR5UsRKL74+nJBrDyuEplr
1680vUIxvKhTvLLnkzyyvCmGcgPu6nlLFPDDON1wMZgpHeiM81NAlj/FUMmb+KeK
1681r4C0W0SWgdao//bHqkxGlkfF4HbpZPUih8nItFtdDE25/pa+sZOR5VMxSB/Y
1682vv/c0GRkyqmWQKFev/iGVYrI8qoExsLjJ7cEKSKDo60l0NazLsH8tSKy/CqB
1683hmLOPM85Ssi+PpTA1A1VmqdOKSGLixLYtO36lH1PlZDBQWMJpOTvC+EpKSPL
1684txLQaJaY471MGc/QceaVgiIc4KxzUkaWd6UgdLfyCvtXGWcyASqFCbvW185Z
1685ysjyT/T7X8NfZHYoYxXzelEKzvr9apcVVZDlYSlELTD06FuugsfpODSXQr2H
1686R3fLARVk+VgK5930Uh1DVVCPtrNuGWjqtOqeKFFBlpdloKO4MNt4UAX5tP0c
1687yyDDY8rSswaqyPKzDBoj3l30sVVFD1reB2VQbbu0VvucKrI8LYPHEau9Dqap
1688oiYT+DKo4dlwjnSqIsvXcjgyuvvQIp4aUvTxppeDbeaOp5k2asjythzqrcxD
1689xM6q4YH99FUOK6+/9uVlqCHL33JYwmm9J92jhvTLk4iwYGi9yLHKgIssj8uh
1690yfhz0Gl7LtJ09Okqh8ScvG28EC6yfOaD40TItjghF/cwBfmwc4frvSUcdcJr
1691PsTkLc16aqGOHAZQfIj3e5nu7adO+M2HXzUyF5vmqyOtBjeRD3dfm3nNGFcn
1692POfD2yR3q7UrNJB5u+vjw2E/9zXRvhqE7wJourgxzY7SwB903EwEYOE1P3WX
1693pCbhvQDcjL+YVq3TxBjazl4C8L16Y3HBFU3CfwE0zLQPXdKkiZvYhmHVcUvn
1694jdN4ZB8IwGFVVyfXnYcjtBzDAqjq6It9kMcj+6ECyiIK4yfJa2E43e7SCnjr
1695GuO3z0GL7IsK6DzEdRMmaeEvzAArwOzRrlv20tpkf1TA/pvFlsa7tfETsx4q
1696QPvn+/1OWdpkn1SApIZHtB53Ct6g8T5eAU6t0kv+PjKF7JdKqNfXu1zUMAVX
1697MoJUwqD+G/mx5Tpk31TCeP/yd79H6eA7Gq9+lVBbaBJppDSV7J9K+JnPu33B
1698byqy+KuE+8uybxUMTCX7qBJ+SQu+puSqiwxeJISgJjD05r/VJftJCL7uVlrL
1699nPWQie8aIeyyNzta0K1H9pUQ+t97DrUs10cmHn8JQSrpUtdvAfpkfwnBJ3Iu
1700X7JKH1n7CSHkw6qG+boGZJ8J4cw137a5hw2wgZZX9ilMUOG9OwUGZL89hbk8
1701FTu96dOwvXeDzcflT+Hp8zjPxfbT8H81Ef6Q
1702 "]]}}, {}},
1703 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
1704 Axes->{True, True},
1705 AxesLabel->{
1706 FormBox["time", TraditionalForm],
1707 FormBox["\"velocity of outer radius\"", TraditionalForm]},
1708 AxesOrigin->{0, 0},
1709 DisplayFunction->Identity,
1710 Frame->{{False, False}, {False, False}},
1711 FrameLabel->{{None, None}, {None, None}},
1712 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
1713 GridLines->{None, None},
1714 GridLinesStyle->Directive[
1715 GrayLevel[0.5, 0.4]],
1716 ImageSize->Automatic,
1717 Method->{},
1718 PlotRange->{{0, 0.24}, {-9.174235840422078, 0}},
1719 PlotRangeClipping->True,
1720 PlotRangePadding->{{
1721 Scaled[0.02],
1722 Scaled[0.02]}, {
1723 Scaled[0.05],
1724 Scaled[0.02]}},
1725 Ticks->{Automatic, Automatic}]], "Output",
1726 CellChangeTimes->{
1727 3.6444865590563183`*^9, {3.644486640819995*^9, 3.644486651698617*^9},
1728 3.6444868206072783`*^9, 3.644523296337*^9, {3.644523342414*^9,
1729 3.644523401427*^9}, {3.644525551025*^9, 3.644525572803*^9},
1730 3.6447533918780003`*^9}],
1731
1732Cell[BoxData[""], "Input",
1733 CellChangeTimes->{{3.644486415769123*^9, 3.6444864242266064`*^9}, {
1734 3.6444865305686893`*^9, 3.6444865316107483`*^9}}],
1735
1736Cell[BoxData[{
1737 RowBox[{
1738 RowBox[{"a", " ", "=", " ",
1739 RowBox[{"Table", "[",
1740 RowBox[{
1741 RowBox[{
1742 RowBox[{"-", "G"}], "*",
1743 FractionBox["Minit",
1744 SuperscriptBox[
1745 RowBox[{"(",
1746 RowBox[{"r0", "*",
1747 SuperscriptBox[
1748 RowBox[{"(",
1749 RowBox[{"Cos", "[",
1750 RowBox[{"\[Xi]", "/.",
1751 RowBox[{"First", "[",
1752 RowBox[{"FindRoot", "[",
1753 RowBox[{
1754 RowBox[{"\[Xi]", "+",
1755 RowBox[{
1756 FractionBox["1", "2"],
1757 RowBox[{"Sin", "[",
1758 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
1759 RowBox[{"k", "*", "t"}]}], ",", " ",
1760 RowBox[{"{",
1761 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}], "]"}],
1762 ")"}], "2"]}], ")"}], "2"]]}], ",", " ",
1763 RowBox[{"{",
1764 RowBox[{"t", ",", " ", "t1", ",", "t2", ",", " ", "timestep"}], "}"}]}],
1765 "]"}]}], ";"}], "\[IndentingNewLine]",
1766 RowBox[{
1767 RowBox[{
1768 RowBox[{"a2", " ", "=", " ",
1769 RowBox[{"Table", "[",
1770 RowBox[{
1771 RowBox[{
1772 RowBox[{"-", "G"}], "*",
1773 FractionBox["Minit2",
1774 SuperscriptBox[
1775 RowBox[{"(",
1776 RowBox[{"r02", "*",
1777 SuperscriptBox[
1778 RowBox[{"(",
1779 RowBox[{"Cos", "[",
1780 RowBox[{"\[Xi]", "/.",
1781 RowBox[{"First", "[",
1782 RowBox[{"FindRoot", "[",
1783 RowBox[{
1784 RowBox[{"\[Xi]", "+",
1785 RowBox[{
1786 FractionBox["1", "2"],
1787 RowBox[{"Sin", "[",
1788 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
1789 RowBox[{"k", "*", "t"}]}], ",", " ",
1790 RowBox[{"{",
1791 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
1792 "]"}], ")"}], "2"]}], ")"}], "2"]]}], ",", " ",
1793 RowBox[{"{",
1794 RowBox[{"t", ",", " ", "t1", ",", "t2", ",", " ", "timestep"}],
1795 "}"}]}], "]"}]}], ";"}],
1796 "\[IndentingNewLine]"}], "\[IndentingNewLine]",
1797 RowBox[{"ListPlot", "[",
1798 RowBox[{
1799 RowBox[{"{",
1800 RowBox[{
1801 RowBox[{"Transpose", "[",
1802 RowBox[{"{",
1803 RowBox[{"t", ",", "a"}], "}"}], "]"}], ",",
1804 RowBox[{"Transpose", "[",
1805 RowBox[{"{",
1806 RowBox[{"t", ",", "a2"}], "}"}], "]"}]}], "}"}], " ", ",", " ",
1807 RowBox[{"AxesLabel", " ", "\[Rule]", " ",
1808 RowBox[{"{",
1809 RowBox[{"time", ",", " ", "acceleration"}], "}"}]}]}], "]"}]}], "Input",
1810 CellGroupingRules->{GroupTogetherGrouping, 10001.},
1811 CellChangeTimes->{{3.6443275641373568`*^9, 3.6443275649484034`*^9}, {
1812 3.6443277120438166`*^9, 3.6443277348561215`*^9}, {3.6443279861974974`*^9,
1813 3.6443280305360336`*^9}, 3.6443280862982225`*^9, {3.6443321214390197`*^9,
1814 3.644332160306243*^9}, {3.6443362044510417`*^9, 3.6443362808674126`*^9},
1815 3.644415896485181*^9}],
1816
1817Cell[BoxData[
1818 GraphicsBox[{{}, {{},
1819 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.007333333333333334],
1820 AbsoluteThickness[1.6], PointBox[CompressedData["
18211:eJw9lwlYjHsbxhOS7eOQ9CVLSsoWx9oJjy2ETiXCEZKSZmumfV+0SadCRynt
1822O2WkVaunqaZmphJJKFviROGkE0X45n37z/deV1fXe83MM//nee77d7+jbmW/
182330ZeTk6uX/pH/ZddxuPqXaevYODItf77RlYmoHhptu2a/99bAuPB4vXJ0vuv
1824PowKp6gzwOw2+2CmK3udC97b1sUYr2SgpxJ/10sPJ1hw5NqWqFWy97tBfZzo
1825+7zVDHR/q7VKMdcLVuoPvf60RvZ5PwgMeqY0bT0DNz43Do/hnIVzd3nXHfVk
18269QLBZPKQeMFGBpYZTpFfGhIMR4emJCmDrP45eD6YZXZwGwN/K2xwqUo6D0td
1827F6o+NZB935/AUwNtviEDb88L6jW9HQFRvFW3G4xk338BHh3IVFy+n4HxtQvy
1828HM5cBA3FJosOc9l5LkHZB8uR1qMM7BimvxAcvxasnn1Sdr6/4Ke41CzjNAPn
18296D7VVPC/DDpnZ+b7sGTnjYYiE7VraQ4M/MNan6oITlWfY5TcZee/Aor5cV33
1830fBkYF0tfkKLf3d8RLOsnDu5rpa1eHcHAx81fzF5lXIWRQzmqjy7L+ouH6OHX
18318yQJDPzvOPP/LM9PgJ0+pyqnZMr6TYQiL45bAp+Bh/XoguDJSGr3LpH1nwxX
18329ftt+cjAfetDt1q+TgbfvoflumLZPFIgc8SUKf+AgX2mVMUUWPxiotLiZ7L5
1833pIKhvfWRxB4GhrH+/natPxXq/0jqPjMgm1caZOe+sw75wcClIcrSFtJg2CIw
18348utEJplfOiiMbZtfM4uJkhSD4oHv6bA1J7z9pTqTzDMD5nYIfQ6tYCJTOi2V
1835cZnwUrKgW1OfSeabCUFvujv37GbipPY07qZJWfDqvLaB+CCTzDsLeMv6f6ad
1836YuJ1qt3p2dDUcuTLIx6TzD8bYr+WqjH8mLiHKqd8DX5ObT5zOJJJ9nENPv32
1837siM9kYnvqHGrXYcd34a8TfhMsp/rsPRX+RMWVUykpteyMAc2j/yMFjUzyb5y
1838YDxs3Bn7nIk6FpGCQe1c4Ct6XG78h0n2lwsrWnSKreVZKJJWU9W9AUuzk7qs
1839lFhknzeA67L3eIMWC+0uvveCtXzo3D7gHK3HIvvlA//2R9/mfSyUHk7a8k1I
1840ecLo5FmyyL5vQufClEF/JxYekIpHulLolV+0RS6URfafB8n9mvofEliYLp1e
1841e1oeRKsUco0KWEQPeSConOUyX8TCf78/cHurdQuaAif32TxnEX3cgvgMLd+F
1842n1m4gxbALXi3Tq3HfCqb6OUW7L6h1jduERv/UqEbgvV5K46t2MQm+smHw3bh
1843qm0H2Th6vHxgOkz65RuHTfSUD69DHfVTz7FxNX0VwMN1I6mNqWyirwKwD8k5
18444VXJxgAUSxVUACmzm68UPGITvRUAK5IV5PQvG1ul25fOBHrEQlb1dA7RXyE8
1845e9GaGb+cgxp0wULQg/p4xb0cosdC4M++Kppgx0HHM9QCiiD3SHJZfAiH6LMI
18464j2UposzOVgzqC3dcBHcNK70viTkEL0Ww+mtYZKhNxycOXpAeKax7eHPCfZE
1847v8WwZ6zOhes69kifrqEYQjZUjxnZa0/0XALVc4P2fOHYY37Cxyzh3hJIQn5K
18480iV7ou8SeDOgcGio2B7l6YZLwFe7snVcpz3R+22I3JRu1C3Hxf2jgoFta3Uy
1849NZS4RP+3Yf6jNhPBYi6mUu0+uA1xzzL0BPpc4odS2HrrxtFFJlz8RJU7XArR
1850VzOq31tziT9KoULHM3iuBxe3UfLvKIV7Y962FUdyiV/KQBgx6315BhcvUfI9
1851XgY72jfM0a3gEv+UwYKXhoIZrVx86UEtpAwGFAoP2b3jEj+Vg2euks1aeR6u
1852ogVeDvNqx4S6q/KIv8qhLemx64bVPPS/vF0qmXLIjYgfcdrHI36rAOeWluFV
1853p3l4byG9YGjl8RgOfjzivwpYmdtjpXeVh+oU/d9XwDBHecb5Yh7xYyWoCE4J
1854bO/zkEfZg1sJ1pWvnrR94BF/VgK/8+yL9skOWE1td6ASfIMMXHk6DsSvVRCW
1855En0qc5cD/jJqSLDakhXmcdqB+LcKlLa/GOoPckB6fMNVsFbL9vH0TAfi5zuQ
1856+kuJf4fQAenjed2ByQxjjnmPA/H3HZi5zt0geJIjjqY5Qj9qPrZf7kj8jqD2
185744W2iqkjZgv3Sh2NoGH04VSgsyPxP4LLUU5vaZwjmkjdOCMAwW5MwYEqdCQ8
1858QNBU4zNj/nbEISp9ahGWhAWu3TvNifBB+vnUnQPP1zthsipliGrQD2/RtDjp
1859RHhRDWP3t4UJw5xwN73garh4aLauVokT4Uc1HA+9d+zsKyf8J4s6YDVcdj5Q
18600DXdmfCkGnzHdqgagzNeoU4nroaenLjWuxxnwpdqmMee6cxOcsYtUnEZThHA
18614anpAyvvORPeCGBaom2GxjgX7PlGNSwAlYSTu4w3uBD+CEA+4Id8FdsFKbVI
1862JQPKUz86eqS7EB4JYKeaDT+y0wXpdlsEcDy21GCisivhkwBMXQPMBkxckS43
1863owYqUrV9/wh3JbyqgU63T+P3SVyRxpFZDRzdnFfTNsmN8KsGAsYO6Cvsc8PR
1864x4caMHD8mNYX4UZ4VgOSNTPfX2l1QxoH7TVwqNWiZY6qO+FbDdhHBD8JtnJH
1865X8rOKrUwYbKye1+uO+FdLXxNsVa0HHbHxbSBakHre1HX4C4Pwr9auNvlxK25
18664oF36ceLWvDzytN73utBeFgL8mpfhiy3eqIrZYentXAkhH/zZKwn4WMt9Kyb
1867WvFtwBPnU3KeVwdnyjr+2WPqRXhZBx9KdW6ybnlhPSU/yzp436gl76fkTfhZ
1868B753DlRmeHijPbXelDowefd7gly3N+FpHWybaccsMvHB2bTh6yB2DFezF30I
1869X4WQd/3ZQskaX7xDHU9TCJPvdO/zz/UlvBVCopGZxjwlP7Q9TV1CKCi4/ED5
1870gB/hrxA2W26ebxDth9TDk5Sw0DBQp173xI/wWAi8yq2PCtX9kaKj21sh9Bqo
187171jD9Cd8roexHr0xNiX+eJwuWA+n7jnZshXOEl7Xgw9P5anD4bOoQANKeh96
18728d+kG2cJv+thO0e7Ql0hAKltKPHr4UC3XIK2VQDheT28Xeac01MdgPTT3cd6
1873EKb8KRe3KJDwvQG6X9bNdQ8PxB+U3VY1wLpP8Rb1w4GE9w2wOZPDlDCCMJOS
1874s0MDNDxNeHzvRRDhfwO0Va4oWm4RjL+PNgwO0YyNek+DSR40wOLWyExz6xD8
1875TK1jsAFMpqhM6O8PIfkggodDd4y9g89hItXuehF45oGL58JQkhcieDIlvMZV
1876GIo76QGKICw9yWyK43mSHyLYNG5Sc5d2GH6g40EE8M3mZHFPGMkTEawUJUw1
1877L/gToym8fxOB3tG0vVmh4SRfxMC236N5jRWBm+mFiKHk9GuJ67FIkjdiGHaP
18784WSvuIBvKLz6iGEsc/6SxuILJH/EUNQxU+/jros4ij9pvaeDxwa6LpI8EoNS
1879wa9LHp27hDRe5CVQskwgh79FkXySgKphuPrn4Sik7btdAhEL1H4O1v9F8koC
1880geZzVjtlXkbaHkESaIpr9LWLiSb5JYFijT7OgoQYHJWfBDbYXTXaWXaF5JkE
1881hr5UBcl9isU2ar2KjTB4QnBzwu6rJN8a4c3uxPVijEdvanyGjWBtqLs49mQi
1882ybtGyLFROsJTScZFtAAbwcAq4AHMSSH51wjts+zTpm5OxaZG+oLQmHdLXgSn
1883kTxshDm2x2b9/j0dnaMooDZBeU+UjWJOJsnHJsiuPDo+KT4b59KCbgK7vIl9
1884yV3XSV42waYRHhhF3cA6+udVE4TtkCRdOZ1H8rMJCn+YRuUcy0c2hdP7TdC5
1885LS9QrbmQ5GkTKKZVxb17U4KzaIM0g8i06fX7/nKSr83wo/egpfTtWEnhwLwZ
1886HhvtyhJG1ZK8bQZ5La3yHDsx2tA/v5rh403FZbzx90n+NsPJAMnDE7od+D+D
1887eLq2
1888 "]]},
1889 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.007333333333333334],
1890 AbsoluteThickness[1.6], PointBox[CompressedData["
18911:eJw9lwk4lHsbxqWStu90SvJJi0i0qdPqqJ42lcpBSjULM2Ps61gSKsqW4+CU
1892EyWyU9GkbFlGj8FYBilJRZvUUVRHjqJU37yv/3zvdblc78U87/95nvv+3e9o
18938tz32SoqKCj0y36o3/LLdFyt77TlDBy50n/PhGcGymdn2a/+/z0HnO4vWpci
1894u/9ywqncO9YBnLst3lvoy//uAce3ro03XcHAABXhzhf+3jD/8JXNsSvl/38U
1895ahPqv81dxUC/NzorlXOPwQrDoVcfV8s/HwQhoU9VflrHwA3PTKPi3U7B6TuC
1896q14G8nohYDZ5qGH+BgaWGk9RXBIeBsyhKcmqIK9/Gp4NZlsc2MrAXwvqjlQk
1897/w5LfBeoPzGSP+8PEGiArtCYgbfmhvaa34qGWMHKW3Um8uf/CQ/3Zykv28fA
1898xOr5eZ4OZ0BLuYnVYSk/z1kofc8ZaWUysGOYfiB4fclfNYsrP99f8KOhxCLT
1899joGz9Z9oK508B3qnZtw84SI/bxwUmmlcSfdkIINvSFUE74pP8Sp+8vOfB+Wb
1900CV13AxmYcIG+INWwu78jTN5PAtzTSV+1KpqBj5o/W7zMvAgjB3PUH56T95cI
1901ccOv5kqTGPjfcZb/WXYzCXacsBFNyZL3ewkKj7kdTRIy8JABXRACnJLbjxfL
1902+0+Bi4b99kJk4N51EVs4r1IgsO9BmX6DfB6pkDVi7qx4n4F95lTFVFj0fKLK
1903oqfy+aSBsTv/8KUeBka6/P31Sn8a1DKSux0G5PNKh8u5b/nh3xm4JFxV1kI6
1904DLNCYr5MZJL5ZYDS2LZ5VTOZKE01Khr4lgFbcqLaX2gyyTwzYU6H5MTB5Ux0
1905lk1LbVwWvJDO79Y2ZJL5ZkHo6+7O3buYOKk93WPjpGx4+buuUcMBJpl3NgiW
19069v9It2HiVardaZehqeXw54cCJpn/ZbjwpUTDKYiJu6lyqlfgx9Rmh0MxTLKP
1907K/Dx1xcdGZeY+JYat8ZV2P516LiZkEn2cxWW/KJozapgIjW9lgU5sGnkR1x9
1908M5PsKwfGw4YdF54xUY8VIx7UzQWhsv+5xn+YZH+5sLxFr4ivyMJ6WTV1/Wuw
19095HJyF0+FRfZ5DTyO7LGq02Gh45l3x2CNEDq3DfjEGbDIfoUgvPUhsHkvC2WH
1910k7V8HVIfO3UKOCyy7+vQuSB18KQ3C/fLxCNbKfQqLtysEMEi+8+DlH5tw/dJ
1911LMyQTa89PQ/i1Ao8TPJZRA95IBbNPDKvnoX/frt/9I3ODWgKmdxn+4xF9HED
1912EjN1Ahd8YuF2WgA34O1ajR7LqWyilxuw65pG37iFbPxLjW4I1uUtZy/fyCb6
1913uQmHHKPU2w6wcfR4N8HZc9LPX93YRE834VWEl2HaaTauoq98eLB2JK0xjU30
1914lQ/u4TnWx0RsDMYGmYLyIXVW8/n8h2yit3xwiXEJ9f6Xja2y7ctmAj0NEpfK
1915aVZEfwXw9HlrVuIyK9SiCxaAAdQmKu+xInosAOGsi/UTHK3Qy4FaQCHkHk4p
1916TQy3IvoshER/lWkNWVZYNagr23AhXDcVHT8rsSJ6LQK7LZHSoddWOGP0gPBU
1917a+uDHxOsiX6LYPdYvT+v6lkjfbq6IghfXzlmZI810XMxVM4J3f3ZzRpvJn3I
1918luwphmQUpiaftSb6LobXA0oHh4qsUZFuuBgCdUWt4zqtid5vQczGDJNuBQ7u
1919GxUMbF2jl6WlwiH6vwXzHraZiRdxMI1q9/4tSHiaaSA25BA/lMCWG9eYC804
1920+JEqd6gE4i5mVr7jc4g/SqBcLyBsjj8Ht1Ly7yiBu2PetBXFcIhfSkESPfNd
1921WSYHz1LytSqF7e3rZ+uXc4h/SmH+C2Px9FYOvvCnFlIKA0oFBx3fcoifyiAg
1922V8V2jSIXV9ICL4O51WMi/NS5xF9l0Jb8yHf9Ki6ePLdNJpkyyI1OHPHeyyV+
1923KweflpbhlXZcvLuAXjC0CgROnkFc4r9yWJHbwzO4yEVNiv7vymHYTXX670Vc
19244kcRqIltxPb3uCig7OEhAr7o5eO291ziTxEIO089b5/Mw0pquwMiCAw18hXo
19258YhfKyAyNc4maycPfx41JPA2Z0f62/GIfytAZdvzof5QHtLjG66ANTr2j6Zl
19268Yifb0Paz8UnOyQ8pI937DZMdjJ1s+zhEX/fhhlr/YzCJtngaJoj9KP2I/dl
1927NsTvCBrfn+uqmdvgZckemaMRtEze24T42BD/IxxhuvWWJNigmcyN04MRHMfk
1928769AG8IDBG0NoXP83zY4RKVPNcLiyJA1e37iEz7IPp+2Y+DZOj6mqFOGqATD
1929qBZtFpdPeFEJY/e1RUoi+biLXnAlnDk4S1+nmE/4UQlWEXfZp17y8Z9s6oCV
1930cM5nf37XNFvCk0oIHNuhbgq2eJ46XUMl9OQktN5xsyV8qYS5rjN8XJNtcbNM
1931XMZTxHBoasbAiru2hDdi+OmSfabWODvs+Uo1LAa1JO5O0/V2hD9iUAz+rljh
1932aoeUWmSSAdWpH7z8M+wIj8SwQ8NWGNNph3S7LWKwulBiNFHVnvBJDOa+wRYD
1933ZvZIl5teBeVpuoGMKHvCqyroPPpx/F6pPdI4sqgC5qa8qrZJDoRfVRA8dsBQ
1934aa8Djr4+VIGR14f0vmgHwrMqkK6e8e58qwPSOGivgoOtrJbZ6o6Eb1XgHh32
1935OIzniIGUndWqYcJkVb++XEfCu2r4kspX5gw74iLaQNWg862wa3CnE+FfNdzp
19368vaoOu+Ed+jXi2oIOpZn8KzXifCwGhQ1Pg9xtjijL2WHJ9VwOFx4nXvBmfCx
1937GnrWTi3/OuCM8yg5z60Bh9KOf3abuxBe1sD7Er3rLjdcsJaSH6cG3jXqKAap
1938uBJ+1kDg7f2iTH9XdKfWm1oDZm9/S1LodiU8rYGtMxydC83ccBZt+Bq4MMZD
1939uxfdCF8lkHf16QLpane8TR1PWwKTb3fvPZnrTngrgUsmFlpzVTzQ3o66JJCf
1940f+6+6n4Pwl8JbOJsmmcU54HUy5OMsFA3UKNZ89iD8FgCAtGWhwWaAqToePSN
1941BHqNNLevdhYQPtfCWP/eeNtiAVrRBWvB5q63vauSJ+F1LZwQqD3xPOSJSjSg
1942ZPcRZ/5NvuZJ+F0L29x0yzWVvJDahoqwFvZ3KyTp8rwIz2vhzVKfnJ5KL6Tf
19437j7UgiT1D4WEhd6E73XQ/aJmjl+UN36n7LayDtZ+TGTVDnsT3tfBpiw3Z6mT
1944D2ZRcvasg7onSY/uPvch/K+DNtHywmWsI/jbaMPgGee0weDJEZIHdbCoNSbL
1945ku+Ln6h1DNaB2RS1Cf39viQf6uHB0G3T42FH8RLV7rp6CMiDIwEL/Ehe1MPj
1946KVFVvhI/3EEPsB4iM5Itpnj5k/yoh43jJjV36Qbgezoe6gG+2nKLegJIntTD
1947ivqkqZb5xzCOwvvXejBgpu/JjjhO8qUBXN13a19xOYGb6IU0QLHdK6kvO5Dk
1948TQMM+8W7XV4ehK8pvJ5ogLHO8xY3FgWR/GmAwo4ZBh92nsRR/MnqPRlkD3Sd
1949JHnUACr5vyx+ePoU0nhRlELxUrEC/hpM8kkK6sZRmp+Gg5G27zYpRM/X+DFY
1950G0LySgohlrNXeWeFIm2PUCk0JTQGOsaHkfySQpFWn9v8pHAclZ8U1jteNNlR
1951eprkmRSGPleEKnyMwDZqvcqNMGgtvj5hVyTJt0Z4vevSugb8A49T4zNuBL6x
1952/qIL3GiSd42QY6tyWKD2Jy6kBdgIRrzg+zD7DMm/Rmif6Z4+ddNZbGqkL4iI
1953f7v4eVgsycNGmG3Pnvnbt7/QJ5YCahOU9cTaKufEkXxsgssi5vjkxPM4hxZ0
1954EzjmTexL6UogedkEG0cEYBKbhDX016smiNwuTT5vl0LyswkKvpvH5rDT0JXC
19556b0m6NyaF6LRnEHytAmU0ysS3r7Oxpm0QZqh3rzp1bv+HJKvzfC99wCnuSAP
1956RRQOLJvhkcnObElsAcnbZlDU0SnLcSxFW/rrVzN8uK68VDBeTPK3GbjB0gfW
1957+lL8H2a5q6Y=
1958 "]]}, {}}, {}},
1959 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
1960 Axes->{True, True},
1961 AxesLabel->{
1962 FormBox["time", TraditionalForm],
1963 FormBox["acceleration", TraditionalForm]},
1964 AxesOrigin->{0, 0},
1965 DisplayFunction->Identity,
1966 Frame->{{False, False}, {False, False}},
1967 FrameLabel->{{None, None}, {None, None}},
1968 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
1969 GridLines->{None, None},
1970 GridLinesStyle->Directive[
1971 GrayLevel[0.5, 0.4]],
1972 ImageSize->{523., Automatic},
1973 Method->{},
1974 PlotRange->{{0, 0.24}, {-1366.765452372953, 0}},
1975 PlotRangeClipping->True,
1976 PlotRangePadding->{{
1977 Scaled[0.02],
1978 Scaled[0.02]}, {
1979 Scaled[0.05],
1980 Scaled[0.02]}},
1981 Ticks->{Automatic, Automatic}]], "Output",
1982 CellChangeTimes->{3.644336281450446*^9, 3.6444158985923014`*^9,
1983 3.6444863447270594`*^9, 3.644486820878294*^9, 3.644523296699*^9,
1984 3.644753392185*^9}],
1985
1986Cell["\<\
1987Here is the position, density, velocity, and acceleration over time of the \
1988outer sphere:;\
1989\>", "Text",
1990 CellGroupingRules->{GroupTogetherGrouping, 10000.},
1991 CellChangeTimes->{{3.6433973095360546`*^9, 3.643397345438321*^9}, {
1992 3.644326596899034*^9, 3.6443266064845824`*^9}, {3.6443275259191713`*^9,
1993 3.644327537591839*^9}, {3.644336301118571*^9, 3.6443363048167825`*^9}}],
1994
1995Cell[BoxData[
1996 RowBox[{"ListLinePlot", "[",
1997 RowBox[{
1998 RowBox[{"{",
1999 RowBox[{
2000 RowBox[{"Transpose", "[",
2001 RowBox[{"{",
2002 RowBox[{"t", ",", "a"}], "}"}], "]"}], ",",
2003 RowBox[{"Transpose", "[",
2004 RowBox[{"{",
2005 RowBox[{"t", ",", "v"}], "}"}], "]"}], ",",
2006 RowBox[{"Transpose", "[",
2007 RowBox[{"{",
2008 RowBox[{"t", ",", "r"}], "}"}], "]"}], ",",
2009 RowBox[{"Transpose", "[",
2010 RowBox[{"{",
2011 RowBox[{"t", ",", "\[Rho]"}], "}"}], "]"}]}], "}"}], ",",
2012 RowBox[{"AxesLabel", " ", "\[Rule]", " ",
2013 RowBox[{"{", "time", "}"}]}], ",", " ",
2014 RowBox[{"PlotStyle", " ", "\[Rule]", " ", "Thick"}]}], "]"}]], "Input",
2015 CellGroupingRules->{GroupTogetherGrouping, 10001.},
2016 CellChangeTimes->{{3.644328037958458*^9, 3.6443280416966715`*^9},
2017 3.6443280862982225`*^9, {3.644328319325551*^9, 3.644328412533882*^9}, {
2018 3.6443284980627747`*^9, 3.644328555143039*^9}, {3.644328613152357*^9,
2019 3.6443286450431814`*^9}, {3.644328746491984*^9, 3.6443287469580107`*^9}, {
2020 3.6443287959868145`*^9, 3.6443288057933755`*^9}, {3.6443289696007447`*^9,
2021 3.6443290596208935`*^9}, {3.644329183200962*^9, 3.6443291893303127`*^9}, {
2022 3.6443321812864428`*^9, 3.6443322694204836`*^9}, {3.644428424177724*^9,
2023 3.6444284718634515`*^9}, {3.6444285065504355`*^9, 3.6444285070764656`*^9}}],
2024
2025Cell[BoxData[
2026 GraphicsBox[{{}, {{}, {},
2027 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.008333333333333333],
2028 Thickness[Large], LineBox[CompressedData["
20291:eJw9lglcTfsWx1PdZHpCqpdkKKnnES9TwiIyVa8Iha6bRNlnHppOcxrQo4tb
2030lJJGU47m+dQ6pzqlDCUJZY4bmRJXEe7Zp/95+/M5n/PZn3P22mut3+/33XuG
2031J2fLPnU1NbVyxYf+Vh1Omg3+OvMoHLrYd9vR0xm0T+h7L/z/uQdQd2YvOac4
2032/xpKVQlP+gCj2+Wdi6Xqdy6E2C4+5TSfwiBd8fqnIiFM33Fx1ckFqv8HQEPy
2033te/GVhQGvjJboJ0bDPNtBl58XKi6Phyioh/pjl9C4fLHTkdPsSPh0C3eJYG1
2034ql4UOI8ZaJq+nMKKjWPV58TGwK6BsWl6oKp/CB5/Pu+yzZbCZUWNftVpR2CO
2035/0zDh3aq+/0PeEZgLt5IYZlxdO/msmNwkregrNFRdf/f4d7WHO25WyhMqZue
2036x/c5DibaN9w7t6v6OQEV7zyG2nZR2DmovCEIvhZa6e9R9fcH/Gwqd8neT+EU
2037y4emWhEJYBE5qSCUqeo3EYqdjS5m8inc6WVDVwRh9V+ndANV/Z8G7YLkZ61h
2038FCYnKQ9It+nu64xRzZMMt80yrayOUXj/5heX59lnYMj1suG9BNV8KZA4+MK4
2039OZXCf2pu/8fcglRYF7pXMjZHNe9ZKA5mB6SKKXSzVhaEICqtI6RUNf85OGPT
20405y1GCh2WHF7t8eIchL25W2nZpNpHOuQMbWao36HwzWa6YjrMfjJKd/Yj1X4y
2041YCPHa8fZHgrjmH9+u9iXAQ0707p9+lX7yoQLua+9Yn9QOCdWTzFCJgy6R8V/
2042HcUg+8sCLY32abWTGdicblfS/z0LVl8+2vF0BoPsMxumdspDXecxkKHYloFm
2043Djxtnt5tasMg+82B6JfdXZs2MHB0RyZ3xejz8PyIuV3TNgbZ93ng/bvvZ+Ze
2044Bl6ix9W5ADdadny5x2OQ/V+ApK/lRlQ4AzfR5fQuws9xN33c4hlEj4vwcdnT
2045zqyzDHxNr9voEqz9NhDiLGYQfS7BnP+o/+ZezUB6ey0zL8PKoZ+J124yiF6X
20464RdYvi7pMQMt3ONln81zQawtSrj+gUH0y4V5LRYlXupMvKaoZmh5BeZcSHvm
2047qcskel4Brp/97kYzJh44/jYYFomha02/b6I1k+grBnHZ+7CbDkxUNKcY+Sqk
2048P6C6eB5MovdV6JqZ/jlCyMStCvMoJIVe9Vmr1A4zif55cK7P1OZdKhOzFNvr
2049yMyDRIMirmMhk/ghD2SSyX7TrjHx0/c7Aa/M8uFG1Jg3+x4ziT/yISXbLGzm
2050X0xcqzRAPrxebNSzfRyL+CUfNlwxeqM5i4V/GCgHgiV5836dt4JF/FMAbgeO
2051GrZvY+FwewXA4I+e8I3NIn4qgBeHBTYZh1hopTwK4e7ioYzrGSzir0LgxF7+
2052LVjCwoPYpHBQIaTr3zxdeI9F/FYIzHhmtPATC9sU6it2Aj1NcqZUh038VwSP
2053nrTlpMxlo4myYBFYQ0OKtj2b+LEIxPpnro08wEaBDy1AMeTuOFeREssm/iyG
2054FJGuTlMOG2s/mysULoarTpKQE3I28WsJ7F8d1zzwko2ThhuERya2d3+O5BD/
2055lsAmDYvfL1lwUNldYwnELpWOGLLnED+XgnRq9KYvbA4WpL4/L7cvhTQUp6ed
20564BB/l8LLfi3XgRIOqisHLoUwc0mbZheH+L0M4ldkOXarcXHLsGHAdpFFjoku
2057l/i/DKbda3eWzeZiBj3unTJIfpRtLbPhkjyUw+r8K7tmOXPxI13OrRwSz2RL
205833pxST7KocoiKGaqiIu2tP07y6F1xKv2knguyUsFyI9NfluZzcUTtH13V8Da
2059jqVTLKu4JD8VMP3pRtnENi4+FdGCVEC/VpHrgddckqdKCMrV3bdInYcLlAav
2060BOO6EYcDDXkkX5XQnnbff6kVDyMS1igsUwm5x1KGhA48krcq8G1pGVywn4et
2061M5UCQxuPR/HDeSR/VTA/t8fT+gwPZ9D0f1sFg2y9iUdKeCSPEjCQ7ZV53+Yh
2062j44HVwJekucP2t/xSD4lIO6KfNIxho9SWt1+CYRF2/nzLPgkr9UQl564N2c9
2063HycMBxI8V52PE+3nk/xWg+6aJwN90XxUrm+wGhaZed/XyeGTPNdAxoTSiE45
2064H5XtBdfAGMqJvb2HT/JdA5MWB9rFjBbg8NMcoQ9N73PmCkjeEYx+PDE32CzA
2065C3J7RaIRTBzf7Y3yFZD8I/jtYveWJwvQWZHGiQcRDowo3FqNAsIDBFMjMePU
2066nwIcoJ8+dQj/iotaZD9eSPiguD5jXf/jJUI8Z0gHQgo2R1tM3fcICS+koLGl
2067PU4eJ8QNSoGlcNxV39KsVEj4IYXdh1t/jXwuxA/n6QalkOC7tfCZji/hiRTC
2068NDoNncAXT9PdNUmh53Jy2y22L+GLFIxZk3xZab64SmGujWNl4DYuq39+qy/h
2069jQzGn/XONtH0w55v9MAyMEjds95pqR/hjwzUD/5Qr2b5Ie0WhWVAb9x7gSjL
2070j/BIBuuM9onju/xQOW6LDHYnlduN0vMnfJLBZv+DLv3O/qgsN7EWqjLMw3Ye
20719Se8qoWugI+/ODT7oxJHLrWwa2VebfvoAMKvWjio0W+j5RCAw68PtWAneJ/5
20725lgA4VktNC+c9PZ0WwAqcdBRC65t7i1TDAMJ32qBcyzmQYxnIIbRcTaog5Fj
20739ALf5AYS3tXB13QvbY/BQJytDFAdmH0vfvZ5vYjwrw5uPRNya0+L8Jby9aIO
2074woPzrB/3iggP60Dd6MuAx+og9Kfj8LAOdsSKr+5JCiJ8rIOexeOqvvUH4TTa
2075zsb14FPR+WHT5mDCy3p4V25xlZkfjA20/Tzq4e11M/Vw3RDCz3oIq9kqyRaF
2076IIeWN70enF//N1WtO4TwtB5sJx1gFDuHor4y8PWQNIJr2ouhhK9yyLv0aGbz
2077wjCsodszlcOYmm6HiNwwwls5nHV0MTHWDUfv/fQhh8LChDt6W8MJf+Ww0mPl
2078NLvEcKRfnhSEhcb++hn1D8IJj+XAk6y+VzQjAmk6BrySQ6/djLULGRGEzw2g
2079Ieo9ta80AncrCzbA3lahN0srkvC6AUJ5Bg/5bpGopQSU4vzw8U9pVyKx8Xpb
2080a6FfA1ivWWaocy0S/wYflOHw
2081 "]]},
2082 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.008333333333333333],
2083 Thickness[Large], LineBox[CompressedData["
20841:eJxdl3k0lesXx4USuW6mMmXMUCjKkCHbzDlmCU0ylyKSbiVSiYvbTSkSJRoU
2085ylSGZNg4nHPMDTdXpDS4hVvpNit+5309f/2etSzLwn6fvff3+/m+RyUw0jOE
2086n4+Pb5L3RX3///OjaPK+S6A7LK6IN/7c09E0+7M/HDr7n4B87+Om74d21Mec
20873g7n/rloc1T+Jfl9FJwRdTUv7R1rOihV6jASGwMBkQET4i3vyd/vh5BfF7TF
2088KnxsOvBGQ3/+jTgYb9r2Qm7fF/L/h0H40kzS1L3vTeZP3f48u+soSF3Rfqeu
2089O03qHYMCy3uVHiw+rGOI8mv/ngyjlok5FtH8OFs/BTbMmPj4KQui6W3Ob40X
209008DEIuVMVc9cnH3ecSjf6DKHES+EtYpJ4x61J6Du2U+3JTrCOPv8k/D86ISR
20918aAInmcpl0dvPwVyjaejctNEcfY+GbDh29O7rqZiOPiNfiAohccOrR/7FWfv
2092dwbCXdK6N3YvRPmVT5bOO5IJeczHgXeuipP7ZoGw8BwZxiEJ3BhsRlWEUbmO
2093DaI+kuT+2TC4Qjl7rp4U5pyjD8S9NLA3FpYm/eTAgGzR48vPpXGg58u6F1dz
2094Qb+5qtelfhHp7zwMW6y/bJy1GGUFvcV0Ky9AtldEf1CUDOk3D6YKv00+ZMqi
2095rwldEISeGcX/qS5H+s+Hlr09Qif55NHZONXK/1U++CgKqD8dlCfzKAD170/C
209642sUcMKDqlgAr/Zujos4vYTM5xLc/pT3qSJSEf8I/2eqaPISiDjKHHZxViLz
2097ugzjX/2CC6SUUfv3RbwWLsP+IgUrZqIymd8VODp4vFL1gzJ2FthV//fzCiy4
2098LiCjE6BC5nkVUs9OPdjWp4I7edOSESyERkU9535QJfMthOMFtW8OlqmiSP/l
2099qLUi18BXYKmsj5Iamfc1UGo7w9yRrobFVLsLr8OJpieT1TNqZP7XwT3mYrJF
21001FJkUuUWFcHRuaHH+EeWkn0UgcED9g5BT3Uco8atUAwZ3GMNdq3qZD/FIBhU
2101KMgx0EBqen2qJdC5Pb/reKEG2VcJHNwTXZgpo4nLNqe3fNK6AU6mHZov0zTJ
2102/m6AdLnG+IGfmsjlVZNbeRPCpqfSfaO0yD5vwsjWv+uOvNDCsFP/xoFhKciN
2103pkp/8V5G9lsK7avs3Oo6liHvcryWy4Cr263QbbGc7LsMLjblrtG/tRy9eOLh
2104rRQMzi8Ieq2pTfZfDo5aiYEfz2vjFd70+i+Xw/PD+QI+EjpED+WgeTtUViJF
2105Bz/+fLj/jUYFyBmEx2tO6xB9VIBuusjCczG6aEsLoAIG4tJrt4/rEr1UQC8j
2106MiQ7cAWekaEbAqHy/aLLH68g+qkEcx2REiXPlTh7vUr497Gj/cGOlURPlVC2
210778beiyp6uJo+t8DqTaePkZ8e0dctePdzp69Arh4mYgdPQbfgKqM3TehvPaK3
2108W6C1v2KerbQ+PuBtnzcTKBPY/vqOpz7R323InhDw2HFSH9XogrdBLj4m1LtH
2109n+jxNhiolqxLEF2Fe7ZTC6iCtaHoOMpcRfRZBboycgePp67C1k9avA1XwYmS
2110DPU9nFVEr9XgNVyQkiu0GiVnLwiXKpLH5jmsJvqtBtXW6LPVyauRvh2nGmwW
21111YyUtK8meq6Bkk0fVF7PM8DKC++utTvVQDXbsibcwYDouwasUyKEzFIMkJ9u
2112uAb+GFdP8OIaEL3XggFzRUadiCF6zgoGgJN9d5ezIdF/LZjMmY6PPmGIl6h2
2113H9bC11s1Qew+Q+KHO8BOWjKzS9IIP1DlfO9A/YfWsR3eRsQfd+BGUgO3/pwR
2114WlPyH7wD/ZHDDqFPjIhf6mD+BX65MBVjzKDk61cHRVu9p9tDjIl/6kDmYUH9
2115kWJjHImlFlIHe2TPauS+MyZ+ugs6iWoy0oZrUJ8W+F3Y/bJ132TsGuKvu/Cb
2116wpDRquY1eCTThieZu7BPWMJzQMiE+K0eFERv3HvtaoL3VOkFw3n7/7iBWSbE
2117f/XQ23ZuE2PYBFUo+v9bD6GspbfzNEyJHxsg1GyTWEikKe6m7BHVAOs/11bm
21181ZoSfzaAfPDoFxd+M2ymtvtfAxgGGNrsdTYjfm2EX8zUhBefNUPxWUNCkt6z
2119bsPnZsS/jWBfM6T+UNcc6fF9awS9+5urPx4wJ35ugsVccaOcdnOkrxfXBJNn
21206yLYkmuJv5ugPLJzTULAWpxNcYSIIoVkVtla4ncEZkaBb870Wrze7sRzNIJP
2121nCZHwNWC+B9hWeoSfsE8C3TnuVEiESH/Wggz760F4QHCBcbKH38B4FcqfVgI
2122cZuG0kpPAeEDwjHJyaPaLwHz5ShDNMPOnN/trstbEl40g23docqTdpboSC+4
2123GbT6t3zpi7Qk/GiGUJ/74jtzLPH9NeqCzRCyslcsoM2S8KQZTLJ0FlS9t8Rs
21246nYdzbCs180gTMGK8KUZuEmDnARHK7TkiYsh2gKhtmGyUzFWhDctIJ/pnPqk
2125wApfT1ENt0BymH/6sl4rwp8WOBz5tHrkhxVSauFJBnbOc8yfr21NeNQCI5nO
2126/AUbrJFut68F2qTuFd9MsSZ8aoHg/M8J+rXWSJeTaIV+SaMjK19bE161wubL
2127aZxiGRukcbSuFSJO3/yjkGFD+NUKLJPgJRoHbXD29aEVTqWPvNW5aUN41gqT
2128VeanGp/aII2D/lYYHv9ZPSxhS/jGq3+m1fCUvS0mUHaWYcFDsTnzH8faEt6x
2129II454NpQZouatIFY0KS52Ate2RL+sUDijd3xYHk77KVfL1hwSGsiW9/TjvCQ
2130BU4z48ySVDvcR9nhCQu4TguuPmq2I3xkQbD9teHa73aoRMlZsQ0UXmSF+hjY
2131E162waV7MFqzyx7ZlPz82yDf6bntsyJ7ws82EGUolzx6ZY+R1HoL2sBWoy25
2132QNWB8LQNHjo+OOHg74CLacO3wdynT9i9eQ6Er+3Qt68qxWrYAZuo6y1th5cv
2133diVcUXQkvG2HznNd1Xz+jrgtlDrt4HJH8rzfJUfC33ZoZ3vPZb9yROrliUdY
2134KN1stcZmOYPwuB3E1uyeHIpkIEXH/W/aQfb6jvC8agbhMxtMmozDM6YZ6EcX
2135ZENUaasty4FJeM2G9OK5ryCDifNoQLHBS1H8ufgwk/CbDWO5aokO2k5IbUOq
2136lA0tkl09bw84EZ6zYWgT89yiDiek3+7esUFUkXmmR96Z8J0DYuPK/pqRzjhN
21372U2fA30n6vNWsZwJ7zmQ/CVmvoC8CxZSco7mwHmDH0dv7HEh/OdA5+4yU9se
2138F3SdbRgWZmY2PlvuSvKAA9Eng5RyUl3xM7WOTxxIHBwXTxtzJfnAhc+Ou6S7
2139XNwwj2rXmAtbBN3z4m+5kbzgQjlrQvXpL+5oTw+QC+2MgRkfG3eSH1ywuvit
21402CzWHd/S8cAFvbigRxcq3UmecKElIoR9esIdsyi8T3Ehr6T1iIGWB8mXDkiK
2141efA1O8QDLeiFdED2xwiHoSseJG864MKjl+/kRz1wlMLroQ6wXbxVff8yT5I/
2142HRAf56YsFemJs/jrgGA1ycOLajxJHnXAgoVm9UVz1iGNF/5OEN2Sdf2H6zqS
2143T50gdrXrV5uL65C2r00nDNTYhVV/WEfyqhPGVVzKsxheSNsjqRNa5SaCtK94
2144kfzqBCmn77Us/vU4K79OqFU9JdIQsp7kWSdsrc3Nju1ej39R653fBTOR84p2
2145m3qTfOsCU79MDc2b3hhPjY/RBQ5NASOrNXxI3nWB0ftjBY6FPqhOC7ALrsro
2146u65e4UvyrwuEEyaPvWr0xe4u+kB+7HzV+A0bSB52QWq2W7TbzAbce5oCajes
21477TOS/1qxkeRjN7Qf8HeM2LMJl9CC7oaPJWOH5O03k7zshrGC0C5R3S3YRn+8
21486obqei+mio4fyc9uGOYL/SfQcStGUDi93w0svfuPrG39SZ52QzQf3/DAd3+U
2149pg3SA0OHLbZE9QSQfO2B95zPJ9M5gdhA4cC7B5R6+AsEvgaRvO2BsG/63G17
2150QzCE/vjVA59DOB1tEdtI/vbA5hmR5+aWO/B/GuVxVQ==
2151 "]]},
2152 {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.008333333333333333],
2153 Thickness[Large], LineBox[CompressedData["
21541:eJxVlws4VHkfx92FQi6DYZg5R2W37aKUbq/fv1xKSoqVymIrG+0WqZVSoVIk
2155SqFSq0RJF7nlfpkxhplxjZbapNpkad26UKF65xz/8z7Pe55nHs95Zvznd/l+
2156P98zvK0BG3wV5OTk3spe1N//v8zReObblrVbXcBdcZbDu28kvveBca84Q4ns
2157fvTIzrJ95/0gRTkv+Pj/3g8Ep+Od3uay+1C9rJUvD+4D94+TWm99ZT4fAqWj
2158nY1TZfcHeqdbTrp7CLhJgvXeX5j/D4eV5jWb4sdJtOz5utgLu4+C7sKCrowx
21595rzjILdHa+j6KIlKHCcrzDx5Agh/xQNHPzPnR0F48P5DDp9ItCRfHFxx9RSM
2160Ryp9HBhhvu80nH090hU6TKIi08h/1xfFQY+G84r+98z3nwXvLWXqtu9IdKWa
2161mx3kFw92L24uPjzE1HMO/NWnSS8PkOjpZ/oLoednucKUPqa+BGBb549GviGR
21628Zxn5ioRiVC+dteZ9T1MvUnAOqYWIN9Nos3bl1IngkOAwfnEV0z9FyFUvu3D
2163lJckSr5EX2BiYBW7s5PpJxmeTGl2u/OURE8aP7q+unEZwlw+2jY/Zvq7Auc7
2164b2x48ieJjJTcNWfl/gHxjZEhNS1Mvykglg7cvdBEIo/F9IFQFPW6e0090/81
21656FpizOkWk2iNdfRyn9fXYHy8z36biJlHKtgv2baxWkCivvXUiamwTNNypVoF
2166M5/rYHM1T31eCYlifvtnLPPtdbDa+zbJpoCZVxroVVx6MTuXRDNPsmQtpMH8
216724odClnM/NJhfvKswyWZJKpLtS94/yUdwraXFf54g5nnDfghavTIo2sk+lU2
2168LUOlm2CxpV208Aoz35sQZ9l95NAFEqm3pwX+Rz0D3h/+6cqNc8y8M6Dwjb52
2169biyJblPtat+C1l+j61KjmPnfgt8dWyr3HSPRauo4ViY8JW4/+/4Is49MiO31
2170068OIdEbatwmt+HMI8WNaC+zn9sQ4zT53NVdJKKm10zcgXRJ1oOXO5h93YHn
2171hTnZKltJ9J3nmaphi7tQY7Nvj6Yns7+74KDV//rTjySSyE5jz7kHrkTmmGgd
2172s8974B4gvfq7I4n84/sPwYIs+HpRpVLVltlvFqw5e8P+0DISyYqTtXwf4maF
2173m7UuYPZ9H4wqv1pPnkMiN5l4ZCuFvbEGB2dYMPvPhgS3tc3mPBKly6bXnpYN
21743Nx75kpsRg/ZYB7V5CPSIdGHL49CeqfngLHbw11+Gow+cqD3wEarfkUS2dEC
2175yIG9R09dcR0nsF5yIGitftzlDwRKMKQbAtuF5FB1H4H1kwsWM70ym7oINFFe
2176LtQU9F0t7SCwnnJh41hAcdQjAs2nrzyYf1X+6cJ6AusrD+xvW/aKhAQ6xpfK
2177FJQHg65K4gWlBNZbHvTyBzefyCVQq2z7splAevaT44WZBNZfPtw10reQXCMQ
2178SR+YD4fzvaeXXiCwHvPBcd9zn9g4Au31oxbwAEz7zYogksD6fABVN7Umt4QS
2179SDhsIdvwA5Bs+bLULojAei0Ac/PE6Ul+BNKdKBCiTz3LrPUisH4LYMppq7TH
2180bgSiqxPLPh+xZlC8msB6LgTPQYudFxGBcv8YzKhxKoRPK4wHHRYSWN+FcCug
21810uPRTAIp0A0XwsH9n8IRj8B6LwLr9j4UwyLQhgnBgEm7wp58DQLrX3Zf2dFT
2182Kkeg61S7j4ogqd8tLHWYh/1QDKFNB9R93/DQO+o4j2JoKIr2VnnOw/4oBtsr
2183AxsiW3loBSX/p8WgkLq46GUtD/ulBJQTTbcal/HQOUq+XiWgszSAmJfNw/4p
2184gVtBLOm0dB56eZBaSAmIFul+N3KBh/1UCjlhezXTYnjIkhZ4KSR3OK/6IYyH
2185/VUKmmqCtPggHopItJVJphQ6Fnb1tfjysN/KIMCqbmDQg4ceEvSC4aV36N4e
2186Jx72Xxnk/tJtW2bDQzyK/v1lMKv51YxfLXnYj+Ww3uX77g8kD+2h7BFYDu9e
2187rLLbxOJhf5ZDVcpVlYuTeEhAbfd9OeTu8BjKHuViv1aAxSJvYVofF02dMCQs
2188ttuMAju52L8VMEWaOp3VzEX0+D5XwM/J1laJAi72cyV8da2Y1p/LRXR5hypB
21894hxYwEnnYn9XQsc81rXpiVw0keN8UFz0JVn1BBf7nQ/Jav0/8YO56FaNk8zR
2190fGhezUlx2cHF/ucDv+B7raKNXOQic6POMT5oPtbYNrKSi3nAh4ENyqs1FnHR
2191Jyp9qvmQUfZH0MgMLuYDH76Nno0uNOCia2zKEALwnC5c7KzKxbwQwN+Nvh77
2192+s3QKnrBAph0oU1rpM4M80MAI5pvXnFvm6GhDKpAAQzZx7E/nDTDPBFAo+ru
21934d2+ZugiVZ1UADfTm3LOrjDDfBGAs0dQlIeZGUIycTlOrgJ32HlPNGaKeVMF
2194ETWj69rbTVHPGNVwFWiHBySfzjPF/KkCX8f3OV1xpohSi0wy8CzTt6DT3xTz
2195qAqMNsyuOmBniuh2m6vgn1TNN/mmpphPVXDC8O2yM584iD5ORwht8QVC1RYO
21965pUQQufKR3DucBCNI1chGLaOBzYd42B+CSFxyDzaxJODJh4fhLA1X7VI0YqD
2197eSaECEuV18c0OIjGQbsQmsKmDl3+2wTzTQjvz2/PWV1sgsIoOxtWw9eUJZ/j
2198zphg3lUDvyLizA5fEzSDNlA16FRHz29dYoL5Vw3lTVmXm7VMUBP9eFENf0V8
21992+fVZYx5WA2Lgjq3hhYZo/2UHZ5VQ8n1lK/TThtjPsreT2K3e3obIzNKzqYi
2200aLlvH2g6zxjzUgTi4MIV/krGqJaSn48IuK5zS5e2sTE/RbDU2WBJQgYbBVDr
2201TRVBhMeQzp4QNuapCBJOSWOaV7GRAW14EZTU3+jINmRjvtZA/PKm2do9RqiS
2202Ks+8BtSE86/0FRhh3tbA8eyM2XaRRmjHL9RVA+pLyed6rkaYvzWg6/guwZNr
2203hKiHJxlh4dRwm7lRvyHmcQ14JXJcVhUbIoqOIb01wNNLFf5z3BDzuRZ6NlWw
2204htcZIi/6wFpwcVog3cU2xLyuhc7GYYd1XQZIhQZULaQatnck3TPA/K4FG2dr
2205wfJgA0RtQy+rFsTeEVPW2hhgntdCcEFS+QNlA0Q/3Q3WwhIWOyuknoX5LgZd
22064cXkc+dY6CtlN0sxVKXFGct5sDDvxRBZvDy93ISFblJyDhJDdmtgeO0Lfcx/
2207Mch1Nz80StdHzhMNQ8ufrrHZv+jjPBBDX++8kJMW+miEWsewGMYdCsyTe/Vw
2208PkhghWLuwKtMPZRCtWstgf2bsj96++vhvJCA9sZKQs1CDznQA5TAFqV2rb9e
22096+L8kID17jpWw3VdNEDHgwSEhmXLO7x0cZ5IQM5qyEGerYuSKLyPSUDqMvno
2210gkc6OF+kcNwupm9PrA6yoRcihb+W++jft9fBeSMFfnOawevxqaibwusRKSzQ
2211sTirkTcV548UGn+Txhv5TUUT+JPCWYP1F5VNpuI8koJXxqUDokbtCbwo1AHf
2212o8XNOVwb51MdsPn+YQlztRFtX9s6aLdO6WRVauG8qgObU1p2TmwtRNsjsg7G
221365TlMoM0cX7VwR3drmBt8RQ0Ib86cO+LcPVmT8F5VgeSfpNZgf6T0Z/UeifV
2214QzT7EIf9QAPnWz0I4/Js535RR4ep8TnWg+uLkdkRy9Vx3tVDhk38zLYINTSN
2215FmA9PI5atfNd+SScf/UQ3Df4MX5YFTXU0xeMRAbu97NQxXlYDx+2JMeYuaug
2216389TQG0AZ05vm9sRZZyPDRAofP7bhWtKiEMLugHUFgjDt5cp4rxsAKc9Ssrk
2217QwUkon9eNYBRV1stp1Me52cDJIQ/3BT6txzaReG0pQEcyVs2viXfYCJPGyBl
2218l/yWD5e+gD5tkEaYkxy92ctnDCbytRF0Mq0Dtqh9hnIKB+6NENu6fiPnzAhM
22195G0jIH/J2M+978GX/vnVCPO3zbRK0XgLE/nbCO6iXW0Zgn/hv21F8f8=
2220 "]]},
2221 {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.008333333333333333],
2222 Thickness[Large], LineBox[CompressedData["
22231:eJxVlglUjfkbxxWaKIS7td32uqGSSoSeB60qKYmxDWUsZamGNFHCUMlEIUZE
2224mHTbdJMWbfe2d2+rNA1amDLEKEsqwsx93373f87/d06nc8+t3/s8z/f7/Tyv
2225js8+zx/lx40b90L6Q/3+/8PAL/x3D9x8VsHaQwIT4/993gJxzp2Ft6SfP4f7
2226Fe8/txM2TxRnBsnJvg+AIdUBzjl5Bh5iZDk+C90PZVuHVRQmyP4+BI48qBRI
2227JjLw5z5Dc8WMwyC0PqDZ+53s/yPA8+uOw+6TGbi42/3Xi3uPgZOS/dcpU2T3
2228/QIl9ya0aakw8L6zsvzsyJMQXD5ie2Km7P4o4Ef+cdiWzUCb3Nrg0munYK5h
2229+R8u6rLnnQatnvWJmVoMLOCeeO1REAtBt2q1tunLnn8W4s6Ly/YZM/BKpXZ2
22300M44CHxX3dlsKqsnHhSUO/6KtGTgk0/0A8Eu7L3tBRtZfefBLqF55ydkoLpZ
2231p77C0QuwfbpZV66jrN4E2KjUpFe7koHrty2ibgSVFXFVFt6y+i9B7KNY75FN
2232DLz8G32Ap2ARyNou6+cyKBV758fuZeCjxuHVPb8nguaaTQ+2HpT1dwXYXZ4/
2233nY1goOoE76kmOVehqENptfopWb9JYJDsMG/8eQauW0hfCIYmjY+ckmT9X4fm
22344iS1N6kMdLWOXrrl+XXY8EWp8e1d2TySoXj4ZZtXGQP/8aBuTIa5LQINNYls
2235Pjcg1zX/wtJ2BsbsfjHKf3cDGmxdl9T3yOZ1E6z6BzlFbxk4O5IlbeEmcEMu
2236WU/7JpvfLXB0yhXUKTFRkmyf9+HrLdiWF8d/rcok8/wdwp+EuQTzmOgvnRZn
2237Qgrcyxnf6GfNJPNNgcHfeEFiByZObr8ZsGTybRjnlH48wZtJ5n0b3rrZf9+8
2238nYlpVLsqqVC/eMDr54NMMv9UCDlp1BsfxcQV1HUsPoDV4gjuZSbRgw9m5y9m
2239aWYw8RU1bo00OP58mlx8KZPokwaJdjassBYmUtNr1k2Hqa3C3572Mole6RDj
2240UWxXOsJE441nyj/yMuCY4/Qu9hQW0S8DjDubbQZ0WFgnvU3NLBMyYq/aOliz
2241iJ6ZcLF7ZgfXjYW74t4cBqssUFhozTzkyyL6ZoEpt2d0YygLpcVJW74Duc8x
2242pzqORfS+Ay+Mlvnf57PQS2oeqaQwlantb1POIvpnw4G+7u+cn7DwlnR67Tez
2243oTOvg/9ykEX8kA3PS73r1aexcfDrw5A+QwH4XFH81mvMJv4QgOBw+TMHezba
22440QYQwLQsJTO7rWziFwGMl4hzusPYeJ5DNwTpjYPuGols4p8c8PNZPu5rARvH
2245ysuBpIL3D39pZxM/5YCvW+Rw3hAbLehzF1pfJaYlsDjEX3eh0bNghZE1B48L
2246xVIH3YXoobnuu9dxiN/uQg1PxWVXKAdbpepLZwK2tpP6da5yiP9yoYwZPPGy
2247kIN69IW5EBr1Q1hbL4f4MRcKnOO2/jlJFX/aSQlwD1hVhV0pZqrEn/cgJD5h
2248ub23KlZ85EkVvgdPuabyBWGqxK95oGHBFoxPUcWZYwXCiclNyiZNqsS/ecDL
2249435a8EkV6epq80D9/Nljc/TViJ/zISNzqFt5lRrmXB24Xe2SD9Ahv7/7sBrx
2250dz78mPyukZ+mhvJ0w/nQlOGUHfhIjfi9AMpU0xSXTFJHzzHDgHl4yeh0G3Xi
2251/wLo/2j215C/Ot6g2n1YABo76l3eJ6mTPBTCwVWZckqt6vieum5dIbw6Ga3o
2252pKhB8lEIFps1b2bbauAyyv5PCqGlSeDlGqxB8nIfstwqenTvaGA8Zd/N9+Gg
2253onjj4j4Nkp/78OWMATNZXxOfhVKC3IdTLSZZ32/VJHkqAt8r/px91zTRnDZ4
2254EZz5+DnhVZcmyVcRMLJUK9q0uHj0wnKpZYqgoq33jI0Pl+StGGxbHVfqpXCx
2255RZcWGO5ztAWXX3NJ/opB7callvR5WqhD0f9NMey9JrTwOaRF8lgCp15vkdRV
2256aWEgFY+AEshkn4oYVtQm+SyB4tcPNgyYaaOIUvdDCfxr2MVrXatN8loKvKt9
2257T/gR2jh9LJDwOMD+TmiaNslvKTSq8A3d2rSRHt+nUrgUWDDDWE6H5LkMAtKL
2258z7NMdZAu73AZuP9wTpe7UYfkuwwmRf15yilGB8f2uBA23Fj5KalIh+RdCI99
2259o0dnvdHB1GoXaaKF4BPTfWJIS5fkXwh/ZaeOKHnp4ippGmccF4LXhnqD4Ghd
2260wgMh6KmkeqNQF0eo7VMphKBjnp7BI7qED0KIj1q2TX+eHl5XowIhAnOFrb5r
22619+gRXohgQ8KvhRppeuhECyyCTRuT/I+91CP8EEGTVq/ORZ4+vr1NFSgCycXF
22625n5++oQnIjC+WXJLKUsfL1HViUWwjTPR6fQHfcIXEUQ/Xpjz1cYAUWouZ+Vy
2263cPkm8Qj6xYDwphwK5cf//LXJAF+OUg2XAzfUz/+upiHhTzkkfDLdzd9jiJRb
2264pJaBqbXhDR/LDAmPymE0brxcNsMI6Xaby2Gnz2n+W38jwqdyMFkjl9VSZYT0
2265dTMqoO1ZsdteXR7hVQXYrdo1v+coD2kcra6A58+OJ67s5RF+VUB2VJp7s7Mx
2266jr0+VIBeTkd3dI4x4VkFXBY9yU7izkIaB+0VMMung2sZO4vwrQL4r0qvBcrN
2267xiNUnDmVoJM/+WVEyGzCu0qIu9M/I/bDbDSiA1QJIw5nG2qC5hD+VYKVyecT
2268PwzNwSb69aISJj6ckBQdbkJ4WAn3Xly5EaZkigepOHRWgpZ6e2TwVVPCx0pI
2269Xe32KsfSDLUoO3OrYORXd+8DLWaEl1VgcES0Qt5mLtZQ9ttSBRHqjXLesXMJ
2270P6tAuz/0Y+fzubiPkje5CmaG9g9WojnhaRXErK7IXnDNHNl04KvA9unT4V1y
22718whfq+HKSdfPp3fMwzKqPP1qiClJjn/UMo/wthrarIYSYtACd2ynTjVsDJ00
2272r+euBeFvNTwKLLE3mGOJ1MuTlLBQJhluT+RbEh5XQ9F6y5iEOVZI0TGkrxqO
2273J9rq+9+zInyugW/LS7nBdvNxM31hDVjKHfVUfzyf8LoGelRz06uDrVGBBlQN
2274sHwujPyjtoDwuwaOqJxsUq5ZgJQajKwa6NjcdfbOoYWE5zUws3hXlN9CG6Tf
22757gZqoL6JYfF03CLC91qIOMfMEj1YhN+ouJnXwhT/gjXNdxYT3tdCV8fkxO5L
2276SzCFsnNQLYiiujjtsbaE/7Ww/6r2+9x4wJVjDUNQUeqyWk8k+6AWmIExopW9
2277iEOUHB9r4cbr5cUXw5eS/VAHD5WOv92suwyTqHat6+AbM8d/f/Mysi/q4EtK
2278wNKy6OXoQA+wDpzfWArQ3Y7sjzrICu5rYuvaYz+9HuqgP/Jl44nxDmSf1EG6
22796dp/3w86YAKF99E6mNX9Ln9w2JHsFzGkdC519ZrqjLa0IGK4rBbizrZZQfaN
2280GKYxI/2jw1zwbwqv4WJISDti5PTElewfMQinjEzz8F6JY/gTwyZ3vdYZ793J
2281PhLDkgDPiUsfrRrDi7wEmuzme6g2epD9JIE4K+/oRY89kY7vcgns2dIXUTHO
2282i+wrCXiM/ilYa78G6XickEBtvPIexwxvsr8kcDLNVUFgsw7H7CeBo5YD4TlD
228335N9JgGO74BW6osN2EbJq1gPyn/zasJYm8l+q4fqWK5E2XELhlHjc66HVjUr
22840WDmVrLv6sG+uKtolZMvGtAGrAfcnaxyTftHsv/qIWP1MW0rux3YUE8fsLwe
2285P9GmchfZh/Wwlsc7ppy/Gw+co4DaAA+tn88w1Awg+7EBEhTA961NEGrShm4A
2286w79jj7o278ft+i/Ffv4N4PRtfbTq0YP4H4FTm80=
2287 "]]}}, {}},
2288 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
2289 Axes->{True, True},
2290 AxesLabel->{
2291 FormBox["time", TraditionalForm], None},
2292 AxesOrigin->{0, 0},
2293 DisplayFunction->Identity,
2294 Frame->{{False, False}, {False, False}},
2295 FrameLabel->{{None, None}, {None, None}},
2296 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
2297 GridLines->{None, None},
2298 GridLinesStyle->Directive[
2299 GrayLevel[0.5, 0.4]],
2300 ImageSize->{623., Automatic},
2301 Method->{},
2302 PlotRange->{{0, 0.24}, {-601.1328625251546, 376.06873450798275`}},
2303 PlotRangeClipping->True,
2304 PlotRangePadding->{{
2305 Scaled[0.02],
2306 Scaled[0.02]}, {
2307 Scaled[0.05],
2308 Scaled[0.05]}},
2309 Ticks->{Automatic, Automatic}]], "Output",
2310 CellChangeTimes->{{3.644329031331276*^9, 3.6443290600679193`*^9},
2311 3.644329189851342*^9, {3.6443322312823024`*^9, 3.644332270251531*^9},
2312 3.6443347171109705`*^9, {3.6444284583206773`*^9, 3.644428472393482*^9},
2313 3.6444285074034843`*^9, 3.6444863447730618`*^9, 3.6444868209242964`*^9,
2314 3.644523296776*^9, 3.6447533922790003`*^9}],
2315
2316Cell["\<\
2317Blue = acceleration,
2318Purple = velocity,
2319gold = position,
2320green = density\
2321\>", "Text",
2322 CellChangeTimes->{{3.6443290691434383`*^9, 3.644329114931057*^9}, {
2323 3.6444159575986767`*^9, 3.6444159593217754`*^9}}],
2324
2325Cell["Next, going to plot ram pressure as a function of time :", "Text",
2326 CellChangeTimes->{{3.6444230107950964`*^9, 3.644423027151032*^9}}],
2327
2328Cell[BoxData[
2329 RowBox[{
2330 RowBox[{
2331 RowBox[{"Transpose", "[",
2332 RowBox[{"{",
2333 RowBox[{"r", ",", " ", "\[Rho]"}], "}"}], "]"}], " ", "//",
2334 "MatrixForm"}], ";"}]], "Input",
2335 CellChangeTimes->{{3.644418053519556*^9, 3.644418069791487*^9},
2336 3.644418161024706*^9}],
2337
2338Cell[BoxData[
2339 RowBox[{
2340 RowBox[{"Pram", " ", "=", " ",
2341 RowBox[{"\[Rho]", "*",
2342 SuperscriptBox["v", "2"]}]}], ";"}]], "Input",
2343 CellChangeTimes->{{3.6444184210055757`*^9, 3.6444184562385907`*^9},
2344 3.644418770435562*^9}],
2345
2346Cell[BoxData[
2347 RowBox[{
2348 RowBox[{"\[Rho]", "[",
2349 RowBox[{"[", "2", "]"}], "]"}], ";"}]], "Input",
2350 CellChangeTimes->{{3.6444184899435186`*^9, 3.6444185162900257`*^9}, {
2351 3.6444186170777903`*^9, 3.644418625866293*^9}, 3.644418700243547*^9}],
2352
2353Cell[BoxData[
2354 RowBox[{"\[Rho]", ";"}]], "Input",
2355 CellChangeTimes->{{3.6444185204852657`*^9, 3.6444185212693105`*^9},
2356 3.644418618194854*^9}],
2357
2358Cell[BoxData[
2359 RowBox[{"v", ";"}]], "Input",
2360 CellChangeTimes->{{3.644418639668082*^9, 3.644418645621423*^9}}],
2361
2362Cell[BoxData[
2363 RowBox[{
2364 RowBox[{"v", "[",
2365 RowBox[{"[", "2", "]"}], "]"}], ";"}]], "Input",
2366 CellChangeTimes->{{3.64441854172548*^9, 3.6444185450506706`*^9},
2367 3.6444187018756404`*^9}],
2368
2369Cell[BoxData[
2370 RowBox[{
2371 RowBox[{
2372 SuperscriptBox[
2373 RowBox[{"(",
2374 RowBox[{"-", ".209441"}], ")"}], "2"], "*", "5.00016"}], ";"}]], "Input",
2375 CellChangeTimes->{{3.644418550004954*^9, 3.6444186048760924`*^9}, {
2376 3.644418652305805*^9, 3.644418656515046*^9}, 3.644418703116711*^9}],
2377
2378Cell[BoxData[
2379 RowBox[{
2380 RowBox[{
2381 RowBox[{"\[Rho]", "[",
2382 RowBox[{"[", "3", "]"}], "]"}], "*",
2383 SuperscriptBox[
2384 RowBox[{"v", "[",
2385 RowBox[{"[", "3", "]"}], "]"}], "2"]}], ";"}]], "Input",
2386 CellChangeTimes->{{3.6444186763361797`*^9, 3.6444187066299124`*^9}}],
2387
2388Cell[BoxData[
2389 RowBox[{
2390 RowBox[{
2391 RowBox[{
2392 "Add", " ", "horizontal", " ", "line", " ", "to", " ", "this", " ", "from",
2393 " ", "shock", " ", "conditions"}], "..."}], " ", "->"}]], "Input",
2394 CellChangeTimes->{{3.6444188525522585`*^9, 3.6444188670490875`*^9}},
2395 EmphasizeSyntaxErrors->True],
2396
2397Cell[CellGroupData[{
2398
2399Cell[BoxData[
2400 RowBox[{"ListLinePlot", "[",
2401 RowBox[{"Transpose", "[",
2402 RowBox[{"{",
2403 RowBox[{"r", ",", "Pram"}], "}"}], "]"}], "]"}]], "Input",
2404 CellChangeTimes->{{3.6444187602439785`*^9, 3.644418835825302*^9}, {
2405 3.64441930802431*^9, 3.6444193185549126`*^9}}],
2406
2407Cell[BoxData[
2408 GraphicsBox[{{}, {{}, {},
2409 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01388888888888889],
2410 AbsoluteThickness[1.6], LineBox[CompressedData["
24111:eJw1kwkw1V/YxwnJUnbX7t77Q1ooZQmV77VXdooiKlRabEmLbOWWJVtliepm
2412C6mIXLImS6gQiiTrJfojFC2k1zvvvGfmzDmfOeeZ5zNnzpdyxMvGfQUbG1vn
24138vzf9f+GAv5/t49DxXj2HwH5U58k14q80Vt0jpFoWubCKvVUiuiE3j2uIv+w
2414ZRb+vpYRkPxPb09Yn4vCMnekFEnwS/Bj389VHTlLBPrKPHTF5sRQ/qevRWiZ
2415KxNn1h5Llwc5scba5S8BHRZz+mGkIkwUGvbHLxJAFP1m5dqNENFksrIXCGh/
2416i9nyqFMNbD4C0+l/CET2apoartIE1YPjwuXfBDYX1w7uyNdBiP+5S8a/CJxn
2417M9yOZj0s0jl/Ts0ToH/IiGd/rI+4kXlWwByBk6fKYrLzjTDGZ6E/+Z3AKreM
2418lqBJU7g4VvAazBIwusGZunjUDIYDD7QDpwns0N511nKNFTx4FZtTp5Z9Beb0
2419/LltMHaYreTeBIGavL10HXk7SGk9+0P/SuB4pFfW2N59qDQ/HWs9RmD9IafU
2420d3kOEL/C48U+SiDh7iGhPRRHGHuRbiYMEwj23eGfzzyIAPYPP1YPEuCRYfFs
24210jwEGZJ69Ik+At/Yj988mHYYH1e32eV9IrAhVGWRJOuKYKufBm3dBIRmqZcS
2422ct1wsy/L5uN7AvZ8ORMCJkcR30I/39BOYIZk1VU7dwyNzVOPklqXfZyP0qeL
2423PVAaPjJq9oaAqbiuYPe1k2DpSMuONhJQK9TzrT55GouLE0au9QQe3P2dPHXY
2424C0Y6rvZ1NQSGQsZ1HYq9sX2NmglPFQGu52PR62p9sJNRxLuljIDuJdmBmz2+
2425UD8zk7iTSeAjWdK3ZuEMRKtuD6gWErDMzt3cp3QWWx9y9K54QuCJ2uMakpM/
2426tqaoBJblEsjs8Iq7m3oOwW4VJXuzCMzK3O65P3IeG8P/BHXeJ1CvnF9pp3MR
2427yo5d9Zp3CCxu0TCauh2AGLXRoEtJBPgFT13I5AzE98CDd7JuEBhAuWfBxSCU
2428fBUTLIxePmc07TVfDEbHyYjXaeEEriUoGffWheDsrvZqvysEfN6bdSXHh+IT
24299eHn9UEEKrQX7ALdLiN6/LhY3fllv9+DX/J2XEFsJ4c9zhD4Qqr8YSIbhqg9
2430/DcYpwmks+qU/DnoyGx6Ujx4jACz59ZFp2k6+kueFqw8QsBQMWYXlXUVDTv9
2431fNY4EWi/VL53uu8ajAUmR37tJRCmvf3D9EA4bKm5C/WWy+8/sT3M8msE9nk1
2432M87uWu7HG5ajvRCJpeSV1dwGy/UZt9f1iVyHWVyW0aXty//hQnzKafVoxKiE
2433yHdoLPuoB++WOhgDyeolLf5NBLKH7thJxMTiTDTp4lplAi7rErtbXONwy868
2434TYGynOcdMcQMZzzIhY8VOKUIcGvs/Bf7MB4K4a2H6oWX88c17NFkdwPSdu9O
2435H+cjEJvN5V/BcRPjF+zVJzkI9Ceu2htRchNnLkfesV2kQlRjyxFr71vwNReL
2436Sf1BRZabjqqWagIMNInpugkqvPmPRDnPJEB5g3NuK4uKVQzplInniWhgTjDK
2437e6kIlDP7wB2eBPsFr+fhnVQExG9U7HZMxlYG+yfNN1QUW3QOX9W4DaOHauP1
2438tVRkc5+d3ymWgm+2nI0a5VSkLVl3b1xIwfiLbweuFlJx8eSlR0FfUpFZ8DGs
2439JJcKqSwXS7eeO3gkKabcdJ8KK0tlD4HOuwh85qJUnkSFbKBwaFHnPezy6z8U
2440HUNF5ck8oau9DMhNypfq0anoVuS17D97Hy8fCPC3B1BxWXW92x72NDQ5/tU1
24419KVic52belZcGhQUEpQSj1PB89q1g08hHRGRn3NfOVMheVM3glGejtXX1TO6
24427ahosOYYCLXPgEKo2bfG3VS4mZML3//MgNM35RPJoGKAz0K7+k4mfulLfzPW
2443pOK/ME85N+Ms5HhVO3RuoGKWXzXyvx9ZuHjuVwgoVND9rmkG5TyAVtcEosSp
24442PhQI9T4cDZkulb4POOj4p4QJdhbPgcy1b1j5WxUCBZ3Ca4fzkHipF1w2hwF
2445Xy6Qf6U/ykVA6wVe968UCN8vm+K/9BBvSyNcVvZT8N8fx6pU6zwY3JmyoXdQ
2446MMtgP0BXeYQVadqlg68oGJPJ+cUu+BhcCXJHpCsoaGkMVTP7/RjCul7ULQUU
2447aNrUSqaNP0GOr3izYiYFF0+Q3TCYj/ptIuvmkyiIkuOlaXoX4GnwmTUZURSI
2448MSNci78XIKXXwnRjMAUlT4cbaAFPsYanJiPelwKllLJN7NyF6NVkTbS7U5Br
244907NGOqkQXuqvp745UODtaZlUuqEIgy4BZ8b2ULArqPU9Z30RCo+OGlTspMBe
2450KqJpo+szqLQNrz2pRoEc4RfksrIY1lbrR38QFATf2r6u5UkxZgdMDfeLU8Bt
2451zjJ85MTEy3uMlcmrKFjlrFO4SbAEhcccpgv+kLG9z/RjXFMJlLe51GZMkPGl
2452tfcNb0QptA0PwLuPjMYQC+9PFs+xujlNSbyNDK1PRQwD6TIcTtFST6ghQ/1i
24537oFrU2VYsq1SnCwkY9f80MxkYzmaLLyZsplkOH9mar18WIHeLeL3lRLIuCrT
2454X2RzqxIc2/6mcF8lQ+9wXs8MvQopPJMHX/iTsU5xzGQ+uBptu2XvWR0j47LL
2455YNBB2gu8YK4XKLUnw5a+2GH56gXWdPO5zpuQkfW304fTpgZTNly7+baRUTor
2456ZFwwWIPsiru+82vJMGBGrozyf4l/f+IiSkhkaAebHGwVrIWTUq22BTcZCSYP
2457SOUFtRhqcXfwm5THjPSIQ+y+OqxK+iAw/1oeD3j3t8WtqMf8mq/D5IfycL/K
2458+M5dXI9poxipH9fkMaorv4Pm2YAWbs85T3d5MPdreEWrvsKDzNancfryGCGd
24597aXNv4KFg2+4g7w8NLg9ikvrG7FP78Tj+gU5jJ+3crK+24TQhj+WXV1ySNZx
2460qfYObIZgiFfK9SI56MmLlIUefQ33Xd+fsmLkkHWOFjTn8Aafc92ZfR5ySJ+I
24614TLc+xaSNqovLxjK4Zu5+PUJxxZ8SVvz9ZmcHF4Lk8T8T7fiqsTM9thfspBx
2462N/+rZdSGD/HMWu52WRxhXTd8/rENAZvZQ2XzZOH3jNIZ6/cOEh2L3q1XZPH2
2463hXiTkHg7EqYVImScZFE5pPw2paodR55xl3Koy+Jz2PfL1z07EKq2cuQKnyxa
24649HMWLJQ60RosNJ06JAMeWxMt69FOfL/p9nT3cxnou54o4Ml/j6V7Or9jYmVw
2465cLr9x3zIB7yoCo095i4DlXBBs/tOXRCui9jaobN8/0D56UT9blS2PkltE5BB
2466w9MJU7+tH9ET+s/PmSUNB6X2vv5NPdjm23ckoFQaZa6+W6K2fUJZ+r0lxevS
2467CHVZtNSw6MW2RKkuJxdpHB409Mzz+Yz2fCNvuS3SqKk7qdKc0YdG/xJ9D05p
2468bJznmA8a6QfZdnO57gcpcLkYVrFSB6BrQdK5lS0FbvtiZp/5IEIdpoV9zksh
2469McKU0OcZwq3I5qg2Uyk0pnx9mt8yhLI3Wb0FElKIMHKhvr83jHhaq6rgmCTU
2470LG0jPC+ywFO79c4EUxJxo8wSkyMjCCvIVjWkS6Iukff1DvtR8OoS/aK2kngX
2471Nv8fDnyByK7ZW05kScSeM6ftOzWGyLkPCpKTEjA3CJdLiRmHc4KslelzCbAq
2472us/qv/wKimha7ZcwCbzKVE9KWzWBsf1V4nOWEhD+qmayznUSVns0mk9LSeD2
2473kKmOZ8cU+lrmjC1ZJHxqiWZPVJlGmkRXb+JjErrp7i8Vlqax00KrhuZPQooh
2474Y8mzdwaNLqGrzXeSkMVu55LaNAt/ZmJlMRcJubfefpxq+A4dcakn59+I45XZ
24757NG29z8gUpuccuOGOFz1Vhu8/TmHlxkx0mwO4ii9ferNXdWfoD+nZVbKiEPl
24765xXpDZd+oaDDO+TVgBjM2B38EoZ+g2207Z1kphimwteW6LotoP29bXTBUTEM
2477v2n9W8vxFxPjW85fUxZDsU/6HcW6JSwaMxVSxkWhUejodsCOjabPUTg1nCsK
24780TN9kskH2Gnn9hf8dPEQxS+T3cFj/itogvbVVB5lUezVaax4ksdBc+TsEugZ
2479EUG5GEc6Y4GTpuX5Wvxtugj4BeyrWzxW0molKmi9ziIIDDn9s/I3N41NfdqY
2480XUoEoUp7RLzzeWjNVvyXNTqF4WBkxBUcy0cLM4ya8IleZuXzRZqM1bQe2iGx
2481fCNhlMLMsZglQHvRlkEaWRQCN2+NX8RWIZqGsHIcX5EQLPuPhZomCdNaTjXH
2482Sx4XQhVDePEEVZQWR7JO5pIRAusse31KjxjNOfv2hfoWQeTdDWfQG0g0m34i
2483I75QENvXbr1ed12C9j82OPKU
2484 "]]}}, {}},
2485 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
2486 Axes->{True, True},
2487 AxesLabel->{None, None},
2488 AxesOrigin->{0, 0},
2489 DisplayFunction->Identity,
2490 Frame->{{False, False}, {False, False}},
2491 FrameLabel->{{None, None}, {None, None}},
2492 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
2493 GridLines->{None, None},
2494 GridLinesStyle->Directive[
2495 GrayLevel[0.5, 0.4]],
2496 Method->{},
2497 PlotRange->{{0, 10.}, {0, 402225.1369138842}},
2498 PlotRangeClipping->True,
2499 PlotRangePadding->{{
2500 Scaled[0.02],
2501 Scaled[0.02]}, {
2502 Scaled[0.02],
2503 Scaled[0.05]}},
2504 Ticks->{Automatic, Automatic}]], "Output",
2505 CellChangeTimes->{3.6444188368043575`*^9, 3.64441931920895*^9,
2506 3.6444863449810743`*^9, 3.6444868210343027`*^9, 3.644523296943*^9,
2507 3.644753392466*^9}]
2508}, Open ]],
2509
2510Cell["\<\
2511Now making these plots in terms of radius.... That is to say, \
2512\[OpenCurlyDoubleQuote]when the outer radius has fell to a new position of r, \
2513the density of that outer radius (which is the same as everywhere in the \
2514sphere, or the velocity of that outer radius is X\[CloseCurlyDoubleQuote] ->\
2515\>", "Text",
2516 CellChangeTimes->{{3.6444176725237646`*^9, 3.6444176908118105`*^9}, {
2517 3.6444283193327274`*^9, 3.6444283718517313`*^9}}],
2518
2519Cell[CellGroupData[{
2520
2521Cell[BoxData[
2522 RowBox[{"ListLinePlot", "[",
2523 RowBox[{
2524 RowBox[{"Transpose", "[",
2525 RowBox[{"{",
2526 RowBox[{"r", ",", "\[Rho]"}], "}"}], "]"}], ",", " ",
2527 RowBox[{"AxesLabel", " ", "\[Rule]", " ",
2528 RowBox[{"{",
2529 RowBox[{"\"\<r outer\>\"", ",", " ", "\"\<\[Rho]\>\""}], "}"}]}]}],
2530 "]"}]], "Input",
2531 CellChangeTimes->{{3.644417955554953*^9, 3.644418029656192*^9}, {
2532 3.6444181824289293`*^9, 3.644418203085111*^9}, {3.6444182626075153`*^9,
2533 3.6444183410540023`*^9}, {3.6444203075234785`*^9, 3.644420387050027*^9}, {
2534 3.6444282334588156`*^9, 3.644428251085824*^9}, {3.64442828125655*^9,
2535 3.644428283268665*^9}, {3.6444283784571095`*^9, 3.6444283824773393`*^9}}],
2536
2537Cell[BoxData[
2538 GraphicsBox[{{}, {{}, {},
2539 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01388888888888889],
2540 AbsoluteThickness[1.6], LineBox[CompressedData["
25411:eJwllgk01tvXx0kqyRC/Z56fn6mBMktdfY2RzEI3UapbcstQSUmoFCkhQ5fi
2542Kg1UQkKRISkhY9IgKnSRKZlS6X3e9T9rnbXXZ62zz/nuffY6Zwu8fB13zhET
2543E3stmv9v/zeU8D9LwEVC3WLsNwnX4Dz1JSL+6RFDfy7iOKv3DzJFnCZ5L/Ck
2544iD0ka+8EiBOwPtnpqSTiScYI/cIckf/UgtabsyTKt03Jz5tLoGSms2GxiENb
2545nuTVSRLgJ1U6eP4iUaF/kNMzn8A6paeb4n6ScPy166jdQgKKeoU9N36QsJQ2
2546/yUjQ0DMX270ygyJR/fntvHkCQi9JQ4f/04i8PG0UYQigbDAQ0ctpklknX51
25471Igm0hsxd2p4ksRKlcevrFkEYnsne4InSPC6/0y9wyPQJ21rMvSNREBmDW+H
2548EgHPzaULTcdE8SXUlvsuIWD24fqqkFES/l+fvm/SIOC9ULk2dZjEvEUdn07r
2549iPy3iRWlDZIwCxkzSjQkwNQvmIkYEHFS0+7vIPDIZu95hz4Sfy1e0VmwjgD1
2550hJSv+GcS7tKNZI0tAQtf2oXEbhLy6+OqtV0IBIu/Gpf5SCLmTYzL9BYCbJrO
2551uT2dJNTmaftT/yLwRqbJ+dY7EtKlLkUx+wiE2k+ZNr0mwdm4pWXbIQIXOq85
2552vmkjQet03B8bRiCuISLoaQuJkg5pJ9YZAjW1w7eTG0koZ1hoSSQQKI7s/byh
2553noSKesMbyzQCPYYszucaEk2lacyhm6L8/Rw0315NYvNP6YbRewTMDbe7Pqkk
2554UTrV1+ZcTmCNrOY6qTJRfpvz2Mw6Akbp9xZqPSRRsKEo0bidgM7+r0lGhSRe
2555GG34o76bAFH2zweNfBK6w+P0klEC2tkSHXNySHCDLurLzYo4RT3kYRaJdZYF
2556ec+lKQjdUVq08RqJHYVxWV8YFCyPnDn28l8Sx96FWAeqUaC2ub1a7xKJ+/kS
2557DXv0KYjR/HzsaDKJ8X/UAmotKPgWsuXStXgSYpa3TiS5UFA0QJHPP0di1MZ8
2558U9NfFLT6RNVlRJKoXzPifPgQBQetWsoPnCARdEq1Jz6SgnfC7PdLj5FYq7sm
2559jJtCwbn+3ZQnQSRWJCTncG5TcP6lhCv2kzjRKyceX0ZBtPWi+PS9JFLNDKkh
2560zRRkPs+5/3EXCdnWin8+9FDQVZSXO8+LRLRDqVnZNAVPjQ74y7qTOL5ucSdN
2561hgoLuaHe6Y0klrxvMhwRUOEkzPpRbUfidsxlIwt9Klx8a9MPWpFI7lLs4NpQ
2562MXtxXvl8U1E9rtKnBG+nYkPsNfOja0hocLt/uB+hIkY9jNeqK7qPXuQ/jaOC
2563UT6rv2gFif9UTXweZlGx/xztiKqaSB+F72P4mIoEZ5smJQGJg/1d863eUcHP
2564v6M0l0nifWFHVt84FUqRjVurFUj0lrnUs+RoYDk3790tTcLr0oLZniU09B92
25651RmSIJF39PFHC3Ma9h8/c8nppxByOdIrzLbREGBDiUkdF0Kirja/K4QGUz1y
25669MmgELcaxu3YqTSoLfPIauwRYo+XqdivYhqeFg6ml3QIkVY89vJkOw2uP3wf
2567RL4UYrvN6anCSRq008Xf6dUL0TqQmp1EpcM8W7O/ukqIBsfi9ar6dIw4za3R
2568LREianKl3d9udPRXjPx5Kl+IZ2ry1t5H6MjMfXOyKEsIIyOpYcFlOm4zKGrP
2569/xWinBIomVJBR0iBp0pJshBHIj1D2nrosDrQtfVcjBDFVnHbXksxwB3iFa+N
2570EIJa/aDz+goGHl+XW9QSLERQfJKpuQsDzzf/Wm0WIMQHrsac4hAGlJQSVZJ2
2571C8HWpuVJXGcg6sz7rGceQkQsbFyk3siAzFmdq6+dhVAr5H43+C5aH75hpGa9
2572EKyE2OPLlZhwH1HbcxFC3L4z2bXInolpE9aIhZ4QazvmHOg6ysRN33K3l8uE
25732JnxtSErm4kjh6bDIBCi8bZlrv8bJvTbBxFNFcXHyF7whxQL7PY5/gXSQmge
2574e/RjsaGIyzv6SsSEGJ5Y8WnSh4WkIefQjAkB2LvqrcfSWAhuPLxw54AAh+zv
2575iEu3svCiOMpzXpcAA6eiFlguYMP00rBjRKsA2h6cq7lGbMzJWFX88ZkAzY15
2576zhsC2ZBM5HqxSgXIsanqFt5lQ2G1r1ArV7Tfglr3Nf1s3Ayg1ipnCvDzvDIl
2577Q4mDagPFJZPJApxpVs/ZtI2DvND9slejBdh+yYfum85BSoet5fJQAc5PzCQN
2578dHIgK1V5NS5AACKHUdXG46JDr2ewZacAVW095w29uPDVqRsecRPAqHWdLXmd
2579i4+ewfv7rAV4SOfnpXzhIv+vz6alRgIwr1xsvqXFg3pTt6qPpgD70iu0vYJ5
2580cLBf+nmcFOn5srXueTUPYx8szTZRBbhDOxM2tYCPx2np8y4uEKD0S8vmkRV8
25815O9yG82d4eO3SqdaqysfagaeVVcHRfZy/7usMD5Wmf0Jv04+3vqZ3z2SzYdM
2582bYYKtYmPBvksFZs2Pral6OskVvJx0b9YYYm4ALNOZcpD+Xz43SpNoGoI8NzW
2583r5CTyYed5wUh112ADi3qvyqJfEhFvj5jKcqThMGvlPmn+Nh8xfZ7WokAKVJD
2584WyoCRedtj/qxdEiApvWcNPtdfHhFd0VM8oSoKFwqVyzS+Sn35rS0qA5lX0tv
2585n1zHh/PmeuXAKFFdOEqulzbgg5S/6YIKIW6UXg6YVOUj4LijY+C0EL9nYqOK
2586aHzER5rsUNIS/XMqVats5/OhOW/bdlfRu/ipYafbgSEeNiede8DOJrEg+ZXc
2587ZB0PW9zTfI6L/slJ2YFufjYPjbweQbKaEkbNY5jjp3moS16juWePEhrm75vY
2588t5OHJVcfZUrnKOF6ZmNerAkPO+iSlme/KcHWLSDSjcdD1NtV+b8MleGyds+d
25896h9cWM/WOQScVEb40xm79nYuHsyROPyrURnyYb4pZ+9xwT2yx+ceRwU7rb7l
25909cRwkfRd4++svSp4n7WzsNObC9maYy8mylXAcNR4fNiMix9xEuK5hCr+y5Ad
2591KOBysdvrbNaojypO0b+uOT/NgfpG8ZzmalW8iiusmt/CQdvHUpt9QjUErxQP
259259ziwMzeW687XA301p9+jSc46P14ItW2Rw2Jo0pRbHcOciOz7ZqslsCrYH6x
2593hA4HZH5HV1T+EoRrzus9IS2q+8p3uWncpWgMXTya+omNpV4dXJ2Ypfh2YUfe
2594+gdsZA2UpfuLL8NsmuH3mPNsCIoW9oUFLUNFWfj5XTvZiLs7rBDzbRkUnkRp
2595txqyMW0R++JZwHI8asxJbZJjQ1d9JsJzcjnehv8+4NHDguTLuWlRx9RhENDp
2596FVzMwv3/Ll0JkdbAwytps8pnWeCx2k8HXtaAQRKz3d2ThZtONgP5OivQctfc
2597j6vFwvQ5O5eDzStQE1hk4j2XBeXQyvVzDFeC77SyZPUrJsJYDeIuMSux2pZm
2598mHCDCf7wkYn3vSsR7jaq4B/EhOKR4fEn0ETCmdroJksmop2qcg3SNfGw/lpH
2599Lp0Jow8fprzFtRBn3Kgh38fApVMbZs7u0oJUlfalwUIGoh9lxL9p1sLJ3Bsa
2600ZhEMtOlOJkVDGwtXk12EEwPuR6S0uu9pQ9FqLMGdz8Ab/0fmyst1cGbilRJj
2601iI7yuqn21CwdeCRy7C0f0FHyp0500nJdCIiMqv9O0nEi1UjJ574u+jaVUSfs
26026Jg1LeMGmunB3lq3di+TDh3xcEfWWz10NkxY2PXQ0M0ouPU0UB8Z9PaOpDs0
2603UL0SpweZBjCy1a80DqQhVP5U46JnBqjxDJexMaKhw6Mz9m7wKgQWJj26L0mD
2604Yql35J5VhjCkMnOC6qmobyS0P4ithmLVxZT4eCrCLlByKltW4/HVGJaYGxUy
2605PsUbm+6uQcQD48xHbCo6Oxamdl38A7mtfmHPPlBQGdlJb48xgtjnpmZGJgUH
2606LvPHCuLXoqXN6VyuqE8KKLlpUuMIDPZrBZ0W9V0U/+hK2x7gp0WhUko/gStf
2607TEuTjxnDRCJ/uDuLwEvpE6MeQhMc2pQ75elNYJaS73OgyQTyruVCKTVRX3nd
2608z7g8yhSb57bLve1VhNWQTh7szKC/r4764ooicgL7G2lCc1TRS407PBQxfLqv
2609IULCAmI6oxbiTEXc0nD9PTZugVr7Rcd1XypgadfXovGpdThpFj3of04B198b
2610b3CWtcJb462Uu+YKSGEG2dEM16Oi6Sqt9+diyFFO+0SFWENXQS1W+t5iJGWH
2611qlq+24CGv2vjGLsXo0JmWs7BxRaxNIeLkuzF2GJHtiqM2cHjxj+Hqxvk8Yef
2612o6TxG3tUuLU424bJo9FMz4HR4ABmhXdowkp5xOm6RK1+64h2/bROarkc9m7t
2613D6sSc4bRGTkza6YcHH68znM134ht39euyYiRhercBzPb/Vzwf1HUtJo=
2614 "]]}}, {}},
2615 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
2616 Axes->{True, True},
2617 AxesLabel->{
2618 FormBox["\"r outer\"", TraditionalForm],
2619 FormBox["\"\[Rho]\"", TraditionalForm]},
2620 AxesOrigin->{0, 0},
2621 DisplayFunction->Identity,
2622 Frame->{{False, False}, {False, False}},
2623 FrameLabel->{{None, None}, {None, None}},
2624 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
2625 GridLines->{None, None},
2626 GridLinesStyle->Directive[
2627 GrayLevel[0.5, 0.4]],
2628 ImageSize->{730., Automatic},
2629 Method->{},
2630 PlotRange->{{0, 10.}, {0, 89.75610225742331}},
2631 PlotRangeClipping->True,
2632 PlotRangePadding->{{
2633 Scaled[0.02],
2634 Scaled[0.02]}, {
2635 Scaled[0.02],
2636 Scaled[0.05]}},
2637 Ticks->{Automatic, Automatic}]], "Output",
2638 CellChangeTimes->{{3.644420346769723*^9, 3.6444203879560785`*^9},
2639 3.6444282521628857`*^9, 3.644428283816696*^9, {3.644428379541171*^9,
2640 3.6444283829283648`*^9}, 3.644486344999075*^9, 3.6444868210633044`*^9,
2641 3.644523297006*^9, 3.644753392514*^9}]
2642}, Open ]],
2643
2644Cell[CellGroupData[{
2645
2646Cell[BoxData[
2647 RowBox[{"ListLinePlot", "[",
2648 RowBox[{
2649 RowBox[{"Transpose", "[",
2650 RowBox[{"{",
2651 RowBox[{"r", ",", "v"}], "}"}], "]"}], ",", " ",
2652 RowBox[{"AxesLabel", " ", "\[Rule]", " ",
2653 RowBox[{"{",
2654 RowBox[{"\"\<r outer\>\"", ",", " ", "\"\<v outer\>\""}], "}"}]}]}],
2655 "]"}]], "Input",
2656 CellChangeTimes->{{3.6444282619714465`*^9, 3.644428302614771*^9}, {
2657 3.6444283901957808`*^9, 3.64442839088282*^9}, {3.644428752738517*^9,
2658 3.644428756264718*^9}}],
2659
2660Cell[BoxData[
2661 GraphicsBox[{{}, {{}, {},
2662 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01388888888888889],
2663 AbsoluteThickness[1.6], LineBox[CompressedData["
26641:eJw1lQk01G/Ux+2yZF/GjGVmfraKQmMvLsa+hiwRUpRKhFaE0B+VpWxRltIi
2665LVIhqbllVyH606KRwh8RlVQS77znPe895557P+c5597vPfd5zkMLjnAP4eHi
26664prm+P/G/zNV+P/Mi1fb5tsyAfJ34g3nuzpZiwGZpA4OHyv4zkvpfssq4b97
2667MIXD5/4rtTpOGWE5prADVTmcK+qy4Vb3JMvr54q+a0sEbIvYNiX5dJb1cIHd
2668JcnhEHGRlqOKcyxq/pNNgX8J+Mza+Yl86CfLVrXVN2eRAKGLy6l/Xi6wpA1q
2669R67+IUCmYs2MmvYSi2u/+OzFBQLK4WXNpmYupIfxHjn+m4AxSC4yi+LBxIOH
26704mx+EeC7bOwdQOXDxVS+n1/mCTA2S8u938WP2aPzI7E/CKje4sxtHy+I4yIu
2671ltPfCWj48NdVSUsIA/0aha2+EfDx+JSB4TthZH64Yhw/SwD58dnI4gxRDBNW
26726yz+wqn/e+ihi4kYjm/jqiuZIkBl79HBzZPiSDa8t5A6ScBe54wXW15I4CPn
26738KxN4wSUOLwNfnBZEuWShSK4xzjzCXGT7I9JoU2E/Nm8Txz95E5fUW9pjOXu
2674n1s5TMC7tdRCfh0ZVJRnnN7NJiBuhGFjKCSLb1b2eFa9I+CNQuXbSx9lMcHt
2675p1XPawJ0n9zvdm6Uw7Psy+5v/iWAbbb5kmG+POZ0pR5u7SWg0DN8YHskCds7
2676v9wo6Cbgz5XfX185KGB92uiY03MCBD8YxJ9WI+OICUVprJ2Apwe6BLO5KLi4
2677OGW9vYUAb2VetaF3FLQ22e7d/IQAtYX3e+PrFHGDmK6t0GMCRg/4x4WfVUKz
26780rvCeg0E3PtR8uNOhDIyor/mm9USIGxHSnR2UkGZx+c+rK3h7PtXwI5yGSqu
2679v847yHOLgMOVihYOyRwu0o5vqCTg+LtTNfRvVEzY0Vi3+TIBItd4SVrbaKiV
2680tnDsVRkB6QV/+nb20FDTb6DF4DwBj5V1nAbM6ZipO3YsroCAU+X1E7G36fg9
2681fuv5y2cI8OFVVfBWIbBuUlai5jRnXy25DruzCOzbk/6sPI2ATNb7r7XLBB6w
268272XFJBPgFlN6wixSFd/Rr79ffYyjhz80hWdYFU9P7JJtPkwAo69tN5+7Gma9
26834vWGaALOdKQ8sm5Sw5OOomdKwwng236Fr52hjhUdt+4P7yTg2a6y56euqONQ
26843Z1qgWACYqOjruSRNLDVLGa/mD8BjiadGiMZGmgjPj36azMBstXqn4/81UAP
2685euWfFlcCwpb+ZPlEaqJXRGfpAXsChgNfNyR90sSlQgGWoBXnfo6ly/70WoVO
26862Zet4zYQ0Kpn7drQuQoztRNV+vQJ6NB+ofjCbDUqsJYMRdcRUMoqNtK9uxqj
2687T8sf1dDkzHNeZPu4xhrM9XTuUaURYKeZHDx3fg1Sa26q8pE57yGxjNdbSgtV
268807qDWqQI0LgXqiCVpoUUz5fhu0Q4/Rl74zWWtHDiiDdjmpcA7SxhiXMx2hh9
2689POO8xyId3sRl1e/6rI1RzrKZxXN06LaPCCkMXotWBsRs8xQdBKsPi65+uxY1
26901wRUdo/QYYOWcJWK+zpsrZ0qfThIh+m3djaxnevQ+0/Eg7RXdLh96MaBUpoO
2691ri/lfmfwnA4WE8+8DQJ00Pq67kRLEx1m/u7x4S3WwRkPvnb9h3S4bN+dIfha
2692BydwZsuJGjpoHr4jwJTVxYrqNyl1lZx6vLvGH7jr4g0FWc2OMjoUTvFu2p2t
2693i/H3AtUfFtCBHB8T6tWli/YxQ0GnM+nAoFd5JIjqofK0Sr15Kh02hqLdmIMe
2694Pr0iLtobSwdtEjn2VLoedvj9NWVG0SGz6oxadLseqqrmqefvooMnuzytWHA9
2695pme8r2wLoMPFOycmBWzX48pTjEuvPelAb4oqqD2xHlWTnGbaHehgJVc3XNW6
2696Hv1nNHcXAh2q/L7RxgUY+MuSMmNjQIfaNqjba8vAaxEsn1dr6GCZFi5omsbA
2697o4d+JQKNDic/qyV4djDQcGAKTspx9DusPdMgrI+KAzz774nQwby98OE+Jw6z
2698BscfctHBmHspPipTH/OnPRPKf9Dg19267W09+hjbfUQ4ZJIGbalKy/ukDfBF
2699fXqgwBANGr81Te72MkCr81/cU/tocCP1UUfjOQPkKTeuH26jwUAE2zb0vQHy
27005ykHUxppsOICDzmMZohSphF0vWoaVAZ6LbWGGOK1KLlOtQoakF6VNyZdN8QW
2701I+lV8wU0iFYoUC+eMcQ7CdFil07SQCuZIMnqG2HRoIudVgIN9o80Hfp61AjF
2702hJ5cyomiwUHFQQO9J0Y4aDAy1RtCg0NCUu5vBI0xgvHsy4wPDRRFb7wcdzHG
27034cDY6HFHGpy3+d4RnG+MNaFjVo1mNOhuOednzzZG7Z5PGnt0aRDarHqvRN0E
2704N7mtHpsjOGzqJxYSYYLfPtgxfeVosHm+vqak3gSflpQKFK6gAWXH2E9nHlOs
27052ekzW71ABf1t+lYHnExR0yiw6dIUFVaaEkLyBaZozNwCkWwqpOp8eKH/0RRX
2706dpary/VQwaZuUO2V9gbcVmTIyHtCBZ1e/9q5IxtwyeOx2nQNFeQ7JA2KWjdg
2707h0tkrVIFFb4WNIS3SW/EQT25MvU8KlRHPDNK2LYReY3+FgmeoEJ4peKJ5tsb
2708sUhoeisepILDmXKfoqWN2OOgVOK2kwrecRrtvC5miLWrxeu9qbAqXYmHr8QM
2709xV6LbJ+3pULZ1RCHki9m+MWd30HEiAoX7Nct/mtujlcbL0TNa1Ahzm8w41aO
2710OS4vZKfXyVMhRfrr8TUj5uiv3mTsIkiFPUX/WF+jAH7sCvGJmVYBZsOxmmxr
2711wBUF/eLzz1RAc2Drz54IwHmxyU/U6yoQ6t0ruacIcNY6kzz3jwqErOsW29YC
27122CW478e+EBUwztcSuT8LeKWi+062pQqs6nZlhClaoItPVJqPigp0pL5rT7Cz
2713QC/z3Tdb/ihDKDNM4U+MBSa1LrgODCgDJc8p/X25BUokRhSduqsMJ8KCslZ1
2714W2CI/fc7I5nKkBgxVDu8aIHvK0Nq2WHKsEfArmzFGktUcF/79AhTGYbznHjK
2715fS3xv3KxyXvKytAi8/L6zTRLPEH6uiHrlxLsKJtP0K23xP6c2ibBXiUYkDZI
2716WjduibE63ElKVUrgfymj/TrJCkl9i5HdyUoQfvbmySv2Vpg3q5qu6K8EzcY7
2717lNRjrTD4nmA9L0MJcrKGv2jdtMIkXYHRZBEl+Hp/Q87jISvsTpCcLf6oCOzP
2718f2vZUkz8fnbHHYcHiuCf26SfY8PEpRKT35lZivBKjHvF26NMxMdJWTtDFCHO
27194Y3Lo9tMlGpOX99noggsDXlP81EmPuq+VdwjrghSE9andlCs8W3SckzACAWO
2720aU4V6rpbo1EUOzi2ngKOy58dqtKtseFiyZLaKQp0OIpc7n/COc8nD/gHUmCH
2721zVV2/YI19t62jlTWo4Dip/xQb4YNth+sswzjo8DFl+ZjdftskOqh89C0nwxl
2722jh+ZHypt0NRF3iT3KhlE7alV/aM2mOQzK7X/MBmY6i0nyum2mJvRebLHjgyv
27237PoybYNsseH55cFqEhn4h963dZfYYo5F91qJcQXoOXQ/zYJti0JN689P1SrA
2724yKd9CRXKdphSfXUtM1UBnp17XssVZIfCpsSQjIcCOD+QPh9w0Q6l7b/l+lMV
2725oLXNi79t1A4zfvSrKkyT4Ja/hZHVansMyFNys3tAAjGj/V8HI+yRJlPe9F8K
2726CRSu7d5bUmuP476P5X64ksCYZbj3zJI9ujnqd4aTSRB5q4nZbOuA7K4fNq4j
27278pB1nX/U/IwDlpMGBvNvyoOnsuRHSbYDmrkYPrE4KA+TxUSy7RpHbA9MWuls
2728Jg9PpZ93fTniiAdr8x/d55eHQT+Hc3KdjmgiR751+LkciCo75HZRnFC6qbDo
2729zBk5EPtMDdKIcMKnlzIpXD5y0JPZWKLX7ISpDywqHinKwYmfMSt4Kc5Y3ReZ
27302PZBFs4zFo/fiHZGrrGelwoVsvBs/20TZpcz9v7rcbo6VBYk8vIef1jtglMT
2731eof/0ZSFqOztKkXpLrhoU6taNCEDye8+S2ZMuqAlb82XT5UyMG+3T/a5syse
27328q3+GRgmA1v53Eri77qihDeLLqQpA9WcT39opRv68Q2Ivx2Vhlb7N8veVm5o
2733uO+Z3IuL0mBR+vu66VE3bCI1WgwGSINO3Pb+CzVuyMWYteEmS8PT8JC2s1Nu
27342Okmelz/lRSUVDUlMTQ3YQrz5NT+01KQGtP3qzBkE761CJK9bS0FhXPhtoMV
2735mxB7LsmPLkrChf6RGcrYJtSX0swWuSsJTPlAtcOr3LFrb2eOwi5JiI9zpcpE
2736uGO2/KZCfkVJ2EFIJ8rVuWPA1XNHWrokQETCtLGS2wPRp9fTJVECRLfmX1t0
27378UAyhiXk6kiA2OXn4lalHjhgWMKWY4nDmzrrsNpvHmiWIc50JIvDZ5pzdb69
2738Jy4+4+eqjBKDJvLU9jUVnlglPXJQon0lyDgu1DfzbEavqSSPQPJKqKfnCD8K
27392Ywd04rakWGiEFhfXHj0xWZMJ8cpke+LwHKEQOV+Ey9syrxrpfNXGEwC8tQ1
2740bnqhx4f5tUkWwmDL2ja8Xt0br5rlrOlPEgKD2ZRyuyve+DrNbve3RyvgMknX
2741Zf1aHzw4NfMz54cgCCV8TRl97IPzqZGHdmkKQtnRFfR4X1+c8ys6qeIlAOmF
2742rlGuy77oojTR73mMHzb2GFB+3dmCkU1DewvK+KD1SJBdeLQfCuk3Je5o5IW5
2743qsljFBt/dNzPx0+85IHJ8tDnotpbUWGkv02JzQ21jZ4ONK0AzE186Rv7kQvY
2744XKH/BdsFoj1xzSykYdm8Wae335IZhCXh3H5z5/6aR3Fxsd8sBOG6ovQtAUF/
2745zAcTzbZGdm3D7ImdV4Z+/Da/Gti+7kVIMP4P7i7MMw==
2746 "]]}}, {}},
2747 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
2748 Axes->{True, True},
2749 AxesLabel->{
2750 FormBox["\"r outer\"", TraditionalForm],
2751 FormBox["\"v outer\"", TraditionalForm]},
2752 AxesOrigin->{0, 0},
2753 DisplayFunction->Identity,
2754 Frame->{{False, False}, {False, False}},
2755 FrameLabel->{{None, None}, {None, None}},
2756 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
2757 GridLines->{None, None},
2758 GridLinesStyle->Directive[
2759 GrayLevel[0.5, 0.4]],
2760 ImageSize->{719., Automatic},
2761 Method->{},
2762 PlotRange->{{0, 10.}, {-147.18129719863393`, 0}},
2763 PlotRangeClipping->True,
2764 PlotRangePadding->{{
2765 Scaled[0.02],
2766 Scaled[0.02]}, {
2767 Scaled[0.05],
2768 Scaled[0.02]}},
2769 Ticks->{Automatic, Automatic}]], "Output",
2770 CellChangeTimes->{3.6444283031908045`*^9, 3.644428395593089*^9,
2771 3.6444305384846554`*^9, 3.644486345017076*^9, 3.6444868210913057`*^9,
2772 3.64452329706*^9, 3.644753392558*^9}]
2773}, Open ]],
2774
2775Cell[BoxData[
2776 RowBox[{"r", ";"}]], "Input",
2777 CellChangeTimes->{{3.644421075750418*^9, 3.644421103217989*^9}}],
2778
2779Cell[BoxData[""], "Input",
2780 CellChangeTimes->{{3.644421094742504*^9, 3.6444211007428474`*^9}}],
2781
2782Cell["\<\
2783Next, want to try and get a v (r) profile for a given time, so that we can \
2784radial velocity profile inside of the sphere. Let\[CloseCurlyQuote]s go with \
2785t=0.15. . . \
2786\>", "Text",
2787 CellChangeTimes->{{3.6444221868149676`*^9, 3.644422215570612*^9}, {
2788 3.644422395494903*^9, 3.6444224297118607`*^9}, {3.644431854500928*^9,
2789 3.6444318665696177`*^9}}],
2790
2791Cell[BoxData[{
2792 RowBox[{
2793 RowBox[{"rt1", " ", "=", " ", "0.1"}], ";"}], "\[IndentingNewLine]",
2794 RowBox[{
2795 RowBox[{"rt2", " ", "=", " ", "10"}], ";"}], "\[IndentingNewLine]",
2796 RowBox[{
2797 RowBox[{"rtstep", " ", "=", " ", "0.1"}], ";"}], "\[IndentingNewLine]",
2798 RowBox[{
2799 RowBox[{"tt1", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]",
2800 RowBox[{
2801 RowBox[{"tt2", " ", "=", " ", "0.24"}], ";"}], "\[IndentingNewLine]",
2802 RowBox[{
2803 RowBox[{"ttstep", " ", "=", " ", "0.01"}], ";"}], "\[IndentingNewLine]",
2804 RowBox[{
2805 RowBox[{"rt", "=",
2806 RowBox[{"Table", "[",
2807 RowBox[{
2808 RowBox[{"Table", "[",
2809 RowBox[{
2810 RowBox[{"r0t", "*",
2811 SuperscriptBox[
2812 RowBox[{"(",
2813 RowBox[{"Cos", "[",
2814 RowBox[{"\[Xi]", "/.",
2815 RowBox[{"First", "[",
2816 RowBox[{"FindRoot", "[",
2817 RowBox[{
2818 RowBox[{"\[Xi]", "+",
2819 RowBox[{
2820 FractionBox["1", "2"],
2821 RowBox[{"Sin", "[",
2822 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
2823 RowBox[{"k", "*", "tt"}]}], ",", " ",
2824 RowBox[{"{",
2825 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}], "]"}],
2826 ")"}], "2"]}], ",",
2827 RowBox[{"{",
2828 RowBox[{"r0t", ",", "rt1", ",", "rt2", ",", " ", "rtstep"}], "}"}]}],
2829 "]"}], ",", " ",
2830 RowBox[{"{",
2831 RowBox[{"tt", ",", " ", "tt1", ",", " ", "tt2", ",", " ", "ttstep"}],
2832 "}"}]}], "]"}]}], " ", ";"}], "\[IndentingNewLine]",
2833 RowBox[{
2834 RowBox[{"vt", "=", " ",
2835 RowBox[{"Table", "[",
2836 RowBox[{
2837 RowBox[{"Table", "[",
2838 RowBox[{
2839 RowBox[{"-",
2840 SqrtBox[
2841 RowBox[{
2842 FractionBox[
2843 RowBox[{"8", "\[Pi]"}], "3"], "G", "*", "\[Rho]0", "*",
2844 SuperscriptBox["r0t", "2"],
2845 RowBox[{"(",
2846 RowBox[{
2847 FractionBox["r0t",
2848 RowBox[{"r0t", "*",
2849 SuperscriptBox[
2850 RowBox[{"(",
2851 RowBox[{"Cos", "[",
2852 RowBox[{"\[Xi]", "/.",
2853 RowBox[{"First", "[",
2854 RowBox[{"FindRoot", "[",
2855 RowBox[{
2856 RowBox[{"\[Xi]", "+",
2857 RowBox[{
2858 FractionBox["1", "2"],
2859 RowBox[{"Sin", "[",
2860 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
2861 RowBox[{"k", "*", "tt"}]}], ",", " ",
2862 RowBox[{"{",
2863 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
2864 "]"}], ")"}], "2"]}]], "-", "1"}], ")"}]}]]}], ",",
2865 RowBox[{"{",
2866 RowBox[{"r0t", ",", "rt1", ",", "rt2", ",", "rtstep"}], "}"}]}],
2867 "]"}], ",", " ",
2868 RowBox[{"{",
2869 RowBox[{"tt", ",", " ", "tt1", ",", " ", "tt2", ",", " ", "ttstep"}],
2870 "}"}]}], "]"}]}], ";"}]}], "Input",
2871 CellChangeTimes->{{3.6444224460167933`*^9, 3.644422535860932*^9}, {
2872 3.6444226081770678`*^9, 3.6444226334025106`*^9}, 3.644422733511237*^9, {
2873 3.6444227729734936`*^9, 3.6444229389719887`*^9}, {3.64442343657645*^9,
2874 3.6444234993430395`*^9}, {3.6444235295527678`*^9,
2875 3.6444235411594315`*^9}, {3.6444236013098717`*^9,
2876 3.6444236015818872`*^9}, {3.6444237077509604`*^9, 3.644423712904255*^9}, {
2877 3.6444238396935067`*^9, 3.64442390652833*^9}, 3.644431093930425*^9,
2878 3.6444319002425437`*^9, {3.6444319382227163`*^9, 3.644431940232831*^9}, {
2879 3.64443200980381*^9, 3.644432010268837*^9}, {3.6444321670498047`*^9,
2880 3.6444321689229116`*^9}, {3.644432326547927*^9, 3.6444323266609335`*^9}}],
2881
2882Cell[BoxData[
2883 RowBox[{
2884 RowBox[{"vff", " ", "=", " ",
2885 RowBox[{"Table", "[",
2886 RowBox[{
2887 RowBox[{"-",
2888 SqrtBox[
2889 RowBox[{
2890 FractionBox[
2891 RowBox[{"8", "\[Pi]"}], "3"], "G", "*", "\[Rho]0", "*",
2892 SuperscriptBox["r0t", "2"],
2893 RowBox[{"(",
2894 RowBox[{
2895 FractionBox["r0t",
2896 RowBox[{"r0t", "*",
2897 SuperscriptBox[
2898 RowBox[{"(",
2899 RowBox[{"Cos", "[",
2900 RowBox[{"\[Xi]", "/.",
2901 RowBox[{"First", "[",
2902 RowBox[{"FindRoot", "[",
2903 RowBox[{
2904 RowBox[{"\[Xi]", "+",
2905 RowBox[{
2906 FractionBox["1", "2"],
2907 RowBox[{"Sin", "[",
2908 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
2909 RowBox[{"k", "*", ".24"}]}], ",", " ",
2910 RowBox[{"{",
2911 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
2912 "]"}], ")"}], "2"]}]], "-", "1"}], ")"}]}]]}], ",",
2913 RowBox[{"{",
2914 RowBox[{"r0t", ",", "rt1", ",", "rt2", ",", "rtstep"}], "}"}]}],
2915 "]"}]}], ";"}]], "Input",
2916 CellChangeTimes->{{3.6444321041102047`*^9, 3.6444321467076406`*^9}, {
2917 3.644432332626275*^9, 3.6444323327342806`*^9}, 3.6444323792509413`*^9}],
2918
2919Cell[BoxData[
2920 RowBox[{
2921 RowBox[{"vt", "[",
2922 RowBox[{"[", "25", "]"}], "]"}], ";"}]], "Input",
2923 CellChangeTimes->{{3.6444321835687494`*^9, 3.6444321869089403`*^9}, {
2924 3.6444322542127895`*^9, 3.6444322547298193`*^9}, {3.644432340154705*^9,
2925 3.644432340392719*^9}, 3.6444323814660683`*^9}],
2926
2927Cell[BoxData[
2928 RowBox[{
2929 RowBox[{
2930 RowBox[{"Transpose", "[",
2931 RowBox[{"{",
2932 RowBox[{"rt", ",", " ", "vt"}], "}"}], "]"}], " ", "//", " ",
2933 "MatrixForm"}], ";"}]], "Input",
2934 CellChangeTimes->{{3.644422952626769*^9, 3.6444229956172285`*^9}}],
2935
2936Cell[CellGroupData[{
2937
2938Cell[BoxData[
2939 RowBox[{"ListPlot", "[",
2940 RowBox[{
2941 RowBox[{"{",
2942 RowBox[{
2943 RowBox[{"Transpose", "[",
2944 RowBox[{"{",
2945 RowBox[{
2946 RowBox[{"rt", "[",
2947 RowBox[{"[", "1", "]"}], "]"}], ",",
2948 RowBox[{"vt", "[",
2949 RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "]"}], ",",
2950 RowBox[{"Transpose", "[",
2951 RowBox[{"{",
2952 RowBox[{
2953 RowBox[{"rt", "[",
2954 RowBox[{"[", "10", "]"}], "]"}], ",",
2955 RowBox[{"vt", "[",
2956 RowBox[{"[", "10", "]"}], "]"}]}], "}"}], "]"}], ",",
2957 RowBox[{"Transpose", "[",
2958 RowBox[{"{",
2959 RowBox[{
2960 RowBox[{"rt", "[",
2961 RowBox[{"[", "15", "]"}], "]"}], ",",
2962 RowBox[{"vt", "[",
2963 RowBox[{"[", "15", "]"}], "]"}]}], "}"}], "]"}], ",",
2964 RowBox[{"Transpose", "[",
2965 RowBox[{"{",
2966 RowBox[{
2967 RowBox[{"rt", "[",
2968 RowBox[{"[", "25", "]"}], "]"}], ",",
2969 RowBox[{"vt", "[",
2970 RowBox[{"[", "25", "]"}], "]"}]}], "}"}], "]"}]}], " ", "}"}], ",",
2971 " ",
2972 RowBox[{"AxesLabel", " ", "\[Rule]", " ",
2973 RowBox[{"{",
2974 RowBox[{"\"\<r\>\"", ",", " ", "\"\<v\>\""}], "}"}]}]}], "]"}]], "Input",
2975 CellChangeTimes->{{3.6444230392337227`*^9, 3.6444231275287733`*^9}, {
2976 3.644423970900011*^9, 3.6444240363077526`*^9}, {3.64442410042942*^9,
2977 3.644424112024083*^9}, {3.6444241824911137`*^9, 3.6444242423395367`*^9}, {
2978 3.6444243317076483`*^9, 3.6444244883446074`*^9}, {3.6444309557575226`*^9,
2979 3.644430961209834*^9}, {3.644431294176879*^9, 3.644431341965612*^9}, {
2980 3.644431906260888*^9, 3.644431908813034*^9}, {3.644431943383011*^9,
2981 3.6444320384654493`*^9}, {3.644432269361656*^9, 3.6444322758200254`*^9}, {
2982 3.6444323492832274`*^9, 3.6444323519053774`*^9}, {3.644432408794631*^9,
2983 3.6444324134678984`*^9}, {3.644432664007229*^9, 3.644432668988514*^9}, {
2984 3.644525616814*^9, 3.64452561938*^9}}],
2985
2986Cell[BoxData[
2987 GraphicsBox[{{}, {{},
2988 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.007333333333333334],
2989 AbsoluteThickness[1.6], PointBox[CompressedData["
29901:eJxdk8tKglEUhY92p+hiV0tKqzeweT1Do8ZBNux57E16hMCaNHIWBEHQQDGC
2991KCTP+WIvWgtUPs5Z394//LYub86vqimli8kn/952c+5O01/g++CTds6TnfeD
2992yXNwud5+Cb7u5Lxa/y34oZfzbr6B3R/aPqPgx9L/sHmf1v+y/rf1f6w/tn3S
29932f99xfgrwfSrwcybCq6U72nzifHNmG/WfHPWn7f+gt1ftPlL1hczb9n6K8Fk
2994Nbhc74jxiXkf1oLLel0xqZlPjE+Mb92eV0w2zCfGJ8a3aT4x2TKfGJ8Y37b5
2995xGTHfGJ8Yvp16+9aX8z8PeuLScP6YuY37P6++Q/svGnnYvxi9hEzT0xa5hPj
2996E+MT4xOTQ+uL6Yvpi8mR7SPm/yLGJ8YnJsfBv4QfAOE=
2997 "]]},
2998 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.007333333333333334],
2999 AbsoluteThickness[1.6], PointBox[CompressedData["
30001:eJwtlHtQVGUYh5fLLrvIZYFdYFkue2CBleteUEOE89pIETFamEYJXkhHRRYW
3001Jwsc0kFC0JQUpyKWuGbJiJK3CqfYN8saZNQAlbgagoOgDgSIgpLlOe8fZ86c
3002OZfv9/6e5ztMenbyFmuBQLD5/+PFOV1v5fgg9Qe25WzidVNdq4W//oOuuy1X
30037qLkTFE7Kxflmm9ED9H9Lro/apnbs1waHNXP/tRUWrBfOGFp5Z4fZGXc81MW
3004d4dNn6zMGWazUjdd8M+aofdH6P1Zy+mU2tIDCWOsnyRqtOXWM/reQ/qeAOs7
3005JhLuOE+wo+8Wlp6qtkI+zz+UxwYnnhy5svfpJPvymcwTTzttkV9vmtYT4TI/
3006XZLPyCPWbLf20mtiMfLrP6b1JVgS3371YscTdiqN7fti2QJs4vLMsSoujwPe
30072JGzKqXlKZt0XjNz1+SEfL55yidFVZlL+6OGf9lkoURc0SGlvALg87rgkr6U
3008htYrAsj7bl72S6Yr5bcCPr8bpo1rMsrBGhrXTTL3RDIc5+axhuXcPDIstJ4N
30092fq9DXSJRiKca+U0ny3w87ljg7z1/qIwIdie7Y1ZHONB8wqBn9cTr2u+bLSt
3010E4E27c+EtJueNL8d8PMr8FHMdmOnhxjeEl9e83G2F/UhBr4PJXqvio6oOyyB
3011g+ea009KvJHnZQ88L29cni4ZN9ksgMb1p7M76n2orwXA9+WL23Z1N7F5DjAk
3012qc+fjfWj/hyB70+Fh0oaTE7jjlDc07ZCmqmiPp2A71OF58x5uv7NzuChfaUt
3013IJqhfqVwh+uXQWOXenaNUQqni/DNJSJ/XMz1LYVcrm9/FAweeidW4wKJvUv/
3014Suz0R95PF+D9DMBjY9PN6iEX6NZeWL++JgBTOR6ucJLjocbA6VQvhypX+GB/
30155N0co5r4uBIfNTbP/7Z7KsUNbPsadhQtDSRebsQrEJPswnt73GRg1qkny+2C
3016UM7xk4GR4xeEt6WfxVy6JgNdcVVu440gPMHxlMP8mRc8g3Gn17y54YAcrvV5
3017PrfUBhNfOZRxfDUoVG95dmSFO6TpjxV1ZmmItzvx1mB5+NXU3OfuMFXs6DAS
3018s5D4exD/hRi6ZNHPGy56wNH+4rI5cQhOcz54wjrOhxBsga98Xt3lCRqDtcLp
3019Vgj54QmjnB+hmJwo3BOhVcCFkvxqpj4UlZwvCtjL+RKGw6uNA/L7Cnh9YCZw
3020kSmM/PEif8Lww7SbcfPHvWDMkNOYEBtOPinJp3C03xpbPbxRCQUH7utT7SPI
3021LyX5FYFVpuPP25Te4Hh7S3N2VwRu5Xzzhi7Ot0jU7XbceO6WN9RH/c0Wfh1J
3022/vmQf1r8tXAXVhz1ASY+/L22l7Tkow/5qMW3D/er9iX5wsPsjKA11Vry05f8
30231OLY5/EF2+384MeKb0cHhDry1Y981WF+zanBNy75wb7Lw43bMnXkr4r+DzoU
302437RnKuNUsHKCMU126MhnFfmsx/buuHbnShUolBsM+dF68ltFfuvRPLCzoHBW
3025BcPxlTPCGj35zpDvetw89I3u8VoGmkzdzZ+KDOQ/Q/4bMPJez2DGeQbeN7t/
3026pDAaaD8wtB8M+OSBU9mAiz+wv6+G+k4D7Q9/2h9R+B/dK99k
3027 "]]},
3028 {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.007333333333333334],
3029 AbsoluteThickness[1.6], PointBox[CompressedData["
30301:eJwtlHlUVGUYh0cmBFlnY5iBYRCZcCCRfWe4L5lIWshgCrkVssSJkAJUAgvF
3031LcGOgop5yIKOQCeXcE0hnRcxhEwG94XkoIQKRA16RNasvvv+cc8999zl+72/
30325/mu26rshDQzgUCQ+t/x/1lvPmhSDpzgog+9/3CZ6y0Df91M148MY9tS+mq7
3033r3DZG1r7Nu8z0f3rdH/YUBOjzeruvcPZ3Rq55183bhhlz9/nPmHPC7Au1Xj8
3034dNYD7vZeWfrHy4TIv99D70/F8Rorn88yHnG1eHjlvB5L5L/3hL5njfGP5x6a
3035kzLArR14I1GdaYd8nkHKI8JFe1Bq7mPiNKV/1RWMimm9IVpPipOBXfqMw0+5
30360qpwTfo5Ga3/jNaXY+3N8Z2XPZ9zz05trdJvdMQJlmeYq2N5FBi/Vtk+u+4F
3037t+LyNZVurhPlG6F8zjgmD7Ep14xxTd3q/dppLpR3nPKqseand+Y/r57gvIY/
3038dJBdcaX8k5R/OsYn5XyR5PqS+3VLZ2tRrBsmsHkEMIPN44brJ+b1rGgXQNGu
3039KdvW/DCD5psC/HzueO23JcX2tmbgVzlzbqaNhuY1A35eDXocSHNrWiCE3pq3
3040hcmrX6X5hcDP74Hrs/Iwp+QV2F+f27Skw4P6MAe+j5l4VbfpPU2bOcQ37i96
3041y19LvKYCz0uLHnbl/9y0sABBi0H3+h5P6ssC+L68sLCr6sC2GEs42dE7HjLs
3042Rf1ZAt/fa2g8+mNk2JZpkNFp3eCdNIv6tAK+T2/UFJ3v7G+2AudHfvnuDd4Y
3043x/q1hnzW72wsWHil4GszGzCaEoOVKh88yPq2AS3r2weNrr8r46Jt4cJkVIEF
304454u8n7bA++mLGlP/mZdFdqAWJrxrZvLFOMbDHtoYDz/Mx9HEY+ftYY1lWuhk
3045lR/xEREfP/wgdnPhsc9FYLTNdxzR+xMvEfHyx7J66wVWajHMkpYOPzULwFrG
3046Twx3GL8A/Fmx2ynlnBi2Kr65OXgiAK8ynhLiGYiPNzj1Ny6XwH2XYyefpAbi
3047BOMrgRLGNxDFfdVnZRMSCHa/uLvHIYh4S4l3EEboPbdnVUqhTHs7p6sliPhL
3048iX8wpp+tT2oJl8GAd7/+7rpgLGQ+yOAr5kMwlrmFal3vySAmYNL3hjaE/HCA
3049IeZHCDZuN7xY96kDfBcqEhnvhmAH88UBFjJfQrF3KOZSh0IOIzr3v9tKQskf
3050OfkTiqKl7RWeZ+SweE5w+8WIMPLJkXwKw4gLi9OLEx3hSOybRwx/hpFfjrCU
3051+RWOaV73gzqHHcEqbvmOhgPhWMB8U8Bp5ls47ipPNQ+sUEDyouzMU3ER5J+C
3052/IvAhrGBGzuClNCYVDy//mUE+agkHyOxd1Xuwd4bSpCv3Ot5qD6S/HQiP3Vo
3053f3ksNyrPCbJTvresTdaRr07kqw7DAorn7JM6w6WMxsdVkij6PzgD/3+IwrTK
3054aVLTcWdwX93eUtkcRT6ryGcOdwrLHsYmqKAw90FNRR5HfqvIbw4bMhXHq4dU
30558FFkwYVWCZDvLuQ74B/Xv904tssFlAahf0wmkP8u5D+gfeRM/SJfNfwS/WV1
3056czPQflDTfgAMO3h0+mGjGnIuysXRqmjaH660P6LxXxUO9uQ=
3057 "]]},
3058 {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.007333333333333334],
3059 AbsoluteThickness[1.6], PointBox[CompressedData["
30601:eJwtlGlQU2cUhjPBqWXRInYEBkdZhA61kZ2K1R4EFbCoEHYCIYGQEEpalYps
3061jjhtFRxmUFDWGkoBQTrUKova0uawCAVRNoksAgkh7HRTqajUtrfnx507d+7y
3062ved9nu9aRH/KjWWzWCzRv8d/55tTjVfkrWdg49vjrU+6Wfj/9UW6NkSDkNxF
3063WWUxbN5yv1LmZEr3y+i+OY5f2bb/rPNVMC4arLdnWaMe83wNmDHP2+JOQ9al
3064oE3Xwby8Lb9GzKH3b9D79ujdLDtm9KoOLivDdudOO9L3Gul7LngiddTkRcJt
3065KOL5c3pM36c8P1AeN/zGyQfVY01QqvLeYnDoA1pPQevtQUnSaJ2oCqEi1v0t
3066nwyg9ZtpfXdc5eaeG5pogcBnZqzW4b3ow+RppTwemGfnw/M1uQvKWwXJwiee
3067lK+d8u1HWwOWHfp1QGjqxj9eGxygvL9QXi/E2Ua2c1YnjO7OkcptvCl/F+X3
3068wZC7MmVV8z3gv9ab3O1+EMuYebrhCjPPR7hYtq3G7MV9mGg+Gz4a5kvz9dB8
3069h9BDsfSzl2kvCL9gD6QkHqZ5e2neI5jN6aw+49IHx60U1tkH/Gj+PprfD4dK
3070KnJ/9O+HujWrQl6AP/XRT334o5VeRvoz2QA80+6SvyvgEq8B6oeLnyTzxHbn
3071H4JLR/LISkIA9TVIfQXgnWlXP+nVQThZ3bipMyWQ+lNSf0GoE2S0q7xFCbey
3072nnILzwZRn4+oz2A83LpkNTb+CJ7HO+ZI8oIxkel3CAqZfkOw2KFznfHLIXDz
3073PXrP9esQVDB9D8Mw03coaksr/vIzHoE0zndr36gNJT9HyM8wdFifoT7vNApN
30746xc9B++EYTDDYxQiGB7hmJrOu9d25DGs/mabUdEeTnweEx8ets+7Nvz98Rh8
30752CdpShzgEa8x4hWBG8KMSndmjsPpm5XPPVQR6Mrwm4CtDL9IjOxYyjxeMQGK
3076PI2z0VIk7mV4qognHx8Wi9yCBSpgn7A4pl7ho5jhq4Jyhm8UrvhzdyT+qgKL
3077b68Hh+oIiLeaeAtwq6671YV0NbSUPHiqyBIQfzXxF+A+5JjU6k1CTPZS7juG
3078QnzE+DBJPggx/qTZuq7CSdA5ZeCQky8kPyaBy/ghxAs7dNkzNhqokG3vWd4c
3079jZaMLxp4yvgSjQ3a5WWdBg3s4x+U8cujyR8N+RONI19NLZh7ToH2sFS/3TaG
3080fJoin2KQFdiv2tM3BV9C5jXO9zHklxYGGb9i0EYfB8OjtGBjX+V12VWEtxnf
3081tJDE+CZC35barpNLWmg3b9e+ahKRf9PkXyweTSlRXEqbBskG7eciz1jycZp8
3082jMUC+6z6G7ozsJa9xrK7M5b8nCE/xdg0k3TtQcEMVP9piU5+YvJ1hnwVo1ou
3083ki9Yz4KXZi+/RCmm/8Ms/R8kuDaYm/dm/SzMDwhesSMl5PMs+SzB99a5Z1p7
3084zEFW2+nieI2E/J4jv+MwoI1zyqN3DrY3yHf2S+PI93nyPQ6T08yOR/Hnoavy
3085J6Xb73Hk/zz5L0W5o64kfXEeEvIff1aWJKX9sED7QYqtc8u8otQF0D/30kh3
3086VUr7Y4H2Rzz+A7PZLCQ=
3087 "]]}, {}}, {}},
3088 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
3089 Axes->{True, True},
3090 AxesLabel->{
3091 FormBox["\"r\"", TraditionalForm],
3092 FormBox["\"v\"", TraditionalForm]},
3093 AxesOrigin->{0, 0},
3094 DisplayFunction->Identity,
3095 Frame->{{False, False}, {False, False}},
3096 FrameLabel->{{None, None}, {None, None}},
3097 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
3098 GridLines->{None, None},
3099 GridLinesStyle->Directive[
3100 GrayLevel[0.5, 0.4]],
3101 ImageSize->{817., Automatic},
3102 Method->{},
3103 PlotRange->{{0, 10.}, {-210.0074320044322, 0}},
3104 PlotRangeClipping->True,
3105 PlotRangePadding->{{
3106 Scaled[0.02],
3107 Scaled[0.02]}, {
3108 Scaled[0.05],
3109 Scaled[0.02]}},
3110 Ticks->{Automatic, Automatic}]], "Output",
3111 CellChangeTimes->{
3112 3.6444324142909455`*^9, 3.6444326703025885`*^9, {3.6444863276300817`*^9,
3113 3.6444863465431633`*^9}, 3.64448682307642*^9, 3.6445232999519997`*^9,
3114 3.6445256209230003`*^9, 3.644753394809*^9}]
3115}, Open ]],
3116
3117Cell[CellGroupData[{
3118
3119Cell[BoxData[
3120 RowBox[{"ListPlot", "[",
3121 RowBox[{
3122 RowBox[{"Transpose", "[",
3123 RowBox[{"{",
3124 RowBox[{
3125 RowBox[{"rt", "[",
3126 RowBox[{"[", "5", "]"}], "]"}], ",",
3127 RowBox[{
3128 RowBox[{"\[Rho]t", "[",
3129 RowBox[{"[", "5", "]"}], "]"}], "*",
3130 RowBox[{
3131 RowBox[{"(",
3132 RowBox[{"(",
3133 RowBox[{"vt", "[",
3134 RowBox[{"[", "5", "]"}], "]"}], ")"}], ")"}], "^", "2"}]}]}],
3135 "}"}], "]"}], ",", " ",
3136 RowBox[{"AxesLabel", " ", "\[Rule]", " ",
3137 RowBox[{"{",
3138 RowBox[{"\"\<r\>\"", ",", " ", "\"\<v\>\""}], "}"}]}]}], "]"}]], "Input",
3139 CellChangeTimes->{{3.64460101694*^9, 3.644601037262*^9}, {
3140 3.6446010700290003`*^9, 3.644601120946*^9}}],
3141
3142Cell[BoxData[
3143 RowBox[{
3144 StyleBox[
3145 RowBox[{"Part", "::", "partd"}], "MessageName"],
3146 RowBox[{
3147 ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(\[Rho]t \
3148\[LeftDoubleBracket] 5 \[RightDoubleBracket]\\)\[NoBreak] is longer than \
3149depth of object. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\
3150\"Link\\\", ButtonFrame->None, \
3151ButtonData:>\\\"paclet:ref/message/General/partd\\\", ButtonNote -> \
3152\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
3153 CellChangeTimes->{3.644753394888*^9}],
3154
3155Cell[BoxData[
3156 RowBox[{
3157 StyleBox[
3158 RowBox[{"Part", "::", "partd"}], "MessageName"],
3159 RowBox[{
3160 ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(\[Rho]t \
3161\[LeftDoubleBracket] 5 \[RightDoubleBracket]\\)\[NoBreak] is longer than \
3162depth of object. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\
3163\"Link\\\", ButtonFrame->None, \
3164ButtonData:>\\\"paclet:ref/message/General/partd\\\", ButtonNote -> \
3165\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
3166 CellChangeTimes->{3.6447533949300003`*^9}],
3167
3168Cell[BoxData[
3169 GraphicsBox[{{}, {}, {}},
3170 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
3171 Axes->{True, True},
3172 AxesLabel->{
3173 FormBox["\"r\"", TraditionalForm],
3174 FormBox["\"v\"", TraditionalForm]},
3175 AxesOrigin->{0, 0},
3176 DisplayFunction->Identity,
3177 Frame->{{False, False}, {False, False}},
3178 FrameLabel->{{None, None}, {None, None}},
3179 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
3180 GridLines->{None, None},
3181 GridLinesStyle->Directive[
3182 GrayLevel[0.5, 0.4]],
3183 Method->{},
3184 PlotRange->{{0, 1}, {0, 1}},
3185 PlotRangeClipping->True,
3186 PlotRangePadding->{{
3187 Scaled[0.02],
3188 Scaled[0.02]}, {
3189 Scaled[0.02],
3190 Scaled[0.05]}},
3191 Ticks->{Automatic, Automatic}]], "Output",
3192 CellChangeTimes->{{3.644601024126*^9, 3.6446010378059998`*^9}, {
3193 3.6446010729560003`*^9, 3.6446011213459997`*^9}, 3.6447533949849997`*^9}]
3194}, Open ]],
3195
3196Cell[BoxData[
3197 RowBox[{
3198 RowBox[{
3199 RowBox[{"^", " ", "This"}], " ", "is", " ", "wrong"}], ",", " ",
3200 RowBox[{
3201 "because", " ", "it", " ", "shows", " ", "the", " ", "ram", " ", "pressure",
3202 " ", "gets", " ", "stronger", " ", "nearer", " ", "the", " ", "origin"}],
3203 ",", " ",
3204 RowBox[{
3205 "but", " ", "we", " ", "know", " ", "the", " ", "density", " ", "is", " ",
3206 "flat", " ", "inside", " ", "the", " ", "sphere"}], ",",
3207 RowBox[{"and", " ", "the", " ", "velocity", " ", "grows", " ", "with", " ",
3208 RowBox[{"radius", "!"}], " ", "So", " ", "am", " ", "checking", " ", "I",
3209 " ", "get", " ", "the", " ", "correct", " ", "velocity", " ", "behavior"}],
3210 ",", " ",
3211 RowBox[{"here", ":"}]}]], "Input",
3212 CellChangeTimes->{{3.644673871448*^9, 3.6446739244049997`*^9}},
3213 EmphasizeSyntaxErrors->True],
3214
3215Cell[CellGroupData[{
3216
3217Cell[BoxData[
3218 RowBox[{"ListPlot", "[",
3219 RowBox[{
3220 RowBox[{"Transpose", "[",
3221 RowBox[{"{",
3222 RowBox[{
3223 RowBox[{"rt", "[",
3224 RowBox[{"[", "5", "]"}], "]"}], ",",
3225 RowBox[{
3226 RowBox[{"(",
3227 RowBox[{"(",
3228 RowBox[{"vt", "[",
3229 RowBox[{"[", "5", "]"}], "]"}], ")"}], ")"}], "^", "2"}]}], "}"}],
3230 "]"}], ",", " ",
3231 RowBox[{"AxesLabel", " ", "\[Rule]", " ",
3232 RowBox[{"{",
3233 RowBox[{"\"\<r\>\"", ",", " ", "\"\<v\>\""}], "}"}]}]}], "]"}]], "Input",
3234 CellChangeTimes->{3.644601135874*^9}],
3235
3236Cell[BoxData[
3237 GraphicsBox[{{}, {{},
3238 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
3239 AbsoluteThickness[1.6], PointBox[CompressedData["
32401:eJwtlHlQlGUcxzl2QUAUdpFl2V32QClFETlNjfcLLAIr1yo1YmXDYjGkookh
3241yEiMSBpBKiKXkohOASkqFiQOHnGkA47HJEd5MMgIyCVGIBmYPe/vj52dZ97j
3242+f6+n8/zqg3b1n5iYmRktOnN7///MEnMgsWul7jNMa+Lm+L3cPz6Jq1LudS7
3243JvLY7ntcdvmJgo3Z5+l6F11v4Jw+Ouc2+cVjzi09ssh2qoVLYff3cAfY/Xc4
3244w/jZshbhU+5GRl/Wjsx2en6Ann/Iea8QVB2OGuI6C5ISqo710PtG6X1POQHO
3245xlSHj3HPDEe6JG2DlOcF5XnOjRjWPxInjXMReZU3MxL+ov0maL8JriPLNC61
3246aJKLToxp9eycov2naP9p7npFdd+jhn847/KhFFGxEXxYnn+5LpbHBFWtMVu0
3247T6a5zux8p6rLAvD5XlM+M+h27X0Zvc8I3dtPt3evswCf1xh8XitcndVZby4x
3248wdpo+cna2Dng85uAz28Dr5Ile+orTXHUcebK0Re2GGbzCMDPI0aFaya3dZUQ
3249Fy3Ka5WjduDnMwM/nz0UDZ3Gqttm2D+Z6pvq4gB+XnPw80pxOMKt6V7sLMzt
3250zfIvL5KBn98C/PwKmHVnfpU1bgHd7ebfS4KU4PuwBN+HCmmfd4Us32+F0gfH
3251Uy4UqMHzmg2elwajJkutBqXWGLqzfc30D87UlzX4vuZjU/6+W6Vn5mCg6VHP
3252+fYF1N9c8P25YEg0HFyhtEFp3VO/Ns3b1KcN9bkQ3/8pqTQesMGGqgMfR+Ys
3253ginr1xb9rF9XxJ4OsPygxhYXjzVpV4iX4ArrW4QI1rcbZFu3bv4pTYTmnJKR
3254nLql4P0UgffTHe3eRW3WQWIU+2VVn1q1DJ6MhxhHGI9lODTz65L4OXZI87G8
32554XXGg/jYER9P6H4b/vZahx0s3R40pi7yIl7ziJcXhIccnktPzkPIglcnd9R5
3256I5bxs0cL4+eDq+sD9Umf2WOZPN6gXOcLOeNpTzyXY7c6sabNU4KbIpUwY3o5
32572hlfCfSM7zvwfFYkdpmWwMLCJTu/dgXxdiDeKzFS07jzyxYHvJpJGfswfRXx
3258lxL/d1GRNnK/86AUheMOK7ui/SBkPkgRzHzgEKeV+nrEOGJsfO9FgQK4xvxw
3259hCfzA1BYa4u+0ciwZfRE/YS9P3YzX2Q4xnzxR8f9xKneQRmuJDypCXAIIH/k
32605E8A8r4r3uD3sxx9ceHH+1WB5JOCfApEWHzT5cJ0BfoePkzud9eikvmlQDvz
3261Swtz91H5WLATtnXkBwSEBCGO+eaEAuZbEK6/lKbrbJVI0O94/fenq8k/Jfm3
3262GmnXtY9P/aHEoC75rGluMPmoIh9DIGv2LZvRqxDUVBa2uT6E/FSRn6FIWXgr
32636sdaFZIaxh4sHg0lX1Xkqw73cw3G62VqJPskbAxxXUPfBzV9H9bA48XkBUGG
3264Gu8tNb/bkBhGPqvJ53AcfD/XcKFXDWFFq1fupXDyW0N+R2C4XiPeGKpBXlnt
326517VWkeS7hnyPhE75S6NltQYps3v7jntEkf8a8j8KFZnhO+tEzoielZFp9SSK
3266zoMznQc9BP098zfterPWnpO8Vain8+FM50OP/wAB+sa0
3267 "]]}, {}}, {}},
3268 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
3269 Axes->{True, True},
3270 AxesLabel->{
3271 FormBox["\"r\"", TraditionalForm],
3272 FormBox["\"v\"", TraditionalForm]},
3273 AxesOrigin->{0, 0},
3274 DisplayFunction->Identity,
3275 Frame->{{False, False}, {False, False}},
3276 FrameLabel->{{None, None}, {None, None}},
3277 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
3278 GridLines->{None, None},
3279 GridLinesStyle->Directive[
3280 GrayLevel[0.5, 0.4]],
3281 Method->{},
3282 PlotRange->{{0, 9.831500922981922}, {0, 71.79038977446389}},
3283 PlotRangeClipping->True,
3284 PlotRangePadding->{{
3285 Scaled[0.02],
3286 Scaled[0.02]}, {
3287 Scaled[0.02],
3288 Scaled[0.05]}},
3289 Ticks->{Automatic, Automatic}]], "Output",
3290 CellChangeTimes->{3.644601136453*^9, 3.6447533950959997`*^9}]
3291}, Open ]],
3292
3293Cell[BoxData[
3294 RowBox[{
3295 RowBox[{
3296 RowBox[{"^", " ", "This"}], " ", "looks", " ", "good"}], ",", " ",
3297 RowBox[{"as", " ", "it", " ", "should"}], ",", " ",
3298 RowBox[{
3299 "which", " ", "implies", " ", "the", " ", "error", " ", "is", " ", "in",
3300 " ",
3301 RowBox[{"density", ":"}]}]}]], "Input",
3302 CellChangeTimes->{{3.644673928321*^9, 3.644673942852*^9}},
3303 EmphasizeSyntaxErrors->True],
3304
3305Cell[CellGroupData[{
3306
3307Cell[BoxData[
3308 RowBox[{"ListPlot", "[",
3309 RowBox[{
3310 RowBox[{"Transpose", "[",
3311 RowBox[{"{",
3312 RowBox[{
3313 RowBox[{"rt", "[",
3314 RowBox[{"[", "5", "]"}], "]"}], ",",
3315 RowBox[{"\[Rho]t", "[",
3316 RowBox[{"[", "5", "]"}], "]"}]}], "}"}], "]"}], ",", " ",
3317 RowBox[{"AxesLabel", " ", "\[Rule]", " ",
3318 RowBox[{"{",
3319 RowBox[{"\"\<r\>\"", ",", " ", "\"\<v\>\""}], "}"}]}]}], "]"}]], "Input",
3320 CellChangeTimes->{{3.64460053308*^9, 3.6446005954709997`*^9}, {
3321 3.644600633523*^9, 3.644600655262*^9}, {3.644601149843*^9,
3322 3.644601168189*^9}}],
3323
3324Cell[BoxData[
3325 RowBox[{
3326 StyleBox[
3327 RowBox[{"Part", "::", "partd"}], "MessageName"],
3328 RowBox[{
3329 ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(\[Rho]t \
3330\[LeftDoubleBracket] 5 \[RightDoubleBracket]\\)\[NoBreak] is longer than \
3331depth of object. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\
3332\"Link\\\", ButtonFrame->None, \
3333ButtonData:>\\\"paclet:ref/message/General/partd\\\", ButtonNote -> \
3334\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
3335 CellChangeTimes->{3.644753395222*^9}],
3336
3337Cell[BoxData[
3338 RowBox[{
3339 StyleBox[
3340 RowBox[{"Transpose", "::", "nmtx"}], "MessageName"],
3341 RowBox[{
3342 ":", " "}], "\<\"The first two levels of \
3343\[NoBreak]\\!\\({\\(\\({0.09831500922981923`, 0.19663001845963846`, \
33440.2949450276894577`, 0.3932600369192769`, 0.4915750461490961`, \
33450.5898900553789153`, 0.6882050646087345`, 0.7865200738385538`, \
33460.884835083068373`, 0.9831500922981922`, 1.0814651015280115`, \
33471.1797801107578307`, 1.27809511998765`, 1.376410129217469`, \
33481.4747251384472884`, 1.5730401476771076`, 1.671355156906927`, \\(\\(\
3349\[LeftSkeleton] 17 \[RightSkeleton]\\)\\), 3.441025323043673`, \
33503.539340332273492`, 3.637655341503311`, 3.7359703507331306`, \
33513.8342853599629496`, 3.9326003691927687`, 4.030915378422588`, \
33524.129230387652408`, 4.227545396882226`, 4.325860406112045`, \
33534.424175415341865`, 4.522490424571684`, 4.620805433801503`, \
33544.719120443031322`, 4.817435452261142`, 4.915750461490961`, \\(\\(\
3355\[LeftSkeleton] 50 \[RightSkeleton]\\)\\)}\\)\\), \\(\\(\[Rho]t \
3356\[LeftDoubleBracket] 5 \[RightDoubleBracket]\\)\\)}\\)\[NoBreak] cannot be \
3357transposed. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
3358ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
3359ButtonData:>\\\"paclet:ref/message/Transpose/nmtx\\\", ButtonNote -> \
3360\\\"Transpose::nmtx\\\"]\\)\"\>"}]], "Message", "MSG",
3361 CellChangeTimes->{3.644753395252*^9}],
3362
3363Cell[BoxData[
3364 RowBox[{
3365 StyleBox[
3366 RowBox[{"ListPlot", "::", "lpn"}], "MessageName"],
3367 RowBox[{
3368 ":", " "}], \
3369"\<\"\[NoBreak]\\!\\(Transpose[\\(\\({\\(\\({0.09831500922981923`, \
33700.19663001845963846`, 0.2949450276894577`, 0.3932600369192769`, \
33710.4915750461490961`, 0.5898900553789153`, 0.6882050646087345`, \
33720.7865200738385538`, 0.884835083068373`, 0.9831500922981922`, \
33731.0814651015280115`, 1.1797801107578307`, 1.27809511998765`, \
33741.376410129217469`, 1.4747251384472884`, 1.5730401476771076`, \
33751.671355156906927`, \\(\\(\[LeftSkeleton] 17 \[RightSkeleton]\\)\\), \
33763.441025323043673`, 3.539340332273492`, 3.637655341503311`, \
33773.7359703507331306`, 3.8342853599629496`, 3.9326003691927687`, \
33784.030915378422588`, 4.129230387652408`, 4.227545396882226`, \
33794.325860406112045`, 4.424175415341865`, 4.522490424571684`, \
33804.620805433801503`, 4.719120443031322`, 4.817435452261142`, \
33814.915750461490961`, \\(\\(\[LeftSkeleton] 50 \[RightSkeleton]\\)\\)}\\)\\), \
3382\\(\\(\[Rho]t \[LeftDoubleBracket] 5 \[RightDoubleBracket]\\)\\)}\\)\\)]\\)\
3383\[NoBreak] is not a list of numbers or pairs of numbers. \
3384\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
3385ButtonFrame->None, ButtonData:>\\\"paclet:ref/ListPlot\\\", ButtonNote -> \
3386\\\"ListPlot::lpn\\\"]\\)\"\>"}]], "Message", "MSG",
3387 CellChangeTimes->{3.644753395369*^9}],
3388
3389Cell[BoxData[
3390 RowBox[{
3391 StyleBox[
3392 RowBox[{"ListPlot", "::", "lpn"}], "MessageName"],
3393 RowBox[{
3394 ":", " "}], \
3395"\<\"\[NoBreak]\\!\\(Transpose[\\(\\({\\(\\({0.09831500922981923`, \
33960.19663001845963846`, 0.2949450276894577`, 0.3932600369192769`, \
33970.4915750461490961`, 0.5898900553789153`, 0.6882050646087345`, \
33980.7865200738385538`, 0.884835083068373`, 0.9831500922981922`, \
33991.0814651015280115`, 1.1797801107578307`, 1.27809511998765`, \
34001.376410129217469`, 1.4747251384472884`, 1.5730401476771076`, \
34011.671355156906927`, \\(\\(\[LeftSkeleton] 17 \[RightSkeleton]\\)\\), \
34023.441025323043673`, 3.539340332273492`, 3.637655341503311`, \
34033.7359703507331306`, 3.8342853599629496`, 3.9326003691927687`, \
34044.030915378422588`, 4.129230387652408`, 4.227545396882226`, \
34054.325860406112045`, 4.424175415341865`, 4.522490424571684`, \
34064.620805433801503`, 4.719120443031322`, 4.817435452261142`, \
34074.915750461490961`, \\(\\(\[LeftSkeleton] 50 \[RightSkeleton]\\)\\)}\\)\\), \
3408\\(\\(\[Rho]t \[LeftDoubleBracket] 5 \[RightDoubleBracket]\\)\\)}\\)\\)]\\)\
3409\[NoBreak] is not a list of numbers or pairs of numbers. \
3410\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
3411ButtonFrame->None, ButtonData:>\\\"paclet:ref/ListPlot\\\", ButtonNote -> \
3412\\\"ListPlot::lpn\\\"]\\)\"\>"}]], "Message", "MSG",
3413 CellChangeTimes->{3.644753395477*^9}],
3414
3415Cell[BoxData[
3416 RowBox[{"ListPlot", "[",
3417 RowBox[{
3418 RowBox[{"Transpose", "[",
3419 RowBox[{"{",
3420 RowBox[{
3421 RowBox[{"{",
3422 RowBox[{
3423 "0.09831500922981923`", ",", "0.19663001845963846`", ",",
3424 "0.2949450276894577`", ",", "0.3932600369192769`", ",",
3425 "0.4915750461490961`", ",", "0.5898900553789153`", ",",
3426 "0.6882050646087345`", ",", "0.7865200738385538`", ",",
3427 "0.884835083068373`", ",", "0.9831500922981922`", ",",
3428 "1.0814651015280115`", ",", "1.1797801107578307`", ",",
3429 "1.27809511998765`", ",", "1.376410129217469`", ",",
3430 "1.4747251384472884`", ",", "1.5730401476771076`", ",",
3431 "1.671355156906927`", ",", "1.7696701661367462`", ",",
3432 "1.8679851753665653`", ",", "1.9663001845963843`", ",",
3433 "2.064615193826204`", ",", "2.162930203056023`", ",",
3434 "2.2612452122858424`", ",", "2.3595602215156615`", ",",
3435 "2.457875230745481`", ",", "2.5561902399752996`", ",",
3436 "2.654505249205119`", ",", "2.752820258434938`", ",",
3437 "2.8511352676647577`", ",", "2.9494502768945767`", ",",
3438 "3.047765286124396`", ",", "3.1460802953542153`", ",",
3439 "3.2443953045840344`", ",", "3.342710313813854`", ",",
3440 "3.441025323043673`", ",", "3.539340332273492`", ",",
3441 "3.637655341503311`", ",", "3.7359703507331306`", ",",
3442 "3.8342853599629496`", ",", "3.9326003691927687`", ",",
3443 "4.030915378422588`", ",", "4.129230387652408`", ",",
3444 "4.227545396882226`", ",", "4.325860406112045`", ",",
3445 "4.424175415341865`", ",", "4.522490424571684`", ",",
3446 "4.620805433801503`", ",", "4.719120443031322`", ",",
3447 "4.817435452261142`", ",", "4.915750461490961`", ",",
3448 "5.01406547072078`", ",", "5.112380479950599`", ",",
3449 "5.210695489180418`", ",", "5.309010498410238`", ",",
3450 "5.407325507640057`", ",", "5.505640516869875`", ",",
3451 "5.603955526099695`", ",", "5.7022705353295144`", ",",
3452 "5.800585544559334`", ",", "5.898900553789153`", ",",
3453 "5.997215563018972`", ",", "6.095530572248792`", ",",
3454 "6.193845581478611`", ",", "6.292160590708431`", ",",
3455 "6.390475599938249`", ",", "6.488790609168068`", ",",
3456 "6.587105618397888`", ",", "6.685420627627707`", ",",
3457 "6.783735636857526`", ",", "6.882050646087345`", ",",
3458 "6.980365655317164`", ",", "7.078680664546984`", ",",
3459 "7.176995673776803`", ",", "7.275310683006622`", ",",
3460 "7.373625692236441`", ",", "7.47194070146626`", ",",
3461 "7.57025571069608`", ",", "7.668570719925898`", ",",
3462 "7.766885729155718`", ",", "7.865200738385537`", ",",
3463 "7.963515747615356`", ",", "8.061830756845175`", ",",
3464 "8.160145766074995`", ",", "8.258460775304815`", ",",
3465 "8.356775784534634`", ",", "8.455090793764452`", ",",
3466 "8.553405802994272`", ",", "8.651720812224092`", ",",
3467 "8.75003582145391`", ",", "8.84835083068373`", ",",
3468 "8.946665839913548`", ",", "9.044980849143368`", ",",
3469 "9.143295858373188`", ",", "9.241610867603006`", ",",
3470 "9.339925876832826`", ",", "9.438240886062644`", ",",
3471 "9.536555895292466`", ",", "9.634870904522284`", ",",
3472 "9.733185913752102`", ",", "9.831500922981922`"}], "}"}], ",",
3473 RowBox[{
3474 "\[Rho]t", "\[LeftDoubleBracket]", "5", "\[RightDoubleBracket]"}]}],
3475 "}"}], "]"}], ",",
3476 RowBox[{"AxesLabel", "\[Rule]",
3477 RowBox[{"{",
3478 RowBox[{"\<\"r\"\>", ",", "\<\"v\"\>"}], "}"}]}]}], "]"}]], "Output",
3479 CellChangeTimes->{
3480 3.6446005959560003`*^9, 3.644600663049*^9, {3.644601156736*^9,
3481 3.6446011685290003`*^9}, 3.644753395481*^9}]
3482}, Open ]],
3483
3484Cell[BoxData[
3485 RowBox[{
3486 RowBox[{"^", "Ah"}], ",", " ",
3487 RowBox[{"indeed", " ", "it", " ",
3488 RowBox[{"is", ".", " ", "The"}], " ", "Density", " ", "is", " ", "not",
3489 " ", "flat", " ", "as", " ", "it", " ", "should", " ", "be"}], ",", " ",
3490 RowBox[{
3491 RowBox[{"am", " ", "checking", " ", "the", " ", "profiles", " ", "now"}],
3492 "..."}], " "}]], "Input",
3493 CellChangeTimes->{{3.644673945848*^9, 3.6446739635880003`*^9}},
3494 EmphasizeSyntaxErrors->True],
3495
3496Cell[BoxData[
3497 RowBox[{
3498 RowBox[{"\[Rho]t", " ", "=", " ",
3499 RowBox[{"Table", "[",
3500 RowBox[{
3501 RowBox[{"Table", "[",
3502 RowBox[{
3503 RowBox[{"Minit", "/",
3504 RowBox[{"(",
3505 RowBox[{
3506 FractionBox["4", "3"], "\[Pi]",
3507 SuperscriptBox[
3508 RowBox[{"(",
3509 RowBox[{"r0t", "*",
3510 SuperscriptBox[
3511 RowBox[{"(",
3512 RowBox[{"Cos", "[",
3513 RowBox[{"\[Xi]", "/.",
3514 RowBox[{"First", "[",
3515 RowBox[{"FindRoot", "[",
3516 RowBox[{
3517 RowBox[{"\[Xi]", "+",
3518 RowBox[{
3519 FractionBox["1", "2"],
3520 RowBox[{"Sin", "[",
3521 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
3522 RowBox[{"k", "*", "tt"}]}], ",", " ",
3523 RowBox[{"{",
3524 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
3525 "]"}], ")"}], "2"]}], ")"}], "3"]}], ")"}]}], ",",
3526 RowBox[{"{",
3527 RowBox[{"r0t", ",", " ", "rt1", ",", " ", "rt2", ",", " ", "rtstep"}],
3528 "}"}]}], "]"}], ",",
3529 RowBox[{"{",
3530 RowBox[{"tt", ",", "tt1", ",", "tt2", ",", " ", "ttstep"}], "}"}]}],
3531 "]"}]}], ";"}]], "Input",
3532 CellChangeTimes->{{3.644435548475211*^9, 3.6444356196652822`*^9},
3533 3.6444373416397743`*^9, 3.644437978622207*^9, {3.644601488574*^9,
3534 3.6446014930880003`*^9}, {3.64460166662*^9, 3.644601684217*^9}}],
3535
3536Cell[BoxData[
3537 RowBox[{
3538 RowBox[{"^", "NOOOOO"}], ",", " ",
3539 RowBox[{
3540 "need", " ", "to", " ", "adjust", " ", "the", " ", "masses", " ", "of", " ",
3541 "the", " ", "spheres"}], ",", " ",
3542 RowBox[{
3543 RowBox[{"DOI", ".", " ", "Here"}], " ", "is", " ", "me", " ", "fixing",
3544 " ", "that", " ", "by", " ", "defining", " ", "a", " ", "NEW", " ",
3545 RowBox[{"density", ":"}]}]}]], "Input",
3546 CellChangeTimes->{{3.644601760777*^9, 3.644601785151*^9}, {3.644602126752*^9,
3547 3.644602134118*^9}, {3.644673449796*^9, 3.644673479696*^9}, {
3548 3.6446739921400003`*^9, 3.644674002227*^9}},
3549 EmphasizeSyntaxErrors->True],
3550
3551Cell[BoxData[{
3552 RowBox[{
3553 RowBox[{"\[Rho]t1", " ", "=", " ",
3554 RowBox[{"Table", "[",
3555 RowBox[{
3556 RowBox[{
3557 RowBox[{"(",
3558 RowBox[{
3559 RowBox[{"(",
3560 RowBox[{"4", "/", "3"}], ")"}], "*", "\[Pi]", "*",
3561 SuperscriptBox[
3562 RowBox[{"(", "r0t", ")"}], "3"], "*", "\[Rho]0"}], ")"}], "/",
3563 RowBox[{"(",
3564 RowBox[{
3565 FractionBox["4", "3"], "\[Pi]",
3566 SuperscriptBox[
3567 RowBox[{"(",
3568 RowBox[{"r0t", "*",
3569 SuperscriptBox[
3570 RowBox[{"(",
3571 RowBox[{"Cos", "[",
3572 RowBox[{"\[Xi]", "/.",
3573 RowBox[{"First", "[",
3574 RowBox[{"FindRoot", "[",
3575 RowBox[{
3576 RowBox[{"\[Xi]", "+",
3577 RowBox[{
3578 FractionBox["1", "2"],
3579 RowBox[{"Sin", "[",
3580 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
3581 RowBox[{"k", "*", ".1"}]}], ",", " ",
3582 RowBox[{"{",
3583 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
3584 "]"}], ")"}], "2"]}], ")"}], "3"]}], ")"}]}], ",",
3585 RowBox[{"{",
3586 RowBox[{"r0t", ",", " ", "rt1", ",", " ", "rt2", ",", " ", "rtstep"}],
3587 "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
3588 RowBox[{
3589 RowBox[{"rtnew", " ", "=", " ",
3590 RowBox[{"Table", "[",
3591 RowBox[{
3592 RowBox[{"r0t", "*",
3593 SuperscriptBox[
3594 RowBox[{"(",
3595 RowBox[{"Cos", "[",
3596 RowBox[{"\[Xi]", "/.",
3597 RowBox[{"First", "[",
3598 RowBox[{"FindRoot", "[",
3599 RowBox[{
3600 RowBox[{"\[Xi]", "+",
3601 RowBox[{
3602 FractionBox["1", "2"],
3603 RowBox[{"Sin", "[",
3604 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
3605 RowBox[{"k", "*", ".1"}]}], ",", " ",
3606 RowBox[{"{",
3607 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}], "]"}],
3608 ")"}], "2"]}], ",",
3609 RowBox[{"{",
3610 RowBox[{"r0t", ",", "rt1", ",", "rt2", ",", " ", "rtstep"}], "}"}]}],
3611 "]"}]}], ";"}]}], "Input",
3612 CellChangeTimes->{{3.644601514127*^9, 3.64460155421*^9}, {3.644601690368*^9,
3613 3.6446017189*^9}, {3.644671385395*^9, 3.644671403863*^9}, {
3614 3.644671479782*^9, 3.6446715516140003`*^9}, 3.64467158326*^9}],
3615
3616Cell["\<\
3617Here is a plot showing the radial profile of the density of a sphere at a \
3618sample time, t=0.1 (it is a CONSTANT throughout the sphere, as it SHOULD be):\
3619\>", "Text",
3620 CellChangeTimes->{{3.6446017963859997`*^9, 3.644601839292*^9}, {
3621 3.644673427738*^9, 3.644673438375*^9}}],
3622
3623Cell[CellGroupData[{
3624
3625Cell[BoxData[
3626 RowBox[{"ListPlot", "[",
3627 RowBox[{"{",
3628 RowBox[{
3629 RowBox[{"Transpose", "[",
3630 RowBox[{"{",
3631 RowBox[{"rtnew", ",", "\[Rho]t1"}], "}"}], "]"}], ","}], " ", "}"}],
3632 "]"}]], "Input",
3633 CellChangeTimes->{{3.644601723226*^9, 3.6446017467790003`*^9}, {
3634 3.644671666508*^9, 3.644671671223*^9}}],
3635
3636Cell[BoxData[
3637 RowBox[{
3638 StyleBox[
3639 RowBox[{"ListPlot", "::", "lpn"}], "MessageName"],
3640 RowBox[{
3641 ":", " "}], "\<\"\[NoBreak]\\!\\({\\(\\({\\(\\({0.08913126556041`, \
36427.061220692317463`}\\)\\), \\(\\({0.17826253112082`, \
36437.061220692317463`}\\)\\), \\(\\({0.26739379668123003`, 7.06122069231746`}\\)\
3644\\), \\(\\({0.35652506224164`, 7.061220692317463`}\\)\\), \
3645\\(\\({0.44565632780204995`, 7.061220692317464`}\\)\\), \
3646\\(\\({0.53478759336246`, 7.0612206923174625`}\\)\\), \
3647\\(\\({0.62391885892287`, 7.061220692317461`}\\)\\), \
3648\\(\\({0.71305012448328`, 7.061220692317463`}\\)\\), \
3649\\(\\({0.8021813900436899`, 7.061220692317462`}\\)\\), \\(\\(\[LeftSkeleton] \
365034 \[RightSkeleton]\\)\\), \\(\\({3.921775684658039`, \
36517.061220692317464`}\\)\\), \\(\\({4.010906950218449`, \
36527.061220692317465`}\\)\\), \\(\\({4.100038215778859`, \
36537.061220692317463`}\\)\\), \\(\\({4.1891694813392695`, 7.061220692317465`}\\)\
3654\\), \\(\\({4.27830074689968`, 7.0612206923174625`}\\)\\), \
3655\\(\\({4.36743201246009`, 7.0612206923174625`}\\)\\), \
3656\\(\\({4.456563278020499`, 7.061220692317464`}\\)\\), \\(\\(\[LeftSkeleton] \
365750 \[RightSkeleton]\\)\\)}\\)\\), Null}\\)\[NoBreak] is not a list of numbers \
3658or pairs of numbers. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
3659ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
3660ButtonData:>\\\"paclet:ref/ListPlot\\\", ButtonNote -> \\\"ListPlot::lpn\\\"]\
3661\\)\"\>"}]], "Message", "MSG",
3662 CellChangeTimes->{3.6447533969709997`*^9}],
3663
3664Cell[BoxData[
3665 RowBox[{"ListPlot", "[",
3666 RowBox[{"{",
3667 RowBox[{
3668 RowBox[{"{",
3669 RowBox[{
3670 RowBox[{"{",
3671 RowBox[{"0.08913126556041`", ",", "7.061220692317463`"}], "}"}], ",",
3672 RowBox[{"{",
3673 RowBox[{"0.17826253112082`", ",", "7.061220692317463`"}], "}"}], ",",
3674 RowBox[{"{",
3675 RowBox[{"0.26739379668123003`", ",", "7.06122069231746`"}], "}"}], ",",
3676 RowBox[{"{",
3677 RowBox[{"0.35652506224164`", ",", "7.061220692317463`"}], "}"}], ",",
3678 RowBox[{"{",
3679 RowBox[{"0.44565632780204995`", ",", "7.061220692317464`"}], "}"}],
3680 ",",
3681 RowBox[{"{",
3682 RowBox[{"0.53478759336246`", ",", "7.0612206923174625`"}], "}"}], ",",
3683 RowBox[{"{",
3684 RowBox[{"0.62391885892287`", ",", "7.061220692317461`"}], "}"}], ",",
3685 RowBox[{"{",
3686 RowBox[{"0.71305012448328`", ",", "7.061220692317463`"}], "}"}], ",",
3687 RowBox[{"{",
3688 RowBox[{"0.8021813900436899`", ",", "7.061220692317462`"}], "}"}], ",",
3689 RowBox[{"{",
3690 RowBox[{"0.8913126556040999`", ",", "7.061220692317464`"}], "}"}], ",",
3691 RowBox[{"{",
3692 RowBox[{"0.98044392116451`", ",", "7.061220692317463`"}], "}"}], ",",
3693 RowBox[{"{",
3694 RowBox[{"1.0695751867249201`", ",", "7.06122069231746`"}], "}"}], ",",
3695 RowBox[{"{",
3696 RowBox[{"1.15870645228533`", ",", "7.061220692317464`"}], "}"}], ",",
3697 RowBox[{"{",
3698 RowBox[{"1.24783771784574`", ",", "7.061220692317461`"}], "}"}], ",",
3699 RowBox[{"{",
3700 RowBox[{"1.33696898340615`", ",", "7.061220692317463`"}], "}"}], ",",
3701 RowBox[{"{",
3702 RowBox[{"1.42610024896656`", ",", "7.061220692317463`"}], "}"}], ",",
3703 RowBox[{"{",
3704 RowBox[{"1.51523151452697`", ",", "7.061220692317463`"}], "}"}], ",",
3705 RowBox[{"{",
3706 RowBox[{"1.60436278008738`", ",", "7.0612206923174625`"}], "}"}], ",",
3707 RowBox[{"{",
3708 RowBox[{"1.6934940456477898`", ",", "7.0612206923174625`"}], "}"}],
3709 ",",
3710 RowBox[{"{",
3711 RowBox[{"1.7826253112081998`", ",", "7.061220692317464`"}], "}"}], ",",
3712 RowBox[{"{",
3713 RowBox[{"1.87175657676861`", ",", "7.061220692317462`"}], "}"}], ",",
3714 RowBox[{"{",
3715 RowBox[{"1.96088784232902`", ",", "7.061220692317463`"}], "}"}], ",",
3716 RowBox[{"{",
3717 RowBox[{"2.05001910788943`", ",", "7.0612206923174625`"}], "}"}], ",",
3718 RowBox[{"{",
3719 RowBox[{"2.1391503734498403`", ",", "7.06122069231746`"}], "}"}], ",",
3720 RowBox[{"{",
3721 RowBox[{"2.22828163901025`", ",", "7.061220692317463`"}], "}"}], ",",
3722 RowBox[{"{",
3723 RowBox[{"2.3174129045706597`", ",", "7.061220692317463`"}], "}"}], ",",
3724 RowBox[{"{",
3725 RowBox[{"2.40654417013107`", ",", "7.0612206923174625`"}], "}"}], ",",
3726 RowBox[{"{",
3727 RowBox[{"2.49567543569148`", ",", "7.061220692317461`"}], "}"}], ",",
3728 RowBox[{"{",
3729 RowBox[{"2.58480670125189`", ",", "7.061220692317463`"}], "}"}], ",",
3730 RowBox[{"{",
3731 RowBox[{"2.6739379668123`", ",", "7.061220692317463`"}], "}"}], ",",
3732 RowBox[{"{",
3733 RowBox[{"2.7630692323727097`", ",", "7.0612206923174625`"}], "}"}],
3734 ",",
3735 RowBox[{"{",
3736 RowBox[{"2.85220049793312`", ",", "7.061220692317463`"}], "}"}], ",",
3737 RowBox[{"{",
3738 RowBox[{"2.94133176349353`", ",", "7.061220692317461`"}], "}"}], ",",
3739 RowBox[{"{",
3740 RowBox[{"3.03046302905394`", ",", "7.061220692317463`"}], "}"}], ",",
3741 RowBox[{"{",
3742 RowBox[{"3.11959429461435`", ",", "7.061220692317464`"}], "}"}], ",",
3743 RowBox[{"{",
3744 RowBox[{"3.2087255601747597`", ",", "7.061220692317462`"}], "}"}], ",",
3745 RowBox[{"{",
3746 RowBox[{"3.29785682573517`", ",", "7.061220692317461`"}], "}"}], ",",
3747 RowBox[{"{",
3748 RowBox[{"3.3869880912955797`", ",", "7.0612206923174625`"}], "}"}],
3749 ",",
3750 RowBox[{"{",
3751 RowBox[{"3.47611935685599`", ",", "7.0612206923174625`"}], "}"}], ",",
3752 RowBox[{"{",
3753 RowBox[{"3.5652506224163996`", ",", "7.061220692317464`"}], "}"}], ",",
3754 RowBox[{"{",
3755 RowBox[{"3.6543818879768093`", ",", "7.061220692317463`"}], "}"}], ",",
3756 RowBox[{"{",
3757 RowBox[{"3.74351315353722`", ",", "7.061220692317462`"}], "}"}], ",",
3758 RowBox[{"{",
3759 RowBox[{"3.832644419097629`", ",", "7.061220692317464`"}], "}"}], ",",
3760 RowBox[{"{",
3761 RowBox[{"3.921775684658039`", ",", "7.061220692317464`"}], "}"}], ",",
3762 RowBox[{"{",
3763 RowBox[{"4.010906950218449`", ",", "7.061220692317465`"}], "}"}], ",",
3764 RowBox[{"{",
3765 RowBox[{"4.100038215778859`", ",", "7.061220692317463`"}], "}"}], ",",
3766 RowBox[{"{",
3767 RowBox[{"4.1891694813392695`", ",", "7.061220692317465`"}], "}"}], ",",
3768 RowBox[{"{",
3769 RowBox[{"4.27830074689968`", ",", "7.0612206923174625`"}], "}"}], ",",
3770 RowBox[{"{",
3771 RowBox[{"4.36743201246009`", ",", "7.0612206923174625`"}], "}"}], ",",
3772 RowBox[{"{",
3773 RowBox[{"4.456563278020499`", ",", "7.061220692317464`"}], "}"}], ",",
3774 RowBox[{"{",
3775 RowBox[{"4.545694543580909`", ",", "7.0612206923174625`"}], "}"}], ",",
3776 RowBox[{"{",
3777 RowBox[{"4.6348258091413195`", ",", "7.061220692317463`"}], "}"}], ",",
3778 RowBox[{"{",
3779 RowBox[{"4.72395707470173`", ",", "7.0612206923174625`"}], "}"}], ",",
3780 RowBox[{"{",
3781 RowBox[{"4.81308834026214`", ",", "7.0612206923174625`"}], "}"}], ",",
3782 RowBox[{"{",
3783 RowBox[{"4.902219605822549`", ",", "7.061220692317464`"}], "}"}], ",",
3784 RowBox[{"{",
3785 RowBox[{"4.991350871382959`", ",", "7.061220692317462`"}], "}"}], ",",
3786 RowBox[{"{",
3787 RowBox[{"5.0804821369433695`", ",", "7.061220692317464`"}], "}"}], ",",
3788 RowBox[{"{",
3789 RowBox[{"5.169613402503779`", ",", "7.061220692317464`"}], "}"}], ",",
3790 RowBox[{"{",
3791 RowBox[{"5.25874466806419`", ",", "7.061220692317461`"}], "}"}], ",",
3792 RowBox[{"{",
3793 RowBox[{"5.347875933624599`", ",", "7.061220692317463`"}], "}"}], ",",
3794 RowBox[{"{",
3795 RowBox[{"5.437007199185009`", ",", "7.061220692317462`"}], "}"}], ",",
3796 RowBox[{"{",
3797 RowBox[{"5.5261384647454195`", ",", "7.0612206923174625`"}], "}"}],
3798 ",",
3799 RowBox[{"{",
3800 RowBox[{"5.615269730305829`", ",", "7.061220692317465`"}], "}"}], ",",
3801 RowBox[{"{",
3802 RowBox[{"5.70440099586624`", ",", "7.061220692317463`"}], "}"}], ",",
3803 RowBox[{"{",
3804 RowBox[{"5.793532261426649`", ",", "7.061220692317463`"}], "}"}], ",",
3805 RowBox[{"{",
3806 RowBox[{"5.882663526987059`", ",", "7.0612206923174625`"}], "}"}], ",",
3807 RowBox[{"{",
3808 RowBox[{"5.9717947925474695`", ",", "7.061220692317463`"}], "}"}], ",",
3809 RowBox[{"{",
3810 RowBox[{"6.060926058107879`", ",", "7.061220692317465`"}], "}"}], ",",
3811 RowBox[{"{",
3812 RowBox[{"6.15005732366829`", ",", "7.061220692317462`"}], "}"}], ",",
3813 RowBox[{"{",
3814 RowBox[{"6.239188589228699`", ",", "7.061220692317463`"}], "}"}], ",",
3815 RowBox[{"{",
3816 RowBox[{"6.328319854789109`", ",", "7.061220692317462`"}], "}"}], ",",
3817 RowBox[{"{",
3818 RowBox[{"6.4174511203495195`", ",", "7.061220692317462`"}], "}"}], ",",
3819 RowBox[{"{",
3820 RowBox[{"6.506582385909929`", ",", "7.061220692317463`"}], "}"}], ",",
3821 RowBox[{"{",
3822 RowBox[{"6.59571365147034`", ",", "7.061220692317461`"}], "}"}], ",",
3823 RowBox[{"{",
3824 RowBox[{"6.684844917030749`", ",", "7.061220692317463`"}], "}"}], ",",
3825 RowBox[{"{",
3826 RowBox[{"6.773976182591158`", ",", "7.061220692317464`"}], "}"}], ",",
3827 RowBox[{"{",
3828 RowBox[{"6.8631074481515695`", ",", "7.061220692317463`"}], "}"}], ",",
3829 RowBox[{"{",
3830 RowBox[{"6.952238713711979`", ",", "7.061220692317463`"}], "}"}], ",",
3831 RowBox[{"{",
3832 RowBox[{"7.04136997927239`", ",", "7.061220692317462`"}], "}"}], ",",
3833 RowBox[{"{",
3834 RowBox[{"7.130501244832799`", ",", "7.061220692317464`"}], "}"}], ",",
3835 RowBox[{"{",
3836 RowBox[{"7.219632510393208`", ",", "7.0612206923174625`"}], "}"}], ",",
3837 RowBox[{"{",
3838 RowBox[{"7.308763775953619`", ",", "7.061220692317463`"}], "}"}], ",",
3839 RowBox[{"{",
3840 RowBox[{"7.39789504151403`", ",", "7.0612206923174625`"}], "}"}], ",",
3841 RowBox[{"{",
3842 RowBox[{"7.48702630707444`", ",", "7.061220692317462`"}], "}"}], ",",
3843 RowBox[{"{",
3844 RowBox[{"7.576157572634849`", ",", "7.061220692317462`"}], "}"}], ",",
3845 RowBox[{"{",
3846 RowBox[{"7.665288838195258`", ",", "7.061220692317464`"}], "}"}], ",",
3847 RowBox[{"{",
3848 RowBox[{"7.754420103755669`", ",", "7.0612206923174625`"}], "}"}], ",",
3849 RowBox[{"{",
3850 RowBox[{"7.84355136931608`", ",", "7.061220692317463`"}], "}"}], ",",
3851 RowBox[{"{",
3852 RowBox[{"7.932682634876489`", ",", "7.061220692317464`"}], "}"}], ",",
3853 RowBox[{"{",
3854 RowBox[{"8.021813900436898`", ",", "7.061220692317465`"}], "}"}], ",",
3855 RowBox[{"{",
3856 RowBox[{"8.11094516599731`", ",", "7.061220692317462`"}], "}"}], ",",
3857 RowBox[{"{",
3858 RowBox[{"8.200076431557719`", ",", "7.061220692317463`"}], "}"}], ",",
3859 RowBox[{"{",
3860 RowBox[{"8.28920769711813`", ",", "7.061220692317463`"}], "}"}], ",",
3861 RowBox[{"{",
3862 RowBox[{"8.378338962678539`", ",", "7.061220692317465`"}], "}"}], ",",
3863 RowBox[{"{",
3864 RowBox[{"8.467470228238948`", ",", "7.061220692317463`"}], "}"}], ",",
3865 RowBox[{"{",
3866 RowBox[{"8.55660149379936`", ",", "7.0612206923174625`"}], "}"}], ",",
3867 RowBox[{"{",
3868 RowBox[{"8.64573275935977`", ",", "7.06122069231746`"}], "}"}], ",",
3869 RowBox[{"{",
3870 RowBox[{"8.73486402492018`", ",", "7.0612206923174625`"}], "}"}], ",",
3871 RowBox[{"{",
3872 RowBox[{"8.823995290480589`", ",", "7.061220692317463`"}], "}"}], ",",
3873 RowBox[{"{",
3874 RowBox[{"8.913126556040998`", ",", "7.061220692317464`"}], "}"}]}],
3875 "}"}], ",", "Null"}], "}"}], "]"}]], "Output",
3876 CellChangeTimes->{3.644601748542*^9, 3.644671611974*^9, 3.644753396979*^9}]
3877}, Open ]],
3878
3879Cell[BoxData[
3880 RowBox[{
3881 RowBox[{
3882 "Now", " ", "instead", " ", "of", " ", "defining", " ", "expressions", " ",
3883 "\[Rho]t1", " ", "and", " ", "rtnew", " ", "outside", " ", "of", " ", "my",
3884 " ", "list", " ", "plot", " ", "tables"}], ",", " ",
3885 RowBox[{
3886 "am", " ", "copying", " ", "and", " ", "pasting", " ", "them", " ",
3887 "directly", " ", "into", " ", "list", " ", "plot", " ", "to", " ", "make",
3888 " ", "the", " ", "CORRECTED", " ", "density", " ",
3889 RowBox[{"plots", "."}]}]}]], "Input",
3890 CellChangeTimes->{{3.6446733684449997`*^9, 3.644673419594*^9}},
3891 EmphasizeSyntaxErrors->True],
3892
3893Cell[CellGroupData[{
3894
3895Cell[BoxData[
3896 RowBox[{"ListPlot", "[",
3897 RowBox[{
3898 RowBox[{"Table", "[",
3899 RowBox[{
3900 RowBox[{"Transpose", "[",
3901 RowBox[{"{",
3902 RowBox[{
3903 RowBox[{"Table", "[",
3904 RowBox[{
3905 RowBox[{"r0t", "*",
3906 SuperscriptBox[
3907 RowBox[{"(",
3908 RowBox[{"Cos", "[",
3909 RowBox[{"\[Xi]", "/.",
3910 RowBox[{"First", "[",
3911 RowBox[{"FindRoot", "[",
3912 RowBox[{
3913 RowBox[{"\[Xi]", "+",
3914 RowBox[{
3915 FractionBox["1", "2"],
3916 RowBox[{"Sin", "[",
3917 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
3918 RowBox[{"k", "*", "tt"}]}], ",", " ",
3919 RowBox[{"{",
3920 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
3921 "]"}], ")"}], "2"]}], ",",
3922 RowBox[{"{",
3923 RowBox[{"r0t", ",", "rt1", ",", "rt2", ",", " ", "rtstep"}],
3924 "}"}]}], "]"}], ",",
3925 RowBox[{"Table", "[",
3926 RowBox[{
3927 RowBox[{
3928 RowBox[{"(",
3929 RowBox[{
3930 RowBox[{"(",
3931 RowBox[{"4", "/", "3"}], ")"}], "*", "\[Pi]", "*",
3932 SuperscriptBox[
3933 RowBox[{"(", "r0t", ")"}], "3"], "*", "\[Rho]0"}], ")"}], "/",
3934 RowBox[{"(",
3935 RowBox[{
3936 FractionBox["4", "3"], "\[Pi]",
3937 SuperscriptBox[
3938 RowBox[{"(",
3939 RowBox[{"r0t", "*",
3940 SuperscriptBox[
3941 RowBox[{"(",
3942 RowBox[{"Cos", "[",
3943 RowBox[{"\[Xi]", "/.",
3944 RowBox[{"First", "[",
3945 RowBox[{"FindRoot", "[",
3946 RowBox[{
3947 RowBox[{"\[Xi]", "+",
3948 RowBox[{
3949 FractionBox["1", "2"],
3950 RowBox[{"Sin", "[",
3951 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
3952 RowBox[{"k", "*", "tt"}]}], ",", " ",
3953 RowBox[{"{",
3954 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
3955 "]"}], ")"}], "2"]}], ")"}], "3"]}], ")"}]}], ",",
3956 RowBox[{"{",
3957 RowBox[{
3958 "r0t", ",", " ", "rt1", ",", " ", "rt2", ",", " ", "rtstep"}],
3959 "}"}]}], "]"}]}], " ", "}"}], "]"}], ",", " ",
3960 RowBox[{"{",
3961 RowBox[{"tt", ",", " ", "tt1", ",", " ", "tt2", ",", " ", "ttstep"}],
3962 "}"}]}], "]"}], ",", " ",
3963 RowBox[{"AxesLabel", "\[Rule]",
3964 RowBox[{"{",
3965 RowBox[{"\"\<r\>\"", ",", " ", "\"\<\[Rho]\>\""}], "}"}]}]}],
3966 "]"}]], "Input",
3967 CellChangeTimes->{{3.6446717465179996`*^9, 3.6446719092799997`*^9}, {
3968 3.644672019966*^9, 3.644672027935*^9}, {3.644672144282*^9,
3969 3.644672157698*^9}, {3.644672730019*^9, 3.644672734809*^9}, {
3970 3.644672893179*^9, 3.6446729324630003`*^9}, {3.644677166158*^9,
3971 3.644677220865*^9}, {3.644677310451*^9, 3.644677312586*^9}}],
3972
3973Cell[BoxData[
3974 GraphicsBox[{{}, {{},
3975 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.003666666666666667],
3976 AbsoluteThickness[1.6], PointBox[CompressedData["
39771:eJxdlElKQ0EQhjtxiho18zy8wRvEffoMHkE0Lj1PvIlHENSNK3eCIAguFEUU
3978xeG939TjfQWh+buqvqru6pfw4GT/qOicO/z7JevpPLGzacEl1vDS56b3Jold
3979T13Of2N+7d+aPw2f3Jn/eJbYPfIfzH95kdij+bU+If55+pNa/b+fF/Nfpfmv
3980plXvzbTqvIP3gfN9gvcF3rfV177zC7/6d37hF79gWvlFi1e9JdPqYxm8TIu3
3981Ylq8VfDWrJ54JfBK4K37/Hw2wNtEf2XwyuBtob9tn5/Xjs+/l4rFp+GzCvgV
3982y9d7qlp+Wm5etXitNYsXrwZepsWr+/x7r4OXreI1wGuA18R9NMFpgdcCrwVe
3983G7w2eB3rX7wOeB3wujhvF/Po4f564PXA64PXR38D8AbgDcAb4rxD8Ea4vxF4
3984I/DG4I3BCxCfafED5Gda9QI7n/ZD8ELMJwQvtHzxQswjwvuP0F8EXuTz/6eZ
3985X2uM/mJ8/zHmmcWLF+O8u+b/BYXZlyY=
3986 "]]},
3987 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.003666666666666667],
3988 AbsoluteThickness[1.6], PointBox[CompressedData["
39891:eJxdVHtIU2EcnTpnZeZjmzof7W5WoLMbKERSeG+YYBiGKSiEj8mitKKUQCLX
3990ExWKHupMKAusNDJIKhN0Klg6V5AJskykNEKlsEx8bpOs7ufOx90f43I45/c+
39913zQFpw4d8ZRIJIZ/v/9fpvGGorO6net4JbWpAxQ8wW+BPzmL/P3YIa5TxI+A
3992P5r2QnV8aYwzr+FhQf+N617DZYMrVYb8Sbf834HfnGXq5H3TXJco3wzyVQRq
3993076aZrl2UT9z6Ec3+XJwV/888pF6i8ADHckZt+xLbvXtwCU3h21TOifq9Qr9
3994rCB/sKEwm8v9g/qkv1Xoc+qNJ1OtEr5D1K8H79K3VFjYUr0nbxb178W78nsU
3995+/9+4PDiXfPHCPNIoc84nP18oMYbmMwnQ73G5IYSR6wP8pF5fcAv7vgRv82y
3996jhffbz34/WHxC+l5G5Cf7MMX+K60rM247Iv+yL02Ak//6i19UuUHTPa1CfNz
3997I34Jthh/5CP7o9iq1xklBQHoh+yT4tmPH3Jus4Hov1zYbyDiww6cSYx1Uv6Z
3998sO8g8Ek9oerX/UHgiT/lvMufJ3Z2rWaZ5OAlwj0oNj3Vj//MV7jdR4H83Yys
399958p2JfTkXkrwU7XNDSqHEvs4J9wvGHyA78HLLZZgxD8S7hkCPuHiXEFyTQj4
400098J9Ka9fqEsazQsFJvcOhf5a0Z4txbEq8OT+Kuy3dWxc6mNXob8UwQ9h0H/O
4001LJ+o76O4WPBHOLDsXbQlrjoc9e4IfqE8yw00WXMjwBP/RGCfWa0llbm6SOiJ
4002nyLBX4oOOTa/RLFS8Ndm9N9835xytXcz4hMFv6nBD8nzo5kqtZv/KD6/z9N7
4003lGWgJ36kWH4hc2FrLcOL3zvlH7c3TZx2Mm5+1WDe3fPLNrOeYvL/oMG+B9lU
4004i8yqQTzxM9UbCu+1pbNa1Cf+ptj+cKap3qSFnvid4utf9tZNOaie+D8K/teq
4005TJVx+ijoyXuguC1jstTYH4V48j4o/xet9naT
4006 "]]},
4007 {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.003666666666666667],
4008 AbsoluteThickness[1.6], PointBox[CompressedData["
40091:eJxdVG1IU2EUXn6k+bXmNp3bdPdu5A8loSCUlPaqRRoiTY2EwMQUJaMZlRHW
4010MkmlMET70KAgtUKTtObItqJINFYhDaLMrIZkaqmZKJpm9nFffS53P8bl4Tnn
4011POc95zljc4xpeW4ikSj33+//12NPlFZtsurjLzsK5omMUPwcOLG7MeRS2GsX
4012vh+4e8oa0fTRCZzAxX/Wb13GTdWj1zJTh/UJgvyviM8NP3LLeWfcpd4k8IVP
4013p3Z3VEzpiaCfafAzLT0DxfdngKneLPQyjvpmbx6eQz7Vn0e8hRiGfst/IT6P
401462cRvMyvruDptiXwtL8/4G2FB4u7bCIi7HcVWdErNNTE3EhzI8J5ugOroi0L
40155d/cSeIynube4wH+pbrvUX6ZJ0kQvG818Am3BVOy0ovoBe/1gn7kqDo+0uxN
4016hPNfg/ofevXu/jt8iHAevoiv6sjp+T7oi/7ovvwQH3elvNJx3J8I5xWA/AlT
4017c7JZIkY/dH5ixKeav3i+yFhLhPPkcfi6uWEbIwGu5eYrQb2lOm9767gE/e3n
40185h0I/T4fZcvVB4GIp/6UkhV/tp+MPHf+jBTxSm4fPF/xI67QtFPmsh8Z+sna
4019l5piVMvB033JUS/67d712aNy6Ddy+wsCL04+FGCwBKFeCbfPYMSPPCybjC8N
4020Bp/O7ZfHT6IuOjamKLB/um8F6tc13LynU4QQ4f3y2CjrrJUN8XiA84MS+UmV
40219sOed5Wo38H5QwWeWejPmC1R4f3ULyr0P3dgbNPIdjUR3juPXzkXg95JQ5FP
4022/RQKvjkt4KfdGQo9KeevMODSHk2/tTUM+eOc3zTIz4zZYLt9TAOe+o/n63c1
40239PayDOpRPzL8vMQRW55VMsin/uT5Iru57fEE4+JXlr+v07GaznTW5f+BxXyS
4024Yrur260s9KmfWehZZlJEzRoteOpvHrNtb4qul2td/K5F/ar8rMH6MS30qf91
40258Pc8M2KoMegQT+9Bh3p5741dZzt5nt4Hn/8XKPnJLg==
4026 "]]},
4027 {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.003666666666666667],
4028 AbsoluteThickness[1.6], PointBox[CompressedData["
40291:eJxdVH0slHEcv5xOHHHceT3uDa2ywtxE1j1rvUxjda1YJE0xSckqvaxJlGqs
4030sWnKpN1QbG2ilmW0zDIvmU1lsTXWmZcRkZRLqX6/+fz2PH88e/bZ5/P5/b4v
4031n+fRJGXsT7YSiUTH/z3/36r2F+mV8S8NvqZdweISOUdxJ/A9+e3iJut3Bj8e
4032PwD+0YWR3YUNQ8ClRG+GPv6LanlT4KjAPwH954roQbebUwZ/3nkz4PU1LXGi
4033jFn4aT3fgC05BzrOlc0L7lsAbjk0qZ9480Nw/yLOvxacW5kwawFvJvUsoZ6d
4034Ug9Zn/IPeFrfMvzWc7EGXZWI8+PVuwo45Ygu61OYFbeOV78YfGfX9JPSXoYX
4035ST/W3Mr9G0KbzMbk1cC0Pwn0hZU3PO1/ScDTfm3ATzsaje1Fazh+/7bcSv37
4036rihv5fjbwU/nYQd9w/jYq/BmKXi6L3tg+cFn3+eNDtDTea0FzmrNDqgbY5jO
4037zxH3T7pW1z/f5oT50Hk6Qa/ssesptpWBDyHzZTg678z46fcMJ5N5OwNfDesX
4038Rz105vj5dMH5T2e2qtanuYDvIPtg/HC1KVyil6Nfuh+GZYdtYszLcsG+FMDb
4039nU9lvu5S4Lw4sj9X8Gc7+gof3HVFvQVknwxXZW+puXzUDf5msl83+D+EVLTF
4040bnRH/XTf7tBLJsVDIQvu0NP9e0AfajphkbUyvJfkwRP+1NhexUwBwzkkHwzf
4041d9AHvY3xQr31JC9eLN9tZVG1GqUgPwxbLolS86eUgjx5wx8QmJJ3rJHhHSRf
4042PtAnjHZXcLkMnyd580E/d8qDmryjVRz//6ICn1jbnfZbqhbkUY1+Ll7P/nky
4043Uw0/zaca9RQlBuUP9jOe5lUDf034iEtkhAY8/T9o4G9VlJoaTQzTPDP/wNfI
4044zf42WvhpvrXg57qXmkvStYK8a9GP9HHdHnGfltPy8q/Dfb65SR8zQ3XQ0++B
40454YgERcpwuU7wfTD/X6xINWs=
4046 "]]},
4047 {RGBColor[0.528488, 0.470624, 0.701351], PointSize[0.003666666666666667],
4048 AbsoluteThickness[1.6], PointBox[CompressedData["
40491:eJxdlGtI01EYxre5eW2mmzrnprtVEKaFZkZE+1MrdWRoRLiiYNMQKo3Q8DKy
4050SK0PYWoEraAwipiWhmI3w9Q0Q1IiwUsFKiaVeUuR1Ei7nKPPYf8PYzw87/W8
4051v01nO7X/mEggEKT9+/z/3quwrN0Q/twYH19f2+ETyFHdAZ33XqS2DnUb41z8
4052D/DDjjyKnDszCJ1L4oeN5mVtm62uaJd84dUfhY7ZJq4qTxpHfVpvCr6Yq7bU
4053JE7z5plB/KQtZUCeNQuf9vsJ3VfslprnmOP1X4BucdZ8HWj8hXpbyDy/4Ve9
4054tZw0fV7kzfcHvjnnwvyBIgG3x2VeIbfiN3n2N3goRPDp/CJupd7mmxFnGyrd
40554E+QfcRcwrJ2hhcaM7ZLEE/3c0f90MZ+ofadO3y6rwf88n2Rbd1WT9Sj+3vB
4056dx8qvFg86wWfvoc36tlPf4jfesmHM7vcaxX8KdFGnzGlFPn0vaTw064Vdd16
40576Mu58rIaelw2EefU+HGu7+mH97j/SVEpHPVDfzfyvv7oZ7230/twnT/yX5L3
4058lqG/KiPjRL1dhnzKJ9O9MY5O6W458qPJPeTIL1t6FZHuGwBN7xOA/uY3E1ea
4059+wKQT+8ViHhJWfAP5Z1A7GMl9wtC/6aUXclZx5lWk3sGIT5fl1nXGa2A7iX3
4060VaB/9HeHfN0i0/TewdCTda3Z59qDOVf+lWxe+2RPf6kS8RLCA/NTTcrYKEsI
40619mkmfIQw/qQmx2W9Cvn5hBcV47Enc2FkjPmUHzX8q7dvHNrxWI39KE+hjNf0
4062thfXC5iuJHyFIt9j05R6Oi6MzUt4Y7plXllg9tcgn/KngW9vMQ3e/ahBf8qj
4063Fr7qdWzFUrKWx6cW8bnru5IePNHyeNXinj0lNmGKSsf7f9ChXtTMXK34PNOU
4064Z6ZLD5bYakd0PL71jMcGvfxogh77Ud716G/WPGv1rmHxlH/mOwsTs5/KDIwv
40658nswoJ/42/CatBwD4438Pgyo9xdOEYIn
4066 "]]},
4067 {RGBColor[0.772079, 0.431554, 0.102387], PointSize[0.003666666666666667],
4068 AbsoluteThickness[1.6], PointBox[CompressedData["
40691:eJxdlGlIVFEYhic1LXObuXNnX+7cSdNMg6l+COXcVESKIGQKQhQRM9PKos0w
4070KChT1AmCMjMoU6h+mKZFTD/aLSpIyDKlzUgNJUsrQx2n9Rx9D3d+DMPLc77v
4071fMt7jy2vJHNzgEKhyP/3+/+/6cQW4+ERjzPh5OkWczMvUf0YOvCKW53b1uVc
4072IuO94K17V4sNi/qci2d0ADn/0Zk4oxPPe7VjnYN+8UOIP3rkpSUqdASc5htF
4073vi/LelR14jdwWs93aH1MmiZWGve77yd4mq5N78mecMbL7p/E/SWhFnNGmRe6
4074nNTjQ3y9r0rorfvlV98f1Jc3Ma1cnqWQEmX1zpFmz5fubOd8w0zT+gOgjw8X
40758h2lgdA60k8Q8jXlWbU1IXPBaX9M33zTrXPVBkvxsn5DoDtdNQZT9DxJvl+m
4076B56lmAauzcd5Oo9QcG/6lLk5ZYEk31cY7o+822rd8zwM8XRe4eDRSQW2lbkR
4077knx+kdLs/JLaTfag0UhwOs8o9H/p1FbVp9tMj5D5KqEdXWncmmNK1LefzJvp
4078WxGCumWdCpr6U4X4jLXTahXPgbvJPjjwropX/L63TNP9qKGzO9o0r5vUiKf7
40794tHPkMKtTS7m0W8C2R/ju1cV6hodGsR7yD414L8PpOqDvRrEp5L9ajHvyhsW
4080Q9E9Lc7TfeuQj/sxZeis1KFeun/Gzy3tNjrW65Gvn/hBj3xx266aarUG8B3E
4081Hwbw65erzd73jE8RvxihkwcLLDkXjX7+MSH+iS3Fen+7Ceepn5h25ZiFmBVm
4082nD9D/GVGvr76SaHKx/hC4jcL5lXU88L29YFFkr9XVvBxrlXMrLbiPupHK/JJ
4083sQ+VWXGCnz8FzLP8kUMV7haQj/qV8af5Dao7Yyyevg826KjACG6Xy4Z46mcb
40846t1woYyzexin/mb8rHOY6zaKyEf9LoJ/eLdRXXFIlOTvs4j6Yg52qJP6Gaff
4085gx3xxQYH/zndDk6/Dzvi/wJFz3I5
4086 "]]},
4087 {RGBColor[0.363898, 0.618501, 0.782349], PointSize[0.003666666666666667],
4088 AbsoluteThickness[1.6], PointBox[CompressedData["
40891:eJxTTMoPSmViYGBIAWIQLeCRnBw+f4e9rtzj3zFVYg4Q/gk4n6esq6ux/JK9
4090Hor8Dbi8sJSNje7xe3B5brD6R/b6UD7f/W9lOd1P7bVR9L+A6xfceN7fafNr
4091uH6Iee/g/G7HEJGetx/Q3PMJLt+36gBDOeMXuDzEvq9w+/qFdd8min5Hc/8P
4092uPqJNTNv+mj+gssLgd3z294Ayp/8lPWYue1fNP/+g6v3UreMnKjB4KCL4l4E
4093/0x0/vm2TYwO2ijuZ3KA6fedsNS1xoYZrr4X7B8WBx0o/+yR27sLj7E4oIYn
4094K9w8/5+CRukBbHD9EP+yw80/r+uxIuYWO1w/xP8ccPUBSXVyQSmccPWQ8OCC
40958y9N2zLF/R2CD4kvbjg/6PQrLtsKHjgfEl68cPMv/1doNGLic0CNXwQ/2CT8
4096u3oPvwNqeArA9WdtObaNr1sA7v4ucPgi5Fefe1jIGSAID6/T4PBG8F+/+KPD
4097IirkAItPSPoUgpunwyzx4t9NIbh5PuD4EIbzc2SNF/+cJwx3HyR+RODmrzH3
4098i/uSLOJgiBJfInDz3wZmSr7XEIWr5wXHnyjcfL2clisv3yL4fuD4FIOrz2ub
40993/9kkxhcvg8cv+Jw89ct2OV1v1wcLb4R8u93XWW9ZSPhgJq/EXz9qx8OXGGU
4100hOv3B6cHBL/gPXfN+WOScPUTwOlDCs7fyKlufqpbCq7+Iji9IOQ/KDt9OhIg
4101DXcPJP1Iw9Ub2sWu3S8qg5aeEPyiiIqMXbcQ/Eng9CULN39T0WTlrfNl4fF7
4102CZze5ODqP/esu7c+RQ5uPyT9IeSNl5+cuUpTHm4eJD3Kw+VLDj4JWfpOHm4+
4103JH0qwNXfevuf/UKkAlw9JL0qwO37VdWb6rsHIQ8pHxD6pTmkD5+SU4THNyQ9
4104I/jWU1coeDQqoqVvBD9ayazu6GNFuPsg6V0Jzq9ef/i2k5uSA2r5rAR33xyb
4105QMsDKxDykPygBHffnpP3ptlyK6PlDwQfAKLpmSQ=
4106 "]]},
4107 {RGBColor[1, 0.75, 0], PointSize[0.003666666666666667], AbsoluteThickness[
4108 1.6], PointBox[CompressedData["
41091:eJxdU2tIU2EY3ubmpbTd3OZlbjtDIvJ+IbDAcywoQjSqGf3QQi0hr9MFmaLp
4110n8oEf2Q/MgsMQpRMMUujoog0RaOLJZiBkmalUzM3TbOy+j73nLYfh8PD83zP
4111+37v+3xMRsGB4yKBQHDs7/fv/zUir/jQrnus20D/7bEyDUdxH7B9Yv9IRfQg
4112u9b/Pz8Mfrr0vDrUNMqK1rGN6MdZ4Tr+VnW02bp9Ejw9/wXnZ4ZK9jxJtLJi
4113J7856O2ygaLE1nkeE/8F9GPrHE7o7LSBp/UWgedTP8mYx0su91sGnhPZx6p7
4114V9DvLOlnle+vSdi29PInK3Dq7zf8p5Kl5enDay79CjgHPllSsznLLOSETv2L
4115OEf/liRVTb1dxDnqLZD7uOF8keHq4qtiMec8Twn4Qpsxzf2XBH70vu7wK3jW
41163L2j0oNzvr8ncH5dZGihxIsTO83DC/Xyc7tqG6s2oB7d10boc9n41fc+3jxP
41175uXNOeaVo+jJkF/04Zz3uwn6E5OJ/bvVUtSj85SCj02d8otPkgHbyHxlnGQd
41183+lpeX5YKsd5C5m3HPqYCHOF5bUc9Wk+FdB3XI6JralV8PMm+1BgPtGi75+b
4119UpTQ0/0ooW/PuV//VOMLf7ovX+ijhsr2jb7j8TzZnwr+7fEJbiv1KvBmsk8V
4120/CObxF3KI2rMk+5XDb5N3pcdbtAA031r4B9eWq3bO65x2b8fcOvH5MHMG344
4121n0fy4I/7hCcrzpZn+YOfJfnwx/lbXUNxdVsCgPNIXgKgD2XqZjumeZ7mJxD+
4122LRdSr79oCYSe5kkLHGLXp0zla6G3knxpMa+baROe4qgg8Nkkb0HgQ3obH+ps
4123PKb508G/OTLbHHdX55JHPfRbr4QFm07pOef3zuO3lcs5XVoD7kfzagB/adtI
4124T3eZgX//JL88b7I+0A+O8jzNMwOsbLh2eoxl4E/zzfD1TWfezDQwyAfNO4N5
41251Hqlh/0QGuFH88/jg492nvPINMKfvgcj/JWW4A++3Ub40/fB6/8AwsL5uA==
4126
4127 "]]},
4128 {RGBColor[0.647624, 0.37816, 0.614037], PointSize[0.003666666666666667],
4129 AbsoluteThickness[1.6], PointBox[CompressedData["
41301:eJxdVGlIVFEYHbfcmtHZfaOOM2NUVmKkkJb2nlBgGVaCEUM55AKVpoa0EAil
4131WWNqGURJCi3IlFuBCFqouQSiuDSG6I+kzEjN3ZExy7J61zmPNz+Gx+Gc+93z
4132fd+5o03KjE91FAgEKf9+/7+VM+mNnsMNdJv8ksujVh+G4E5guu5Yt9sXM/2W
4133xw+BlwYZTaK+EfD7WP0o3bGOl44Yoj1GvtqdH8f5xMKrIcIP3+kWXr0Z6FPG
4134ukXGlHk7PwvgVdeH8wsMFvDkviXw/epvq7f1VtQn9y9Df6PJkl2UsAK9gfXz
4135k25dxxF6h6nio6t0E8/fb+hnl0VJd2PX7PwKGFv9gUN30mMCHZhmnn8Hxqav
4136peRbu544Mrb7KLYfJ+BbE2VjB9XO0JP+OJzUoHvcXeaC+qTfDYyt38iblfpY
4137yhU86d8V/pQJOxU9D9zAk3m4o/5iYIP5sMwDfsi+PFC/ZzGquPeeJzCZ10bG
4138Ni9T27uYOC8hzpP5CVH/Wkmsc3+RiOHP04ubT8jkpy0u3vCbzM6Xw74Pa6Im
4139OryhN7PzFgMb/2SWvcgVM+28fIoZWz6tqaErZ6Il8F/D7kPCzbfXejxIIMV9
4140ZD9S9PM+7E39ZIsUerIvGXBUeY6kKkcGvYXdnwz1qp2is85FynH/aXafcuzD
4141J825b9svDvex+1WgXv5A5/ap1wq7fSuhX4woLKi+ooSe7F+J+w1P48bTdvuA
4142V7B54HCvm+TADiuH89h8UDi/J2vw2XQ9BX6BzYsKfp4PlQpqs1UM/71zvIw+
4143mXh+ly/Okzz5gs81BTQFL3B8OJsvP+A54Rg1+8oP+yV580f/py6aLr/M8Mc+
4144SP443PXx7GBGsBr1SB7V4MP3B4eGTKvt8hkAXFE9XzJXFQC/JK8a9Gt01y8P
4145hWlQn/w/cDzTvHdz+H0N/JI8a1DfmuWfUGrR2OVby72PTWt5P+K13H1s3rWY
4146R/Lw57oTdZye5F+L/KuK2kcbxTr4I+9Bh37MdIU3dUEHf+R96FDvL7N+irc=
4147
4148 "]]},
4149 {RGBColor[0.571589, 0.586483, 0.], PointSize[0.003666666666666667],
4150 AbsoluteThickness[1.6], PointBox[CompressedData["
41511:eJxdU3tIU2EcndPlo03nY1M35zYxkkprkUmY7hOSJCTFqBZMMlFMY6SClBKG
4152SaCkYUZhaVaG5kqTMAqFRCwIDYtZJloqS8NQY1Yzp7as7jfP5e6Py+Vwfu9z
4153PnXm6bRsPo/Hy/r3/f9n7nQRzeufaR+0/5oUpsoIxa+AB770ej6+aNK2cvgR
41548CulCeLNu8bB9zPxZvBS4YlLBwumnfJnwD/S3b1cmTTrVO8b4u8NLSR99llw
4155muc7+AVbzcD51R/aNk4/K/i9Sk2yYmbRab8l4IpE02D3kE370IE7mHlWwL8/
4156VZCi61l1ms+O+qpaX9Oi8Q/603l5ZD0+5pPO2D/AI0bO/C5kPT/dEpFXR/iI
4157tzD78Em7A5fzl7fkPHVFPN3PDdgo6Z+L3iYg3H0FqPc24kabW9MG9Kf7u4Nf
4158jM01vAv0INx7eJD1e4Sk7IlqqvZEPtXLC/EJmZ6WfNeNhHsvFp8sGu3QFguR
4159T+8nwrxVFcZ8b4uItHHu6Q3cWV+sGc/ywTz0vmLS4sCGkfDlwwYx6u9m7i1G
4160f5656lhchC8w9SeLr85au8KnWKxn9PBD/01WvUzY6Ac9qD4s7rK/LPmp80c+
41611csf+yW7R34c8w8g9x1YwugXAH5SfC22700A5m9l9JSgXqHMXm+slICn+rJY
4162EJ79u2afFPWp3lLwdZGD+rNrUsJ9f4GovzUm+vnx7kDEWxk/BIHvIbcU+4uC
4163wFN/BKFe2gFBadSOYGA545dgzDN9yDAhmQsm3PcuAz6TPhxvb5ZBX+onOXiv
4164nLjb0xly6EH9JUe/xvzmtdfyEMTnMH4LQX9NiSij8wPLU/8pkP+ivKj35hUF
41659qN+VKDf0epx1YXkUORTf4aCn72eWJbrrkQ96lcl9jl3p92c2qdEfepfFep5
4166DHupG+JV4KmfWWwajTf5NKic/M3m108UlpUvqzAP9bsafNZUi2bpiNrJ/yze
4167/nXMnPdEjfdE3wPL2+a9ayd8w8DT9xGGfn8BOS3fMA==
4168 "]]},
4169 {RGBColor[0.915, 0.3325, 0.2125], PointSize[0.003666666666666667],
4170 AbsoluteThickness[1.6], PointBox[CompressedData["
41711:eJxdVH0slHEcP2/njuTlcIe7c2e3lVwcUjHzPBZTNiabZk1vwip/UJopy1YN
4172rfRHMVY0DRVCrYitbsZKr5JUo5VerkgL85LCNdXv5z7Pnvvjdvvs8/1+vm+f
417356dOzUpMtxQIBGn/fv//bzvWFMT332ECdypqb0bIWYp7gB+emR9ekPcza3n8
4174G/DVpbHKmsJ3TNAy7iHxnxjdMtb39rZofhkYf17+CPIbtubG510fYwJ4ej+g
4175V/5aOfF016RZP1Pop7vJ0ON4ehrxtN4M6nVMtJeHpv00m28OuEVXkrE34jdw
4176I+lnHv3XHdq9/qxsEZj2Z0S9ytZ1wvbpP+if9rsEvS351pnZGQJWx+vfgjX1
4177H1U1kVg4YMGa4rvIPJbAjH4w7CJrxfL3acWa5gsb7va50WyNeDqvDXDIUpPd
4178fU8h8un8QvCBqorpwWJb6NF9iMBrI4+/HZ8VsUG8e4lZ07yrUjO7LVPtkE/3
4179ZY96PieTGqV9HKb7WwE9eR1zXhvugHp0nw7Qlz7wPRrZsBLxZWS/jsDiGXGg
4180n70TG7yMN5N9O0Gv2Gqprq2L46k/ndGPjeusjM3j8CZyD2fon9CMlTzxdwFP
41817+MCfUHIsCDpK8fTe0mAj0UPHP5QKYHePXI/CeZbTHr0bX+iK/hQck8OH8nQ
4182p8yK3LDfdnJfN9Sfy731oqDTDXr03u6on1N8LUqc64756f3dkT9VUdVRqpUC
418364gfpMjPqj+nVRo4vpn4Qwa98Y6iy/UXZKjvR/wiQ/yBx/muwQke4Kl/ODw6
4184lH1KL/REPPWTJ+ZN/55ujNFzfC3xlxf2Y1jYnv0yxwu8mviNw3vsE76krJGz
4185/PdFjvz3XtHJox/lmJf6UYH8FG3Ys4MVCvDUnwroDYUHsMY4pZlfldDfFqdp
4186LbL2Rj59H7yh/2qHx2rnu95mflZhv74bbJ/3blRBn/pbhfx9nRYiSZnKzO9c
4187/tUYY2TyJMdT/6vRz0jfXP6lWDXeI/o9cLwmeart8xU18un3oUa/fwHGvWnO
4188
4189 "]]},
4190 {RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], PointSize[
4191 0.003666666666666667], AbsoluteThickness[1.6], PointBox[CompressedData["
41921:eJxdVFtIk2EYnuYhT+mm0zXnDs6bJDBC5mm5vyR0afOwNBER8ZRCZWUX4hFF
4193agYVlOWFV3XRLlJLlplmmGUr0kJTFFmWZZlinq1EsdP/uefj38UYD8/7vt/z
4194Pu+zKXKKU/LteTxe3r/P/29pTHZSQehDzYHhWJ3yjpQh2Ax8fH9cd4JxUBPJ
41954UfBf9WXfqnutWjU2ziNrZ/URG/jrshjF8ZPTdnMnwauiT8pXt2YQT2ZN4d5
41962sy6VnfDAjDRswQ99Sqd4rrrCnjy3irmz0dnzMmG1jQRnPd/gk+KLWhvbvyF
4197/lpWzzr4B4nnqiOyNjRhHH2bqPdLr9Kag7Y0URy9v8FXZF/y1s/9wftEP4+x
41986j8T2r+wmG7HWOsN7D72jNWPW+FDelW3PaPh7LeDseobUY89qpA5MOGcfR0Y
419963uOBycCntc6MlGc/Z3QH3Z4qtZl2gk88cMZeoq0s98StTuhh9yL4qajiwk3
4200m12wD/HLlbH69Sb5R9t7TzfMI/5RvJW66asscYce4qcH9IRk2FUUjXqAj2P9
42013QU+J8v5070IT+Ay1m+Kj7Q5Kct1Xgw3n17Qn2uqT5Xy+OCL2XvwwZe3uxt6
42022/h4n9xHAL6h42pXXq4A9yH3orilUzDvLPRmuPn0hl8vH9+Q3TVTfpi9pw/u
4203N/lElKIr9WFU2/g7e18f6Fnvaapb3iNEP7m3EPvzn0k7GiyUJ/f3RX9w363Z
4204sMu+qFexeaB8jDlIYon2A5/I5sMP+2e+MuqqliguZPMiAj7/OrhGcVsEP0h+
4205KH9loMXUp98NP0ieKDa+3Td9wlEM/SY2X2LwTwdNIrcOyg+wefMHP/5OFd9a
42066G+TP4qXRzork8US1JM8SrC/25j6/lq/BHpJPgPgh3K853NjZQDqSV4pVlsO
4207CaNCpJhP/h+kNI8TL2I/TFKe5FmG+ac/xpXVXJPZ5JvivqX8NEGg3Cbvcswf
4208PGtcnCqTYz7Jvxz7TKzMGNqH5cgb+T0o0D9bEhx4ca8CPPl9KND/F0Wsa4A=
4209
4210 "]]},
4211 {RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142],
4212 PointSize[0.003666666666666667], AbsoluteThickness[1.6],
4213 PointBox[CompressedData["
42141:eJxdlH1IU2EUxqe5NDfLzU2nmzozRqlRS8pcH3vLDClmEiKCYVlWWKBEriiG
4215lGlNCgmzQhyCSPRB+JEGFQTZDPvwY1k2tGQipeIc6kjL0K26r3sud39cLj+e
4216855z3nOee2OOFh087svj8fL/Pf/fGtML8bbyp9ru4IcqXb+SUH4DTpgVpE/G
4217WrRdHL0felpKgbVidBAcz8QPa3uXuDXtWPOtzyNe+X+A26dE+pHN49oeTr4J
42186JY7r5LVdx3QaT/T6Ge6LsmtNcwgntZzgs87K/PGEn569T8L3ZU6aq4cmgO/
4219Zvr5DS6v2aHaUjmP87S/P9CFjmrj0M4Fr34X0W81mZwom3J5zZNHPPlWvq9X
4220hVp4xKNPMffxIZ7zH892WwvW+hLu/Vi+HTlvfHlpGeHe1w/5szvXaEQDfoQ7
4221fz5YcSbDnq9eTrjzYHk4wmB6VuFPuPsKQH8NHfd1whGW6bxWoP7Jwk+uw5pA
4222wt1vIPKtk7mbWqsEpJczTyF0R3tcnr9diPM9zHyDwC2ns8Q5KSvBVcy8WdZL
4223S82NtasI15/BqGeyZWl8LrIcxOwjGPElbZPieJUI96H7ESH/kYpSe2afCPF0
4224X2Lw7lxZR0mJmHxY4ifM/lg9NrHR9CAuhFg8fmH2GQKdH7BH3/eF5XPMfiWo
4225P/ZtQLdQKvHatwTx71qKVKoNUsL1vxT6o6t894GvUuSTM34IhX4jp9Z64Voo
42269EXGH6xeuFHd3JAYhvnZGL+EQc/gdxq7bWGoT/0jQ75Ng4fyfl2XQad+YnVJ
4227kzM5Zms4uIzxVzjyz14xivd/D0f9E4zfIqBbs6PsxTcjoFP/sfrz9W3muu1y
42281Kd+lCO+1nef6e24HPWpPxU4b7Daip3VCi+/KhCf+1ivU+yKBNP/A8vkskC1
42291xHp5eco8OqseldRTRT6o/5mdb/4JGtNajT6pX6PRj+j7q4m80y0l/+ViM8/
4230pe6YS1dCp98Dq/dnGpoF95SoT78PNv4vWC2kkg==
4231 "]]},
4232 {RGBColor[0.736782672705901, 0.358, 0.5030266573755369], PointSize[
4233 0.003666666666666667], AbsoluteThickness[1.6], PointBox[CompressedData["
42341:eJxdVHtIk3EU3eYrW85tbm5u7pFLqUnW/hBWQd9HooFR0rIwBUNR0TAWGCsR
4235K/KBoRgYWErGSCIxLbCloQgmRc2MiUijqGlmjHRkPtB8ZfX93Bn7/hjjcO45
4236997fPdvOXLMpn8fhcPL+ff5/V6zkOloGbZRO2HaGHoihCX4FnGyR9Hh0DirG
4237jx8D/63nUFLywkfgJKZ+nIrbwqeaLdJU/SRLP4X6ZxlpN+cy3dQuP78f4CWy
42383Rt3az2seWbh13f+ulHr+gU96TcPfsZePF9iWWD1X4Sfcs/ZjjeCJWAbM88y
4239/I7VJBcoH/1mzbeC+jK3QWum1sCTedfBd6SoPw06N8CT+Tcxz6wpKJVv5NDe
4240+l5mHw7tfb/qG2txiZVcOtZvPx7t1Wu65gLOjfgw2TcAuPure6ImOhB6sn8g
4241+qWJXP1dhUG0/3sEA7vpsebPtmDMQ+4VQnv3uXZx6HIwdxvt/14+LLcOpO8/
4242Hop5yPuFwv+Jo9uQ2bQd/uQ9+dAf3ewQVH7nY34x8747wI8ntM50GsKAHzPv
4243HQb/K9lNb53lAviTfIYDC+tvPeQOhUP/k7mHEPox15GX0loh6z5C6K1L/U/1
4244BhH05F4izFssOHCfcoqgNzH3EwMb42x16eVi+KmZe4rhF3R4X1mRLoLWbuFp
42455r4R4EdOtxddtUfAj9xbgv73LsRm3DZL4E/uL0F9YZU1pU0qhd8JJg9S6BNb
4246lIn9fVLcT8HkIxI893mjbjQnEnqSl0j4Dw+LxO4QGepJfmSob5qq46x3ylBP
42478iQHn78eMitMl7PyJUe9QVLxJXZVjv1kTN6iwG/E/3l30BoFnuTPx9uTSnvT
4248UhTYj+RRgfrGrMW2PI8C/Uk+lcA5JeY7pQ1KVl6V2Hdv7XRVvTEa/uT/IRr9
4249Vx/kX2p1+XiSZxX8XvdO5L6oVLHyrYK+YTTr5Hu9Gv1I3tWYP3v6AzU5ooY/
4250yb8GfDzPlLBs0cCP/B406LdWVyCoFmhZvw8t6v8Ctgdh/g==
4251 "]]},
4252 {RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], PointSize[
4253 0.003666666666666667], AbsoluteThickness[1.6], PointBox[CompressedData["
42541:eJxTTMoPSmViYGBIAWIQHcj69oPk6832XbcsN/21UnWA8A/D+b/ak18ue3DW
4255vgNF/jJcfqmbRu6Dpzfg8j/B6u/ad0L5y1POb9qW+9C+HUX/Y7j+30u59Gsz
4256nsH1Q8x7AecHPHdd7Zz82r4NxT1v4fLBUw4Is+p/gJsPse8jnP/X5F5gxppP
42579i0o9n+G27/s6u/+05pf4fw/YPd8Q9hfJnlOb/l3NPf9gPN/iZnzTFL5Bfcv
4258xL2/4e5duj3E6+vCP2ju/4swP6KoI0L+P9y9QWD/MDjA5Gv+uD+OPcfg0IXi
4259P0YHmPpLZ8Ka+HmZHNpQ/MvkAPOv2txUxYPezA6o8Yvg1+SWHCjqYoHbBwkP
4260Vrj8RdvmeJWTrA6dKPHFBlevxjfp31V2dgfU8ELwq+8tmNvuxuGAGn4I/vl1
4261620sWznh5kPCkwvOV6nfd/vVYS64e/zA4csN11/lf7ZqDhMPnL8EHN488PA5
4262L39H0s+RF64fkj55EeZ/eLXjfz0fXL0fOD744fIVB36Gb9zHDzcfEj8CcH66
4263R0v1xjoBuH5IfAnA7Zu4gdubS04Qbt4ycPwh+HskJksl7xWEm3cRHJ9CcP7z
4264BqlXu2OE4Ob/AccvQl7w5cKdIn8QfEh8C8Pttw7U7MydLQy3DxL/CPm0nRsi
4265jlmJwM2vBqcHEbj6iYoWGvK3RODpC5I+ROH27e7c/728UhSu/gI4vSDkn350
4266O35BQgwt/YjB5QWizk3T3CGGlp7E4XzrQ6FpTeHicPdB0heCn6p11/T2N3G4
4267f6rA6U0CLj9hUgqryTQJB9TySgJu/q5fr6/0mEoi0gs4PUrC3fs0qXjJ0yuS
4268aOlTCs7nP/2r2K5ECq4fkl6l4PZZGjc5TxeWdkAtz6Th4Zk6m1P4wyYEH5Ke
4269ZeDq+5knPvIIkoGbD0nfCP6ubIlNCz/KwN0DSe+ycPufXJ7f+GuCLFw9JP3L
4270Itxvox4YbCCHlh/k4Ootl6xTWHNeDi1/yMPVAwDjffOm
4271 "]]},
4272 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.003666666666666667],
4273 AbsoluteThickness[1.6], PointBox[CompressedData["
42741:eJxdVHtIU2EcnXPzPd17bnORj0hH6QrcIMpdm0aioCkYxcAwYxWhUijFTFiL
4275GFpiYSlijEQySctaSJmBVpSFohhqL0lTCVMqh5mW2eN+7lzu/rhcDuf83ufe
4276yPyi7ENcDodT8O/5/34pfXDrw8pdoynriH7SFksR/BhY55Sdy7T2GSkWPwR+
4277ZZ+lXtE1aty5huNp/Xtjyhre4p64b7o67hX/EfEHDdVNVvM04km+T8BXypKq
4278XerPwKSfOeR70TNnnX37xZjKqvcNfLm93yXqnzcaWfXdqK+43tTStmkB+Qvo
4279fr4bk9dwe6/VmXZ+EZj09wP6tNnsy9OzS+BJvz/BTwq0lbb0X+BJ/yvor0zn
4280Y9Pc/I199dLzrAJXxB17aOZzKPZ8HMoTP9q5t0Ob6EOlsOb1oTzzRmeY7iwV
4281cMGT+bmUZ/7isfjWZzW+4Mk+eJSn/0eFquaapzzw5F588IEcv8b8BT54si8/
4282yjNv7sX5Bl2MP8X2iz/iG6PGaldzAij2PgMQ/9XVe6nPHgi+ht5vEOptT713
4283od4VBP0Eve9g1HOMOB2HJ4OxP+LPEMQPWyrteokAeit9DwZHLpeW80yhFPs+
4284DC6syD81dDwMenIvIeqNCTZuy9ojRP86+n5C6M+ONBgMMwxP7inCPFqnOHGd
4285TYR7n6bvK0L8oMWxla8UA5N7i9FfqW41Ya5djH7I/Rm9ZvnE5le7JahH/CBB
4286P096ZrSd4xLo5bQ/pMBHK/Jir52UQt9F+0WKemE5wxscQpmXf2TQd6jTo4tu
4287yLz8xOjNU93rcyk56t2m/cVg3zb9uh2v5YgnflNgnpaSVnVMscLLfwroM5Oi
4288lMEB4V5+ZPCiX53c7Qz38mc48jcMCKRvDErkJ35VQp9cZxd1DyixD/J/UIGf
4289ObAc2mxRIR/xM4Or4opCqv6okJ/4Ww2sd08FltSqvfyuRr13nfv9zQkRyEf8
4290H4H9nrEP8kzPIxBPvgcNcGzGLq42T4N+yffB8H8Bt86ObQ==
4291 "]]},
4292 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.003666666666666667],
4293 AbsoluteThickness[1.6], PointBox[CompressedData["
42941:eJxdVG1IU2EYnZtrfs25ubm7zaK0Eio/5scKI3fLFOzLtD+zpCxyVqYVRqVZ
4295hHOaUGERYihoNaMINetPSRp+kFRY+kPTaUloZdrMLF0utY/71rlcf8g4nOc8
4296z3mf51yX7DuSmMrn8Xj7//z9/W1KqI60TNbpIwId5j1Tq2iCm4BvOASGE+PP
42979eEcvhO89pYhTpzVDf46U2/V6/5hWXytcSBjQB/G0b+Dfvonv9kQPgSe9PuA
4298foe213Q01Q3rQzl+RsD3WZIGVgTb0I/M+4J+Vbl8e1z3+Lz3fQV+s9xwdk7+
4299DX4djJ/v0Cs6q4UPdkxiHvE3Bbz1tOBi2hU76onfH/BbsCxJ7ts5DZ74d0D/
43005FVNWYdkBvVW5j2z4Keynf3N2+bm7fMX+illgV3lsTw6gvNeFod9fE3ZU51o
43017v6dwMc/zktOMPNpHWcfAuDDlwMr71oE0JN7OQMXGnsGha0sJvsS0v/9W9aa
4302AlIGhXQIZ38LwDd6BaXX80WYR/YpQr++9z01cj8X+D3A7JfF9nrTROZ6V2Az
4303s29X6L2Lg3TPUtzAk3y6YV5Iam+2/zl31Dcw9/CAv82R+Q1nKjygJ/cRg0+T
4304BDv1NIrBk3t5or9pqHdj6FtP1EuZ+0mAKx/ln78wK6FDOff0At7dpjRmXWIx
4305ua8X/I5qbYWLF0kxj9xbCj6nvPlOe7V03v2l8OsiKn2Rs06G+5A8yOCv5FiG
4306LaBdhvkkH97AS/s3SLqSvVGfzuSF5e/HUtq8zywm+ZHDD11nSwzOldNaTp5Y
4307/qWm5Xi/uwL9Sb4U4JMLSkuKyhR4z00mbwrMGxnPeKhb6UOv5uTPB/1O7Yq2
4308Dtb7YD7JoxL7FD2lZoo3KWnu967E/KshYwujrEroSV4p+PEra9GPHqRo7v8H
4309Cv7uCa/tLZ2m0J/kWQV91NFMU0yRCvUk3yr0a7dGV01QauhJ3tXQ74xRtVXc
4310VkNP8q/G+z7Vjg1vWaMBT74HDfqfVLe6Odo0yAf5Pnwx7zdhL834
4311 "]]},
4312 {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.003666666666666667],
4313 AbsoluteThickness[1.6], PointBox[CompressedData["
43141:eJxdVGtIk2EY/XRepm656eamiWgSRQszjFBL9pUELkVCKRWjSM0krJRUCkm6
4315YJS6+mEjK8FQu0gRurSigrwEUlbOyMJIXWKJms4yb+Xs8j16XrYf4+Nwnuc8
4316t/MuKO1Iwn5HjuMy/v3+fzWH4q05b+u1FxLb6sOr1vOEm4Fba6YK6za90JbY
43178CbwBeLqzVLXbm3pIm4R4nu0+kUs0eqebMvp1ZbZ5JuR3xU56//s2wB40vsC
4318Pf/3sbtTg4bAUz/D6Ccrt+razM5R8FRvDNgomfxYXmKxqz+B+guJwdKK/u92
4319/fxA/7VBr9d+nZtEPepvCv3pLAVxGxTTiKd+Z1DP8jQw+3TILOKp/znoGUpe
4320lppifiE+U5jnN/QikvPuBKTPoz+az4r4/pUBHdknFqBP8/5h+5pLz++N5Xjb
4321+Tl+Sc9gDi92SnEAT/twAJ/VLjVoMh15vc1+HBEfeW+gNuGoCJj2JeKX5pMa
4322HjYeP+nE297XmV/qt7+w7Pl1vTP0aZ8uwMa0fe/ar7ogf7mwX1fgYt3GwfFb
4323rtAbF/YtRv3kUI+fyiYx4smfbtDXqMyiqFY35F8S7uEOPG9t9M7odEc83ccD
4324uHPwfHDpJ4bpXhLsr7pjT5hxWIL6HsL9pIjPN4ZF90wz3Cfccxnqx1wRJ3JO
4325nshvEO7LsLT5cEO5WIZ4ureM7TssJWLVRRlv+74ZNt+MbnmslLP5BT/I2T38
4326QnTxlQyTP+TQv69Xd31e4QV8QPALw/4OopT8Oi/ok38YX5w3ZhaHetv5iWHL
43270IesygfeyK8R/MX45NTWiXVRCrYPwW8Kto83d4+1tSns/KcEv2brZS5puxLz
4328kR8ZNjSdOjdiUiKf/OkD3ro6W1aU5GPnVx/EZ1buqpD3MUz/Dypgk+eWwBsZ
4329KuSTn1XoL+KM5nb4KOPJ32r4u2ZaGfoqVw2e/K6GvuQg92jvLOPJ/77ABb0j
43302skiX7v34Mve547u9rPOftCj9+EH/i9pfMkX
4331 "]]},
4332 {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.003666666666666667],
4333 AbsoluteThickness[1.6], PointBox[CompressedData["
43341:eJxdU1tIk2EY3uapbR52cHNkaKZ2ti4yL5T6f7EwhDIkAoUkRkN06kxFZNjp
4335QuqiDIIwKkgqoexChUKR0HCYZIqZJyhCdNO52ZpWHlLnqu+z5+v/L35+Hp73
4336fZ/38HxxRkuOSSaRSC78+f7+p7hbeU0xzdxGRmdM1bEUnuIuYLfXZfOf7eXW
4337BfwgeE/mveq9FcPc2iZ2kfhxzr+JZ+rTIkZTP3M+Qf4E8r0V3o/ctUnUp/Xs
4338qPc1Oj1GZ5oGpv04Ee+y3Sl0n3ABU7056E2bHS+79nu4VYG+F/rz8uirWTfm
4339GSb9LKDety+2xMPW76L+frD+Wovfxxb/RD7tdxH8XK3uoiJ/SdT/Mus/t1O/
4340mL2C/Fkyzy/wzqSC1xPpq6L51th8UpWx79C6aF4f5rWPtoe8StwQ3c8PvYWR
4341lrFBpYRfFexDwmMfR2v39ARKeb/gXlL+Xz3vs9yaDh/DdF8yhjUHBpuXZLxP
4342sL8AHvurke1o9AaAp/sMhP7czFjl/VmG3WS/QYw//aL39mQQ9Nxk38Go7+64
4343srX2UzDiqT9DMI8r4UyJdZjhWXKPLYh31u1+Y+lnmN5HDj3nyrrG1COHHr2X
4344AvyMcciU16kAP03up2S4v7E9u02J+g5yz1DkO1KsyuMtoYh3kPuGAdsbTuWn
4345Pv8Pk3uHI39KEd968HE4L3x/EdCbrFwOSHwQgfh54gcV+DKvaV9YFsPUHyro
4346lSV8GLn+VsX8QPyihp4lN/WyLEPNeOIfhi11T3dd6lKjHvUT40tt4UPLaRro
4347U39pEF+6Um0tb9cg3kP8poF+SZI93pOsxX2p/7TILzGeHCho1cL/1I9all/f
4348VjWVFIn61J+R6Ke4P277uaZI1KN+ZbxZevPd+E4dyyf+1SHenLJUnvNEBz3q
4349ZxZfZD6/bSBWL/K3HvlFDX09mQ/17H0QvzNcOJps6TZEifwfhX0UKR4ZjtyN
4350Qj36HhhfyMm729QG8PR9GFDvNzoiyJY=
4351 "]]},
4352 {RGBColor[0.528488, 0.470624, 0.701351], PointSize[0.003666666666666667],
4353 AbsoluteThickness[1.6], PointBox[CompressedData["
43541:eJxdVGtIk2EYnXM6N1N3cWqhhqFkaaKJibe+V4j1Q8oSQjKh0FWoYCsRpZgR
4355okmYOZa3FqFRhre0EMkyi9Qf3SSFcNlqiTlMS81bpZbV9+r5+PZjjMPzPOc9
435673nO+/mlnUo6LhQIBJp/v///iXr9pSf7mhmzWWq0VMcRiruAV4K/3UmM7mPe
43578+qvUB9YutZR1TbAfFjDy2z/W+CAo0yNuNcETOfNmM/vGT2XN2RhPvL4RtBv
4358Ve5pzckdRZ3qGYMeubqyNmjVijo9bxzzMfnj+tGSCRv9X3G+pjG60KiYwvxZ
4359Vs80+vdmqx9u658Bpvq+gz/14vR9B8Ms+KjeOfCdrq1uGkmet/FzAXzFnfG3
4360HnsvMpY1LGPvs4h54+DE9ZqRH5in9/uJ89smDRW59b9Qp/ddAn+vKK7sYNay
4361jf8r6B/2sRbvCP2NfurHH5w/vevKeckCh+m+VoGFgd5ds6kCwveLw6Xt2gfH
4362GDvC368dWdfjEd/X3u8nRD/1U0jW9dW+3ngvVmRP1v0ZY/21B19QSnZLo5XD
4363WtZvEfg7rM8avJ5zmObTAZjkeNYXNzlgvojdhyPwi9Wsm/OXOUz3w+FDpU9v
4364pGnFhL8vMfRbvFTGN0lOwP7s/pxwfubtjKrdERLcr5XdpwT1hbBuQ7OnlJjW
4365cDS7Xyn8KuhWlG9akqKf7tsZWJJwsrTE7Ez473sD8NWhRyWL3Rw2sXlwgR5f
4366jaxIU+eCejqbD1fwN8xoLgwWcniKzYsr+sN1nTpywg16aX7c4JdFJI5L9peR
4367YV6eZOj3TwiLKauQoV/N5ovDGfojUX2OcmCaNznmW4eKIlfy5IT/vZJD75xP
4368W0T4F7lNHhWYj9IMh2emKOAHzacCfAWNop11LxU2eVWiv2cmJNQUqwQf/T4o
4369oVcSeTjE7a6SvOPlmavv1xUGqze7wx+ab3foNfS0bNeVu5NPvLxzdZPEFNhu
4370pwIfzb8Kdd8Dwq2TZ1Q274HrT68MDtjyWQX99H14oP4XDvEe+g==
4371 "]]},
4372 {RGBColor[0.772079, 0.431554, 0.102387], PointSize[0.003666666666666667],
4373 AbsoluteThickness[1.6], PointBox[CompressedData["
43741:eJxdVGlIFHEcHdd1d7321DUFCxWhyA/ZJh2SOxkZ4rF2EBuUhh3aGhaZhpV9
4375yTUljBDKkgKPIo+tljCkKK8si5AVydL1Qk3KzQ7Naz2r+btvmPkwDI/3e7/z
4376zQQkn957XEBR1LF/z//32vDK0PjAKu3jrFGLT+AumuDnwEkhEQ9edDdrTRz+
4377PfiJaGX9oMGifbSCE5n4DuAWTUaacKmTp++GvjCyb6Y4qpeXbwB6U2VQ883d
4378g9CTfoaAlWZ9/kDaF+hJvRHwWXWF8etufOXNNwrcU9/slVFrA77O9DMGTL+d
4379sb7s+oF8pL9f6K/jxK2EK5d/I570O454o82sqZRPIJ70PwF+S/oHdVv5H/AK
4380Zp5J8LbxEfv4pinePqfA38uk+tSt09oazrwz6Edn92sMPzjLm98OLMgJqzjy
43813Y58ZB9z4J9RCXnGnHnUJ/daAJ+SazhZLVuEnuyLxX4SY6ylbAn9kf0tI9/I
4382G4vPnC9FP+Hsk6Id+RvEhws8hinaoa9h9utEO/S3o21zq00szmX2LYD+7LXz
4383p0IzBTTXnyyOaRP274xwBt7M3MMZ+iBZke6AWAhM7iOkHfMtJqxpSm0XQk/u
43845QL8qci08eIdFr9m7ueCecwft94vTBYh/13mniLEF6hbvUvXi2mun8Xgk/X7
4385rz6dZHlybwnyhZcMzra8kiCe3N8VvHdvuuFznitdvYKdGD+4Iv6n/0LPqM4N
4386+a2MP9zAv0sqiFtY5Q6+lvELi0vL1A3SIXea6x8P1M8ertgQUOMBnvjJE/p9
4387waHlmnOeiNcy/vJEfEhKvSpquxS8L+M3KfYrqoox6kUymvt/kUHfb+uaNlhY
4388TPwohx8PqTW1EbFynj/lyBddZx9rNctRj/iVxWH6xuA93gqa+z9TYL5Ae16i
4389NZvFxM9svLQkrvhov4LnbyXqz2/zah+LVKI/4ncl4r/1WCVZD5Xoh/if5Tsv
4390le1YdlfxvgcWN/mnXsg/o0J/5PtQof5fZ6TTtg==
4391 "]]},
4392 {RGBColor[0.363898, 0.618501, 0.782349], PointSize[0.003666666666666667],
4393 AbsoluteThickness[1.6], PointBox[CompressedData["
43941:eJxdlHtIk1EYxucuXjadw6TSbmY3rUwzHOJl+yylosS0AisyFZMgaRZFdhkm
4395JmJaWUqiKEZmZiSFkZWEViil3YY2vLFSU/OSOnXa0qbVd9xz2P4Y48fzvue9
4396nOd8K2MVEUe5HA4n7t/v/39IRZ1LVmqpPDAxQhDUtoch/BSsS8lZXO76Sh5g
4397otdDv9U66aboaYQ+wcar5LJ5Llr0sNC5uUnub5KvRv7IVs1dw5ZW5JPz2sHy
4398E+KKzlwNmPTTCW74UNzedb4LTOp1o97J2OdRezf0mPXfi/rOelV3XUcfdNJP
4399P/p/c3UgXpo1YNbfIPj4Ku5QWcBPs36HwY4vnBVOwyNm+9RCP1KWf67+k1bu
4400N8/v2HnGoHuPl/rPrh1HPplvHPNZBVYapMkTiCfz6sAd6TW1ihad2fyTOO9R
4401U2PKfc8ps31MIf7yspZtXem/zPajB0ce+y5w7tQjn+zrN3SPJ6NvI3yn0S/Z
44023zT0OcNMRmb2DPZN9vkH+pcd1rvr+inL2P0awOU5jmIDMwt2YPdNWfnVReWT
4403P4f+iD85jLFeee7Cnc+SOIwxPoq9D8oO1UsfNK+2QDy5Hwvoym+uIq2KMrkv
4404LmOs94PvnmCr5DLG+QvZ++MiPny950c3dx7Ot2Tvkwf9ZZjPphA1D/mJ7P3y
4405Eb/mjP/1mBQ+6pH75iM/uyBIq/QQMKbvT4D46drt4QVtVCd+sATH9YZWVqVR
4406dmL9YYnzPwv3LWjebMUY/ZvK+sUK5/t6HTw9qqFM/GON/Dv7o9WiK9bQiZ8o
4407212Il7pJbRD/mvWXDfSztxPygrupvpH1mxD9dtWf0kdfEzKm3ysh4ncNJR1Q
4408+okYUz+KsN8qSXJ1fh/ViT9twSukaUuqblImfqWccSjzYpPMDky+D5R1l25o
4409Rgbt0C/xsxj64Xt5MlGeGP0Tf1O94X1R8bpt9oyp3+0R7z1WwgkepTrxvwTz
4410hYnUXo9DJbQ++x4kiOctj4ypKZGYvQ/KfwGGBIv7
4411 "]]},
4412 {RGBColor[1, 0.75, 0], PointSize[0.003666666666666667], AbsoluteThickness[
4413 1.6], PointBox[CompressedData["
44141:eJxdlHtIk2EUxndzqXipRLAGpkVWKyW1pCLbV7JCg0aGmUssJS2sDNNES4OS
4415vMaMsAvaZWKEoH+YK7REstpMM7S00lCipW1qmjrTzdusvhefl29/jI8fzznn
4416Pe85zzvvuHPh8QIej3fi3+//t2+vIEUvL5O9VXm2Ou07zhB+Aj6cmL2pY+C5
4417TMfRX0G/1/26PeqODnoEG98CdpkLyQ/b0SZr4uR/RH5jUVzZ/aROmZZT7zPy
4418M7zXWN0bu5BP+vkKPVDTp1Qt67U57xvi01Z3HM32/4765Hw9zg8/HVAgU/5A
4419PumnD/l+T2/WzV7th076+wl2nDcZaisNiCf9GsFG+SH31E8DiCf9D4K1Kk3I
44205vkhsD97n2H0p+5yOz+8dgT1yP1+g7O8UtUVB0aRT+47hvtWbUk8WVM/ZrPf
4421cbAkquTy0g/jiCfzMKFefta7W0n9Jpt9TSDeXDZT9d4ygXgyrz/g+CapVuo8
4422aeOXSeidQ8qePO8p1CPznML9drsWmgxbzeB0dr5mxFcH1jvIwyyoZ2DnTdnz
4423yC+v8php5BN/TkO/ninZxk+ZAb9h90F5Rr1fcSx31mY/c7jPKd2lhIbSOehk
4424X/M478tgZZakmrIzuz8r4uUuvcUZWiv0THafC9A1AU5VXd2UL7D75TGL59/Y
4425+EBfksZjdJx9U705OGikhcdnuO+XD31B0WaxFPCZxXmuZP3AZxb7CYpLEK13
4426F0A/yPpDgPyzqVbXyIcC1M9j/SJA/qOc25KcDUKG+76EqNdz12/dM40Q8cRP
4427NH55ZVNAf7CI4b5HEfTQhphdbs0ippnjNzvoV9qnQveEUyb+o1yrV0Uk91Im
4428fhSjv9EJn1h1ghjnE39S9hG/PNM+JkY+8esS6NEekenWi5TJ/wPlYulotq+d
4429PZj42R71WnfmFkUXUSb+pixUrCotXOHAcP3ugHrbY2sfvyinOvE/5eQURc2g
4430ryPDfQ+UK64ZGzzqHDEP8j6o/hdxir38
4431 "]]},
4432 {RGBColor[0.647624, 0.37816, 0.614037], PointSize[0.003666666666666667],
4433 AbsoluteThickness[1.6], PointBox[CompressedData["
44341:eJxdVHtIU2EcvZuuzMQsUzILFeklKGkSWcq9RLbIWCaYFRrhIyoNS0tMifSf
4435RCLLHmgZKpqSmCUybWBZDA1Ni3ImLS0fpa50zjnd5uZmdb92Lrt/jHE45/c+
44363/VLTI9JEVIUlfz39+9/fOX9RI1HKe3UF7Ja6pDNEPwEWN2pKcx0a6KX2/Ey
44378EOS3XtSvdvAT7F6Ob3iPz57bm9WsHsHMInvRHxiw4SkYV03eJLvA/IFZb+9
4438u/bWR/Ckn17wT7288nqLFcCk3mfot7ampt2+18+b7wtwTXzbMUmJEjiJ7WcA
44398X5Wt0iXh4PIT/r7DlxekRT87tEQr99hxBf5Dri2Hx6hHe36H4X+0EVHkf+n
4440Uejr2Xl+gHeWB5rzY37SznbzjUHftSZOO6wYo0V2845jnoKkvAk6doJ3PxX4
4441SGndt/J+FXiyj1/gHUUKhSXuN+qRe00Cy2MXu+KVk4gn+5oCzq/d9Kb1hJpe
4442Zre/afARBknL+sFpzEf2qQFv9Q/vfxk0g34C2f3OQJ/QE30kTcPhm+y+tYh/
4443dSmlx7tRy/PnLPrfsDFH3H2Bw1HsPWZRL7ejSJ4TrEP/5D465Pt6vjoiYFYH
4444PbnXHPoJ85TJlE1zPH/OAz9o69lRmDmP+p3sPTneeHrk2a5QPe67hb2vHvqj
4445q/TbVHMcJvc2IL7lhXNNSbOB9/6M6NfjlI+vOMsI/T7WD0b0f9kptEy/cwH1
4446H7P+WIC+r/GAZ61hAfkdWL+YkD/keEJxrMzE848Z+I4gw0V0xYz8xE9m5NfW
4447XS+Qhi0iny/rLw5Hx5QJk02LyJfH+s0CvtH0/Kp7q4X3vbIiv2t1u1Gea+X5
44480Yr506OUmRnhS4gn/lyC/r1OPe1nWeL5lWJsek+JoFl1kmJs85HvA8XY+t1f
4449dSODec3piZ8pBvvXe2wv9REwtvzE3xyuOVip1lwTQE/8zvF95QH14mEB6hH/
4450C4FFOumZCkbI2PxN3gPHh4rpzYZKjifvQ4h+/wCvC4qo
4451 "]]},
4452 {RGBColor[0.571589, 0.586483, 0.], PointSize[0.003666666666666667],
4453 AbsoluteThickness[1.6], PointBox[CompressedData["
44541:eJxdVFtI03EYHfpQM43yIQ0funiBIDXTxIL42ypqIKUrlRplxFK6rIuSmi7Q
4455l1LpwdSwNCeWaQkS5gUrbdN5Se3i3eW8bHPbf9feMrIL1f+T82d7GOPwne98
44565/d9Z9t2/prkgpdAIJD9+/z/fmXqqFFqChnnA7Go29UdT/g+sG9qmVP+rIph
44573ep1qC/UhBy+E9PA2FaxD8dvQj1ug6AiedNLxurW34L60R75Df9frR56HdC7
4458macLXLnSiX7y8wZ+nkSL1Yb5Lo95KvAzsnWtskY19Gh+D/i/JWV3tYu9jGMV
4459izk/GvDLI8XShMB+xu7mbwD1Hb6CSHXiIPTI73vMV1s7vGKKh9BP/ofhP7Vf
4460Pt3YM4J6HfeeD/DjrAtpClr56PG+z9AXqVzvjmweZSxu7x2Fv3vhQ88L94xB
4461j94/Bj1tdX3Z26Rx9NM+xsEP9ilQfJNPANO9JtB/NVeaHlky6bGvKbzntSU2
44628WLDFPppf9Pgeyf773vaO4067XMG+sc0ruD5hRnGtYqzuP1qwa+KGvIL+KnF
4463PBW37y+om2vrvycGzAJTPmehH7W+wFASrYOfFO4eOtwnTyEd6Ts+Bz7dZw56
4464A/bY9j+X51Gne/F44yn/2riiBfBjufston5m0FWUWb8I/we4e+rhZ7JKtjfl
4465HI/TufvqsY8fSZKIrK966NO9DcBbhPHBpQoD9On+Bsw/pA4PbPYxAs9weTCi
4466/1JOkN/wQyPmUz6M2E9phNCLDVtCfTuXlyX0t5uXl73b+TrlZwnzZh+bHFsP
4467mvAeypMJfMHJcf3+MRP4lC8z8h+2Tj11Os2MeZ1c3nic0Ns8nOPi+ZQ/C/Sv
446836pWVeRbwKc88rhyV3Fbi5DF/iifLPx0sdkvPlWy2AfllcV7DEqZ0hFqhR79
4469P1jhZ02KpHxtmxX6lGce7/SLLwoV2TzybYPeib7w26JRm0fe7cC5+UGZaWft
44708Ef5t8O/crcwQ+Hk+fR7cGA/Gtuy9FGeA37p9+GA3l9Hd24q
4471 "]]}, {}}, {}},
4472 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
4473 Axes->{True, True},
4474 AxesLabel->{
4475 FormBox["\"r\"", TraditionalForm],
4476 FormBox["\"\[Rho]\"", TraditionalForm]},
4477 AxesOrigin->{0, 0},
4478 DisplayFunction->Identity,
4479 Frame->{{False, False}, {False, False}},
4480 FrameLabel->{{None, None}, {None, None}},
4481 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
4482 GridLines->{None, None},
4483 GridLinesStyle->Directive[
4484 GrayLevel[0.5, 0.4]],
4485 Method->{},
4486 PlotRange->{{0, 10.}, {0, 97.77361183886231}},
4487 PlotRangeClipping->True,
4488 PlotRangePadding->{{
4489 Scaled[0.02],
4490 Scaled[0.02]}, {
4491 Scaled[0.02],
4492 Scaled[0.05]}},
4493 Ticks->{Automatic, Automatic}]], "Output",
4494 CellChangeTimes->{
4495 3.644672737472*^9, {3.644672924887*^9, 3.6446729369300003`*^9},
4496 3.644677223602*^9, 3.644677315329*^9, 3.6447533991610003`*^9}]
4497}, Open ]],
4498
4499Cell[BoxData[
4500 RowBox[{
4501 RowBox[{
4502 "Checking", " ", "this", " ", "equals", " ", "the", " ", "above", " ",
4503 "density", " ", "plots", " ", "value", " ", "at", " ", "the", " ",
4504 "freefall", " ", "time"}], "->"}]], "Input",
4505 CellChangeTimes->{{3.644677282792*^9, 3.644677298586*^9}},
4506 EmphasizeSyntaxErrors->True],
4507
4508Cell[BoxData[
4509 RowBox[{
4510 RowBox[{"\[Rho]22ff", " ", "=", " ",
4511 RowBox[{"Table", "[",
4512 RowBox[{
4513 RowBox[{
4514 RowBox[{"(",
4515 RowBox[{
4516 RowBox[{"(",
4517 RowBox[{"4", "/", "3"}], ")"}], "*", "\[Pi]", "*",
4518 SuperscriptBox[
4519 RowBox[{"(", "r0t", ")"}], "3"], "*", "\[Rho]0"}], ")"}], "/",
4520 RowBox[{"(",
4521 RowBox[{
4522 FractionBox["4", "3"], "\[Pi]",
4523 SuperscriptBox[
4524 RowBox[{"(",
4525 RowBox[{"r0t", "*",
4526 SuperscriptBox[
4527 RowBox[{"(",
4528 RowBox[{"Cos", "[",
4529 RowBox[{"\[Xi]", "/.",
4530 RowBox[{"First", "[",
4531 RowBox[{"FindRoot", "[",
4532 RowBox[{
4533 RowBox[{"\[Xi]", "+",
4534 RowBox[{
4535 FractionBox["1", "2"],
4536 RowBox[{"Sin", "[",
4537 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
4538 RowBox[{"k", "*", ".24"}]}], ",", " ",
4539 RowBox[{"{",
4540 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
4541 "]"}], ")"}], "2"]}], ")"}], "3"]}], ")"}]}], ",",
4542 RowBox[{"{",
4543 RowBox[{"r0t", ",", " ", "rt1", ",", " ", "rt2", ",", " ", "rtstep"}],
4544 "}"}]}], "]"}]}], ";"}]], "Input",
4545 CellChangeTimes->{{3.644677257641*^9, 3.644677279874*^9}}],
4546
4547Cell[CellGroupData[{
4548
4549Cell[BoxData["tt2"], "Input",
4550 CellChangeTimes->{{3.644677018575*^9, 3.6446770191280003`*^9}}],
4551
4552Cell[BoxData["0.24`"], "Output",
4553 CellChangeTimes->{3.6446770194519997`*^9, 3.644753399325*^9}]
4554}, Open ]],
4555
4556Cell[BoxData[{
4557 RowBox[{"^",
4558 RowBox[{"Gorgeous", "!"}]}], "\[IndentingNewLine]",
4559 RowBox[{"Now", ",", " ",
4560 RowBox[{
4561 "here", " ", "I", " ", "will", " ", "try", " ", "and", " ", "make", " ",
4562 "the", " ", "corrected", " ", "ram", " ", "pressure", " ",
4563 RowBox[{"plots", ":"}]}]}]}], "Input",
4564 CellChangeTimes->{{3.644674030271*^9, 3.644674032722*^9}, {3.644674076483*^9,
4565 3.6446740872650003`*^9}},
4566 EmphasizeSyntaxErrors->True],
4567
4568Cell[CellGroupData[{
4569
4570Cell[BoxData[
4571 RowBox[{"ListPlot", "[",
4572 RowBox[{
4573 RowBox[{"Table", "[",
4574 RowBox[{
4575 RowBox[{"Transpose", "[",
4576 RowBox[{"{",
4577 RowBox[{
4578 RowBox[{"Table", "[",
4579 RowBox[{
4580 RowBox[{"r0t", "*",
4581 SuperscriptBox[
4582 RowBox[{"(",
4583 RowBox[{"Cos", "[",
4584 RowBox[{"\[Xi]", "/.",
4585 RowBox[{"First", "[",
4586 RowBox[{"FindRoot", "[",
4587 RowBox[{
4588 RowBox[{"\[Xi]", "+",
4589 RowBox[{
4590 FractionBox["1", "2"],
4591 RowBox[{"Sin", "[",
4592 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
4593 RowBox[{"k", "*", "tt"}]}], ",", " ",
4594 RowBox[{"{",
4595 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
4596 "]"}], ")"}], "2"]}], ",",
4597 RowBox[{"{",
4598 RowBox[{"r0t", ",", "rt1", ",", "rt2", ",", " ", "rtstep"}],
4599 "}"}]}], "]"}], ",",
4600 RowBox[{"Table", "[",
4601 RowBox[{
4602 RowBox[{
4603 RowBox[{"(",
4604 RowBox[{
4605 RowBox[{"(",
4606 RowBox[{
4607 RowBox[{"(",
4608 RowBox[{"4", "/", "3"}], ")"}], "*", "\[Pi]", "*",
4609 SuperscriptBox[
4610 RowBox[{"(", "r0t", ")"}], "3"], "*", "\[Rho]0"}], ")"}], "/",
4611 RowBox[{"(",
4612 RowBox[{
4613 FractionBox["4", "3"], "\[Pi]",
4614 SuperscriptBox[
4615 RowBox[{"(",
4616 RowBox[{"r0t", "*",
4617 SuperscriptBox[
4618 RowBox[{"(",
4619 RowBox[{"Cos", "[",
4620 RowBox[{"\[Xi]", "/.",
4621 RowBox[{"First", "[",
4622 RowBox[{"FindRoot", "[",
4623 RowBox[{
4624 RowBox[{"\[Xi]", "+",
4625 RowBox[{
4626 FractionBox["1", "2"],
4627 RowBox[{"Sin", "[",
4628 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
4629 RowBox[{"k", "*", "tt"}]}], ",", " ",
4630 RowBox[{"{",
4631 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
4632 "]"}], ")"}], "2"]}], ")"}], "3"]}], ")"}]}], ")"}], "*",
4633 SuperscriptBox[
4634 RowBox[{"(",
4635 RowBox[{"-",
4636 SqrtBox[
4637 RowBox[{
4638 FractionBox[
4639 RowBox[{"8", "\[Pi]"}], "3"], "G", "*", "\[Rho]0", "*",
4640 SuperscriptBox["r0t", "2"],
4641 RowBox[{"(",
4642 RowBox[{
4643 FractionBox["r0t",
4644 RowBox[{"r0t", "*",
4645 SuperscriptBox[
4646 RowBox[{"(",
4647 RowBox[{"Cos", "[",
4648 RowBox[{"\[Xi]", "/.",
4649 RowBox[{"First", "[",
4650 RowBox[{"FindRoot", "[",
4651 RowBox[{
4652 RowBox[{"\[Xi]", "+",
4653 RowBox[{
4654 FractionBox["1", "2"],
4655 RowBox[{"Sin", "[",
4656 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
4657 RowBox[{"k", "*", "tt"}]}], ",", " ",
4658 RowBox[{"{",
4659 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
4660 "]"}], ")"}], "2"]}]], "-", "1"}], ")"}]}]]}], ")"}],
4661 "2"]}], ",",
4662 RowBox[{"{",
4663 RowBox[{
4664 "r0t", ",", " ", "rt1", ",", " ", "rt2", ",", " ", "rtstep"}],
4665 "}"}]}], "]"}]}], " ", "}"}], "]"}], ",", " ",
4666 RowBox[{"{",
4667 RowBox[{"tt", ",", " ", "tt1", ",", " ", "tt2", ",", " ", "ttstep"}],
4668 "}"}]}], "]"}], ",", " ",
4669 RowBox[{"AxesLabel", "\[Rule]",
4670 RowBox[{"{",
4671 RowBox[{
4672 "\"\<r\>\"", ",", " ", "\"\<\!\(\*SubscriptBox[\(P\), \(ram\)]\)\>\""}],
4673 "}"}]}]}], "]"}]], "Input",
4674 CellChangeTimes->{{3.644674192972*^9, 3.644674243575*^9}, {3.644674283506*^9,
4675 3.644674294939*^9}, {3.6446743331940002`*^9, 3.644674339608*^9}}],
4676
4677Cell[BoxData[
4678 GraphicsBox[{{}, {{},
4679 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.003666666666666667],
4680 AbsoluteThickness[1.6], PointBox[CompressedData["
46811:eJxd0zlIHGEYxvFZ47EaNWrUzXqs69GJlSIWQb86IKJBIZBKdC29Yo7OwgNs
4682LFKIkkILqzTaeTAkkEZBBRNSLIIISkAUdDEExSA68wzfg88Lu8ufnfl978Js
4683de9gV3+a4zh9Dy/vc2Hem/U2Jxj0tu2mRm9+yfdJ25gj2/7ljce2BxLe/JH7
4684T23v7nhzLt6lXJ+Sfa5s7/n3/5Xz/tkO+e/XbQcn36Z+jja48G7EuxXvv3h3
4685sp9jHu/Phh+yjfvTbOO8J7axX7p4bHgZ4mWKlyVe2OD3trvwwuJli5djbrpb
4686V+b2O114T8XLlf1yxcszkz8W6t8lelx4+bLfM9uYAtv+5Qk2fDaep0Lb/nHz
4687bEyReGx4bHjPZX82plg8Njw2vBLx2JhS8djw2PAi4rExL8Rjw2PDi5qlmdnN
46881y+Hguc/Kl6ZeGx4ZWarY/Xr4dsRF1657MfGVIjHhseGV2lSS83hiZ2xYL/K
46894Hl67+KqmHgxsxFpSX1Z/BA83zHz5tXw59/mY7BflexXZZa/r/XMTn8KvLic
4690Hxc/LvezcR4bUy0eGx4bHhseG1MjXo3ZW02enF2Mu/D4PTw2PDamVjw2/q9s
4691eGx4bEyd7XsGElq9
4692 "]]},
4693 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.003666666666666667],
4694 AbsoluteThickness[1.6], PointBox[CompressedData["
46951:eJwtlHtMU2cYxiuXogKWUqC05XLaAiu3IhSJt/E9i0J0KkbFgGEgZRinm5vg
4696HPOCiihmoA6wiG5oJg4cTjRDNAHGgg4BDSIqCAoT5wTHREVBkMvG5Jz3j5OT
4697k3P5nvf5/b6jTvhi5TozkUiU+O6YPHNFhx1+za1gF9t1Z9NsEphwfZ2u97L2
4698sY0SW/1ddnNgU5c0wkT379P9QrY+okzx6XAXO3qn63im4Rxr45//izXyz5ez
4699nc3jOYnxPex21uGDXqer6P1eev8q+30bly+71sfCy2JULW119L2X9L1GliHV
4700RPxpesXaCx7k3pHcpjwDlKeF+fZcbJ5dP8iy/y4JSm9po/WGaL0O1lQZtip7
4701ZJg9a1Q9H6voovVHaP3HLPnbttanvmPsidzZ6Bb/hNXyecYpTw9zStwQzeL+
4702Y0eOD7QXbumlfBOUr4/FFqRuWtIgwoexXFyW/CXlnQIh7yt2IaNOn2I0Q7dh
4703+dtnRa8pvzmE/INsSpKkv3DUHIc6QxYtnDrEfPh5LJDDzzPMVsVE/9J0xBKH
4704dPUnm8pGaD4xhPnGWFHYqeRRPysMyUXjmUX/0rxWEOadYEMB/xi86qYivrX/
4705wvx+EYT5p0GY3wyLlYY3K9ZOx9b+Wd2NgeYQ+rCG0IcFvrfYeTn1rTUQe8v1
4706q3xLCLxsIPQjRt+L2pSSHFtUqqrXzFZPhdDXDAh9TQO7bzun1UeCIs+JY7Jb
47070yH0J4HQnw0ajL6pogQ73M3I67A6ZQuhTzvqU4JX927FHtVL8cClJjtziR32
47088/1KqV8plEu/DPUbkyL89NpLJ9qlOM/3bY+DAZN922PBFWf3q/X2qI4oialO
4709kUHwUwbBTwd8FlI9EWWSQao9kd6rc4SI5yHDNzwPJ5h+Nj56Hu+A2dw8f02f
4710EwQ+DsRHjt848ZV0f0fMC0+PXn/FGQIvR+KlwNO8s6cUo46wy9tqWfGTEjt4
4711fk5o5vmpYGe9fO+FOie4ie2D5YUu+JHnKcdrnqcr5uwZSAg7Isfq0ugnaaVu
4712uMnzlaOP5+sO45v8BR1rnfFRlUfWznUcBN7OxJtD1sb5Hkl+CmwPfp0Ymqom
4713/grir0F51yMLqxEFLK6adotParCI90GJ8WeTPmjxR+T+7oJrSkx8bNPRUq9F
4714Eu+HCoUuk354QHzDuy4oV4VE5ZqUklEPfMf7okJI9KQvntCzpuKGOBcYurdH
47157gvxIn9cyB8vRJUnH4jzdcXntUnJ63a8Rz65kk86pHnLPxkcdsXqsvdvL72u
4716gyPvlxtyeb+8cfZk1aLMWjc4Vz7cPJfzQSjvmzs6fSd988FdWbw3l+OOxfci
4717V+j3+JJ/7uSfH3YtNLPs0HN4KP4hWdfrRz5y5KM/ZLsj33jmcRhdWdOii9GT
4718nxz5GYAzFcXdm8c4VJ67lBJwL4B8VZOvMzFv8G1rlVGNbbY1/m6lMyH8H9Tk
4719byCa9UvqxA1q1DdJas5sCSSf1eRzIBI3nLi8Qq/BMuWN5PLQIPJbQ34HYeT0
4720y+ICkwY2/S/CFs4wkO8a8t2AQw8/yH86qsH48l1zoh4byH8t+R8MjcJ0IMio
4721hefcr5c9rwym/aCl/TALl1f1pKS+477vfGea+Ngs2h9a2h8h+B/rGtBb
4722 "]]},
4723 {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.003666666666666667],
4724 AbsoluteThickness[1.6], PointBox[CompressedData["
47251:eJwtlHtQVGUYxjdY7ndYWC4LewslUFC8YEKch4siggvL7iYzleGFEcJCR6AB
4726BJQRCMVIy5CZiFzFUBISGFdIqRhBTDAvGCEoiigYqBGM4EZbcc77x87OmXPO
47279z3v8/t9R7olPSHZiMfjbfv/N//Pf8dfJspvYcpz+jaLYgsZ7voqXWuZiMta
4728t6Net5nhVMfn1Ueb6X4/3W9nLk+2+J64N8TkNTxInPiymwlnn39Ez/cyJ8rH
4729qhIVT5iGqZuZB/mD9P5Ten+Y2bYg49TQ2QnGS9c7rvIZpfVe0HoTzOf3CzY2
4730FU8yA+fyev+KmaQ8U7T+NDN9umMg6/w0c6vAPzvPZ5b2e0n7zTHqTKuk1U9m
4731GN0Ww+SIgAdu/1e0vxGaoRz5x/lv5r2wDMuJb/lIZvPMUR4zCKwrUn5eY2A0
473292ZN1D0W4PL9S/ms0Zr2UVZ7Kw/Ty8pGREV24PK+Bi6vA9KUh1edTDCCRCZU
4733nRh1BJffGFx+ATyCmvVFfxhDWppeM6ZxwRQ7Dx832HlccU3Ud3F7oQmMFXGp
4734m2zcwc1nCm4+EfYY6fOj3c1wfef5r/m2XuDmNQM3rwR+Y6Iwv0ZzdGTf0j7z
4735k9L8FuDml2GwhzG2WW8JYYpNwK5MOfVhBa6P11HWtKXj+UMrnDKzni575A2O
4736lzW4fhYipLKo5Ea2DUw01yeR5UN92YLr6w08y6+NbnSww7U4tc+hxX7Unx24
4737/hZB0fjY5Be1PZ7rqyp2WfhTn/bUZwAWeM88aZU4oPjMHfHM/iU4wvbrgH62
473836UwVJh31U04wD4g9LN9wkB8wPbtSH0Hos/S/fRXFxzhcNDcM/HiMnB+OlH/
4739y9GQ53fg0H4nHG5b3pmzewXcWR5OSDkwz2Mliv8MScuPF6D0avvBpyFBxEdA
4740fFZh01ZFbLrIGfq6xg9Pur5JvJyJ12oE/fb+4qQxZzxO5u+oMw2GluXngtMs
4741vxDYRe+yVTa7YMOMrthg+hZyWZ5CdLM8QzH6Q+GLsL1CGDb3XKpyY6Bi+Qpx
4742geUL/Oj/xY3AWFdExGs/iawG8XYl3mGoOF5zTu7qhqWDn+JBaxjxdyP+4UgX
47436I4IRtwwoPrOVDsUjgHWB3e4sD5EYF1J126T793B6PR3S20i0cT64YFD4fN+
4744REKi71e/zPXAdtOcSxWRa8gXD7xrOu/LGszsGF8xGiXCkXDf+mv715I/IvIn
4745Cr8Ozbn87uSJqFSrs97Xo8gnT/JpHWoTbGe7hjwRmuPZWiOJhhPrlxd6B+b9
4746isbeDnF/S50XHmUn3YnZsx4TrG9iBCnmfYtB4qqlrWc+FqN7a69B+DCG/BOT
4747f7E4pjne0yOVoD0oe6Vl3AbyUUI+KsC38w3tLJHgvl6xR9apID8l5GccdnY1
47481rc9k8D+tm/KEnk8+SolX+MxuC9YrFNJkVG9tnJ4NJ6+D1L6PiixLvhyeUOL
4749FD8N59xceE5JPkvJ5wQ0T8fyasUyDFResecVJJDfMvI7AdL6Ozu/KZLh3pVF
4750G9OUKvJdRr6rULZ908Nj4zK0pZ05meqjJv/l5L8arySjysNKOXKL8EpvrKHz
4751IKfzoEHy3fT2Up0cQucXavGIhs6HnM7H2/gPg4/H4Q==
4752 "]]},
4753 {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.003666666666666667],
4754 AbsoluteThickness[1.6], PointBox[CompressedData["
47551:eJwtlHlQE2cYxlNCQYlXgHAZIIeiUVSCRCrF7oOoiIbhJh5cAolBFGW8rQfg
47560Vqo9SzUQTSCGqcdLYpaGbyqRRApUzxGnVHRWBChggi2BC2t375/7Ozs7PE9
47577/P7fStPWx6jtxEIBBn/Hx/P3jXnl5YtvMhZbnne6Bh+gOOv6+j6HFfsvHNP
4758le0dLmSbKfFVxU26/5Du3+OOr30RVnjmKZc7K7Bvxapmrog9b+E49nwrt/Av
475974GJfi2crtFnllrWRe+30fu93PPSiEeuX3Vw689pzGPMVvpeJ31PAI350gLB
47608jdcgyrjj6FtQvB53lIee1hz42pXHezhLPGdB+0aReDXe0frjcCl+e2att/+
47615mInJbsN5DuCX7+P1pcgzz+/LOmNlTMf1Ydba1xhYXnec/WVH/N4YKbIXdwk
4762/ZdzE+5qXnXWE3y+Acong223jlOWCxBysj07cJSC8n4CPq8ShmTlmsdTbaCs
4763PSLr+XU05ReCzz8Gdbde/1TUKMTEZMP2rnMq9LF5bPGczTMe4wKrLNH6T5Ga
4764FXzI98MEms8O/Hx+KCzb7jGk3w5x68QBcVo1zWsPfl5/vB4eHV2zexDMvUPe
4765qm9MpvkHg59fg6iN0q9zfRxgf3p3wSTDFOrDAXwfgTjzsvVyULUIfWUlH7T+
4766U8HzGgKeVxCc48/29kQPxZa7fuHfjA2mvoaB72sa1lzb7Hu6dRhKEZHdOpuj
4767/oaD7w9odzlWUfnFCKh61k05Ex5CfY6gPqdD2uDQsGewGL/rvzsqsA1FAOtX
4768jHrWbygitq54mX1XjJrezP7kOzOgZ307Qs76noktU+8LtYcd8cw0KKThwizw
4769fjqB9zMMP3d+7q1a4oRNy7JWzq2YjVrGwwnjGI9wNB8zBdlpnDE3Ye/eh1fm
4770EB9n4jMX4kT7BMuAM14lbipda9ESLwnxisB0x2U5V29JoM3zLRotjcQCxs8F
47718YxfFFbWNhUeOuCCq88iL7+pjEIB4+mCWMYzGuWbPzNvSHVF9Z6sE/NaolHN
4772+LriNuMbg3sBpdd1491wOKptR5gilni7Ee9Y2LULnwa8c8MSr7rEy8Y44u9O
4773/OMRaMq0iq+5w6XfQXXpYjwimQ8eEDIfEmDUNUo6CzzwY8up9lCJDrnMDw84
4774MD90+GGoRn07YSRuPqssj/lyHiqYLyNRUv7Rl/mou35Qe1IuRf4raVxb+3zy
4775R0r+LIB1vcC4o0OKGpvWPvvFC8knT/IpEb5+hq3pFzzxWuX0/amORMxgfnnB
4776nfmVhKSW+lLke2EgxTT28cZkrGa+eaGY+ZaCXSXqKs8Ib2xoqn1QJ0ol/7zJ
4777v1SknKxf8kEkg+F9jlvmk1TyUUY+LsK6bZv/ycqR4eYEbaz2/CLyU0Z+pmF3
4778inrHo/syFBt0O1fuSyNf5eRrOsxBL5zCg+V4fHxf1ZPV6fR/kNP/IR3XJEWm
4779CyY5PDoFrd8mZZDPcvI5Aw+7wif52CtwZdrhYXlz9OS3gvzWo7v+ffX+pQp0
47807c9W/xJsIN8V5LsBohOn5wibFDB2Z0dODlhM/ivJ/8UYlZ/2ICdQiU7dEWO3
4781n5H2g5L2gxHBSRJDc4kSf96w2dTrn0n7Q0n7IxP/ASqKyFk=
4782 "]]},
4783 {RGBColor[0.528488, 0.470624, 0.701351], PointSize[0.003666666666666667],
4784 AbsoluteThickness[1.6], PointBox[CompressedData["
47851:eJwtlHlQVVUcx9lBgRc7PB+PtwWjg1ssUlbebyyxpAiIygNBeECE7JtsozaC
4786ppkCaRNFlIXhAwVHKhUM4YGBjqKgsamjjhilwCMZCNzTc39/3Dlz55x7zu/3
4787/XzOlakywhL1dHR0El49r8fV9krnxa7NXJjpWWPthhqOf79I751cYZ+eY9zd
4788a5x5WtOFS5p+mh+m+RHOKfrE0tm8O5zY22b8upeWK2Dr79H6GU413XC4y3CU
478960geKHasfk7fP6Dv9eG50qC+ImScq2+58IFhkQn4/SZpPwEM0KBsXPOIm+kN
47901l8SYAW+nina3xZaVcRt65xpbu2Mx4dde4Tgz/uPzhNjcJd+fGHlLJeZeMkj
47916aUU/PmP6XwFNOrGv2+3PuHsFrackvc7YwWr5xnXwOpZiPpLylTfkedcZOeo
4792+is/V6rvJdW3FEH5O+fCS3VQXKU2jFUvp3p1wdfrhjaToRZjez0Uap5pQ566
4793U/164Ov3hMe3S7a11Omj9npGeXWVFyZYPwYIYf28A7VrCZf2niFe9uk+9Nv7
4794LvVnBL6/9yFuHdKVXjXC3t+bngae56hfY/D9AhXBS89fizNBTaDmXriLN/U/
4795D3z/PjC6W7J71/Q82B07U+NW4Ut5zAefhx+Ks4YD3v7MFDU723BO7k+8zMDz
4796CsCk3jLTMaE50NvfPHsjkPIyB5/XR0g4VNpTfVzwanwquNO8mvJ7A3x+wRi3
4797mvBXSyxwsWc5ctvWUp4WlGcIam/a1+k+sIBDW0vtzbxQ6LN8LTHN8g1D3BHv
4798+VFNlhjsSxCFS9bhHMvbCgUs73UQpaWl/FpshZEf7LYrboWD99OK8l+PAc/K
4799y+Z+1phb2Hsl8PgGuDMe1jjCeGxE+YuOJUkCGzikVZh3l0UQHxvio0RQ98SB
48009kEb+KVGrqzaHUm8bIlXFAzLHf4V/miLbS6u67vKNyGO8bMjftFoi/AJzdli
4801h+4q/ZiAxhg4Mp522MN4bkaRLL3psrs95o1m1ZdnxGKA8bVHOuMbC/eHldYu
4802z+1x+uZf36kr4oi3A/FWQdvUmbujywFjjdFGqa0q4i8k/vFQF2v7h8qE+Hnz
48038OiNqXgYMh+EsGY+JCDeV+jlplyAkYmIVTNvJaKd+bEANsyPRIjNfSv3yUWo
4804U94yO1v0MYqYLyJUM1+SMNif/vj+mAjTP8WHLe5JIn8cyZ9P8OX330Su+s0R
4805HRe1gsBFyeSTmHxKxuqk82e/3i6G+Mo2b8uyLahjfomxkfmVAuPlk46P/J1w
48068ITFROmLFMQz35wwe/C1b6nQzAm3B1lKEJ1xVHAkP438k5B/6SjW+N6puSEB
4807zLyPpj9JJx+l5GMGRH94HX4RKoXSJzMq2yeT/JSSn5koWNQTcuyUFCEZGqcS
4808QRb5KiVfs9C/X6UbIZLB9PND1cm3s+j/IKP/QzbcpmZPGnwqw4GDDwadf8km
4809n2Xkcw7KNuxXnbwvw9V97T2nv8ghv+Xkdw4mWuTWMYFyDGULd0hScsl3Ofme
4810iyDJmc75jXJUB0yPbQrOI//l5H8e1CVrck9bKfCnWahN5oqtdB8UdB+2wuCf
4811e28m5CtQ0L5sLkKRT/dDQfcjH/8DjhS/CA==
4812 "]]},
4813 {RGBColor[0.772079, 0.431554, 0.102387], PointSize[0.003666666666666667],
4814 AbsoluteThickness[1.6], PointBox[CompressedData["
48151:eJwtlHlQVWUYxi+LSijCvedu3P1eFmGYJNEYyOA8IjEgQxmBwSAIyCIiuyx6
4816MbYUFXFsDEQJRFHUASOMjDtNaoFLmpoU4YRsIiUTBZkNiwjVOe8fd86cOed8
48173/M+v9939fEZoYnmAoEg4b/f/9fIj5KVxeMdLK73xHjta2X5+1t0f5+1uFgp
4818jm3rZlVsxBdFXw3T84f0fIJtzV1naFgxyMrMZdaPGqZZc+79x/S+GVaenJVN
48193htlzZtrXToNVuC/f0rf2+LDsp80dtbj7HyARcvEMwb8ehO0nhx/rO4V1Rj+
4820Yk3ipqDh79Xg8zyj9fWwd/aXuuA5m6Kt9ay970j7/UP7ucBf3mbfET3Fbn4c
4821WTHV7kb7T9P+7siw1qgDjbNs74XyB353VmEvl2eO7ebyrMaJuYO6hzUv2aOm
4822/iuGNzwp3wLl80L81AvhmigBGnWtlcoVaymvGfi8PijIvMTMjZkheOJlvTQI
4823lN8cfP51ODy2TdJVYIHumeHfmn3WQ87NYwl+Hn80xmtlh5YswmBr2amQrACa
4824bxH4+QJh6uuRh1Uvho9w5M6LkSCadwn4eYNxL+yQQuVkhQaNIPlyVQjNbwV+
4825/nfw5K6f6snnr+B8aprJt3Mj9WENvo93MRswo27xW4pP6kz5Ln2hxGsZeF7v
4826wfZaq3bng2W4cDYhvUYUTn3ZgO9rE5y8k/Rvxi6Htiy97nDK+9SfLfj+IuB9
4827SeVgOWGLvZ69lkuHIqlPO+ozCueqUkS/XrHD1NX6MzZ5mzHO9SukfqPh0e3P
4828bNgnxKTmemG12xbkc30LsYHrOxZfL9eJPw0R4aHr2Ruhgjjwfoqo/zgEBr8Q
4829iyQMlO6y1Lrd8ajkeDBo5HhsRXf5z5K8RwzYkx1uzZYJxEdMfBIQ3dUm/aVR
4830DGb3AavC+kTiJSFeSXgqqJT5pkqw8toBM7vAZLzK8ZMQv23I8dkmP+0hRVem
4831SZpsloIOjqeUeKZgftd6+8WzUrQckgeW3N6O9RxfGU5wfFOx/7JGsf0bGcCc
4832q4pp3EG85cQ7DczfM4p7++UwWSYuzFekE3858c9AvXuP0mOjPeJeu+C3yi8T
4833I5wP9ijmfMiE647PVNUyBRw//vKof0AW0jk/FHjJ+ZGF9vMV6tkBBVZf7M/2
4834Ds3GDOeLEsc5X7LhO5qkiWlSotyoHLJNyiF/VORPDr7T+2m/TVMhdyGz72bJ
4835TvJJRT7lIixGrXN+XY0l3gMJcWdzcZzzS42bnF95GDwxrTs4p8bAiq2Fj37I
4836gyPnmwZvc77lY3vvj/o/OzUYv7Og97YsIP+05F8BnjOthtAKLXqd2sPz2V3k
4837o5Z83AW4XBdGuepwa02x7FjpbvJTR34asfeGh8imUoeIma3JNXeN5KuOfC3E
48387YQG0dVJHRJztrxl1O2h/wc9+bsHdhbLmawwPfpPZ7exxg/IZz35XITwU0bG
4839oUOPW+V1zaP9ReS3nvwuRi07xvQoDRAJJ497nikm3w3kewmG+jeJy4sMmPJS
4840O6VGl5D/BvK/BM6FXWLvEQOOrd2Uf0RRSufBgc5DKVIVHpLfAxwwKa890tRX
4841SufDgc5HGf4F/X6fxw==
4842 "]]},
4843 {RGBColor[0.363898, 0.618501, 0.782349], PointSize[0.003666666666666667],
4844 AbsoluteThickness[1.6], PointBox[CompressedData["
48451:eJwtlHtQVGUYxrkZt2VbLgsuyLK7NAKNQi0qgYvnEQ03Um6KlyBQwBQH1EXu
48464AUElPuCQEMXacYBGQUENDPA1CQCNTGUDDQ0kUAQ8IammZbfef84c+bMuXzP
4847+/x+35FHbgveqKejoxP9//HmLFJHRa2pPsWVj0dVN93/juOvu+j6OidIys/P
4848TO7ljGMCj/uOjdH93+n+M87SVqWa+/MgZyrKfXmvSQ+m7Pk7nJI9bwLhradJ
4849sQXDXOgeIy+PIAvw74/S+zYwb+4J8Dk+zjklteaVLJOC/94kfU+BgsWrrAon
4850HnAtCfVPf/h6Nvg8jyjPuyg+clYnWfcJJ5jQKDMr3Wi9aVpPiRLLuRMbxM84
4851Ua+1ytBwPq3/N63vgdKMqv7lLi+4R5emotz1FsKC5fmHi2B5FuHA8IxOD+9/
4852uarHG/ZHDoLyvaJ8PvBz8lxX6qyDfdqP5OFfLqW8OuDz+uJS6Lae3BZdnG5v
4853zBCcUlN+PfD5/bBCW/NhhkoflqmlX8TNW4EiNo8Brt9/M08Afum40abpNEDy
4854nZTTMAqi+WaAny8YAc/NlZsC34LXlRHhO7UraV5D8POGoGeuui5swBC/5VSc
4855u71jNc1vBH7+NQiM3CUNjjaGWj+rL0mzjvowAd9HKHorT5QvmzRBhbrB76+D
4856YcTLFDyvcARfHDPxThGgJcRG7vYygvoyA9/Xelx9LctU6gmhEa+vr+vYQP0J
4857wfcXiZXz1jxzKnwb7UNXU2YfiqI+RdRnNLac6DwpLBBBZD0yra3aiHzWrwhN
4858rN/PcPTynxrjQHN8XF/lOHp4Ey6yvs0xxPrejPHRl3MMxBbYWTuuO+dyDPlp
4859Ad7PLZijP3P0Vb8Fig3+0IYJYrGc8bCEiPGIQ6y9+6HnBy2h7Yy7khq5lfhY
4860EZ9tqPfwD38SZYXQp/63F2/eTrysiJcGE0ExkilnMZzbTr7nfVQDM8ZPjDDG
4861Lx6usdnX7k2IYabc2u/6Ih7+jKc1PBnPHdiaW11yt8UaQ58kDliHJKCY8bWB
4862kPFNROM3rX63km3QPP+S+3RbIvG2Id5JmGrtmzGgmonEH+OHu12Tif9M4p8M
4863t74HZ6/pSuCqGzNV3pCCAOaDBL7Mh1RsnzLN6OmU4ObDxqDVH6RBy/ywxSTz
4864Ix3Nxk4eFwpskVO+VCDsScevzBdbaJkvGXjg6POoI9AO8nsuDu2aneSPHfmz
4865C+8v+rThjHgW6qfC89fLdpNPs8in3Yhfm7K5dWAWJNce1u6M24My5pc9Pmd+
48667UFL/AHHb6vtkWB8c15nYCZ6mW9ShDDfMvG4sHHwWLQUZTaTk8ZeWeSflPzL
4867gvvh7qojLg7oeOXUp3bZSz46kI97kXDu7qqaSQeIz+SNZEmzyU8Z+ZmNgYnX
4868hlfWyWC/1nL2KUkO+SojX3PwIq1o44p2GbgLHdpR21z6P8jo/5ALOyO78xek
4869ckSIDzpZKfaRz3LyeR8WVtTJ1JlypHhWj3m57Se/5eT3foQqFuz6aUiO7xd0
48709Yf55JHvCvI9D+nHzt/w8VWgSyCZTg3NJ/8V5H8+vlIFeZ6tU6ChrVRVllZA
4871+0FB+6EQ7d2Dld6mjmhaomyqqS6k/eFI+6MI/wFbU7mc
4872 "]]},
4873 {RGBColor[1, 0.75, 0], PointSize[0.003666666666666667], AbsoluteThickness[
4874 1.6], PointBox[CompressedData["
48751:eJwtlHtQVGUYxlkEgURhWZbrArs7Agay3IySjPOQmTYIioIJoSYqJQsssCa3
4876QFAuAoLsLmXLSoNhBIE4jAhJjUqKWJopiuMlcRAJEVbJBa+J5TnvHzs7Z845
48773/e8z+/3HUm8YtUWYyMjo83//17/P/RNzlyz+Cfmrw/aTAZjuhnu+ixdDzKT
4878Q5E38gP6GGXyUneXIgPdv0b3ebifs9tuftQAo34RtU8hmgUD+/wdel6Af0o3
4879NI0FDzOVab5761RO4N6/R+9LMN6fvbQ7bIzBJxO/nZxyp/Ue0HremLQ+lx7W
4880OsG8qVF0PE7wA5fnEa0fCEPHtdCODgMzZhng0HwviPabov2CMRH3t7XkxGPG
4881X8eUvdwRQvs/pf1D8cB48nZ57zPmkuvymRlfL4aezfOC8WTzLMF4I+/w4z//
4882Zfyf1644nrGM8k1TvjCMRljlbbz2ijmxQXjgylA45TUCl3cltmVXeiSk8lDv
4883GfMyTh9J+Y3B5V8NZbiwUjdpjKrNwbK3ZdF4xM4zA7zZr+dZg3Tx/qmLmSYo
4884TZANZbavpflMwc0XizSDdN3Ml6bQ+rwlkubH0bwzwc27HoozTaffLTCDIe6H
4885JO2yT2l+c3Dzb0SK1m9+mqkFqoreq+hXxlMfFuD62ISUpE5NQ+kbqLO+pejp
48863ky8ZoHjtQVJTMiLm7MtETFdZLs14DPqyxJcX59DbtMTz1fPRkPEOzkne7ZS
4887f3PA9SfH1uGw3z+0s8Ji3mT9uZwk6tMKXJ/JWBA36hASbg213bHKsigFDGy/
48881vBi+01Fe0/L+bVWfAT0nqqd9kyDku2bT32nIdA3NV95iY+cdt9+fmc6+WlD
4889/Stx5JvABZUaG1xfVafP+3gb0lkeNvie5fEFAoyfjDRGC1D1nXBkicV24iMg
4890PtvRJu/SnbK3hap+b3fC+QziZUu8MuHfn7ti4LotLkbPyR2sy8IEy0+IPSy/
4891bLSFhM54phMi9pjKsaM4B6ksTyGOsTy/hF+jSadgvR3cLzjuu5ubS3ztYM7y
4892zcNh/tlEmdgeC6sbppKKdxBve+KdD1lOuetHd+xx03R/jefFfOLvQPwL0Ho3
4893om/TQQfMcxr5sWe4AMmsD47kw07IImyK8xIc4VzS3mxtsgt61g9H9LF+7MKh
4894zv6F2nlO0C43qTX3LkQy64sTvmV9KcR8iVZ/5L4T/ki8mncotoj8cSZ/itBS
4895FnfgQosz6ge9Il+pi8knEflUAu9Jt+jRFBFc23i205dLMMb6JYID69duNK8b
4896Mjfxd8Gi67G9TS6lSGR9c0Eh61spvHsbfnE1uOBJTJDcOLWM/HMl/8rR5JeY
4897uvCoK7IDq1+ZnSsnH93Ixz3wqvGZG5XhhvVbthV2ySrITzfyswJXCp7KO0Vi
4898eExcfeaoqyRfxeTrXlQH3eg5nSvGwdFbvgLzKvo+iOn7UIWosZ/d+gbE0JXw
4899bz48U0U+S8hnFQR1tVm3GQmmIounpWUq8ltCfqtwJWrH5fE6CbKWLappiVST
49007xLyXQ2NxUaf5zwp4uWBrXtcNOS/lPzXYPXx90vMNklxtEsefEqvofMgpfNQ
4901DYFy7qDtaSk8goZDVv5aTedDSufjK/wHWLvTIQ==
4902 "]]},
4903 {RGBColor[0.647624, 0.37816, 0.614037], PointSize[0.003666666666666667],
4904 AbsoluteThickness[1.6], PointBox[CompressedData["
49051:eJwtlHlQlGUcxxddAkGO5d5FYHdRgvJKcBAF3y8ONhgMKLkQIJIcJSFXaIDA
4906xC3LJXKfIx5hAisD0kCJlUGuMnjgkdTomEEKIshhmClaPe/vj3feeec9nu/v
4907+/k8rywszi9ykUAgiPjv+P98enJfj+5wN1fW9f7ogbhLHH+tpusxjuvcMaD9
4908xxBnW3itKSL9Jd2/Q/e1YeyQ36x/9R4ncguQmJgbYzN7/gFnz563xDPfUHed
4909e6McJ7+4xf8bOfj3H9H79thdeHCN3s3H3KG0cSfR5Gr63iR9zxERIwP6+RHT
4910XOcvAwkhYmfweWYozyZIModzlaFz3HpV580KGWi9Z7TeFlyzfviqIGieO7r8
4911eON8ylZa/zmt74mc3rnEIsUL7tehs2a3Kr0QyvL8wylZHh+4BGlMFG9/xfn8
4912lni0auMOyrdA+T7E1HP9sMNeb7j9D611NZYqKK8AfN4A3PigZJ+nrQZS9IJ9
4913HLhAyq8BPn8wVGJT+8tNi7DT1z7K4FYIxGyexXBi83yMQ2P1I9ushVhQ9KkC
4914I/fQfELw84UhrFt+dKBeEz2ic2UFogia9y3w80bCNe90kJdYC7NBqeF1U5/Q
4915/Frg598Lc8Vas8EqbcS9J5QqX0VRH0vA9xGNWdvuIW8THeyrVFzy3xRDvHTA
491684rF4Kxb8ZUjugjvcz6TqYinvpaC7ysBzRf6PX0M9HB3kUOsesXn1J8e+P4S
4917kVHqJbxWpI+R/Ncn0vT3U58G4Ps8ANWa8ftvaxriZ0WP7zGDLxDO+jVEB+s3
4918CZbVbW5jfYZwjPJPWO+QjCHWtwjFrO8U5L+Oq/86S4S8vmFtl+CD5KcIvJ+p
4919mI90fLHX3QiKCM6s7as0tDEeRtjOeKQj7Mq8v4PAGKbeBbUl2l8SH2Pik4Hr
4920Tt91jX9vDLvzu7ZNX8ggXibEKxNuDelGLekmaEt6KBjSzcIc42eCzYxfFloX
4921u8d/5mqKAkVY4viebOxhPE1xmfHMgUW08Oo7L01xw/96k0t/Dq4yvmboYnxz
4922kXtD/e7Et2bwS12rvLAuj3ibE+88zLoUKluTzRHQl7UyU3WI+JsT/3yEHvN5
4923FO1sgWOr1QXJTkqYMR8sEMN8UOKKttHWlfMWWH1+4cQpdQGymR9i/MD8KMTG
4924+NvHn3SJ4RFnl6z/aRFmmC8S7GW+FOPUnRqBKlGCDA93LZVRCfkjIX9KYMLt
49252h2zzhJr3Xx2ZA8cJp8syadSZDXb9K6asURjm12rp7oUG5hfywDm1xE81RsR
4926T7Uvg5+3TWF0+xHyzQpq5lsZQg40J52JtUL7QqlnS2MZ+WdF/pXj8t2o27Gr
4927rDH4Y+qIsKycfLQmHyuwwWOV45on1kiqvB+cWlRBftqQn5U42Tpd+rTFBndT
4928ezv0iivJVyn5WoX8JUHP7zhJIdxv9Oe58ir6P0jp/1ANnN9kt6FCio70B3/l
4929NlWTz1LyuQbz8VaKmjkp1tc6jEafrSG/ZeR3LVTL32T/7SfDzouP22MGa8l3
4930Gfleh/Dh3zs/6pTBUnNFYOFEHfkvI//rISn66UGPSI4axfD9fsMG2g9y2g8N
4931GOJOGooT5GjsFnpIXBtpf8hpfzTiXwf7u58=
4932 "]]},
4933 {RGBColor[0.571589, 0.586483, 0.], PointSize[0.003666666666666667],
4934 AbsoluteThickness[1.6], PointBox[CompressedData["
49351:eJwtlHs0lHkcxqeJ3BmXGTFkpsOybJgsnZTep3aLLZeWjdldIo2kzhyXkrRb
4936rUi6u0QYd+WYk6h0FKdssWejoqXaTrVsSux2MxVLtdjtfb9/vOc973kvv+f7
4937fD6/VxodHxzD5/F4iv+Pj+fo+TOMXoRfYFrfXDBoevwbw11fo2sNc/3pFb2z
4938e3sY6WvXLsNpPrj79+i+AO93LRU4ft7HyDcHJS2OtkYn+/wAI2GfnwuR4bqD
4939gYmDTNup11c/efgpvT9M77ujXl55ZL/fM2bFrTsbXq31pO+9pO95o7pX4/fY
4940RMPMuuboWvGCAZfnNeVZBs1E9vXdH94w2f3bv/9m1Qpab5TW+wqL7WT+tsNj
4941TIe8iJdRH0Drj9P6q5G1vKerpXeCEam900dMQtDA5nnP+LJ51uDO5sQgeesH
4942Zm1MZtO5W2GUb5LyfQdJrmnPmHqK8RlwKz4oiqC8PHB5I7HgD7m68zoPAUfE
4943lj5J6yj/DHD5oxEx4rSpEHw8Mghc+HOJAiPsPHxw82xAOv+dc2zTTMyLa/C4
4944qb+R5tMCN18c1MLO556faWNlDTNLcWkzzasNbl4lbjkV1WlVzYJ7+9SZzLPx
4945NL8OuPkTMLYoTnnbUhfDkf9YWY8lUh+64PrYApugha5Vh/UwvzvD18tjK/HS
4946B8crGUuj9UYSZhrAt855wDJvG/VlAK6vFGxMvt/ApBoi6v3wUKtFKvVnBK6/
4947HTiUpU4wHjHC1xcvyV0u/kB9GoPrcycaVamyPoUJjIdqvSJ27qJ+BRj+9WO/
4948u6G8Z/9ujVKAwaWhcD73E7zYvgXwZ/tOA2/g0Lc+Tqa40rFeleW1h/w0Befn
4949HuQ9G222f2KKrTo76zpvpCOc5WFGPDLgMBpubVhmBu+pyi0vE/cSHzPik4nm
4950yV92vJWbo7uuV/PWaR/xMideWfDXmffwgbkFYs1N7Ps0WRCy/CxwleW3H38K
49518he1dVtgTBZmpO48gFqWpxDeLM+DSLKeVKn3C5Gpe6ourPEQ8RXiDMv3MLTt
4952Y/7N/lKEpwX6/L9PHyHeIuJ9FIXzusK3T4tQ86olsz48m/hbEv9suCzwvBzZ
4953Yok+5bbh+5tyMMr6MBsa1occtKLU1jd5NrQ6F1RvS8slP2ZDm/UjD8ErtXe5
4954ultBxJtuzqjIg5j1xQoS1pdjGAxR9gufW8HN/KaLVscx8sea/MlHSsTdJZMn
4955rRHEL58YHc8nn8TkUwH0Y33KB6PEiOhKkYS5Hye/xAhn/TqOsoST0zfENgja
4956GlrtnFiIWNY3G6xifSuCbIdRVOPvNggc906Lbyki/2zJv2K0pydfKc6xRXCo
4957Q4uDoYp8tCUfVQg73CfZ4z8HfjnCwIANJeTnHPKzFM8KlqfF6djBrdbAZ6ij
4958lHy1I1/L8GPF6YHVbXYQqHT2aTzKyV8J/R/KoXtXX1qyRIKJ81qippAK8llC
4959Pleg5/6SHpMSCdYf0C2oM60kvyXkdyVU/Ulp6e8k6A442v7wdiX5LiXfq6B4
4960UiMbD5VCNl1Y9kVxFfkvJf+r4PbXg4FN56VIL3NwHFRU036Q0n6oxsQL49x+
496107l45OIZcdnjBO2PubQ/TuA/eKHQ6A==
4962 "]]},
4963 {RGBColor[0.915, 0.3325, 0.2125], PointSize[0.003666666666666667],
4964 AbsoluteThickness[1.6], PointBox[CompressedData["
49651:eJwtlHlQlGUcxxdQWETkZpFj2aWdDNlIh8Qj7f0SkOEocUSRByKIcpiiEiGk
4966oyyHBUocgsqhrlzLoo2KyqQ7DAxpYoYChTaA4uaBCcah7CJK+ry/P3Z2nnmP
49675/v7fj7PK43aFhJjKBAINr75vf0/Z6HcE3jrAlfleXoiyK6b49dXaD3OXc3R
496890043+JSxowcX46bgr/+F10X4VjhCrEys4fbYXvbt0bohivs/n7uG3a/OzQ3
4969bpyWjWu5+jWDU8H18+n5h/T8QqiCkwNT1AOcyU6/3RPey+h9T+l9n6D4T/HQ
49709fXPuFm1utx3O/zB5xmmPAFoqddesfhxhDus1z+RpQbSfqO0XzAahy4WL974
4971nDMQhcovB3xB+7+g/b/C6Xm5m6I/1nFq5et4S4vVqGN59JyQ5VmHyh2R3gcc
4972XnL325sOZ38aSfkmKV8UShs+NL448orzMPmX6+mPprxTlDcGAWnTEhI3CTBn
4973XOCRdWcz5TcAnz8OfmVDIZmdBhg9ZrA68/0taGbzGKKYzbMVnOb2kqMwwvm9
4974yQ+fbk2k+YzAz7cdS/pa3H4+NQ3tB/qbfZ7voHmng583CQum6me0OhrDb9yH
4975a1Z9S/Mbg5//O8yXlIzczjaBuaYkIiE3hfoQgu8jFXKffX8PjgkRePe+K8rT
4976iJcpeF67MScqocUwagaur3tHwfXsob7MwPe1F26KsDpRuxk2lslbG2T7qL+Z
49774PtLh3MlVyBfag7hohbR+pF06tMcfJ8KiH51T/VRzULvvpDL4u4MFLF+LWDG
4978+s2E6ajpfA8zSwzu6j0z2pGFz1jflpjH+s5GttFU5flmS1hJonW9D/aTn1bg
4979/fwB023HHJBihcQkbV6vRQ58GQ8rDDMeuUiXDeS2eVpjMjkiZSToAPGxJj4H
4980IVjQJwh7YI3GOV1nnFV5xMuGeP2E3f6dSXdLbRDq6yb2nJmPy4yfDdSMXz5e
4981hv32OC7EFv3XunPCPy/AYsbTFjcZzwLs2qRZOya0g6JmhtK8ohAXGV87TNm/
49825VuEF8lnb+5psoNXzy+Rq3RFxNueeB/CzuwaP9Nke9jFPr4qiigm/vbEvwTD
4983JWWNhXIRXq8o7N7SXoJ5zAcRZjEfDmNbbb5crBXhVcalvJUrj+AU88MBKubH
4984UQw2Zh2vPeIAkf2G/y50HYUH88WBfClF/LU0W6+g2Vj0WqFXx5aRP7PJn3I8
4985upO4X2PsiIPLZGoPYQX55Eg+VSDmSczkco0j7nX6TPc+dwwnmV9O0DK/jkM7
4986sTqxY6cTzkYOKR40HIeU+eaEGObbCWwwC/pn7Vxn6NJTv35+6AT550z+KdHr
49875B/+6J4zrgf5K9q+V5KPLuSjEmvlS37fXuIC97ZAg5i4k+SnC/l5EneWfoDJ
4988VWJYPyvubF1TSb6KyddKfLlK1pA1zRVZTS4TA6FV9H1wBf99qELXutnvWV1y
4989Rc5H2qSu4GryWUI+V8N9ockfNxZJIIx+5JsRVkN+S8jvGsQ2GQhtit6svedu
49901kfUku8S8r0W1csnfcKfSdDZoO7z2qoi/6XkvwoP21+kla+QQnA3oc5LUUfn
4991QUrnQQ1Z+PD5+1VSNDXEt+nK1XQ+pHQ+6vE/SRHp6g==
4992 "]]},
4993 {RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], PointSize[
4994 0.003666666666666667], AbsoluteThickness[1.6], PointBox[CompressedData["
49951:eJwtlHs8lXccx08WuYvjuDvHodqShvRy2eT5VFuoXOpUGmfVUuJV6LZerol5
4996iVaLCM0u6eLkVo4zKdlKNRZWKSPJSEUmoXRZLbb9nu8fz+t5Pa/n8vt8P+/3
499775Guj16+UU0gEGz47/j/LF64LjBs7llu2Mou/EZ4N8df19P1BBc0x6d2qeIm
4998t+hSdslYiSH4+210X4JHspiHSXWd3JGoEK3ejA+wij3fw3mz551R89GKtI7I
4999B5xzb02Tl647vd9H73NIXrLF4vmbx1yQex8n61lI3xuk7/nAV556Wjf9KRfs
5000vG2qsdIPfJ4RyrMMGa7+0mztZ5zFhxcHnWpX0HrPab3VGPIKHpS0jHFb7qUt
5001FheE0Povaf21CPQOqyrLe8XdbvE2Kq75Aiksz2sukOUJxU8B25M81rzheuue
5002eIZND6N8bylfOExX7/atn/aO2+4152S93mbKO055I5Gwbp9QNjjBVdntn/7I
5003YyvlF4DPvw1b5zY9HV49CZujAvLOzdqBdDaPGizZPDtR6N4ic61Vw4aJXsXn
50048l0033vg54tBq2f7uQTJZHzZtiiotSmW5p0Mft54qM/vsr6Soo7+53EnreIS
5005aX4N8PMnwe3TBylafRq4XMr5Fqj2UB9TwPeRjAjfgf4AX00oBfYGWddSiJcm
5006eF5focBveGlumRaqYxJODI+nUl/a4PtKw+/LXijvGeigS+imVS3bS/3pgO8v
5007He9WvjWx26EL+1ufzetvyKA+9cD3+TUcgyclRLTpIUP1EHtC9sOH9asPGev3
5008ANavmXL/jIcB/q5uF6boH0Qc69sAZ1nfmVis1LCL95+Ka9HmIbtGMsnPqeD9
5009zEKoKmOlWGAIB9Fb4bqIQ4hmPAyxlfHIRnyVbnqd0hAGzZlzx0eziY8R8clB
5010TvXBmg2hRsjMuVsbuO8w8TIiXrkoP280NEUkRG7UnbKgOXnETwhbxi8fDRcO
5011S0rrhbAL3jdZ+Fc+bjOexkhiPI+g52ez5f4xxkDQyJUU5bd4wvgaI5LxLcDr
5012iwWpozNFeLFRe7Ao/TviLSLe38Pwsrg6p1OET9LuxCZF/0D8TYj/j7C/Wjjg
5013dsAEmvLZ7houR+HKfDBBA/PhKBbWT7Pq9DJFRaJP/wzXQgQwP0zxB/OjEPLf
5014FP67R0zhdGpeo3T+MYQzX8xQxXw5hp2N9snSY2aI7NS9/1J2nPwxI3+O45vm
5015ctVVmTnCTc/OKoo6QT6Zk08noLju1LdJ3QIuco8Sx6yTUDG/LMivIly6qTLT
5016qbZAQ3GuPPtCEZqZb5boYL4p0HHLdcnpcEvYCq4vaBlSkH+W5N8pjLaeT1xm
5017YQWs7ZYPvF9MPlqRj8XQafesGGuywuyGxpLOiBLy05r8LIVdx8XevERr3HXL
5018dDilKiVfrcnXMnh2LhB97CiGn9Kx11+9nP4PYvD/h3Ks6vrV+88eMZJdiptu
5019rDlNPkvI5zOI6vaJSz4kQfYv/zy2v3SG/JaQ3xW4OrJxlZGtDZxniqwrcirI
5020dxvyvQI3tymGH8TZIPZVfrebn5L8tyH/leh69ji96rYNZjRq1ZZpVdJ+kNJ+
5021qMTADnvbvQ5SuBZuqtRvrKT9IaX9ocK/ALfLSg==
5022 "]]},
5023 {RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142],
5024 PointSize[0.003666666666666667], AbsoluteThickness[1.6],
5025 PointBox[CompressedData["
50261:eJwtlH001Xccx5GL8nivp+v5qtzjqbPooEz93istm6PkSDamGCtzJj3ctpo5
50273Cj3VDKkmZtIypDn505ZXAc1y6LuosZYdPIUpYcltn6/zx/33PM7v9/v+31/
50283q/X92cbsS8gSk1FRSXy/9/7f095s+DDlDqmL9HLaCriMcNdt9M1D85z2lsn
5029VvQwUwaK+776QnD379F9O/hsilbKRvuZIu87i5/UrYYT+/wQPb8WNT5fVmb2
5030DTPygIQtN3aB3n9M72/GzWm+ZNjtCaObKd/uxvel9Z7Sev7oyf51ncu5SabT
5031xVY/xSOQ8jyj9YPxLM9jkYmfYfSGG4LyvEJpv1nabze+nU0LH3N+wbit6mKe
5032346g/edo/ygsbB5tS3v0ktnj96eifOVetLJ5XjN6bJ4YpOSsF7unvWHyt8ua
5033k+xjKd+/lC8OOpNZqY82zDMzlrEG9TEHKO87ynsIWZh4mjy9wFgce/K2XniY
50348quAy/8d9G4ViE16VOA1UHNhk8VRTLPzqMKUnScefxzsVkbbqyHCrudtyMEE
5035mk8N3HyJOGv1JvV64hL0VFprJaYn0bzq4OaVIrhjpSf/gTr+7vhhylSQTPPz
5036wM2fAsv9/uORLhpYEsyrktw4Tn1ogOsjFUPm8fJGmSZMw+u25ZyVES8tcLxO
5037olBxxU9nWAuuI6dvSc+dor6WgusrDXtiexd2eS5D4F9ptq6KM9TfMnD9pcNB
5038uFhRk6GNtQ6hJb2nf6Q+dcD1mYHJm47hmuM6uGPDc53Zmonf2X510cH2m4Wq
5039mCBByCY99Ae0XtlvdxYZbN964PrOhsRY2laeqw9Ja6b2Dv458tOA+v8J8sEg
5040T9WjBjgZe+SLXEEOdFkeBnBnefyMhNoJgZOYD/7Og+e9HXKJD5/4yLFbJh0P
5041vMuHfXzSbf8d54mXgHjlYWOYUJGQIMC1R4VjLdkXUM3yEyCf5ZePFWvK5cWO
5042hni+fvJ158t8ZLE8DdHN8iwAT8tbcve+IbxKBZIR54s4zPI1Ir4XMfbwgd+8
50431Ajt7hv3VnxTSLyNiPcldFXtE4s/MMbpoe/vOjddIv7GxL8IJcd5i9sGjHGp
5044uKUmRP8yLFgfTLC4870Pl3EqJFd55IQJnqXp6njFXcE71g8TRLF+FCN2tUtl
50454RpTSDOjBroHijHI+mIKI9aXX+DP60jtHjQF6jts+QEl5I+Q/CmFa39o+KuT
5046Qmx7tWaQ11tKPgnJpzIYVcyus11rhsKgEsOysKtIZv0yQwnrVznmjqUKfP8x
5047w4Y+x5Ylc+X4ivXNHMGsbxVQBluPH0o3h2Zjf5yGbyX5Z07+VaJpVW1bnpcF
5048NI2Lro+IqshHC/KxCrlqn8o7n1jAPelFu9l8FflpSX5WI145eGg2yxIJ852y
50494ofV5Ksl+VqDsDKJn+VHVhg9vnxpemsNfR+swH0faoEkbfHHk1Y4IFL17rla
5050Sz5bk891WB5UsLAvxxrGXZGe0Xl15Lc1+V0PdScPZc5mG4wm+k18nlVPvtuQ
50517w0YXfytom3GBoot1z4rOtNA/ovI/0ZEfu2ieLlVBKVVudQnvZHOg4jOQxPu
5052BcZXaheJ8EpNvMc7u4nOh4jORzP+A96M2J4=
5053 "]]},
5054 {RGBColor[0.736782672705901, 0.358, 0.5030266573755369], PointSize[
5055 0.003666666666666667], AbsoluteThickness[1.6], PointBox[CompressedData["
50561:eJwtlHswlXkcxg9yqxzO4XByOI7MaVpWrZ2tIbu9z2zrNKuLcWI3TG0pLU2o
5057NKcsXUg2sUhLUUrInVyOO3FOaWPtaFubaRW6mpXY1GqFbL3v94933nnnvfye
50587/P5/F77wHBlkC6Px9v5/vhwPj4V2JOtVTO3hoPaROtfMNz1Dbo2gYfKon7U
5059oYfZpix27/5BBu5+L913xuN69zUer+4xwuwfZ/c+Xok17PODzA72eWBTlkrk
50606fiIOaB/qgBhCnr/Cb2/ATWbvRJe+g8zFdHS6/JTSvre3/S9b2BhtXT2XOIo
5061I/EdSx6tCqA845RnG5p3H3OVDfzDGCj8A1Z9u4PWm6D1duF5556JCNUrpi7V
50621XawLYTWf03rh0LykV/ZL/xJxkc/QbE/YS/UbJ43TCmbZz/WnfTYJSn8jxnz
5063i/CVFx2gfFOUT4WoYRdZODPNyBUBzUafR1LeGcobhTKF9C9t3yyj24VDNh5H
5064KP8c5T+GcaW+5wJXHpomBIrKhzFoYufhgZvnOOJjp5esiNPB1+tjo3b3x9F8
5065uuDmi4dd9Uu9727r4vy+ffdbTE/SvHrg5k1A3cPhoZM289AZOBhceCSR5p8H
5066bv6f4CUYaK0O1ofGrlvmuDSF+jAA10cqhtGbdV9tgLW9ktjF8aeJlyE4Xmk4
5067urfroIGOEVLfpRpHp5+hvozA9fUzxDntPp9sMMaN5I4Ce2069WcMrr8MVPTU
5068ufhnzsdgXKOf+cJz1OcCcH1mYu1cGT/u6QI8GNqz2DsiC0K234WwZ/s9j8Fl
5069ec/LXUzwZ+4gr//NBZSyfZtgsvND3xdxaGvmrb7DfBR2Cf6tzLxEfpqC8zMH
5070ZskpV3S6TLG8LOZoyMeXMcbyMEMDy+Myege+1IgSzTAr90/JycolPmbEJw85
5071k61XHV0EuKkUlhy2yideAuKVjz18t4tMnwDRn5b08PKuQMnyEyKU5VcA1yXq
5072JJ/DQjh32PMcvyiElOUpRDbLswj6q5dHhTiYQzM/0n3qaRFGWL7maGT5FuO2
5073b0nIkU5zbNGrjAnLLiHeFsS7FBdC5ZvPhFtgpOLmnYQdZcTfgviXI/hEjqJI
5074JEKoSeuyda4V2Mj6ICIfrmJFtmRFa7MIISmdnvdMKmHN+mFJflRCpzbD4c52
5075y/d58/WGDKrIF0t8xfpShe5ugXDY0AqezuMaN8Nq8seK/KlG5pMk3ky5FcK0
5076xSee8WvIJzH5VIOgGcNxMx8xBC69G5/ZqskvMV6wfqnhYnH8gfytGE6RYbZu
5077n9XCivVtEVpY32ox6/Tu11U5i9CWdejlgHcd+beI/KtD55rIJi+FNa6nT3T1
5078qerJR2vysQEZAa+Ldo5aw3f3/WKHvAbyU0J+NmJ7RPjZyDQJfMQrk7V3G8lX
5079CfnaBOfEkRPJrjbouDR3UC1opv+DDbj/QzPe5gYdyBuwgZbn9v3Uphby2ZZ8
5080bkFH01BgQ5wtnNwfBZzObiW/bcnva0i7E+D9m6MU9l7TvtFj18h3Kfnehq0j
5081d5lHt6Vwl2odtzi0k/925H87nHSVy96o7FAVs7pc/kc77Qc72g8aTCft4sfz
5082Zej/fX/12XgN7Q8Z7Q8N/gfNAdcP
5083 "]]},
5084 {RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], PointSize[
5085 0.003666666666666667], AbsoluteThickness[1.6], PointBox[CompressedData["
50861:eJwtlHlQVWUYxhEkkB0uwr2sMhCJ00CjkOLSeRoVSWeQTcCkAWXNIAYlF7AI
5087UFEjEaQLdkUFWRSRfZWdy6KyKUJTsmixiICKBCKXa1bfff84c+bMWb7nfX6/
508875gdCHMNkJeTk/P/7/j/7KL4YkYwVcrdG4oJMN81x8muxXStC0m83/Ocp11c
5089pGBtb3yfJWT3H9F9W2Q7rA59OvY7Fz35q1NQOYdF9vwQF8ued0Cuf09JReif
5090XNLAt+s0eLvp/RF63x1L2So23wePcze9j3XyC/fS9yboez5wfrb91la/Ke6a
5091eO47JRs/yvOC8gTCLaWRp2gzw3UdUay17ThI672m9cLwznbYJTh/lhszX2+k
50928ls4rf83rR+BnP6lxA6rec5blDrfO3EEUpbnDZfH8hyH8xFBt3XuAldnZjE5
5093l36C8r2lfNGQ6K1XS7aQcDH7XkorI2Mo7xLljUN2pfvO+Qwpl37bVydz4STl
5094f0f5T8PZ69AZL9P33KdKX5dXtZ6BK5tHDnfZPOdwQrpj5KtuOTgGK40vjSbQ
5095fMsgmy8RvZ0esZrq8vCdMO4tz7tA88pDNm8SLNMDzJp2KcB3lcLbONWLNL8C
5096ZPOn4ERoROOhc8uh513qP5HyC/WhCFkfQjzcEudjcU8RSSJr/ohDGvH6ADJe
5097l2CpkfxPv5ISqoYjdCLMRNSXEmR9XUbU8LX0eAdlXP/wtJvI4gr1pwxZf1fR
5098U1C42f7UClhuKA79+MY16lMFsj4zYBFdPzApVoHnk+V7PFwz4cT6VUUW6/c6
5099Ind3RV6WV4Ofcr1Ph1YWsljfahCxvrPQYzoocPpcHW6lgz//NJJNfqpD5mcO
5100LGYmq95Ha2DVU98nwvu5cGI8NGHHeNzAscZFz+J6TTSd3+n+ovUm8dEiPnkI
5101cjwZVfyDFrY3XJo+33+LeGkRr3wkFanuUjHRRlm4042oxdvIYfy0kcr4FaKW
5102f9HAr04bS65l4j/4RXjIeOpgP+NZhGc/GkzWeOtgufXcNkOuGFLGVwfjjG8x
5103tJ9nVOtKdSB/f9wzNqyEePOIdyk2uVidDRXxMGuZINXIKyX+POJfhsDqIq+2
5104jbro3Da6tullGaKYD7rkQzmSzDasNn2sizTzV5K0LRXkx0p4MD8qUHO2YeHo
51058ZXYK853Fwor8YD5shKJzJcqjL12aH/A14PE3BjVi1Xkjx75Uw2tL7uFVlV6
5106SN2OumVBd8gnffKpBpua9wTGeupDf7VeZ9hwDfmlj3LmVy0C1gzZDbzRR1rH
5107lRAF3zpEMt/4yGW+1eNCsr+irZCPNzaPr9RO1ZN/fPKvAXckU30JdgJkrvEv
51087kIj+SggHxsxduBw1lifAG3ptoM9Wk3kpwH52QTNDsnhzyIM4B0+3DM61kS+
5109GpCvzbBfF7s1lWeIg9n7E9Qam+n/YAjZ/0GMANEK3kyJIWbt67V3XBWTz0bk
5110cwsSFZL+cnQ1wivrOZ+UuBby24j8bsGdb/glGa+NEHJS4ehcSCv5bky+t2L0
51110dUYyQVjeG6c9gja10b+G5P/bdDc/JGL2ycmqHEueD/t1E77wYT2QzvsswpW
51125feYQNj+RfipHXdpf5jS/riLfwFW7PYt
5113 "]]},
5114 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.003666666666666667],
5115 AbsoluteThickness[1.6], PointBox[CompressedData["
51161:eJwtlHswlWkcxx25lts5nHMcx2lSdopaDrOYbav325pYpast1dhps8p2GZRY
51177bGVWGPoQimx6mwuYSMnt0LWtTqiyEZKumxZWWdUpiyx7eV5f3+888477+X5
5118/r6fz/M6BIev26avp6cX8t/x//mWTfWlJ1NlnNxBWLI8c4rjr5vo2h5KtThx
5119taqdO5uzSbBQogR/v4vuL8LUptAs6bX7XN9Wj8CmQB+4sOcfcefY82vgNvrs
5120qvfZp9x6RdyCrwbW0/u/0/tB+MYrNU8VNMCN9iQsFciC6XuD9L3tOB27JLVc
5121/ie30i0r46XJLsqjozwRaG3UqYYfjnD9q+Dv/mwvrfea1ovCgfjb5cLbbziR
5122hX1Ozez9tP4orR8L6YW8opIFbznX+ZoLiY6HEMLyvONGWJ7D0GhVar8jY9y9
5123k0Zzxc4JlO8vypcIv+F1pwaGxznBUmGXSU4S5X1PeVPw3Nw5JW7FJHfZvbNg
512465GjlH+K8qciVimIU1z8m4upcLh3fF8atGyeD9xDNs8JJDvtrg0y1EPPnsod
5125DkHpNJ8e+PlO4X5NYJWzhwBRa3PTB2IzaF4B+HkzMcff+/J4iD4CA4a/fNST
5126RfPrg58/GxH9LsU30qfh4HdHfzHceY76MADfx8+oC7MrSG8xwKvHLbeU8vPE
5127yxA8rxyY6hnlBL81xOfWr6ePK3KpLyPwfeVhQ9qbbKWjMao2ak9tXJxP/RmD
51287+8Ccmb3Z3wIMMHy0pW71u0voD5NwPdZiFfl2hPt8aYQSA+lDNwtQjrrdzr8
5129WL8XsWhZxdGs8unoPr5lTOhbjGes7xnQsL5LkNSjTvr2+Qz0ynQX7/deIj/N
5130wPupQXdoSryntTliHoo2/NSsgYrxMEck43EZDhPRBwy8LZCmTFRJncqIjwV4
5131PmUISw7e37XXEpzlGp+n2eXEy4p4VaDffO7CNWut8GN0RNW7mZVQMn5W2Mj4
5132VSKhJ9vLa8gK/tsH2wJLq4inEGGM5xU4q0UeM+OEKH1ckWi06ip+YHyFkDC+
51331egMTXI3lImgftL7h2CymniLiHcNopUfXHUaEebvCND5VdUSfxHxvwbFROTH
5134v31hDXeVY8bjg3XkgzX2MB9+RXPjkHPNU2s8EPsP1gfWQ8L8sIEL86MBO5O3
5135zDsfY4ME+20jY+cacI35YgMd86URlgHdHyVZibFzb8dnn2Q2kj9i8qcJVfIV
5136c8ILxThuNtCXkdVEPonJp2YEvWiYtQESCIbz7zjkNqOU+SVBD/OrBdNKPGcu
51377pWgzlxk01XWQr5JoWG+XUdRVLHcMUKKxn1OxYWt18k/Kfl3A6uXzJbNMLGF
51386Szd6fzBG+SjLfl4E2NGZySjaluoLTff05ppyU9b8lOL7A5zmwdeMnzvHRki
5139+rSVfJWRr61YeiZe2NAhQ26tl+/h3bfo/2AH/v/QhqGvJywKQu1gHFMQa1vQ
5140Rj7bkc/tOOYUbnbsHzvUxzQZdL9sJ7/l5PdteI6+MI3KkKO2LunJFbc75Luc
5141fL+DvprNxkGu9pj0eW/WGNdB/tuT/504HN9p4H3THr7JKT4xuztpPyhoP3Ri
5142nr+PvvMWBZQnX7nmyu/S/lDQ/riLfwFpFcsU
5143 "]]},
5144 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.003666666666666667],
5145 AbsoluteThickness[1.6], PointBox[CompressedData["
51461:eJwtlHs0lGkcx8eYWZNLgxlmUJtcctYlRKX21PuNsqkNZc8u5SzbIZNS9miz
51470tpiFKv2sKpl2aWa2e1yyKVs2RC5RJFLI4bYxW5XthuzhHb3nd8fc97znvd9
5148n+f7+34+zyzcvndLJJfD4UT89/v/Wru5aKVivJRpqRPwBEoetPe1dG+HM1O6
5149wfuftzA2fem88yuW0/MOer4W7j8H+xnFdTNOPYt8xqwDcZp9X03vfwLTgEs7
5150BmMGGZ9oF9/L+WH0/R/0fQQm33Drgj1HGLm5lf2AdTSt9xetF4vowOL22tJH
5151jPX69mwdeRzleULrx6NPETLo6DrKuGUFnRxZk0j7/U37fQ3lQa7Gr/s541me
5152YWBon0z7v6D95XiwKDhpVvyKeTh83NDf/yim2DyvmTQ2zzcw6yjilweNMyVb
5153SzZdnXec8k1QvkxsStQ9HvWdhmnMSIiyv5VFef+hvNk4Yh8intcxycDI6Vby
5154Rycp/xTl/x41d4vz2oXTTH3ps/X7PHKhZueZYZzZefIwkcCzTfWfZYISqh9P
5155RvxI872l+QogMXVR5ftyMO0eqEp/XUjzcqCd9ww8Ht6XaiJ10ObV3PB72Fma
5156Xwfa+RUIuJ4cujmVC8fNGxoPv1ZSH7rQ9vELdme5FF5U6EI3sat7d9k54sWD
5157ltcFHN3RM8yv50FWEaE5nXuR+uJD21cRFO+nOIQP87FJd9Zh4YVi6u8daPsr
5158QbXx4l2VXD2MlAR4jr8ooT71oO2zFH1/9hSLbQR4IFP0J50tg4ztVwBtv+XQ
5159VKa83LNmDnLfmzlWtPMyUtm+52AV2/cViDIXL2sO14fFq5B1h9dWkJ/60Pb/
5160K9wiexNsDxlgW0Mlf8rjKqpYHoZoYHlcw8aV8qqvCgyxvXBBm8SrkvgYQcvn
5161N0QJXXV6qo1gJ0/7SR14nXjNhZZXFVJGetcuGZiLK7Hj+72TqmHC8hPCm+VX
5162g8Jr8rRjM0JwPMovOoTfIJ7G0LA8b+DTJsmOuG+NoVc2WnAoo5b4GsOd5VuH
5163p+6jR63fNUH8Ukepc20d8TYh3jdxIL/ufGuRCVZUycSOOvXE34T410Ogl3P7
5164wCpTyPzOnziwsYF8MIU960MDTn0eM+rQaoqJ3qc58wsbyQ8Rhlg/mmDX7y1U
5165hYrwZI/bQtHbJuxifRGBy/pyC2W+UvfkZyIsF8S7bJM1kz9i8qcFKB3d4npQ
5166jCFlTdV4Xwv5JCafbqPN6ua+fgMzzH6g3zkUcof8MsM51q9WhB7JOZWeZ4Yv
5167xj6OthlqxVnWNzMEsL614cnzmKvLnMzhn6s8cnnfXfLPnPxrx5fbfNTDleZY
5168ZZeYfSetnXyUkI/t0GuUTmdukMAgSWEvC+0gPyXkZwdOuI3NX62WYI66bdJ5
5169aSf5KiVfO2GTd5N5ulOKpV5TQitRF/0/SMnfLpTwcz/LmZTih5xFsiUTXeSz
5170Bfl8D6tj96SsS7eA7ZsgbtzAPfLbgvxWoVXto3wptcRIWPJA/20V+W5Jvndj
51716zqLpoJzllA1lk7vre4m/y3J//t4fGns0YdeVtC4DoU6V9yn82BF56EH8Zb1
5172+lNNVvDNE701Ke+h8zGPzkcv/gWQBtb+
5173 "]]},
5174 {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.003666666666666667],
5175 AbsoluteThickness[1.6], PointBox[CompressedData["
51761:eJwtlH001Xccx69LIW4X1+VS8zCn1bKko9OkdX5vY8tTzqiGtVXK5HQwnSId
5177pbLdWqzW0z0hy2NPh1VEiW3ci5GLLnnoxnUf0iqKlujaYqvf/fzxO7/zO7+H
51787/vzfr2+P9et34V/y+VwODFvj3dn94TQ6aSu68z5sKH2aMVcGK7r6doDsuKJ
5179tCur7jBDCQrjjzf40n0F3Q9FilnRJzzTHqZ284O4NptISNnnlcwj9vloWDKB
5180tZ8lqZh9HUXazLPb6X0NvZ+ITh/9/LpnOqYwLWhIdWAXfe8RfS8V83uDv97o
5181+ph5r6dw9xuX/ZTnKeU5hLid+edebxhh1LdHTpyI+IHWe07rHUGF5fiD05lj
5182THXpxMQCYRat/4LWP46ZdW68bPXfDH/LreX5MScpz0vmIpvnNEpc2z/6a2qc
5183EaeVTjy7LaF8E5QvG4FjKSHLbSeZgEV9q/dl5lLe15T3F4z95hKf4aFn/GN9
5184eGt78yn/FOUvhCSzNUsR8A/Tljtcfq2jCLHsPP8yg+w8JVgZubvUadsbZp78
5185XoFy7ALNN03zXYJ6gZM8fv8Mw22MXFcSeoXm/Y/mLYVsaluyKpiDU+K9d/gj
5186ZTQ/B4b5r0Ki8RabRBnhoek5o+Nbr1MfRjD0UY64Zp7EPZaLkGVrDsYkVlA/
5187XBh43YDPVV1J+C5jWDDSLRY5ldSXMQx9VYEnuVW596AJRMvMizN0N6m/WTD0
5188Vw112k+NBcdmIdXUeU1r0G3qczYMfdagYmt0d3PubHwo467VddZiHtuvKRzY
5189fn+HOHDF0OglUyyIrqxs3fMHRtm+zeDH9l2HSE+LV8IqM+ClQ53v+Xry0xwG
5190P6Vwt9cYr5aZg3+xfv1sKxnOsDzmoIXlIcOb6UpBzN054IeEzvM62UB8LGDg
519104i7Q0fdsgYssGJIZtPi2kS8LGHg1YQi+SaviqeWyEh0WtUk/fNtT+/48bCH
51925deM5AovP+UkD/rhLWcW72zBIMtzLgw87yAgx2wdx4QPSVSmk35pK8pZvnxU
5193sXzl4NUnlp82s8JXNbnKJTNy4m1FvNuQ4hW1cuHPVgjjnWqS97cTfyvi3wHN
5194RT9pjdAa28KTdJ0td3GG9cEaWtYHBQIdPQJD86yhbHQUFegU5Ic1zFk/OnHj
5195mKhT+74NjiqTIrKedGI764sNgllfujDfyDgq+YoNwrb7XFs82UX+2JA/9yDe
5196/Vxj5imAV+Ie53SLbvJJQD51Y+xxX1zeTQFcRhdeFi/qQTHrlwBHWL96ELlR
51979mLpalt4PA4O9F3bS77Zwpb1rReyjrLUhgZbfB71kFu+t4/8E5J/97H407Oc
5198iCAh0vxHu7t/vU8+CslHJSRVh34cVghRczm+ruypkvy0Iz8fYHpRvFV6hB0E
5199hzfJvJf0k6925Gs/YvO+zLYetMOBgQZVauoA/R/sYfg/qKDg+7pciLGHSVme
5200dYJcRT7bk8+DWPm9+2XvEXvkvHryjfADNfktIr/VKJ4UerbtFMFt43qtt7+G
5201fBeR7xpY7uBUb9aLkK5/7uw7pSH/Hch/LVJUw8x4ugMSwqU73Cq0tB8caD/o
5202oP6ip/nwLEeo4zqk6kQd7Q9H2h86/A+hQPcf
5203 "]]},
5204 {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.003666666666666667],
5205 AbsoluteThickness[1.6], PointBox[CompressedData["
52061:eJwtlHtQlFUYxrl5WS7CLixs4WiKmqbkOCIajHyPUbMJ3gZLxJnIyB2DXUTA
5207DFEpNbRBwElFCJskAhId4pIG0Q7XVlC5yGVZdAPcXZZll8uiIUioRGffP775
52085sy5vM/7PL9zlkTEhEhsrKysDsx+//+1XNq+G4uKudYDVYFTAhEs42oab4LJ
5209bKyf2dPASdf5yvYKg2m+leb3YkSclfBWfAdXWzUsb2+JgJGtV3GRbL0UA5n+
5210zko/NbdW0aM6eyiO9vfR/gSY483t3CkNd2lSfsw2IYnO09F5pzHsuWWRUKLn
5211gqZ5uebas6THQHrOw1h/MdL0gZETfRrr6XT3AtUbonoXoZf236peM8J9vyfF
5212rWhlBtU3U/0sjPE8vw76doxrMR+TSL2vYozpeUJ6fsRoT/3yDYlPOUFVYM3+
5213qRzS9w/py8Vwqez+Ytk4pzr5sCxUnkd6n5HeAgwlC2Ptwye4FRuTUrL7rpP+
5214SdJ/E8awKvdnO59zQtM68arPijDI+pnihKyfYhi8D8r7tvzLBQYnjp/yKqX+
5215pqm/MuitXSLurX/BbVuk25ih+I36fUn93oZOWTHv9vJX3GuHOqJbMn+n/meo
5216/wo86SzpanWwQplf8BXv7D/IDytY/PgTYwHJqxR21vD8Jqi0rElOeVnD4k8V
5217zNfDTlS+tMbS/M/7fvWoIb9sYPFrdix4u7V4wga5d2I+8dDUkn+2sPhXh+ET
5218NkvzzbZIKqjsvlhXT37aweLnXxga6DqSPWgHxXtbg5fIFTAxf+dgO/P3DoZ2
52193Wy4oJkD6U+e5XXNDTAxv+diKfO7EabKr15PfjQXJ+TrFn45eZf4nAcLn/dh
5220XPZhdGLHPIxnnE8MeKcJgyyP+RCwPJphSF9ZE9M0H/e9V7WLLrVQPjxY8mmF
52214fkLgUTBg/W7yfwzpx9QXvaw5NWGgYg2yb4qe+xqyvQ909AGPcvPAatZfu3Q
5222N+VX7Cx3gGrDtu5UUQf6WZ6O2MrynB37Jjq8X+KI1KTciWtfdKKf5euELJav
5223ErqcHeF+hU6ILcj+Tt6rpLwXwJJ3F7T2XqVrcxcgvcinULtbRfk7w5J/NzRH
5224Jm2XX3WG+tLhzQJlN8YYDy4oZzw8xGGzZLVTkAvCw3bsCI54RHy4oJHxocbh
5225ZQ86z91xgeOrZnXatBpmxgufePkbMWF+STaBfIyeMusf5vQQP3zipxcx6Xlv
5226nqzmw05fJlsb0kc88YmnxzhUv6Bt0l+AQlfHTQ3nHhNfAvAZX7PzzxMS4yoE
5227kOQ5JxyXaTDCeBPgGuNNg2hvndeIjytqlh046hOqJf5ciT8toiO2Nx8sdUXh
5228Zd76p2Id8ehKPOoQnVl+VOvthg3jM0W3AvqJTzfisx+ypiVvfHzDDbsDxYbj
5229/nri1Y141UNqnXpXtUIIwem+XnHAAL0PQljehwFIfSfiQn4WIrKk8bJIbCCe
5230hcSzAVHS/QubF7sjtMWGN/rRIPHtTnwPIirnnkL8gzs06jT/xigj8e5OvBsR
5231qfSJqRN5YKY7cs0vySbi34P4H0KU/TXR5gwP3FZcUacUDNF98KD7MIxIjldX
5232zheBl+u2Nb55mO6HiO7HCP4DvIQT5w==
5233 "]]},
5234 {RGBColor[0.528488, 0.470624, 0.701351], PointSize[0.003666666666666667],
5235 AbsoluteThickness[1.6], PointBox[CompressedData["
52361:eJwtlHtQVGUYxhGWy4Lg7sIKeMGhgdRcUWOMQOQ8FkMamuQ1USdHVx3AAdRE
5237VKCpDcFEAZebUAoGONwCiUERJAK2EoVkE3dDLiGwAoIg7EWBoDrn/WNn58w5
52385/ue9/n9vuN8MGzbYWMjIyPpf7///7cmJ3/785ZiJiJtdNUzGxdw1zV07Ytp
5239ycjNrV4KxvfCyKnapF10/yHdl6J1MrMyvayVWbBXE7xhdxim2Ofb6PkIuH7O
5240XDVvVDNBXUf2NFXG0Psd9P43iGzoPXda1c2EexX5Pjl4gdbrofUSobH1LT15
5241qpdZHxXQKtRfoTz9tH4ahH5p2StmNUzRjo9/yD+XSfsN0H7XsC5yILk3fojx
5242kTs/tMvJof2Haf9cSAu9ZFmil0xH5OLPmnPzcZbNM8qEsnkK8FGo393lLWOM
52435GmGbnpjMeV7RflKsS9utNxUPs7Yd25StvrdorwTlLccx7Mzinp2axm9ZVz5
5244gaoKyq+j/JU4X7Uh994iPbPaIFu4IuoOBOw8euYmO89dZCmHvrvaY2Cqc2C9
5245JrGG5ntN89Wi7IU89VT+G2Z7bNeHnmfqaN5JmvcXNPLWX/40ZIrRZ0QpDMp6
5246mn+a5m9E+2LN+ZWr/2EaL561erxDQX3MUB+/YvS9xC/5uhmmbr9a3DLzG/Ga
5247JV73YbxsUc34PiP02qT19T9qor6MwPX1EAkV4XcOMHPgc/2n0wsfNFN/c8D1
52489wfmb1BUtDgbY39cxtHbEY+oT2NwfbYiu9nxljfPBFVucbrRhUr0s/2awJvt
5249V4kVgaElhRoT5CvyDnu0/Ylwtm8etGzfj1GpqS9wuM+DZLP29qUbbeSnKbj+
5250nwAn7fPPF5liU/2J4XGZCrEsDzOsZHmo0TQbckN7yQyGpc4mR8/8RXzMwPFp
5251x86EumsHw83xQfTs1ODXT4mXOTheHeh2EGc92mYBp3pr1bnsTriw/CxwhOXX
5252heC8oHSftXyk6P1TFim7Ucry5IPj+Td0a2rlxfaW2Gzd6aix6oEXy9cSHN8e
5253xNSKkhZMWmKJfXGg4v1nxNsKHO9n4PsfTYjvsEK1g3xucVgv8Z8Ljn8fUlTV
52548frauXAWXVmVWdYHNeuDNTgf+uEkFcRKc6yxy6SgIXGqH4dYP2zA+aFBwZj0
5255K6XMBtuHVb8nBDzHS9YXG9xjfXkO9+iqaByZB4dmJya5dID8mQfOn0F088zX
525673YRoCQv+u3vHYbIJwH5NAQX/zXrLqcKIIzQxpRdfAE/1i8BVrF+DSMoea+n
5257wkwIxke28YHFCPkmhAfr2whKVbEe06eFcJtZLhtJfEn+Ccm/UUwsLlvrPijE
5258ZOAX6RcFY+SjiHwcg6e03T04UIT68m5Xl64x8lNEfr5CTCHv3ZwHIgSbqY7V
5259lb0iX23J13E0jLmtVnvb4s3OwGMH4sfp+2AL7vswDr7HHrd5P9rieE6QC+/w
5260BPlsSz5P4JNomcRviR1aBnipRX5a8tuO/NZC3lDyTnSSHewlktpdK3Xkux35
5261roOar15WMUcMn5Du66aOevJfTP7r4RRgvPTFCTG25Dt53eEb6DyI6TwYcChN
52624vpWnxienYMJobMGOh/z6Xy8xr8PpwsZ
5263 "]]},
5264 {RGBColor[0.772079, 0.431554, 0.102387], PointSize[0.003666666666666667],
5265 AbsoluteThickness[1.6], PointBox[CompressedData["
52661:eJwtlHtQVGUYxneXXUC57AVd0wlRUdG0FAFFsD3PobRMRURHSPEyZMmlLEE0
5267SRqdAIVAHS9hphOrNKAyzmaUwphcE1ARJE1uglwWdUVkYZdluVbfef84c+bM
5268uXzP+/x+35ke/mXwpxKRSLTjv+P/8xz/HM/AGZe4iDMffR0ZtgjCdT5dB2Pb
5269fM0vBfUlXOzL9dn92TvofiXdj0HvStWt1qhq7s2jprs7dAewlT1fy+1mzyei
5270zCs2Wjr6iAtbuujgIdc0er+e3j+B9IAnlowVTVxbhOaAeVkGfa+FvncOuTnu
5271Jac/aOUUiX/8tnmzlvK0UZ4sqHShR1qiOzjfhFrYaHJoPT2tl4u919MD5x5/
5272xpmO5V/zddfR+i9o/WtovFUyITbPwDkuvqdYX5CHoyxPF9fJ8lwHblsabta9
52734joXaguCOvIp32vKdxO1n/0Q9N23PVzaQV+dp7aQ8hopbzGSDDqvHEUvF6eq
5274HIgfKKH8vZS/DL677qqrLvRxTvKQwvuRt6Fk85i4xWyeChiMeqvR28yN+Nye
5275d2rmHZrPTPPdw/k40RN1eT+37rBac3fOfZrXQvPWYK11SpH/xwPcYfHMoaX+
5276D2h+K81fC0mCz8XtL63cyQ1vv1We/Df1MUh9PMTvoqDkpIQhrmaZx3wnyyPi
5277NUy8HmNnYlTkZfkIpylQih3T6qivEeqrHlPsk1ZXa0e5pntdOaXLG6m/Meqv
5278Cfq/qicNThYhb88Nd++ZzdSnCEKfLSi025Li2C7Cw9CCG1dPPsUV1q8YctZv
5279K86sNAxOzRXDWKyo/NmjDYmsbwn2sb7bEPP9vs894yTIjGsJeFXVTn5KIPjZ
5280gVVV0ub3NDbojp09OyNZjyWMhw0cGY9OuMtPrN1oJ0XVTX3M+XXPiI8UAp/n
5281GAlyK46okWJ5kOtc0YIXxEsGgZcB/5zIXfTNjzJseafqw8KpL1HK+MkQyvh1
5282QfdwaVZ6uC1kIeYHDdNe4RzjaYsNjGc3UtTlEzPn2WH5ndNlwT6via8djIxv
5283D8JDNxy+ZrKD4v2Q4y5Xe4i3PQTeRvifbR0o+9MegRVufVfuGIn/OAj8ezGx
5284aVfU4+RxqN6dlRrT0wsx82EcTjEf+tDtOtz4Yu14ZEG/caebCQ3Mj/FwYH6Y
5285ULEtZc3wGw4o9W4LSQ0xI4/54oBq5osZmVp1oXObAxYE/pTeeKaf/HGE4I8F
5286+9svLpx+xRGdaYqBTe0W8skJgk8DWD/L84LXHicYevgM+yVWcMwvJ+iZX1bM
528733nLZcW7zvCLXxDdcXIQk5lvzhB8G4LtpVVJobZy1M2pj+22DpF/cgj+DaPZ
5288UNcfVS1H0bDm19mRI+SjgnwcRZjaK0+zWgGTebt7euso+akgP8ew8rq1q1yn
5289wJJUN/1xTxEv+KogX0W8T2jRrHUTlXDN7Qru7Rfxwv9BCeH/IOZnWJO3NuxX
52904vLTSY2GIjEv+KwknyW889k1GZ80K9HsoU2IPybhBb9V5LeEH/KbUNMVoEL+
5291oSN+2nAbXvBdRb7b8M8bG+z3Zqvg1V2l3OYn5QX/VeS/lH90QMuPObhg0xe7
5292bfLUMl7YDy60H2R8sWtE/JGvXDBjLEaeaZHxwv5wof1hy/8LYVzxew==
5293 "]]},
5294 {RGBColor[0.363898, 0.618501, 0.782349], PointSize[0.003666666666666667],
5295 AbsoluteThickness[1.6], PointBox[CompressedData["
52961:eJwtlHtQVFUcx/e9yy67LAvsJqIYpmD43EbG0ji/Iz5oEBAts8wHClRmkIqo
5297KCEBGSFGIjAaZITiY7QERxR8EMWaYtrO4g6KAfKUBV0WWGB57FKdc/64c+fO
5298fZzv7/v5nPvq1rg10TwOhxP13/H/efmlmmlHUs+gYEODv3tiENDrq+x6G1hT
5299cl457/Mbypq9rnSdaQ+7r2P3UyHv8aBfXHstyuxKT6uKPQoD5Hk9yibP50Kh
53005mKBZ50Bjbj6tpkNhex9I3u/GMxLG0/b33iMpvYfOpxSco59r4F97xdAsYpL
5301z443opqGeNePPy1jeZ6xPFfh3l+nGloSW1CRqbNo7rUKtl4rW+8W7Nx6fdNa
5302/3akX5NZGTK1mq3fwdb/Azxt+taap50oUvyVTj+uY3m6kA/Jcxd+zzLFBBwx
5303odRj9Ttn7r3P8nWzfA/hs+m8nrNLXqDJo7rNJXf0LO9LltcA7hWecZNemhHk
5304hdcXeT9i+S0svxE2nz2xX/fQgi4WfnMq/U493CXz9KEfyTxPQNt/ZrFjZj+K
5305Uu68HnHjKZuvn83XCOK3y+wByQNom1niI3I0s3mtbN4WeHr4dlVcvRUZJ/vF
5306RqxsZfMPsvnb4FdDbcq5eUNoWkLxQE55O+tjiPXRAWlT6oNaDg8j+dcJRbWr
5307nrN+bIxXF6z/pE3o+cyGToYU7R106mZ9jbC+emDOld4/1ywaRYY70xPczS9Y
5308f6OsPzNM2McyMrPHUNmwvcB3pJf1Oc76tMCjYMmqmq5x5NarScjP7YNA0q8d
5309VZN+++F8jrvCDg4069Y/CzyWDoCK9O1AS0jfVkhqmqZfeGICKWIecOW8QeYn
5310B6ifg3D+uPqda/s4oDOZOr40DsEmwoMDFwiPYVBVel2oe40LYcHapu03bYwP
5311FyifEUhq9pFZ9FwoSSnp1pePMl48oLzG4Llg1g7nJB7oc1fISmvGoYDw48Ew
53124WeHiNfnPfCbxQdjmgpknQ4QEZ58oDwn4Gb4wrnLjXwI902vicvi4C8IXwEY
5313CF8unrFn8XeRKQI4PaIeyCvlYspbAJQ3D2efxJakOULYUHHb/0AzD1P+QqD8
5314+Xi0amXEySdCOBRzMNZLI8DUBxF4ER8EOKojtKw8XQRK7uobieuFeBLxQwQb
5315iR9C/Lf0Xbe6BWLgZ7ypyisW4VTiixikxBcxXjT/w/jeRjFEOxbtjrWJMfVH
5316AtQfCf75vS1G2bcS0EaGNfHfd8LUJwlQn6RYfiAmwC/ACTaX7l+7rkqKq4lf
5317TpBG/JLhvT/tyF/W6gQT5kpD9AJnPJv4JgU98c0Zt+h22bYclYLQU/WR9pIc
5318U/+kQP1T4JCefR8kvSWDHdrk3htaF0x9lAH10QWXK5MrT3TKwMcrZQU3Uomp
5319n85A/VRi74D0yeXHnKE6N9QzdY4rpr46A/XVFWdsyDxoCJSDWjRjd5vDFdP/
5320gxzo/0GFrYe+bzR3y2HK5+IIH6MKU58VQH12wxtL8gNl+QporLVeQZfdMPVb
5321AdRvd3zvfuEp3yAXWO398ofF2e6Y+u4C1HcPrO0r5izrdYH47RaJeo8Hpv4r
5322mf8eOFxmnH85VAlhFx2jDzepMd0PSrYf1Jg/dX3k7WIltLZrdsWEajDdH0q2
5323PzT4XxB7/Sw=
5324 "]]},
5325 {RGBColor[1, 0.75, 0], PointSize[0.003666666666666667], AbsoluteThickness[
5326 1.6], PointBox[CompressedData["
53271:eJwtlHtQlFUYh/fCLuwKKNCKCsIuKHdXxHTMEc/7ZthITYymEsiswiDeMQUd
5328blYIgYJhORqKmeCFaCBHxcRwSEswQINEClBSEQJR5LILcpFLdc77xzfffPNd
5329zu/9Pc/5dBE7V22USSSSyP+O/8+ty2UxLQF57HHT8y2PK0NBXF+i6wRYuzXF
5330p+7ZT0yzwCP4tS6L7v9C93Pgm8Zfa0OyK9jchBsZ3V3nYA1/vorZ8ucvgPXo
5331soOBi2vY3Rp7qzvJV+j9e/R+Kdw8HJF3Kvo+azylDJ9puknf+5O+Vw7xOtdx
5332zc0GZpJq/VpXVlGeJspTA/OLW0OzbJpZnaor6eSFe7TeI1qvHva61K1LmfeE
5333xW2xDzuU0UDrt9D6D2DVNr8MFvqU9TofWVi+5BHlaWWPeJ4noL9y5Nrr/W3s
5334xFR9Wt7Tp5TvH8rXBuoxY3tJYTvLryyNNrPtoLwdlLcTOgI+1MTWP2Mat576
5335jKIXlL+T8ndDeVbxMt+x5ywue2PYjJBemMfn6WL1fJ4+yG2w2901+yU7vsvd
5336KtnGRPN103z9sE8bm1vwQQ/britLip8YoHl7ad5BKHpz66bL13vZQL5bodx1
5337mObvo/lHwCEk55Mpf/Qxb1nkceekUerDSH2Mw8F91cei24zsqxOLz0QpJCj6
5338MREvCQ7mjRTdHTKxJ44/BKd1SFH01U99yXDjba9yL6sBZpl5sCu6TY6ivwHq
5339zwzvPw99eED3ik1qq92gHVWg6PMV9WmOODnT2L5gkHW7f3YlR2+BcbzfQfaC
534096vCi/OvqwICh9j5tTkdfyeqsZ33PcRsed+T0OmjF9qzhmHm/7HTSGerJQo/
5341h8lPazyU5LBIGjPCCmItu36Omoy3OI8RtpfzmIIjue8FrU9/zfrnXTboZTYo
5342+IwSHxvcXJEYVXZylMmd7UrCDbYoeI0RLzv8q7Nwn8PFMZYq9fx0+Dc7tOL8
5343xlkl5/cGBlg3H40vH2c7mkxXB5ZqMInznGBbOU8NFvtZFjU0TrDb+TGGtbem
53444h7OVwKJnK89fun9bUvOXgmkbinY47BmGgreEhC8p2Ol/8KXVRIpXNUdGX2n
5345fzoK/lIQ/GfgRFDN0FCGFFbX+prqch1wBvdBCj7cB0dcGBFl5qGRwbrdqSEV
5346oTNxJfdDBkbuhxPuiB2fHHxaBk3qL+Y6ujjjAe6LDLK4L1o8l/a1Q5qnHAzv
5347ny/dlqglf+Qg/NHiw+N69x+L5WCeZTiWuF1HPslB+KRD28Lbfm3+ZrAp0Pid
5348f6QL+WUG2dwvF1xRZlhqV2kGyckbjJciXMk3Bai4b66YXPtqxdurFLB8/vex
5349jZtmkX8KEP7NwpKWrDW7mhVQvf6u/lLMbPJRCcLH2dhjcgvPjVKC0rxauyTN
5350jfxUgvDTHd2UN7bX9iqh1+NMYPxpd/LVHISvHhg2LThuPMEcsitWF22+4YHi
5351/2AO4v/giUe9elLmKCxgoLklQN3uST5bgPDZC+8sST8cdtgCFDtX2BvsvMlv
5352CxB+e6M8yPlk5nQV/J6YqY1814d8V4Hw3QffCi/JLz2rgiB5Qbjj/jnkvwqE
5353/3rcFRN0uXOOGtIVpx+k3dLTflCD2A9zseDzjrJp19SwCK9V3FP40v5Qg9gf
5354vvgv6Ybl/A==
5355 "]]},
5356 {RGBColor[0.647624, 0.37816, 0.614037], PointSize[0.003666666666666667],
5357 AbsoluteThickness[1.6], PointBox[CompressedData["
53581:eJwtlHs01nccx5/nCUVOLLHR7TErJTXXckmf70duQ08ux4xTW6EdotmIqNVo
5359WzJTsos2FafbVlg4yI5Rc+gwakVuQ6lR5Pq4PK4Pa9/f54/nPOd7fpfv+/N+
5360vb4/w6BInwMSkUgU8vr3//+LpT8EDeueh8jiNw6eCkxgwvpXWmezwZrh5Gjt
5361Qlg14Lut5UAhXS+l63fZU5mdffjKCvg8p0w1KrWWDfD7K2E1v7+BhR10jDXX
5362qYZHq8MbLmq00fM19HwXC8p7Kct7qw6yw3asSS/spvc9oPf1sS1x975bcfYh
5363LD6WLF3fP0R5GijPKMvV109oONcIqfuXxn2dMUH7NdF+02xDWXhE2vfNIJdG
5364u0jvzNH+rbS/CK/tqfhAltEGjcrycvNYCQbzPO1wmedRQcN5bWfNnzugeSo9
53655RetxSjke0L51PFSVrD5XxeewunE0m/lmzRRyNtFeZfhGWn7sqrdz2DcI6Mr
5366qUcbhfzPKf9y9PxMRdXo0XOYu3h0RaJCB3P4PP9CCp9HFzUqN88m+nRDy1a1
5367oG63N1GYr4fm08fa5f7yrsYe+ErPrragwwCFeV/QvKswKTjhJfi9hCUOeu59
5368BWtQmL+X5peic9GNzkvNvWDptyvKOcSQ+uijPt5GFdXGRqX/K5DdCvb0SDNC
5369gVc/8XoHK/3mave09cMDU5mlWuc66muA+jLGxOvr7pYFDkL5fU3jWPcN1N8Q
53709bcRHSZlJQYdQ2CQnmWc2WpCfQ5Tn6Y4b7S9+Y8tI9Aer2Ydk7QZN/N+R0CN
537197sF99Z7eUcMj0BSZbbxyU1mmMr7loOc922G5YcP1K/Ml0NDwAb7q1fMUfBz
5372lPy0wFWrj7rWfToKTRKDJqmpJXpwHqMwzXlY4rHqM5VHzcfgm/KYickqK+Iz
5373Rnys8Z9DVxxMRsdgJtn+wsZPthKvceK1DW31SkvbCsfBIDS8ttjYhvhNwN+c
5374ny3+VFFvmRw9ARP+qscvyG2xhvOcgC85Tzuc+vjZbzZWCkgIUL/dWWePxpyv
5375AgY43+34vpZiY++4Av6MOHIkvsSBeE8S7x1YclvjWkbxJFSc210RWQDEf4r4
5376M9Tdt1bqGjsF1t01zvueMHTiPrxecx8QY5ZYZSq2TkPIkqxh6wHEq9yPaXjI
5377/XDEx/luetcnp+Gw9c0OG8lOXMR9mQFP7stOtAjYe86vdAYCw19phkmdyJ9Z
53788scJ08VRmqrxs6B/86OEey7O5NMs+eSM8hunkops5+B3ufo27xgXlHK/5qCF
5379++WKXj6ZkpCZOTB37DNTz3XFBO6bknxzw/yZW8d1ypRwIlN5aOiVG/k3T/69
5380h8uuVE1VHpuHPKXLkMjCnXycJx/dMdKjLTpq+wIUhVYXsEQP8nOB/PTE+2OD
5381Q4bKBcjoiCvNa/UkX0VM8HUX6snExb0fipgsYL/EzUZG3wcRE74PMnS5nBLF
53827ohY/5MTZ7Wyd5PPIib47IUxCl2z82vFLK+k913JaS/yW8wEv73wmnv24PAX
5383YuZ/MtdWx8mbfBczwXdvfHzJJMe1S8xCGzR67FR8yH8JE/z3QdWxotAsJmF9
53841xdZxNf40HmQMOE8+KKVK6yfzJaw5oUfpQ/SfOl8SJhwPnzxP+t445k=
5385 "]]},
5386 {RGBColor[0.571589, 0.586483, 0.], PointSize[0.003666666666666667],
5387 AbsoluteThickness[1.6], PointBox[CompressedData["
53881:eJwtlHlMk3cYxxtgk9OMLk4qMXNWjCyAIkqQjDw8iHOIk3LpGBPQIIZpUUEp
5389AirMTajoRGCiCMVyWhxyI1OQQpF7yiGHINACpeXSZAcGUXf8fP548+bNe/y+
5390z/fz+b2fHTzmdUiHw+EE/3f8fy6frM6SKOJhmL/Vpu+c0vn99VW65qDxvpQ5
5391YX4GeLcu9T65wsX396V0fw2OZq3bcWFLAejq25nVtViiIXu+CHzZ85vR4SNO
5392mu8nJTAR0BD2cPs2er+M3nfGrxqEJ7hvKuAAxjxuU7nS96rpe254KnrY7PXR
5393GmgSfWdUYutBee5THi/MsXOTq0Zq4RtLHVFLqy+tV0/r+eHhyOGK4EI5fBC6
53947UElZz+t30DrB+Fbr5SEwbFGiH5rKfO4dRDdWB4FBLI8wZi60c1/t9kj+Pnl
5395Bsl218OUr5nyhaKlMWejXNACios3vrA/epTytlLeYyjXVutsEbdBksap8WPj
5396E5S/nfKH475Hwv7Chg5wHdXcN1p3EqVsnk7wYfOcwjnpuiLz17/DJdkufd2z
5397IprvCc13Gl3q5x/u5HVBgFtI0SIvhubtonnP4CXrttvxW7uhvc5R+vLVWZq/
5398m+aPw8GbeSkPPHtgv25w5B9J8dRHD/XxA/IN42L/FvaCBTehea72PPHqJV4/
5399YliUf8jGi0/BKunDhqnlF6ivPuorAX+bsheEFvRBfNj4IWV8IvXXT/2JUdeX
540065jb2A9mtauqnq1Ioj4HqM9LuEcxzx8ZHYA3ESV3e9ovYwTrdxAUrN8rmGHb
5401ZrJyaRBM3QWyQ4JkrGd9PwMx6/sqqrPzXglWDoG7qahL1XGV/BwiP1PQdnmc
54026qLdMBQYd3aO7EvFvYzHMADjkYbRsf4dTR7PYYOTh8TvrzTi85z4/ILNM/ZV
5403746MQEcOZ4ev9BrxGiFe6Wjqx812SByFVCelvCvgOtozfmMwyfjdwP0t84nh
5404eWMQa/LCtNMqA5HxVMIBxvMmPs0I3rY3SAmXuZ877DTKxBDGVwnLGN8sXPT0
5405sol4oQT57jQ7l9dZxFtFvCX4qYEzPzlWBbxaK726xWziryL+t9BVbm1WbDgO
54067qWLT4f1pDjAfBiHIOaDFL8XmZu0Xx8H3uqTXN6KHPJjHCKYHzmYbGOgo1k/
5407ATF5Pzles87FtcyXCVjLfMnFKvXCgm7VBAi/tPnae08e+TNB/uThUObk7Jrt
5408k7CgE7ZLIMonnybJpwLk+PQonbonwWjIdfPl2wXklxrEzK9CXG8k7/s2UA1V
5409HeV6huOFWMN8U8M55ttt3N1Y3C6aV8PcwL2GZr6M/Jsi/2R4/PTN+rSYKah9
54105x2qEBaRj1Pk4x1M3ySuLDPQAM85Yemf+jvkp4b8/BVrNZGyx+ka0M/0jIpd
5411VUy+asjXYlRJgiWzFloQcyvGHM7cpf+Dlv4PJbhsr1eqfqUW8nPv2G7VlpDP
5412WvK5FK1MnBMtXKYht3D1vZriUvJ7mvwuQ+8m6zMuXdPQaFjWHnmkjHyfId/L
5413MCrGPDwwYAb4S1d6fazLyf8Z8r8cJZsNDsfOzUB/1P1urz/LaT/M0n6oQMX0
5414gv+N6FloPb/p0fG6Ctofs7Q/KvFftDwO3w==
5415 "]]}, {}}, {}},
5416 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
5417 Axes->{True, True},
5418 AxesLabel->{
5419 FormBox["\"r\"", TraditionalForm],
5420 FormBox[
5421 "\"\\!\\(\\*SubscriptBox[\\(P\\), \\(ram\\)]\\)\"", TraditionalForm]},
5422 AxesOrigin->{0, 0},
5423 DisplayFunction->Identity,
5424 Frame->{{False, False}, {False, False}},
5425 FrameLabel->{{None, None}, {None, None}},
5426 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
5427 GridLines->{None, None},
5428 GridLinesStyle->Directive[
5429 GrayLevel[0.5, 0.4]],
5430 ImageSize->{690., Automatic},
5431 Method->{},
5432 PlotRange->{{0, 10.}, {-1.9255359354672985`*^-12, 110168.26753562564`}},
5433 PlotRangeClipping->True,
5434 PlotRangePadding->{{
5435 Scaled[0.02],
5436 Scaled[0.02]}, {
5437 Scaled[0.05],
5438 Scaled[0.05]}},
5439 Ticks->{Automatic, Automatic}]], "Output",
5440 CellChangeTimes->{3.644674343551*^9, 3.644753402542*^9}]
5441}, Open ]],
5442
5443Cell[CellGroupData[{
5444
5445Cell[BoxData["rt1"], "Input",
5446 CellChangeTimes->{{3.644685149755*^9, 3.6446851614849997`*^9}}],
5447
5448Cell[BoxData["0.1`"], "Output",
5449 CellChangeTimes->{{3.644685155788*^9, 3.644685161949*^9}, 3.644753402639*^9}]
5450}, Open ]],
5451
5452Cell["Now, colliding flows relevant parameters >", "Chapter",
5453 CellChangeTimes->{{3.644684792244*^9, 3.644684805111*^9}, 3.644756036101*^9},
5454 EmphasizeSyntaxErrors->True],
5455
5456Cell[CellGroupData[{
5457
5458Cell["\<\
5459Syntax::tsntxi : \"\\\"\[NoBreak]Now, colliding flows relevant parameters >\
5460\[NoBreak]\\\" is incomplete; more input is needed.\[NoBreak]\"\"\[NoBreak]\"\
5461\>", "Chapter", "MSG",
5462 CellChangeTimes->{{3.6447560295030003`*^9, 3.644756036131*^9}}],
5463
5464Cell[BoxData[
5465 RowBox[{"r0t", ",", " ", "rt1", ",", " ", "rt2", ",", " ", "rtstep", ",",
5466 " ", "tt", ",", " ", "tt1", ",", " ", "tt2", ",", " ", "ttstep", ",", " ",
5467 RowBox[{
5468 RowBox[{
5469 RowBox[{
5470 "by", " ", "the", " ", "way", " ", "what", " ", "is", " ", "the", " ",
5471 "freefall", " ", "time", " ", "for", " ", "the", " ",
5472 RowBox[{"ambient", "?", " ", "G"}]}], " ", "-"}], " ", ">", " ",
5473 RowBox[{
5474 "scale", " ", "grav", " ", "\[Rho]0", " ", "in", " ", "computational", " ",
5475 "unit", " ", "in", " ", "computational", " ",
5476 RowBox[{"units", ".", " "}]}]}]}]], "Input",
5477 CellChangeTimes->{{3.644684848874*^9, 3.644684991251*^9}},
5478 EmphasizeSyntaxErrors->True],
5479
5480Cell["\<\
5481r0CF = radius iteration index
5482rCF1 = minimum radius of sphere = 12.5
5483rCF2 = maximum radius of sphere = 37.5
5484rCFstep = iteration spacing = .5
5485tCF = time iteration index
5486tCF1 = first time state sampled = 0
5487tCF2 = final time state sampled (computational units) = 2.25 (this is the \
5488final simulation time, although the ring has formed long before then..)
5489tCFstep = time step spacing = 0.1
5490GCF = scale grav = 0.0205
5491\[Rho]0CF = initial ambient density in computational units = 1 (=n in \
5492computational units)
5493kCF = constant in equations for scaled to CF problem\
5494\>", "Text",
5495 CellChangeTimes->{{3.644684996274*^9, 3.644685113605*^9}, {3.644685582354*^9,
5496 3.644685716422*^9}, {3.6446859904890003`*^9, 3.644686098981*^9}, {
5497 3.64468671523*^9, 3.644686754902*^9}, {3.64468682766*^9,
5498 3.6446869210889997`*^9}}],
5499
5500Cell[BoxData[{
5501 RowBox[{
5502 RowBox[{"GCF", " ", "=", " ", "0.0205"}], ";"}], "\[IndentingNewLine]",
5503 RowBox[{
5504 RowBox[{"\[Rho]0CF", " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]",
5505 RowBox[{
5506 RowBox[{"kCF", " ", "=", " ",
5507 SqrtBox[
5508 RowBox[{
5509 FractionBox["8", "3"], "\[Pi]", "*", "GCF", "*", "\[Rho]0CF"}]]}],
5510 ";"}], "\[IndentingNewLine]",
5511 RowBox[{
5512 RowBox[{"rCF1", " ", "=", " ", "20"}], ";"}], "\[IndentingNewLine]",
5513 RowBox[{
5514 RowBox[{"rCF2", " ", "=", " ", "37.5"}], ";"}], "\[IndentingNewLine]",
5515 RowBox[{
5516 RowBox[{"rCFstep", " ", "=", " ", ".5"}], ";"}], "\[IndentingNewLine]",
5517 RowBox[{
5518 RowBox[{"tCF1", " ", "=", "0"}], ";"}], "\[IndentingNewLine]",
5519 RowBox[{
5520 RowBox[{"tCF2", " ", "=", " ", "2.25"}], ";"}], "\[IndentingNewLine]",
5521 RowBox[{
5522 RowBox[{"tCFstep", " ", "=", " ", "0.1"}],
5523 ";"}], "\[IndentingNewLine]"}], "Input",
5524 CellChangeTimes->{{3.644686955184*^9, 3.644686966546*^9}, {3.644687013459*^9,
5525 3.644687035801*^9}, {3.644687069111*^9, 3.6446870752980003`*^9}, {
5526 3.6446871334960003`*^9, 3.644687167156*^9}, {3.644687708424*^9,
5527 3.644687766149*^9}, {3.64469004952*^9, 3.644690051462*^9}}],
5528
5529Cell[CellGroupData[{
5530
5531Cell[BoxData[
5532 RowBox[{"ListPlot", "[",
5533 RowBox[{
5534 RowBox[{"Table", "[",
5535 RowBox[{
5536 RowBox[{"Transpose", "[",
5537 RowBox[{"{",
5538 RowBox[{
5539 RowBox[{"Table", "[",
5540 RowBox[{
5541 RowBox[{"r0CF", "*",
5542 SuperscriptBox[
5543 RowBox[{"(",
5544 RowBox[{"Cos", "[",
5545 RowBox[{"\[Xi]", "/.",
5546 RowBox[{"First", "[",
5547 RowBox[{"FindRoot", "[",
5548 RowBox[{
5549 RowBox[{"\[Xi]", "+",
5550 RowBox[{
5551 FractionBox["1", "2"],
5552 RowBox[{"Sin", "[",
5553 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
5554 RowBox[{"kCF", "*", "tCF"}]}], ",", " ",
5555 RowBox[{"{",
5556 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
5557 "]"}], ")"}], "2"]}], ",",
5558 RowBox[{"{",
5559 RowBox[{"r0CF", ",", "rCF1", ",", "rCF2", ",", " ", "rCFstep"}],
5560 "}"}]}], "]"}], ",",
5561 RowBox[{"Table", "[",
5562 RowBox[{
5563 RowBox[{
5564 RowBox[{"(",
5565 RowBox[{
5566 RowBox[{"(",
5567 RowBox[{
5568 RowBox[{"(",
5569 RowBox[{"4", "/", "3"}], ")"}], "*", "\[Pi]", "*",
5570 SuperscriptBox[
5571 RowBox[{"(", "r0CF", ")"}], "3"], "*", "\[Rho]0"}], ")"}],
5572 "/",
5573 RowBox[{"(",
5574 RowBox[{
5575 FractionBox["4", "3"], "\[Pi]",
5576 SuperscriptBox[
5577 RowBox[{"(",
5578 RowBox[{"r0CF", "*",
5579 SuperscriptBox[
5580 RowBox[{"(",
5581 RowBox[{"Cos", "[",
5582 RowBox[{"\[Xi]", "/.",
5583 RowBox[{"First", "[",
5584 RowBox[{"FindRoot", "[",
5585 RowBox[{
5586 RowBox[{"\[Xi]", "+",
5587 RowBox[{
5588 FractionBox["1", "2"],
5589 RowBox[{"Sin", "[",
5590 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
5591 RowBox[{"kCF", "*", "tCF"}]}], ",", " ",
5592 RowBox[{"{",
5593 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
5594 "]"}], ")"}], "2"]}], ")"}], "3"]}], ")"}]}], ")"}], "*",
5595 SuperscriptBox[
5596 RowBox[{"(",
5597 RowBox[{"-",
5598 SqrtBox[
5599 RowBox[{
5600 FractionBox[
5601 RowBox[{"8", "\[Pi]"}], "3"], "GCF", "*", "\[Rho]0CF", "*",
5602 SuperscriptBox["r0CF", "2"],
5603 RowBox[{"(",
5604 RowBox[{
5605 FractionBox["r0CF",
5606 RowBox[{"r0CF", "*",
5607 SuperscriptBox[
5608 RowBox[{"(",
5609 RowBox[{"Cos", "[",
5610 RowBox[{"\[Xi]", "/.",
5611 RowBox[{"First", "[",
5612 RowBox[{"FindRoot", "[",
5613 RowBox[{
5614 RowBox[{"\[Xi]", "+",
5615 RowBox[{
5616 FractionBox["1", "2"],
5617 RowBox[{"Sin", "[",
5618 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
5619 RowBox[{"kCF", "*", "tCF"}]}], ",", " ",
5620 RowBox[{"{",
5621 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
5622 "]"}], ")"}], "2"]}]], "-", "1"}], ")"}]}]]}], ")"}],
5623 "2"]}], ",",
5624 RowBox[{"{",
5625 RowBox[{
5626 "r0CF", ",", " ", "rCF1", ",", " ", "rCF2", ",", " ", "rCFstep"}],
5627 "}"}]}], "]"}]}], " ", "}"}], "]"}], ",", " ",
5628 RowBox[{"{",
5629 RowBox[{
5630 "tCF", ",", " ", "tCF1", ",", " ", "tCF2", ",", " ", "tCFstep"}],
5631 "}"}]}], "]"}], ",", " ",
5632 RowBox[{"AxesLabel", "\[Rule]",
5633 RowBox[{"{",
5634 RowBox[{
5635 "\"\<r\>\"", ",", " ", "\"\<\!\(\*SubscriptBox[\(P\), \(ram\)]\)\>\""}],
5636 "}"}]}], ",", " ",
5637 RowBox[{"Epilog", "\[Rule]",
5638 RowBox[{"{",
5639 RowBox[{
5640 RowBox[{"Directive", "[",
5641 RowBox[{"{",
5642 RowBox[{"Thick", ",", " ", "Red"}], "}"}], "]"}], ",", " ",
5643 RowBox[{"Line", "[",
5644 RowBox[{"{",
5645 RowBox[{
5646 RowBox[{"{",
5647 RowBox[{"15", ",", " ", "500"}], "}"}], ",",
5648 RowBox[{"{",
5649 RowBox[{"35", ",", " ", "500"}], "}"}]}], "}"}], "]"}]}], "}"}]}],
5650 ",",
5651 RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
5652 CellChangeTimes->{{3.644686872324*^9, 3.644686874965*^9}, {3.644687092953*^9,
5653 3.644687120495*^9}, {3.644687476592*^9, 3.644687609667*^9}, {
5654 3.6446876838269997`*^9, 3.644687695342*^9}, {3.6446877360220003`*^9,
5655 3.644687752524*^9}, {3.6446908121359997`*^9, 3.6446908574969997`*^9}, {
5656 3.644690898289*^9, 3.644691021554*^9}, {3.6446913168789997`*^9,
5657 3.644691405163*^9}, {3.644691695171*^9, 3.6446916955769997`*^9}, {
5658 3.64469184958*^9, 3.6446918595220003`*^9}, {3.644691903363*^9,
5659 3.644691921948*^9}, {3.644691979652*^9, 3.644692001033*^9}, {
5660 3.644692034852*^9, 3.644692100224*^9}, {3.6446921362019997`*^9,
5661 3.644692242724*^9}, {3.644692291986*^9, 3.644692322098*^9}, {
5662 3.644692392494*^9, 3.644692401828*^9}}],
5663
5664Cell[BoxData[
5665 GraphicsBox[{{}, {{},
5666 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
5667 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
56681:eJxdy7ENgkAYQOEXE6awMmEACkUQ1MPCARzBxNoFKG4dhyC5xr2AUEDen1wu
56693737D+/v67MD8unM9zLHwHaizEldplSXOavLVOpVyJ7/X78vhuWhVpe5qMs0
56706jKtusxVXeamLnNXlwlB1H85yXTal6OcZB7al6OcVo83JCD/
5671 "]]},
5672 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
5673 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
56741:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAalEWKc39M0Cen9iubOnCP3MT6ha/
5675fTRAiKuJi4Xewz981b0Esf00QBdNuqmr2cQ/hZeR8qJ9NUBmm2oJ39rFP45Z
5676ZeCU/TVAK5iaqh/ixj+XGznOhn02QAYqSo1t78c/oN0MvHj9NkBXXXmxyALJ
5677P6mf4KlqfTdAIDIoFzEcyj+yYbSXXP03QGmoVr6mO8s/uyOIhU59OEAnwASn
5678KWHMP8TlW3NA/ThAZnky0bmMzT/Npy9hMn05QCLU3zxXvs4/1mkDTyT9OUAn
5679vgzqAfbPP98r1zwWfTpA/rZc7NyZ0D/p7aoqCP06QMjMcoS/O9E/8q9+GPp8
5680O0C4vEi9qODRP/txUgbs/DtAaX3elpiI0j8ENCb03Xw8QLwZNBGPM9M/Dfb5
56814c/8PED5cEksjOHTPxa4zc/BfD1A3KMe6I+S1D8feqG9s/w9QH2ns0SaRtU/
5682KDx1q6V8PkDSewhCq/3VPzH+SJmX/D5A6CAd4MK31j86wByHiXw/QA6k8R7h
5683dNc/Q4LwdHv8P0BG3YX+BTXYPyYiYrE2PkBAjvTZfjH42D8rA0yoL35AQIzc
56847Z9jvtk/L+Q1nyi+QEBRlcFhnIfaPzTFH5Yh/kBAxx5VxNtT2z84pgmNGj5B
5685QP+IqMchI9w/PYfzgxN+QUDwo7trbvXcP0Fo3XoMvkFAkbCOsMHK3T9GScdx
5686Bf5BQA1sIZYbo94/SiqxaP49QkA1CXQcfH7fP08Lm1/3fUJAiDvDoXEu4D9T
56877IRW8L1CQEpkrIUon+A/WGIaCQ==
5688 "]]},
5689 {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
5690 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
56911:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAxdyJrDP3M0Cfm7MAkgTjP7Dopl37
5692djRAwbqTrAr74z+c9MMOw/Y0QB7Eu0mZ9+Q/hwDhv4p2NUAMtSvYPfrlP3IM
5693/nBS9jVAy5DjV/gC5z9eGBsiGnY2QItN48jIEeg/SSQ40+H1NkAf9Sorrybp
5694PzQwVYSpdTdA+4e6fqtB6j8gPHI1cfU3QO/6kcO9Yus/C0iP5jh1OEA4XbH5
56955YnsP/ZTrJcA9ThAKaMYISS37T/iX8lIyHQ5QEjMxzl46u4/zWvm+Y/0OUDd
5696ct8h8RHwP7h3A6tXdDpAK/F+H7Gx8D+kgyBcH/Q6QMxgwhV8VPE/j489Dedz
5697O0CPxqkEUvrxP3qbWr6u8ztAwCI17DKj8j9mp3dvdnM8QCpwZMweT/M/UbOU
5698ID7zPECDrjelFf7zPzy/sdEFcz1AVuaudhew9D8oy86CzfI9QBMPykAkZfU/
5699E9frM5VyPkCYK4kDPB32P/7iCOVc8j5ArDjsvl7Y9j/q7iWWJHI/QKQ883KM
5700lvc/1fpCR+zxP0BjNJ4fxVf4P2ADMPzZOEBAeSPtxAgc+T9Wib7UvXhAQDT/
570132JX4/k/Sw9NraG4QEAU1nb5sK36P0GV24WF+EBAC52xiBV7+z83G2peaThB
5702QMVTkBCFS/w/LKH4Nk14QUBNBhOR/x79PyInhw8xuEFAmKg5CoX1/T8YrRXo
5703FPhBQE06BHwVz/4/DTOkwPg3QkCHyHLmsKv/PwO5Mpncd0JAFaPCpKtFAED5
5704PsFxwLdCQGnZnVIEtwBAm2gYJw==
5705 "]]},
5706 {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
5707 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
57081:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAtbCSoDDsM0BeCDDCkJj1P7mOydex
5709azRAmdGJ93Kw9j++bAAPM+s0QEfK+FA+z/c/wko3RrRqNUAM8XzO8vT4P8co
5710bn016jVAjkcWcJAh+j/LBqW0tmk2QJfKxDUXVfs/0OTb6zfpNkDkeYgfh4/8
5711P9TCEiO5aDdA6VphLeDQ/T/ZoElaOug3QD5mT18iGf8/3X6AkbtnOEDKUana
5712JjQAQOJct8g85zhAeIW1FzHfAEDmOu7/vWY5QFNSzOavjQFA6xglNz/mOUD9
5713s+1Hoz8CQO/2W27AZTpAB68ZOwv1AkD01JKlQeU6QO8/UMDnrQNA+LLJ3MJk
5714O0DoZ5HXOGoEQP2QABRE5DtA6SbdgP4pBUABbzdLxWM8QPp8M7w47QVABk1u
5715gkbjPECjaJSJ57MGQAorpbnHYj1AOe7/6Ap+B0APCdzwSOI9QGkJdtqiSwhA
5716E+cSKMphPkARuvZdrxwJQBjFSV9L4T5ASQOCczDxCUAco4CWzGA/QETlFxsm
5717yQpAIYG3zU3gP0CfXLhUkKQLQJMvd4LnL0BAPWljIG+DDECVnhIeqG9AQIIQ
5718GX7CZQ1Alw2uuWivQEAETdltiksOQJp8SVUp70BAlx6k78Y0D0Cc6+Tw6S5B
5719QJLEvAG8EBBAnlqAjKpuQUBnxqzUzogQQKDJGyhrrkFAvRKi8JsCEUCjOLfD
5720K+5BQIGpnFUjfhFApadSX+wtQkDfjJwDZfsRQKcW7vqsbUJAv7uh+mB6EkCp
5721hYmWba1CQFk3rDoX+xJAZJMH/A==
5722 "]]},
5723 {RGBColor[0.528488, 0.470624, 0.701351], PointSize[
5724 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
57251:eJwBUQKu/SFib1JlAgAAACQAAAACAAAA9VpVIr/cM0CFy46NRXMDQNQWMYPd
5726WzRAHBEB6lhvBEC00gzk+9o0QAcxY6SlcQVAlI7oRBpaNUBtLbW8K3oGQHRK
5727xKU42TVAnAX3MuuIB0BTBqAGV1g2QJi5KAfknQhAM8J7Z3XXNkA8Sko5FrkJ
5728QBN+V8iTVjdA07RbyYHaCkDyOTMpstU3QB39XLcmAgxA0vUOitBUOEAxIE4D
5729BTANQLKx6uru0zhAEx8vrRxkDkCSbcZLDVM5QJ/4/7Rtng9AcSmirCvSOUB/
5730V2ANfG8QQFHlfQ1KUTpAk6A4790SEUAxoVluaNA6QIrXCIBcuRFAEV01z4ZP
5731O0Bi/NC/92ISQPAYETClzjtAzA+Rrq8PE0DQ1OyQw008QMIPSUyEvxNAsJDI
57328eHMPEBE/viYdXIUQI9MpFIATD1AbNuglIMoFUBvCICzHss9QLulQD+u4RVA
5733T8RbFD1KPkAiXdiY9Z0WQC+AN3VbyT5AMANooVldF0AOPBPWeUg/QAGY71ja
5734HxhA7vfuNpjHP0D+GG+/d+UYQOdZ5UtbI0BAtIjm1DGuGUDXN1N86mJAQE/m
5735VZkIehpAxxXBrHmiQEDRMb0M/EgbQLbzLt0I4kBAMWwcLwwbHECm0ZwNmCFB
5736QH2ScwA58BxAlq8KPidhQUCyqMKAgsgdQIaNeG62oEFArqoJsOijHkB2a+ae
5737ReBBQJ+bSI5rgh9AZklUz9QfQkA4vb+NBTIgQFYnwv9jX0JAkSPXq2OkIEBF
5738BTAw855CQOKAaiFQGCFA7wHykw==
5739 "]]},
5740 {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
5741 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
57421:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAWZvcSdjIM0A+6wd1aOkOQG5StUt3
5743RzRAOnvWHAM9EECECY5NFsY0QAByWiREChFAmcBmT7VENUAM2w9Rd9wRQK93
5744P1FUwzVAAbb2opyzEkDELhhT80E2QE4DDxq0jxNA2eXwVJLANkAZwli2vXAU
5745QO+cyVYxPzdAyfLTd7lWFUAEVKJY0L03QGeVgF6nQRZAGgt7Wm88OEBjqV5q
5746hzEXQC/CU1wOuzhAVjBum1kmGEBFeSxerTk5QBgor/EdIBlAWjAFYEy4OUDi
5747kiFt1B4aQG/n3WHrNjpAbG7FDX0iG0CFnrZjirU6QHi8mtMXKxxAmlWPZSk0
5748O0AKfaG+pDgdQLAMaGfIsjtAOa7ZziNLHkDFw0BpZzE8QPpRQwSVYh9A2noZ
5749awawPEDQM28vfD8gQPAx8mylLj1AmHdV7ybQIEAF6cpuRK09QFV01MFKYyFA
5750G6CjcOMrPkBrKuym5/ghQDBXfHKCqj5AqJicnv2QIkBGDlV0ISk/QEDA5aiM
5751KyNAW8UtdsCnP0DMoMfFlMgjQDg+A7wvE0BAwjpC9RVoJEDDme88f1JAQDqN
5752VTcQCiVATvXbvc6RQEAqmAGMg64lQNhQyD4e0UBABl1G829VJkBjrLS/bRBB
5753QFzaI23V/iZA7gehQL1PQUAdEJr5s6onQHhjjcEMj0FA4v+omAtZKEADv3lC
5754XM5BQISnUErcCSlAjhpmw6sNQkCmCJEOJr0pQBl2UkT7TEJAtSJq5ehyKkCj
57550T7FSoxCQGL2284kKytAEOrsCg==
5756 "]]},
5757 {RGBColor[0.363898, 0.618501, 0.782349], PointSize[
5758 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
57591:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAQKXfGHOwM0BJ9zo5DboWQC7Wfvl1
5760LjRAj6FJLJfgF0AcBx7aeKw0QHfuIuZmDhlACzi9unsqNUA13cZmfEMaQPlo
5761XJt+qDVAxm01rtd/G0Domft7gSY2QPWgbrx4wxxA1sqaXISkNkDcdnKRXw4e
5762QMT7OT2HIjdAi+5ALYxgH0CzLNkdiqA3QPYD7Uf/XCBAoV14/oweOEBJ4p5c
5763Ww0hQJCOF9+PnDhALhG2VFrBIUB+v7a/kho5QHyRMjD8eCJAbPBVoJWYOUDi
5764YhTvQDQjQFsh9YCYFjpAs4VbkSjzI0BJUpRhm5Q6QFf5BxeztSRAN4MzQp4S
5765O0AZvhmA4HslQCa00iKhkDtAm9OQzLBFJkAU5XEDpA48QJg6bfwjEydAAxYR
57665KaMPECs8q4POuQnQPFGsMSpCj1AQ/xVBvO4KEDfd0+lrIg9QDRWYuBOkSlA
5767zqjuha8GPkCgAdSdTW0qQLzZjWayhD5Alv6qPu9MK0CrCi1HtQI/QNVL58Iz
5768MCxAmTvMJ7iAP0CZ6ogqGxctQIdsawi7/j9A89qPdaUBLkC7ToX0Xj5AQIEb
5769/KPS7y5AMufUZGB9QEAers21ouEvQKl/JNVhvEBArkiC1YprMEAgGHRFY/tA
5770QOBi0MEV6DBAmLDDtWQ6QUBUJdEfcmYxQA9JEyZmeUFAnZCE75/mMUCG4WKW
5771Z7hBQHak6jCfaDJA/XmyBmn3QUApYQPkb+wyQHQSAndqNkJAH8bOCBJyM0Ds
5772qlHna3VCQFbTTJ+F+TNAE+f7xQ==
5773 "]]},
5774 {RGBColor[1, 0.75, 0], PointSize[0.0055000000000000005`],
5775 AbsoluteThickness[1.6], PointBox[CompressedData["
57761:eJwBUQKu/SFib1JlAgAAACQAAAACAAAA0KfrY4STM0DgU8Uc47YfQM9YnhnO
5777EDRA3OXp8fOoIEDNCVHPF440QD1WD1uJeyFAzLoDhWELNUB2+tLJMVMiQMtr
5778tjqriDVAvdI0Pu0vI0DKHGnw9AU2QBLfNLi7ESRAyc0bpj6DNkA3H9M3nfgk
5779QMd+zluIADdA5JMPvZHkJUDGL4ER0n03QGM86keZ1SZAxeAzxxv7N0DvGGPY
5780s8snQMSR5nxleDhAhCl6buHGKEDDQpkyr/U4QCpuLwoixylAwfNL6PhyOUDe
57815oKrdcwqQMCk/p1C8DlAoJN0UtzWK0C/VbFTjG06QG50BP9V5ixAvgZkCdbq
5782OkDviDKx4votQL23Fr8faDtA1tH+aIIUL0C7aMl0aeU7QJWnNJOaGTBAuhl8
5783KrNiPEAXALl0faswQLnKLuD83zxAnnIM2ek/MUC4e+GVRl09QCz/LsDf1jFA
5784tyyUS5DaPUCMpSAqX3AyQLXdRgHaVz5AX2bhFmgMM0C0jvm2I9U+QARBcYb6
5785qjNAsz+sbG1SP0CsNdB4Fkw0QLLwXiK3zz9AIET+7bvvNEDY0AhsgCZAQBZt
5786++XqlTVAWCniRiVlQECRr8dgoz42QNeBuyHKo0BAmAxjXuXpNkBW2pT8buJA
5787QKuDzd6wlzdA1jJu1xMhQUA0FAfiBUg4QFWLR7K4X0FAD78PaOT6OEDV4yCN
5788XZ5BQOyD53BMsDlAVDz6ZwLdQUDYYo78PWg6QNOU00KnG0JAxVsEC7kiO0BT
57897awdTFpCQLhuSZy93ztA/4cKNw==
5790 "]]},
5791 {RGBColor[0.647624, 0.37816, 0.614037], PointSize[0.0055000000000000005`],
5792 AbsoluteThickness[1.6], PointBox[CompressedData["
57931:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAxHxhtf5xM0CMkwjFb1IlQHy5UOBx
57947jNAQPilG8VmJkA19j8L5Wo0QNCxYyXtgSdA7TIvNljnNEAKwEHi56MoQKVv
5795HmHLYzVA7iJAUrXMKUBdrA2MPuA1QH3aXnVV/CpAFen8trFcNkC45p1LyDIs
5796QM0l7OEk2TZAmkf91A1wLUCFYtsMmFU3QG39fBEmtC5APZ/KNwvSN0ClBx0B
5797Ef8vQPXbuWJ+TjhARLPuUWeoMECuGKmN8co4QOQM33yvVDFAZlWYuGRHOUD+
5798kF8BYQQyQB6Sh+PXwzlAlj9w33u3MkDWznYOS0A6QFwYERcAbjNAjgtmOb68
5799OkB3G0Ko7Sc0QEZIVWQxOTtA50gDk0TlNED+hESPpLU7QK6gVNcEpjVAtsEz
5800uhcyPEDHIjZ1Lmo2QG7+IuWKrjxAN8+nbMExN0AnOxIQ/io9QMilqb29/DdA
580133cBO3GnPUDcpjtoI8s4QJe08GXkIz5ASdJdbPKcOUBP8d+QV6A+QA8oEMoq
5802cjpABy7Pu8ocP0AjqFKBzEo7QL9qvuY9mT9Aj1IlktcmPEC809aI2ApAQE4n
5803iPxLBj1AGHJOHhJJQEBjJnvAKek9QHQQxrNLh0BAyk/+3XDPPkDQrj1JhcVA
5804QIyjEVUhuT9ALE213r4DQUDSkNqSHVNAQIjrLHT4QUFABGX0J1/LQEDkiaQJ
5805MoBBQGdO1mlVRUFAQCgcn2u+QUDuTIBYAMFBQJzGkzSl/EFApWDy818+QkD4
5806ZAvK3jpCQKyJLDx0vUJAPtP6vA==
5807 "]]},
5808 {RGBColor[0.571589, 0.586483, 0.], PointSize[0.0055000000000000005`],
5809 AbsoluteThickness[1.6], PointBox[CompressedData["
58101:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAEfSLKdJLM0DaKUlVXOYrQMVzLwRR
5811xzNAEejXU/FPLUB489Lez0I0QARsluBzwi5ALHN2uU6+NEC2WsL98R4wQODy
5812GZTNOTVAJ2JR0iDhMECTcr1uTLU1QHxM+G3GpzFAR/JgScswNkBNGbfQ4nIy
5813QPpxBCRKrDZA/siN+nVCM0Cu8af+yCc3QJFbfOt/FjRAYnFL2UejN0Cc0IKj
5814AO80QBXx7rPGHjhAryihIvjLNUDJcJKORZo4QDZj12hmrTZAfPA1acQVOUDO
5815gCV2S5M3QDBw2UNDkTlAz4CLSqd9OEDk73wewgw6QLhjCeZ5bDlAl28g+UCI
5816OkBhKZ9Iw186QEvvw9O/AztAydFMcoNXO0D/bmeuPn87QO1cEmO6UzxAsu4K
5817ib36O0DVyu8aaFQ9QGZurmM8djxAdxvlmYxZPkAa7lE+u/E8QN5O8t8nYz9A
5818zW31GDptPUCAsov2nDhAQIHtmPO46D1A8C6qYOHBQEA0bTzON2Q+QMKcVC5h
5819TUFA6OzfqLbfPkDx+4pfHNtBQJxsg4M1Wz9Af0xN9BJrQkBP7CZetNY/QJCO
5820m+xE/UJAATZlnBkpQEDfwXVIspFDQNv1tgnZZkBAjubbB1soREC1tQh3mKRA
5821QHn8zSo/wURAj3Va5FfiQEDlA0yxXlxFQGk1rFEXIEFArvxVm7n5RUBC9f2+
58221l1BQAbn6+hPmUZAHLVPLJabQUCRwg2aITtHQPZ0oZlV2UFAUo+7ri7fR0DQ
5823NPMGFRdCQMhN9SZ3hUhAQpMKUA==
5824 "]]},
5825 {RGBColor[0.915, 0.3325, 0.2125], PointSize[0.0055000000000000005`],
5826 AbsoluteThickness[1.6], PointBox[CompressedData["
58271:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAptjdQuwgM0CG9KHIZ+IxQKqXVpFY
5828mzNAOR3z6i/KMkCuVs/fxBU0QKzLPCSxtzNAshVILjGQNEDb/35066o0QLbU
5829wHydCjVAzLm5296jNUC6kznLCYU1QH357FmLojZAvlKyGXb/NUDqvhjv8KY3
5830QMMRK2jieTZA8gk9mw+xOEDH0KO2TvQ2QADbWV7nwDlAy48cBbtuN0CqMW84
5831eNY6QM9OlVMn6TdAEw59KcLxO0DTDQ6ik2M4QDxwgzHFEj1A18yG8P/dOEBM
5832WIJQgTk+QNuL/z5sWDlAycV5hvZlP0DgSniN2NI5QH/ctGkSTEBA5Anx20RN
5833OkAlGakbBuhAQOjIaSqxxzpAmJgZWdaGQUDsh+J4HUI7QOdaBiKDKEJA8EZb
5834x4m8O0AYYG92DM1CQPQF1BX2NjxAKahUVnJ0Q0D4xExkYrE8QBgztsG0HkRA
5835/YPFss4rPUDkAJS408tEQAFDPgE7pj1AkhHuOs97RUAFArdPpyA+QCRlxEin
5836LkZACcEvnhObPkCM+xbiW+RGQA2AqOx/FT9A2dTlBu2cR0ARPyE77I8/QAfx
5837MLdaWEhAC//MRCwFQEAOUPjypBZJQI1eCWxiQkBA+vE7usvXSUAPvkWTmH9A
5838QMbW+wzPm0pAkR2Cus68QEBx/jfrrmJLQBN9vuEE+kBA92jwVGssTECV3PoI
5839OzdBQGIWJUoE+UxAFzw3MHF0QUCqBtbKechNQJmbc1ensUFAzTkD18uaTkAb
5840+69+3e5BQNevrG76b09AzJ0F5Q==
5841 "]]},
5842 {RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], PointSize[
5843 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
58441:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAqGsltTfxMkDceLuVcZM2QCZbRrNy
5845ajNAdB/VLAe4N0CkSmexreMzQFq69S/W4zhAIjqIr+hcNEB0SR2f3hY6QKAp
5846qa0j1jRA+cxLeiBRO0AeGcqrXk81QO9EgcGbkjxAmwjrqZnINUAbsb10UNs9
5847QBn4C6jUQTZAkhEBlD4rP0CX5yymD7s2QCyzpQ8zQUBAFddNpEo0N0C1V06L
5848Y/BAQJPGbqKFrTdAU3b6vDCjQUAQto+gwCY4QEYPqqSaWUJAjqWwnvufOEBJ
5849Il1CoRNDQAyV0Zw2GTlAca8TlkTRQ0CKhPKacZI5QMO2zZ+EkkRACHQTmawL
5850OkAlOItfYVdFQIZjNJfnhDpA3TNM1dofRkADU1WVIv46QKmpEAHx60ZAgUJ2
5851k113O0CZmdjio7tHQP8xl5GY8DtAlwOkevOOSEB9IbiP02k8QNrncsjfZUlA
5852+xDZjQ7jPEBdRkXMaEBKQHgA+otJXD1A7h4bho4eS0D27xqKhNU9QKhx9PVQ
5853AExAdN87iL9OPkCHPtEbsOVMQPLOXIb6xz5AjIWx96vOTUBwvn2ENUE/QJxG
5854lYlEu05A7a2egnC6P0AYgnzReatPQLbOX8DVGUBAuJuz56VPUEB1RnA/c1ZA
5855QIqzqkFdy1BAM76AvhCTQECHiKP24khRQPI1kT2uz0BAghqeBjfIUUCxraG8
5856SwxBQJNpmnFZSVJAcCWyO+lIQUC1dZg3SsxSQC+dwrqGhUFA7D6YWAlRU0Du
5857FNM5JMJBQDbFmdSW11NAYQ4DOw==
5858 "]]},
5859 {RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142],
5860 PointSize[0.0055000000000000005`], AbsoluteThickness[1.6],
5861 PointBox[CompressedData["
58621:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAn6ExJpy8MkB1PY7LGSo8QEPf8nOG
5863NDNAxet1sxyXPUDnHLTBcKwzQI3w0dYiDT9Ai1p1D1skNEDpJdEaFkZAQC+Y
5864Nl1FnDRAx37zZxwKQUDT1feqLxQ1QOIC0FKk0kFAdxO5+BmMNUA8smbbrZ9C
5865QBtRekYEBDZA04y3ATlxQ0C/jjuU7ns2QKaSwsVFR0RAY8z84djzNkC1w4cn
58661CFFQAcKvi/DazdAAiAHJ+QARkCrR399reM3QIunQMR15EZAT4VAy5dbOEBR
5867WjT/iMxHQPPCARmC0zhAVzji1x25SECXAMNmbEs5QJpBSk40qklAOz6EtFbD
5868OUAWdmxizJ9KQN97RQJBOzpAz9VIFOaZS0CDuQZQK7M6QM1g32OBmExAJ/fH
5869nRUrO0AAFzBRnptNQMs0iev/ojtAc/g63DyjTkBvcko56ho8QCIFAAVdr09A
5870E7ALh9SSPECFnr9l/19QQLftzNS+Cj1AGlDcF5HqUEBbK44iqYI9QFAX1phj
5871d1FA/2hPcJP6PUAg9KzodgZSQKOmEL59cj5AkeZgB8uXUkBH5NELaOo+QJ/u
58728fRfK1NA6yGTWVJiP0A6DGCxNcFTQI9fVKc82j9Alz+rPExZVECZzop6EylA
5873QIWI05aj81RAa21roQhlQEAM59i/O5BVQD0MTMj9oEBASVu7txQvVkAPqyzv
58748txAQA/len4u0FZA4UkNFugYQUBdhBcUiXNXQLPo7TzdVEFAYzmReCQZWECF
5875h85j0pBBQAQE6KsAwVhABcL4sQ==
5876 "]]},
5877 {RGBColor[0.736782672705901, 0.358, 0.5030266573755369], PointSize[
5878 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
58791:eJwBUQKu/SFib1JlAgAAACQAAAACAAAA9HD+4f2CMkA/SgWouGlBQMczC253
5880+TJACpl8uWRLQkCZ9hf68G8zQK6Xe0OjMkNAbLkkhmrmM0AHRgJGdB9EQD98
5881MRLkXDRAJaQQwdcRRUASPz6eXdM0QPixprTNCUZA5QFLKtdJNUCzb8QgVgdH
5882QLjEV7ZQwDVAEN1pBXEKSECLh2RCyjY2QEj6lmIeE0lAXkpxzkOtNkBUx0s4
5883XiFKQDENflq9IzdAAUSIhjA1S0AD0IrmNpo3QKNwTE2VTkxA1pKXcrAQOEDs
5884TJiMjG1NQKlVpP4phzhA6thrRBaSTkB8GLGKo/04QN0Ux3QyvE9AT9u9Fh10
5885OUA7ANWO8HVQQCKeyqKW6jlA702KH5EQUUD1YNcuEGE6QINzg+z6rVFAyCPk
5886uonXOkDvcMD1LU5SQJvm8EYDTjtARkZBOyrxUkBtqf3SfMQ7QJjzBb3vllNA
5887QGwKX/Y6PEC4eA57fj9UQBMvF+tvsTxAvNVaddbqVEDm8SN36Sc9QKMK66v3
5888mFVAubQwA2OePUBrF78e4klWQIx3PY/cFD5ABvzWzZX9VkBfOkobVos+QJW4
5889MrkStFdAMv1Wp88BP0AbTdLgWG1YQAXAYzNJeD9AcLm1RGgpWUDXgnC/wu4/
5890QKr93ORA6FlA1aK+JZ4yQEDHGUjB4qlaQD8ExevabUBArQ332U1uW0CoZcux
5891F6lAQKPZ6S6CNVxAEsfRd1TkQEBSfSDAf/9cQHso2D2RH0FAD/majUbMXUDk
5892id4DzlpBQJ1MWZfWm15AB3v/4w==
5893 "]]},
5894 {RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], PointSize[
5895 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
58961:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAeof5fz1EMkD/B5AUP2RFQBBe+W8l
5897uTJAiPbXO3t5RkCmNPlfDS4zQGX0OsmPlUdAPQv5T/WiM0COAbm8fLhIQNPh
5898+D/dFzRAJR5SFkLiSUBpuPgvxYw0QCBKBtbfEktAAI/4H60BNUBwhdX7VUpM
5899QJZl+A+VdjVAKdC/h6SITUAsPPj/fOs1QDwqxXnLzU5AwhL472RgNkDgyfJo
59005QxQQFjp999M1TZAPoYQSFG2UEDvv/fPNEo3QFXKO1opY1FAhZb3vxy/N0Aq
5901lnSfbRNSQBtt968ENDhAlOm6Fx7HUkCyQ/ef7Kg4QLjEDsM6flNASBr3j9Qd
5902OUCNJ3ChwzhUQN7w9n+8kjlAEhLfsrj2VEB0x/ZvpAc6QFaEW/cZuFVACp72
5903X4x8OkA5fuVu53xWQKF09k908TpAuv98GSFFV0A3S/Y/XGY7QP4IIvfGEFhA
5904zSH2L0TbO0DvmdQH2d9YQGT49R8sUDxAjLKUS1eyWUD6zvUPFMU8QN9SYsJB
5905iFpAkKX1//s5PUDfej1smGFbQCZ89e/jrj1AnyomSVs+XEC8UvXfyyM+QABi
5906HFmKHl1AUyn1z7OYPkD0ICCcJQJeQOn/9L+bDT9AyGcxEi3pXkB/1vSvg4I/
5907QDg2ULug019AFq30n2v3P0AeRr5LwGBgQNZB+scpNkBAAzVbU2bZYEAhLfq/
5908nXBAQMvnfnTCU2FAbBj6txGrQEBjXimv1M9hQLcD+q+F5UBAzZhaA51NYkAC
59097/mn+R9BQBSXEnEbzWJAezwKFg==
5910 "]]},
5911 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
5912 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
59131:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAPXFFdjcAMkDibSmj8ihKQBKUbQxs
5914czJAv6+zFPt7S0DntpWioOYyQCq3NIxi10xAvNm9ONVZM0AwhKwJKTtOQJD8
59155c4JzTNA3RYbjU6nT0BlHw5lPkA0QIk3QIvpjVBAOkI2+3KzNEBhRu5SW0xR
5916QA9lXpGnJjVACbiXnfwOUkDjh4Yn3Jk1QI+MPGvN1VJAuKquvRANNkDMw9y7
5917zaBTQI3N1lNFgDZAyV14j/1vVEBh8P7pefM2QK5aD+ZcQ1VANhMngK5mN0BI
5918uqG/6xpWQAs2Txbj2TdAo3wvHKr2VkDgWHesF004QNWhuPuX1ldAtHufQkzA
5919OEDdKT1etbpYQImex9iAMzlAohS9QwKjWUBewe9utaY5QDNiOKx+j1pAM+QX
5920BeoZOkB6Eq+XKoBbQAcHQJsejTpAriUhBgZ1XEDcKWgxUwA7QJ2bjvcQbl1A
5921sUyQx4dzO0A+dPdrS2teQIZvuF285jtAva9bY7VsX0BakuDz8Fk8QBCn3W4n
5922OWBAL7UIiiXNPECaJ4vtC75gQATYMCBaQD1Af1m2LQhFYUDY+li2jrM9QNw8
5923Xy8czmFArR2BTMMmPkCX0YXyR1liQIJAqeL3mT5AqRcqd4vmYkBXY9F4LA0/
5924QC0PTL3mdWNAK4b5DmGAP0AiuOvEWQdkQACpIaWV8z9AaxIJjuSaZEDq5aQd
5925ZTNAQCEepBiHMGVAVfe4aP9sQEAq27xkQchlQL8IzbOZpkBAsUlTchNiZkAq
5926GuH+M+BAQIJpZ0H9/WZAR2n7uQ==
5927 "]]},
5928 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
5929 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
59301:eJwBUQKu/SFib1JlAgAAACQAAAACAAAALBwAl8O2MUBFY+I7eeZPQOAcYBQi
5931KDJAVzSeXfPBUECUHcCRgJkyQM0dDcDElVFASR4gD98KM0AA7j3FsG5SQP0e
5932gIw9fDNAAqUwbbdMU0CxH+AJnO0zQNxC5bfYL1RAZiBAh/peNEBlx1ulFBhV
5933QBohoARZ0DRAxTKUNWsFVkDOIQCCt0E1QPaEjmjc91ZAgyJg/xWzNUDUvUo+
5934aO9XQDcjwHx0JDZAjd3Itg7sWEDrIyD60pU2QBrkCNLP7VlAnySAdzEHN0Bh
59350QqQq/RaQFQl4PSPeDdAYKXO8KEAXEAIJkBy7uk3QDVgVPSyEV1AvCag70xb
5936OEDkAZya3ideQHEnAG2rzDhAPoql4yRDX0AlKGDqCT45QLZ8uOfCMWBA2SjA
5937Z2ivOUCzJ/+ugMRgQI4pIOXGIDpAEcamx8tZYUBCKoBiJZI6QNlXrzGk8WFA
59389irg34MDO0D+3BjtCYxiQKorQF3idDtAklXj+fwoY0BfLKDaQOY7QIXBDlh9
5939yGNAEy0AWJ9XPEDRIJsHi2pkQMctYNX9yDxAk3OICCYPZUB8LsBSXDo9QKa5
59401lpOtmVAMC8g0LqrPUAm84X+A2BmQOQvgE0ZHT5ACyCW80YMZ0CYMODKd44+
5941QGFABzoXu2dATTFASNb/PkD/U9nRdGxoQAEyoMU0cT9AElsMu18gaUC1MgBD
5942k+I/QJRVoPXX1mlAtRkw4PgpQEBeQ5WB3Y9qQA8a4B6oYkBAniTrXnBLa0Bp
5943GpBdV5tAQE/5oY2QCWxAX1j3Qw==
5944 "]]},
5945 {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
5946 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
59471:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAWQVmcrRnMUCEXOnjpWxTQOIrQvUY
59481zFArdCRaGNoVEBqUh54fUYyQONwjSxYalVA83j6+uG1MkAAPdwvhHJWQHyf
59491n1GJTNABTV+cueAV0AExrIAq5QzQBhZc/SBlVhAjeyOgw8ENEAIqbu1U7BZ
5950QBUTawZ0czRAAyVXtlzRWkCeOUeJ2OI0QOfMRfac+FtAJ2AjDD1SNUCyoId1
5951FCZdQK+G/46hwTVAgqAcNMNZXkA4rdsRBjE2QEbMBDKpk19AwNO3lGqgNkAG
5952EqA342lgQEn6kxfPDzdA3VPndQ0NYUDSIHCaM383QKQr2FNTs2FAWkdMHZju
5953N0B1mXLRtFxiQONtKKD8XThAO5227jEJY0BslAQjYc04QPE2pKvKuGNA9Lrg
5954pcU8OUCqZjsIf2tkQH3hvCgqrDlAXix8BE8hZUAGCJmrjhs6QAyIZqA62mVA
5955ji51LvOKOkC4efrbQZZmQBdVUbFX+jpAVwE4t2RVZ0Cfey00vGk7QP8eHzKj
5956F2hAKKIJtyDZO0CU0q9M/dxoQLHI5TmFSDxAGRzqBnOlaUA578G86bc8QLX7
5957zWAEcWpAwhWeP04nPUA5cVtasT9rQEo8esKylj1AunyS83kRbEDTYlZFFwY+
5958QDUecyxe5mxAXIkyyHt1PkCfVf0EXr5tQOSvDkvg5D5AHCMxfXmZbkBt1urN
5959RFQ/QIeGDpWwd29A9vzGUKnDP0Dvv0qmgSxwQL+R0emGGUBAowfj0biecEAD
5960pT8rOVFAQFMaUM19EnFAQwf5Kw==
5961 "]]},
5962 {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
5963 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
59641:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAT1IXl9YSMUB2APqDUqhXQJHnd/Qb
5965gDFAHxnwc+zaWEDTfNhRYe0xQK780mkYFVpAFRI5r6ZaMkAQq6Jl1lZbQFen
5966mQzsxzJAZSRfZyagXECZPPppMTUzQJdoCG8I8V1A29Fax3aiM0Cod558fElf
5967QB1nuyS8DzRAzqgQSMFUYEBe/BuCAX00QEB7yFSNCGFAoJF830bqNEAas3Zk
5968IsBhQOIm3TyMVzVAX1Abd4B7YkAkvD2a0cQ1QBtTtoynOmNAZlGe9xYyNkBO
5969u0ell/1jQKjm/lRcnzZA54jPwFDEZEDqe1+yoQw3QPK7Td/SjmVALBHAD+d5
5970N0BxVMIAHl1mQG6mIG0s5zdAY1ItJTIvZ0CwO4HKcVQ4QMK1jkwPBWhA8tDh
5971J7fBOECefuZ2td5oQDRmQoX8LjlA3aw0pCS8aUB2+6LiQZw5QIhAedRcnWpA
5972uJADQIcJOkC1ObQHXoJrQPolZJ3MdjpAO5jlPShrbEA8u8T6EeQ6QENcDXe7
5973V21AflAlWFdRO0C4hSuzF0huQMDlhbWcvjtAnxRA8jw8b0ACe+YS4is8QHqE
5974JZoVGnBARBBHcCeZPEBeMaY88ZdwQIalp81sBj1A+RCiYLEXcUDIOggrsnM9
5975QE4jGQZWmXFACtBoiPfgPUBcaAst3xxyQExlyeU8Tj5AGOB41UyickCO+ilD
5976grs+QJ6KYf+eKXNA0I+KoMcoP0DUZ8Wq1bJzQBIl6/0Mlj9Awnek1/A9dEAq
59773aUtqQFAQGm6/oXwynRAwJf82g==
5978 "]]},
5979 {RGBColor[0.528488, 0.470624, 0.701351], PointSize[
5980 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
59811:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAJKabp++3MECK/R7wyNpcQEuK/z7v
5982IjFAhx6jq71QXkBybmPW7o0xQJnOkizuz19AmlLHbe74MUDOBnc5LaxgQME2
5983KwXuYzJA3W1aPwF1YUDoGo+c7c4yQHGc8ydzQmJAEP/yM+05M0CFkkLzghRj
5984QDfjVsvspDNAI1BHoTDrY0Bex7pi7A80QErVATJ8xmRAhqse+ut6NEDnIXKl
5985ZaZlQK2PgpHr5TRAEDaY++yKZkDUc+Yo61A1QMoRdDQSdGdA+1dKwOq7NUD7
5986tAVQ1WFoQCM8rlfqJjZArR9NTjZUaUBKIBLv6ZE2QPFRSi81S2pAcQR2hun8
5987NkCsS/3y0UZrQJno2R3pZzdA7wxmmQxHbEDAzD216NI3QLmVhCLlS21A57Ch
5988TOg9OEAM5liOW1VuQA+VBeTnqDhA1P3i3G9jb0A2eWl75xM5QJ1uEQcRO3BA
5989XV3NEud+OUAMQgwRucZwQIRBMarm6TlAOvlhDLBUcUCsJZVB5lQ6QC+UEvn1
59905HFA0wn52OW/OkDlEh7XindyQPrtXHDlKjtAX3WEpm4Mc0Ai0sAH5ZU7QJi7
5991RWeho3NASbYkn+QAPECX5WEZIz10QHCaiDbkazxAVvPYvPPYdECXfuzN49Y8
5992QNrkqlETd3VAv2JQZeNBPUAbutfXgRd2QOZGtPzirD1AI3NfTz+6dkANKxiU
59934hc+QO4PQrhLX3dANQ98K+KCPkBvkH8SpwZ4QFzz38Lh7T5Aw/QXXlGweECD
599410Na4Vg/QNc8C5tKXHlAnocM8g==
5995 "]]},
5996 {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
5997 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
59981:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAudZCOb1WMEDIiLPCTqVhQLG1F8FO
5999vzBAwqlbEf+JYkCplOxI4CcxQEqy2+lUdGNAoXPB0HGQMUBaojNMUGRkQJhS
6000llgD+TFA/nljOPFZZUCQMWvglGEyQBo5a643VWZAiBBAaCbKMkDD30quI1Zn
6001QIDvFPC3MjNA720COLVcaEB4zul3SZszQK7jkUvsaGlAcK2+/9oDNEDmQPno
6002yHpqQGeMk4dsbDRAuYU4EEuSa0Bfa2gP/tQ0QAmyT8Fyr2xAV0o9l489NUDY
6003xT78P9JtQE8pEh8hpjVANcEFwbL6bkBHCOemsg42QBRS0odlFHBAP+e7LkR3
6004NkBKtw10RK5wQDbGkLbV3zZASRA1JfZKcUAupWU+Z0g3QAJdSJt66nFAJoQ6
6005xviwN0CKnUfW0YxyQB5jD06KGThAztEy1vsxc0AWQuTVG4I4QOD5CZv42XNA
6006DiG5Xa3qOECsFc0kyIR0QAUAjuU+UzlAQiV8c2oydUD93mJt0Ls5QJsoF4ff
60074nVA9b039WEkOkC1H55fJ5Z2QO2cDH3zjDpAlgoR/UFMd0Dle+EEhfU6QDjp
6008b18vBXhA3Fq2jBZeO0Cgu7qG78B4QNQ5ixSoxjtAzYHxcoJ/eUDMGGCcOS88
6009QL07FCToQHpAxPc0JMuXPEBw6SKaIAV7QLzWCaxcAD1A6Iod1SvMe0C0td4z
60107mg9QCQgBNUJlnxAq5Szu3/RPUAkqdaZumJ9QKNziEMROj5A5CWVIz4yfkCb
6011Ul3LoqI+QGeWP3KUBH9ARW4B0A==
6012 "]]},
6013 {RGBColor[0.363898, 0.618501, 0.782349], PointSize[
6014 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
60151:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAQ9qO2ObdL0Bc2DZ1CqxlQNzPYrXs
6016VDBA8Ws6EenEZkCWMn7+5bowQLeqvwy35GdAUZWZR98gMUCWlMZndAtpQAv4
6017tJDYhjFAoilPIiE5akDGWtDZ0ewxQNNpWTy9bWtAgL3rIstSMkAvVeW1SKls
6018QDsgB2zEuDJArOvyjsPrbUD1giK1vR4zQFItgsctNW9Ar+U9/raEM0ASjcmv
6019w0JwQGpIWUew6jNACNmSK2jucEAkq3SQqVA0QJn6HFeEnXFA3w2Q2aK2NEC0
60208WcyGFByQJlwqyKcHDVAZ75zvSMGc0BU08ZrlYI1QKxgQPimv3NADjbitI7o
6021NUCG2M3ioXx0QMiY/f2HTjZA9SUcfRQ9dUCD+xhHgbQ2QPNIK8f+AHZAPV40
6022kHoaN0COQfvAYMh2QPjAT9lzgDdArg+MajqTd0CyI2sibeY3QGqz3cOLYXhA
6023bYaGa2ZMOEC0LPDMVDN5QCfpobRfsjhAlHvDhZUIekDiS739WBg5QAmgV+5N
60244XpAnK7YRlJ+OUAOmqwGfr17QFYR9I9L5DlAtGnCziWdfEARdA/ZREo6QNcO
6025mUZFgH1Ay9YqIj6wOkCaiTBu3GZ+QIY5Rms3FjtA6NmIRetQf0BAnGG0MHw7
6026QO7/UOY4H4BA+/58/SniO0Ci/b0BuJeAQLVhmEYjSDxALGYL9fIRgUBwxLOP
6027HK48QHk5OcDpjYFAKifP2BUUPUCZd0djnAuCQOSJ6iEPej1AgSA23gqLgkCf
60287AVrCOA9QCg0BTE1DINAdukItw==
6029 "]]},
6030 {RGBColor[1, 0.75, 0], PointSize[0.0055000000000000005`],
6031 AbsoluteThickness[1.6], PointBox[CompressedData["
60321:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAMuQPTnYAL0DDzEv1WsRqQLMWnanf
6033xi9Ab1uie0EfbECaJJWCpEYwQN4/68K4gm1A271bMNmpMEDneSbLwO5uQBxX
6034It4NDTFA1AQqyqwxcEBc8OiLQnAxQJP3OY9B8HBAnYmvOXfTMUAoFcO0HrNx
6035QN0iduerNjJAm13FOkR6ckAevDyV4JkyQN/QQCGyRXNAX1UDQxX9MkD9bjVo
6036aBV0QJ/uyfBJYDNA/jejD2fpdEDgh5CefsMzQMoriheuwXVAICFXTLMmNEB9
6037Sup/PZ52QGG6HfrniTRA/5PDSBV/d0CiU+SnHO00QFkIFnI1ZHhA4uyqVVFQ
6038NUCVp+H7nU15QCOGcQOGszVApXEm5k47ekBkHzixuhY2QIlm5DBILXtApLj+
6039Xu95NkBRhhvciSN8QOVRxQwk3TZA5dDL5xMefUAm64u6WEA3QFtG9VPmHH5A
6040ZoRSaI2jN0Cn5pcgASB/QKcdGRbCBjhA5tjZJrITgEDntt/D9mk4QOxTpO2H
6041mYBAKFCmcSvNOEBTZKvkgSGBQGnpbB9gMDlALArvC6CrgUCpgjPNlJM5QHZF
6042b2PiN4JA6hv6esn2OUAnFizrSMaCQCq1wCj+WTpAR3wlo9NWg0BrTofWMr06
6043QM53W4uC6YNArOdNhGcgO0DECM6jVX6EQOyAFDKcgztALy997EwVhUAtGtvf
60440OY7QPjqaGVoroVAbrOhjQVKPEA1PJEOqEmGQK5MaDs6rTxA4CL25wvnhkDv
60455S7pbhA9QPeel/GThodA1XcG1A==
6046 "]]}, {}}, {}},
6047 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
6048 Axes->{True, True},
6049 AxesLabel->{
6050 FormBox["\"r\"", TraditionalForm],
6051 FormBox[
6052 "\"\\!\\(\\*SubscriptBox[\\(P\\), \\(ram\\)]\\)\"", TraditionalForm]},
6053 AxesOrigin->{15.15716669803249, 0},
6054 DisplayFunction->Identity,
6055 Epilog->{
6056 Directive[{
6057 Thickness[Large],
6058 RGBColor[1, 0, 0]}],
6059 LineBox[{{15, 500}, {35, 500}}]},
6060 Frame->{{False, False}, {False, False}},
6061 FrameLabel->{{None, None}, {None, None}},
6062 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
6063 GridLines->{None, None},
6064 GridLinesStyle->Directive[
6065 GrayLevel[0.5, 0.4]],
6066 Method->{},
6067 PlotRange->{{15.500902594985835`, 37.5}, {-5.722487713541126*^-14,
6068 752.8222381444347}},
6069 PlotRangeClipping->True,
6070 PlotRangePadding->{{
6071 Scaled[0.02],
6072 Scaled[0.02]}, {
6073 Scaled[0.05],
6074 Scaled[0.05]}},
6075 Ticks->{Automatic, Automatic}]], "Output",
6076 CellChangeTimes->{{3.644691985045*^9, 3.644691996458*^9},
6077 3.6446920526219997`*^9, {3.644692085567*^9, 3.644692101814*^9}, {
6078 3.6446922194049997`*^9, 3.644692244024*^9}, {3.6446923064189997`*^9,
6079 3.6446923236549997`*^9}, {3.644692394492*^9, 3.6446924032390003`*^9},
6080 3.64475340384*^9}]
6081}, Open ]],
6082
6083Cell[CellGroupData[{
6084
6085Cell[BoxData[
6086 RowBox[{"ListPlot", "[",
6087 RowBox[{
6088 RowBox[{"Table", "[",
6089 RowBox[{
6090 RowBox[{"Transpose", "[",
6091 RowBox[{"{",
6092 RowBox[{
6093 RowBox[{"Table", "[",
6094 RowBox[{
6095 RowBox[{"r0CF", "*",
6096 SuperscriptBox[
6097 RowBox[{"(",
6098 RowBox[{"Cos", "[",
6099 RowBox[{"\[Xi]", "/.",
6100 RowBox[{"First", "[",
6101 RowBox[{"FindRoot", "[",
6102 RowBox[{
6103 RowBox[{"\[Xi]", "+",
6104 RowBox[{
6105 FractionBox["1", "2"],
6106 RowBox[{"Sin", "[",
6107 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
6108 RowBox[{"kCF", "*", "tCF"}]}], ",", " ",
6109 RowBox[{"{",
6110 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
6111 "]"}], ")"}], "2"]}], ",",
6112 RowBox[{"{",
6113 RowBox[{"r0CF", ",", "rCF1", ",", "rCF2", ",", " ", "rCFstep"}],
6114 "}"}]}], "]"}], ",",
6115 RowBox[{"Table", "[",
6116 RowBox[{
6117 RowBox[{
6118 RowBox[{"(",
6119 RowBox[{
6120 RowBox[{"(",
6121 RowBox[{
6122 RowBox[{"(",
6123 RowBox[{"4", "/", "3"}], ")"}], "*", "\[Pi]", "*",
6124 SuperscriptBox[
6125 RowBox[{"(", "r0CF", ")"}], "3"], "*", "\[Rho]0"}], ")"}],
6126 "/",
6127 RowBox[{"(",
6128 RowBox[{
6129 FractionBox["4", "3"], "\[Pi]",
6130 SuperscriptBox[
6131 RowBox[{"(",
6132 RowBox[{"r0CF", "*",
6133 SuperscriptBox[
6134 RowBox[{"(",
6135 RowBox[{"Cos", "[",
6136 RowBox[{"\[Xi]", "/.",
6137 RowBox[{"First", "[",
6138 RowBox[{"FindRoot", "[",
6139 RowBox[{
6140 RowBox[{"\[Xi]", "+",
6141 RowBox[{
6142 FractionBox["1", "2"],
6143 RowBox[{"Sin", "[",
6144 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
6145 RowBox[{"kCF", "*", "tCF"}]}], ",", " ",
6146 RowBox[{"{",
6147 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
6148 "]"}], ")"}], "2"]}], ")"}], "3"]}], ")"}]}], ")"}], "*",
6149 SuperscriptBox[
6150 RowBox[{"(",
6151 RowBox[{"-",
6152 SqrtBox[
6153 RowBox[{
6154 FractionBox[
6155 RowBox[{"8", "\[Pi]"}], "3"], "GCF", "*", "\[Rho]0CF", "*",
6156 SuperscriptBox["r0CF", "2"],
6157 RowBox[{"(",
6158 RowBox[{
6159 FractionBox["r0CF",
6160 RowBox[{"r0CF", "*",
6161 SuperscriptBox[
6162 RowBox[{"(",
6163 RowBox[{"Cos", "[",
6164 RowBox[{"\[Xi]", "/.",
6165 RowBox[{"First", "[",
6166 RowBox[{"FindRoot", "[",
6167 RowBox[{
6168 RowBox[{"\[Xi]", "+",
6169 RowBox[{
6170 FractionBox["1", "2"],
6171 RowBox[{"Sin", "[",
6172 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
6173 RowBox[{"kCF", "*", "tCF"}]}], ",", " ",
6174 RowBox[{"{",
6175 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
6176 "]"}], ")"}], "2"]}]], "-", "1"}], ")"}]}]]}], ")"}],
6177 "2"]}], ",",
6178 RowBox[{"{",
6179 RowBox[{
6180 "r0CF", ",", " ", "rCF1", ",", " ", "rCF2", ",", " ", "rCFstep"}],
6181 "}"}]}], "]"}]}], " ", "}"}], "]"}], ",", " ",
6182 RowBox[{"{",
6183 RowBox[{
6184 "tCF", ",", " ", "tCF1", ",", " ", "tCF2", ",", " ", "tCFstep"}],
6185 "}"}]}], "]"}], ",", " ",
6186 RowBox[{"AxesLabel", "\[Rule]",
6187 RowBox[{"{",
6188 RowBox[{
6189 "\"\<r\>\"", ",", " ", "\"\<\!\(\*SubscriptBox[\(P\), \(ram\)]\)\>\""}],
6190 "}"}]}], ",", " ",
6191 RowBox[{"Epilog", "\[Rule]",
6192 RowBox[{"{",
6193 RowBox[{
6194 RowBox[{"Directive", "[",
6195 RowBox[{"{",
6196 RowBox[{"Thick", ",", " ", "Red"}], "}"}], "]"}], ",", " ",
6197 RowBox[{"Line", "[",
6198 RowBox[{"{",
6199 RowBox[{
6200 RowBox[{"{",
6201 RowBox[{"15", ",", " ", "27653"}], "}"}], ",",
6202 RowBox[{"{",
6203 RowBox[{"35", ",", " ", "27653"}], "}"}]}], "}"}], "]"}]}], "}"}]}],
6204 ",",
6205 RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input"],
6206
6207Cell[BoxData[
6208 GraphicsBox[{{}, {{},
6209 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
6210 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
62111:eJxdy7ENgkAYQOEXE6awMmEACkUQ1MPCARzBxNoFKG4dhyC5xr2AUEDen1wu
62123737D+/v67MD8unM9zLHwHaizEldplSXOavLVOpVyJ7/X78vhuWhVpe5qMs0
62136jKtusxVXeamLnNXlwlB1H85yXTal6OcZB7al6OcVo83JCD/
6214 "]]},
6215 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
6216 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
62171:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAalEWKc39M0Cen9iubOnCP3MT6ha/
6218fTRAiKuJi4Xewz981b0Esf00QBdNuqmr2cQ/hZeR8qJ9NUBmm2oJ39rFP45Z
6219ZeCU/TVAK5iaqh/ixj+XGznOhn02QAYqSo1t78c/oN0MvHj9NkBXXXmxyALJ
6220P6mf4KlqfTdAIDIoFzEcyj+yYbSXXP03QGmoVr6mO8s/uyOIhU59OEAnwASn
6221KWHMP8TlW3NA/ThAZnky0bmMzT/Npy9hMn05QCLU3zxXvs4/1mkDTyT9OUAn
6222vgzqAfbPP98r1zwWfTpA/rZc7NyZ0D/p7aoqCP06QMjMcoS/O9E/8q9+GPp8
6223O0C4vEi9qODRP/txUgbs/DtAaX3elpiI0j8ENCb03Xw8QLwZNBGPM9M/Dfb5
62244c/8PED5cEksjOHTPxa4zc/BfD1A3KMe6I+S1D8feqG9s/w9QH2ns0SaRtU/
6225KDx1q6V8PkDSewhCq/3VPzH+SJmX/D5A6CAd4MK31j86wByHiXw/QA6k8R7h
6226dNc/Q4LwdHv8P0BG3YX+BTXYPyYiYrE2PkBAjvTZfjH42D8rA0yoL35AQIzc
62277Z9jvtk/L+Q1nyi+QEBRlcFhnIfaPzTFH5Yh/kBAxx5VxNtT2z84pgmNGj5B
6228QP+IqMchI9w/PYfzgxN+QUDwo7trbvXcP0Fo3XoMvkFAkbCOsMHK3T9GScdx
6229Bf5BQA1sIZYbo94/SiqxaP49QkA1CXQcfH7fP08Lm1/3fUJAiDvDoXEu4D9T
62307IRW8L1CQEpkrIUon+A/WGIaCQ==
6231 "]]},
6232 {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
6233 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
62341:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAxdyJrDP3M0Cfm7MAkgTjP7Dopl37
6235djRAwbqTrAr74z+c9MMOw/Y0QB7Eu0mZ9+Q/hwDhv4p2NUAMtSvYPfrlP3IM
6236/nBS9jVAy5DjV/gC5z9eGBsiGnY2QItN48jIEeg/SSQ40+H1NkAf9Sorrybp
6237PzQwVYSpdTdA+4e6fqtB6j8gPHI1cfU3QO/6kcO9Yus/C0iP5jh1OEA4XbH5
62385YnsP/ZTrJcA9ThAKaMYISS37T/iX8lIyHQ5QEjMxzl46u4/zWvm+Y/0OUDd
6239ct8h8RHwP7h3A6tXdDpAK/F+H7Gx8D+kgyBcH/Q6QMxgwhV8VPE/j489Dedz
6240O0CPxqkEUvrxP3qbWr6u8ztAwCI17DKj8j9mp3dvdnM8QCpwZMweT/M/UbOU
6241ID7zPECDrjelFf7zPzy/sdEFcz1AVuaudhew9D8oy86CzfI9QBMPykAkZfU/
6242E9frM5VyPkCYK4kDPB32P/7iCOVc8j5ArDjsvl7Y9j/q7iWWJHI/QKQ883KM
6243lvc/1fpCR+zxP0BjNJ4fxVf4P2ADMPzZOEBAeSPtxAgc+T9Wib7UvXhAQDT/
624432JX4/k/Sw9NraG4QEAU1nb5sK36P0GV24WF+EBAC52xiBV7+z83G2peaThB
6245QMVTkBCFS/w/LKH4Nk14QUBNBhOR/x79PyInhw8xuEFAmKg5CoX1/T8YrRXo
6246FPhBQE06BHwVz/4/DTOkwPg3QkCHyHLmsKv/PwO5Mpncd0JAFaPCpKtFAED5
6247PsFxwLdCQGnZnVIEtwBAm2gYJw==
6248 "]]},
6249 {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
6250 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
62511:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAtbCSoDDsM0BeCDDCkJj1P7mOydex
6252azRAmdGJ93Kw9j++bAAPM+s0QEfK+FA+z/c/wko3RrRqNUAM8XzO8vT4P8co
6253bn016jVAjkcWcJAh+j/LBqW0tmk2QJfKxDUXVfs/0OTb6zfpNkDkeYgfh4/8
6254P9TCEiO5aDdA6VphLeDQ/T/ZoElaOug3QD5mT18iGf8/3X6AkbtnOEDKUana
6255JjQAQOJct8g85zhAeIW1FzHfAEDmOu7/vWY5QFNSzOavjQFA6xglNz/mOUD9
6256s+1Hoz8CQO/2W27AZTpAB68ZOwv1AkD01JKlQeU6QO8/UMDnrQNA+LLJ3MJk
6257O0DoZ5HXOGoEQP2QABRE5DtA6SbdgP4pBUABbzdLxWM8QPp8M7w47QVABk1u
6258gkbjPECjaJSJ57MGQAorpbnHYj1AOe7/6Ap+B0APCdzwSOI9QGkJdtqiSwhA
6259E+cSKMphPkARuvZdrxwJQBjFSV9L4T5ASQOCczDxCUAco4CWzGA/QETlFxsm
6260yQpAIYG3zU3gP0CfXLhUkKQLQJMvd4LnL0BAPWljIG+DDECVnhIeqG9AQIIQ
6261GX7CZQ1Alw2uuWivQEAETdltiksOQJp8SVUp70BAlx6k78Y0D0Cc6+Tw6S5B
6262QJLEvAG8EBBAnlqAjKpuQUBnxqzUzogQQKDJGyhrrkFAvRKi8JsCEUCjOLfD
6263K+5BQIGpnFUjfhFApadSX+wtQkDfjJwDZfsRQKcW7vqsbUJAv7uh+mB6EkCp
6264hYmWba1CQFk3rDoX+xJAZJMH/A==
6265 "]]},
6266 {RGBColor[0.528488, 0.470624, 0.701351], PointSize[
6267 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
62681:eJwBUQKu/SFib1JlAgAAACQAAAACAAAA9VpVIr/cM0CFy46NRXMDQNQWMYPd
6269WzRAHBEB6lhvBEC00gzk+9o0QAcxY6SlcQVAlI7oRBpaNUBtLbW8K3oGQHRK
6270xKU42TVAnAX3MuuIB0BTBqAGV1g2QJi5KAfknQhAM8J7Z3XXNkA8Sko5FrkJ
6271QBN+V8iTVjdA07RbyYHaCkDyOTMpstU3QB39XLcmAgxA0vUOitBUOEAxIE4D
6272BTANQLKx6uru0zhAEx8vrRxkDkCSbcZLDVM5QJ/4/7Rtng9AcSmirCvSOUB/
6273V2ANfG8QQFHlfQ1KUTpAk6A4790SEUAxoVluaNA6QIrXCIBcuRFAEV01z4ZP
6274O0Bi/NC/92ISQPAYETClzjtAzA+Rrq8PE0DQ1OyQw008QMIPSUyEvxNAsJDI
62758eHMPEBE/viYdXIUQI9MpFIATD1AbNuglIMoFUBvCICzHss9QLulQD+u4RVA
6276T8RbFD1KPkAiXdiY9Z0WQC+AN3VbyT5AMANooVldF0AOPBPWeUg/QAGY71ja
6277HxhA7vfuNpjHP0D+GG+/d+UYQOdZ5UtbI0BAtIjm1DGuGUDXN1N86mJAQE/m
6278VZkIehpAxxXBrHmiQEDRMb0M/EgbQLbzLt0I4kBAMWwcLwwbHECm0ZwNmCFB
6279QH2ScwA58BxAlq8KPidhQUCyqMKAgsgdQIaNeG62oEFArqoJsOijHkB2a+ae
6280ReBBQJ+bSI5rgh9AZklUz9QfQkA4vb+NBTIgQFYnwv9jX0JAkSPXq2OkIEBF
6281BTAw855CQOKAaiFQGCFA7wHykw==
6282 "]]},
6283 {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
6284 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
62851:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAWZvcSdjIM0A+6wd1aOkOQG5StUt3
6286RzRAOnvWHAM9EECECY5NFsY0QAByWiREChFAmcBmT7VENUAM2w9Rd9wRQK93
6287P1FUwzVAAbb2opyzEkDELhhT80E2QE4DDxq0jxNA2eXwVJLANkAZwli2vXAU
6288QO+cyVYxPzdAyfLTd7lWFUAEVKJY0L03QGeVgF6nQRZAGgt7Wm88OEBjqV5q
6289hzEXQC/CU1wOuzhAVjBum1kmGEBFeSxerTk5QBgor/EdIBlAWjAFYEy4OUDi
6290kiFt1B4aQG/n3WHrNjpAbG7FDX0iG0CFnrZjirU6QHi8mtMXKxxAmlWPZSk0
6291O0AKfaG+pDgdQLAMaGfIsjtAOa7ZziNLHkDFw0BpZzE8QPpRQwSVYh9A2noZ
6292awawPEDQM28vfD8gQPAx8mylLj1AmHdV7ybQIEAF6cpuRK09QFV01MFKYyFA
6293G6CjcOMrPkBrKuym5/ghQDBXfHKCqj5AqJicnv2QIkBGDlV0ISk/QEDA5aiM
6294KyNAW8UtdsCnP0DMoMfFlMgjQDg+A7wvE0BAwjpC9RVoJEDDme88f1JAQDqN
6295VTcQCiVATvXbvc6RQEAqmAGMg64lQNhQyD4e0UBABl1G829VJkBjrLS/bRBB
6296QFzaI23V/iZA7gehQL1PQUAdEJr5s6onQHhjjcEMj0FA4v+omAtZKEADv3lC
6297XM5BQISnUErcCSlAjhpmw6sNQkCmCJEOJr0pQBl2UkT7TEJAtSJq5ehyKkCj
62980T7FSoxCQGL2284kKytAEOrsCg==
6299 "]]},
6300 {RGBColor[0.363898, 0.618501, 0.782349], PointSize[
6301 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
63021:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAQKXfGHOwM0BJ9zo5DboWQC7Wfvl1
6303LjRAj6FJLJfgF0AcBx7aeKw0QHfuIuZmDhlACzi9unsqNUA13cZmfEMaQPlo
6304XJt+qDVAxm01rtd/G0Domft7gSY2QPWgbrx4wxxA1sqaXISkNkDcdnKRXw4e
6305QMT7OT2HIjdAi+5ALYxgH0CzLNkdiqA3QPYD7Uf/XCBAoV14/oweOEBJ4p5c
6306Ww0hQJCOF9+PnDhALhG2VFrBIUB+v7a/kho5QHyRMjD8eCJAbPBVoJWYOUDi
6307YhTvQDQjQFsh9YCYFjpAs4VbkSjzI0BJUpRhm5Q6QFf5BxeztSRAN4MzQp4S
6308O0AZvhmA4HslQCa00iKhkDtAm9OQzLBFJkAU5XEDpA48QJg6bfwjEydAAxYR
63095KaMPECs8q4POuQnQPFGsMSpCj1AQ/xVBvO4KEDfd0+lrIg9QDRWYuBOkSlA
6310zqjuha8GPkCgAdSdTW0qQLzZjWayhD5Alv6qPu9MK0CrCi1HtQI/QNVL58Iz
6311MCxAmTvMJ7iAP0CZ6ogqGxctQIdsawi7/j9A89qPdaUBLkC7ToX0Xj5AQIEb
6312/KPS7y5AMufUZGB9QEAers21ouEvQKl/JNVhvEBArkiC1YprMEAgGHRFY/tA
6313QOBi0MEV6DBAmLDDtWQ6QUBUJdEfcmYxQA9JEyZmeUFAnZCE75/mMUCG4WKW
6314Z7hBQHak6jCfaDJA/XmyBmn3QUApYQPkb+wyQHQSAndqNkJAH8bOCBJyM0Ds
6315qlHna3VCQFbTTJ+F+TNAE+f7xQ==
6316 "]]},
6317 {RGBColor[1, 0.75, 0], PointSize[0.0055000000000000005`],
6318 AbsoluteThickness[1.6], PointBox[CompressedData["
63191:eJwBUQKu/SFib1JlAgAAACQAAAACAAAA0KfrY4STM0DgU8Uc47YfQM9YnhnO
6320EDRA3OXp8fOoIEDNCVHPF440QD1WD1uJeyFAzLoDhWELNUB2+tLJMVMiQMtr
6321tjqriDVAvdI0Pu0vI0DKHGnw9AU2QBLfNLi7ESRAyc0bpj6DNkA3H9M3nfgk
6322QMd+zluIADdA5JMPvZHkJUDGL4ER0n03QGM86keZ1SZAxeAzxxv7N0DvGGPY
6323s8snQMSR5nxleDhAhCl6buHGKEDDQpkyr/U4QCpuLwoixylAwfNL6PhyOUDe
63245oKrdcwqQMCk/p1C8DlAoJN0UtzWK0C/VbFTjG06QG50BP9V5ixAvgZkCdbq
6325OkDviDKx4votQL23Fr8faDtA1tH+aIIUL0C7aMl0aeU7QJWnNJOaGTBAuhl8
6326KrNiPEAXALl0faswQLnKLuD83zxAnnIM2ek/MUC4e+GVRl09QCz/LsDf1jFA
6327tyyUS5DaPUCMpSAqX3AyQLXdRgHaVz5AX2bhFmgMM0C0jvm2I9U+QARBcYb6
6328qjNAsz+sbG1SP0CsNdB4Fkw0QLLwXiK3zz9AIET+7bvvNEDY0AhsgCZAQBZt
6329++XqlTVAWCniRiVlQECRr8dgoz42QNeBuyHKo0BAmAxjXuXpNkBW2pT8buJA
6330QKuDzd6wlzdA1jJu1xMhQUA0FAfiBUg4QFWLR7K4X0FAD78PaOT6OEDV4yCN
6331XZ5BQOyD53BMsDlAVDz6ZwLdQUDYYo78PWg6QNOU00KnG0JAxVsEC7kiO0BT
63327awdTFpCQLhuSZy93ztA/4cKNw==
6333 "]]},
6334 {RGBColor[0.647624, 0.37816, 0.614037], PointSize[0.0055000000000000005`],
6335 AbsoluteThickness[1.6], PointBox[CompressedData["
63361:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAxHxhtf5xM0CMkwjFb1IlQHy5UOBx
63377jNAQPilG8VmJkA19j8L5Wo0QNCxYyXtgSdA7TIvNljnNEAKwEHi56MoQKVv
6338HmHLYzVA7iJAUrXMKUBdrA2MPuA1QH3aXnVV/CpAFen8trFcNkC45p1LyDIs
6339QM0l7OEk2TZAmkf91A1wLUCFYtsMmFU3QG39fBEmtC5APZ/KNwvSN0ClBx0B
6340Ef8vQPXbuWJ+TjhARLPuUWeoMECuGKmN8co4QOQM33yvVDFAZlWYuGRHOUD+
6341kF8BYQQyQB6Sh+PXwzlAlj9w33u3MkDWznYOS0A6QFwYERcAbjNAjgtmOb68
6342OkB3G0Ko7Sc0QEZIVWQxOTtA50gDk0TlNED+hESPpLU7QK6gVNcEpjVAtsEz
6343uhcyPEDHIjZ1Lmo2QG7+IuWKrjxAN8+nbMExN0AnOxIQ/io9QMilqb29/DdA
634433cBO3GnPUDcpjtoI8s4QJe08GXkIz5ASdJdbPKcOUBP8d+QV6A+QA8oEMoq
6345cjpABy7Pu8ocP0AjqFKBzEo7QL9qvuY9mT9Aj1IlktcmPEC809aI2ApAQE4n
6346iPxLBj1AGHJOHhJJQEBjJnvAKek9QHQQxrNLh0BAyk/+3XDPPkDQrj1JhcVA
6347QIyjEVUhuT9ALE213r4DQUDSkNqSHVNAQIjrLHT4QUFABGX0J1/LQEDkiaQJ
6348MoBBQGdO1mlVRUFAQCgcn2u+QUDuTIBYAMFBQJzGkzSl/EFApWDy818+QkD4
6349ZAvK3jpCQKyJLDx0vUJAPtP6vA==
6350 "]]},
6351 {RGBColor[0.571589, 0.586483, 0.], PointSize[0.0055000000000000005`],
6352 AbsoluteThickness[1.6], PointBox[CompressedData["
63531:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAEfSLKdJLM0DaKUlVXOYrQMVzLwRR
6354xzNAEejXU/FPLUB489Lez0I0QARsluBzwi5ALHN2uU6+NEC2WsL98R4wQODy
6355GZTNOTVAJ2JR0iDhMECTcr1uTLU1QHxM+G3GpzFAR/JgScswNkBNGbfQ4nIy
6356QPpxBCRKrDZA/siN+nVCM0Cu8af+yCc3QJFbfOt/FjRAYnFL2UejN0Cc0IKj
6357AO80QBXx7rPGHjhAryihIvjLNUDJcJKORZo4QDZj12hmrTZAfPA1acQVOUDO
6358gCV2S5M3QDBw2UNDkTlAz4CLSqd9OEDk73wewgw6QLhjCeZ5bDlAl28g+UCI
6359OkBhKZ9Iw186QEvvw9O/AztAydFMcoNXO0D/bmeuPn87QO1cEmO6UzxAsu4K
6360ib36O0DVyu8aaFQ9QGZurmM8djxAdxvlmYxZPkAa7lE+u/E8QN5O8t8nYz9A
6361zW31GDptPUCAsov2nDhAQIHtmPO46D1A8C6qYOHBQEA0bTzON2Q+QMKcVC5h
6362TUFA6OzfqLbfPkDx+4pfHNtBQJxsg4M1Wz9Af0xN9BJrQkBP7CZetNY/QJCO
6363m+xE/UJAATZlnBkpQEDfwXVIspFDQNv1tgnZZkBAjubbB1soREC1tQh3mKRA
6364QHn8zSo/wURAj3Va5FfiQEDlA0yxXlxFQGk1rFEXIEFArvxVm7n5RUBC9f2+
63651l1BQAbn6+hPmUZAHLVPLJabQUCRwg2aITtHQPZ0oZlV2UFAUo+7ri7fR0DQ
6366NPMGFRdCQMhN9SZ3hUhAQpMKUA==
6367 "]]},
6368 {RGBColor[0.915, 0.3325, 0.2125], PointSize[0.0055000000000000005`],
6369 AbsoluteThickness[1.6], PointBox[CompressedData["
63701:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAptjdQuwgM0CG9KHIZ+IxQKqXVpFY
6371mzNAOR3z6i/KMkCuVs/fxBU0QKzLPCSxtzNAshVILjGQNEDb/35066o0QLbU
6372wHydCjVAzLm5296jNUC6kznLCYU1QH357FmLojZAvlKyGXb/NUDqvhjv8KY3
6373QMMRK2jieTZA8gk9mw+xOEDH0KO2TvQ2QADbWV7nwDlAy48cBbtuN0CqMW84
6374eNY6QM9OlVMn6TdAEw59KcLxO0DTDQ6ik2M4QDxwgzHFEj1A18yG8P/dOEBM
6375WIJQgTk+QNuL/z5sWDlAycV5hvZlP0DgSniN2NI5QH/ctGkSTEBA5Anx20RN
6376OkAlGakbBuhAQOjIaSqxxzpAmJgZWdaGQUDsh+J4HUI7QOdaBiKDKEJA8EZb
6377x4m8O0AYYG92DM1CQPQF1BX2NjxAKahUVnJ0Q0D4xExkYrE8QBgztsG0HkRA
6378/YPFss4rPUDkAJS408tEQAFDPgE7pj1AkhHuOs97RUAFArdPpyA+QCRlxEin
6379LkZACcEvnhObPkCM+xbiW+RGQA2AqOx/FT9A2dTlBu2cR0ARPyE77I8/QAfx
6380MLdaWEhAC//MRCwFQEAOUPjypBZJQI1eCWxiQkBA+vE7usvXSUAPvkWTmH9A
6381QMbW+wzPm0pAkR2Cus68QEBx/jfrrmJLQBN9vuEE+kBA92jwVGssTECV3PoI
6382OzdBQGIWJUoE+UxAFzw3MHF0QUCqBtbKechNQJmbc1ensUFAzTkD18uaTkAb
6383+69+3e5BQNevrG76b09AzJ0F5Q==
6384 "]]},
6385 {RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], PointSize[
6386 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
63871:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAqGsltTfxMkDceLuVcZM2QCZbRrNy
6388ajNAdB/VLAe4N0CkSmexreMzQFq69S/W4zhAIjqIr+hcNEB0SR2f3hY6QKAp
6389qa0j1jRA+cxLeiBRO0AeGcqrXk81QO9EgcGbkjxAmwjrqZnINUAbsb10UNs9
6390QBn4C6jUQTZAkhEBlD4rP0CX5yymD7s2QCyzpQ8zQUBAFddNpEo0N0C1V06L
6391Y/BAQJPGbqKFrTdAU3b6vDCjQUAQto+gwCY4QEYPqqSaWUJAjqWwnvufOEBJ
6392Il1CoRNDQAyV0Zw2GTlAca8TlkTRQ0CKhPKacZI5QMO2zZ+EkkRACHQTmawL
6393OkAlOItfYVdFQIZjNJfnhDpA3TNM1dofRkADU1WVIv46QKmpEAHx60ZAgUJ2
6394k113O0CZmdjio7tHQP8xl5GY8DtAlwOkevOOSEB9IbiP02k8QNrncsjfZUlA
6395+xDZjQ7jPEBdRkXMaEBKQHgA+otJXD1A7h4bho4eS0D27xqKhNU9QKhx9PVQ
6396AExAdN87iL9OPkCHPtEbsOVMQPLOXIb6xz5AjIWx96vOTUBwvn2ENUE/QJxG
6397lYlEu05A7a2egnC6P0AYgnzReatPQLbOX8DVGUBAuJuz56VPUEB1RnA/c1ZA
6398QIqzqkFdy1BAM76AvhCTQECHiKP24khRQPI1kT2uz0BAghqeBjfIUUCxraG8
6399SwxBQJNpmnFZSVJAcCWyO+lIQUC1dZg3SsxSQC+dwrqGhUFA7D6YWAlRU0Du
6400FNM5JMJBQDbFmdSW11NAYQ4DOw==
6401 "]]},
6402 {RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142],
6403 PointSize[0.0055000000000000005`], AbsoluteThickness[1.6],
6404 PointBox[CompressedData["
64051:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAn6ExJpy8MkB1PY7LGSo8QEPf8nOG
6406NDNAxet1sxyXPUDnHLTBcKwzQI3w0dYiDT9Ai1p1D1skNEDpJdEaFkZAQC+Y
6407Nl1FnDRAx37zZxwKQUDT1feqLxQ1QOIC0FKk0kFAdxO5+BmMNUA8smbbrZ9C
6408QBtRekYEBDZA04y3ATlxQ0C/jjuU7ns2QKaSwsVFR0RAY8z84djzNkC1w4cn
64091CFFQAcKvi/DazdAAiAHJ+QARkCrR399reM3QIunQMR15EZAT4VAy5dbOEBR
6410WjT/iMxHQPPCARmC0zhAVzji1x25SECXAMNmbEs5QJpBSk40qklAOz6EtFbD
6411OUAWdmxizJ9KQN97RQJBOzpAz9VIFOaZS0CDuQZQK7M6QM1g32OBmExAJ/fH
6412nRUrO0AAFzBRnptNQMs0iev/ojtAc/g63DyjTkBvcko56ho8QCIFAAVdr09A
6413E7ALh9SSPECFnr9l/19QQLftzNS+Cj1AGlDcF5HqUEBbK44iqYI9QFAX1phj
6414d1FA/2hPcJP6PUAg9KzodgZSQKOmEL59cj5AkeZgB8uXUkBH5NELaOo+QJ/u
64158fRfK1NA6yGTWVJiP0A6DGCxNcFTQI9fVKc82j9Alz+rPExZVECZzop6EylA
6416QIWI05aj81RAa21roQhlQEAM59i/O5BVQD0MTMj9oEBASVu7txQvVkAPqyzv
64178txAQA/len4u0FZA4UkNFugYQUBdhBcUiXNXQLPo7TzdVEFAYzmReCQZWECF
6418h85j0pBBQAQE6KsAwVhABcL4sQ==
6419 "]]},
6420 {RGBColor[0.736782672705901, 0.358, 0.5030266573755369], PointSize[
6421 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
64221:eJwBUQKu/SFib1JlAgAAACQAAAACAAAA9HD+4f2CMkA/SgWouGlBQMczC253
6423+TJACpl8uWRLQkCZ9hf68G8zQK6Xe0OjMkNAbLkkhmrmM0AHRgJGdB9EQD98
6424MRLkXDRAJaQQwdcRRUASPz6eXdM0QPixprTNCUZA5QFLKtdJNUCzb8QgVgdH
6425QLjEV7ZQwDVAEN1pBXEKSECLh2RCyjY2QEj6lmIeE0lAXkpxzkOtNkBUx0s4
6426XiFKQDENflq9IzdAAUSIhjA1S0AD0IrmNpo3QKNwTE2VTkxA1pKXcrAQOEDs
6427TJiMjG1NQKlVpP4phzhA6thrRBaSTkB8GLGKo/04QN0Ux3QyvE9AT9u9Fh10
6428OUA7ANWO8HVQQCKeyqKW6jlA702KH5EQUUD1YNcuEGE6QINzg+z6rVFAyCPk
6429uonXOkDvcMD1LU5SQJvm8EYDTjtARkZBOyrxUkBtqf3SfMQ7QJjzBb3vllNA
6430QGwKX/Y6PEC4eA57fj9UQBMvF+tvsTxAvNVaddbqVEDm8SN36Sc9QKMK66v3
6431mFVAubQwA2OePUBrF78e4klWQIx3PY/cFD5ABvzWzZX9VkBfOkobVos+QJW4
6432MrkStFdAMv1Wp88BP0AbTdLgWG1YQAXAYzNJeD9AcLm1RGgpWUDXgnC/wu4/
6433QKr93ORA6FlA1aK+JZ4yQEDHGUjB4qlaQD8ExevabUBArQ332U1uW0CoZcux
6434F6lAQKPZ6S6CNVxAEsfRd1TkQEBSfSDAf/9cQHso2D2RH0FAD/majUbMXUDk
6435id4DzlpBQJ1MWZfWm15AB3v/4w==
6436 "]]},
6437 {RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], PointSize[
6438 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
64391:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAeof5fz1EMkD/B5AUP2RFQBBe+W8l
6440uTJAiPbXO3t5RkCmNPlfDS4zQGX0OsmPlUdAPQv5T/WiM0COAbm8fLhIQNPh
6441+D/dFzRAJR5SFkLiSUBpuPgvxYw0QCBKBtbfEktAAI/4H60BNUBwhdX7VUpM
6442QJZl+A+VdjVAKdC/h6SITUAsPPj/fOs1QDwqxXnLzU5AwhL472RgNkDgyfJo
64435QxQQFjp999M1TZAPoYQSFG2UEDvv/fPNEo3QFXKO1opY1FAhZb3vxy/N0Aq
6444lnSfbRNSQBtt968ENDhAlOm6Fx7HUkCyQ/ef7Kg4QLjEDsM6flNASBr3j9Qd
6445OUCNJ3ChwzhUQN7w9n+8kjlAEhLfsrj2VEB0x/ZvpAc6QFaEW/cZuFVACp72
6446X4x8OkA5fuVu53xWQKF09k908TpAuv98GSFFV0A3S/Y/XGY7QP4IIvfGEFhA
6447zSH2L0TbO0DvmdQH2d9YQGT49R8sUDxAjLKUS1eyWUD6zvUPFMU8QN9SYsJB
6448iFpAkKX1//s5PUDfej1smGFbQCZ89e/jrj1AnyomSVs+XEC8UvXfyyM+QABi
6449HFmKHl1AUyn1z7OYPkD0ICCcJQJeQOn/9L+bDT9AyGcxEi3pXkB/1vSvg4I/
6450QDg2ULug019AFq30n2v3P0AeRr5LwGBgQNZB+scpNkBAAzVbU2bZYEAhLfq/
6451nXBAQMvnfnTCU2FAbBj6txGrQEBjXimv1M9hQLcD+q+F5UBAzZhaA51NYkAC
64527/mn+R9BQBSXEnEbzWJAezwKFg==
6453 "]]},
6454 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
6455 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
64561:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAPXFFdjcAMkDibSmj8ihKQBKUbQxs
6457czJAv6+zFPt7S0DntpWioOYyQCq3NIxi10xAvNm9ONVZM0AwhKwJKTtOQJD8
64585c4JzTNA3RYbjU6nT0BlHw5lPkA0QIk3QIvpjVBAOkI2+3KzNEBhRu5SW0xR
6459QA9lXpGnJjVACbiXnfwOUkDjh4Yn3Jk1QI+MPGvN1VJAuKquvRANNkDMw9y7
6460zaBTQI3N1lNFgDZAyV14j/1vVEBh8P7pefM2QK5aD+ZcQ1VANhMngK5mN0BI
6461uqG/6xpWQAs2Txbj2TdAo3wvHKr2VkDgWHesF004QNWhuPuX1ldAtHufQkzA
6462OEDdKT1etbpYQImex9iAMzlAohS9QwKjWUBewe9utaY5QDNiOKx+j1pAM+QX
6463BeoZOkB6Eq+XKoBbQAcHQJsejTpAriUhBgZ1XEDcKWgxUwA7QJ2bjvcQbl1A
6464sUyQx4dzO0A+dPdrS2teQIZvuF285jtAva9bY7VsX0BakuDz8Fk8QBCn3W4n
6465OWBAL7UIiiXNPECaJ4vtC75gQATYMCBaQD1Af1m2LQhFYUDY+li2jrM9QNw8
6466Xy8czmFArR2BTMMmPkCX0YXyR1liQIJAqeL3mT5AqRcqd4vmYkBXY9F4LA0/
6467QC0PTL3mdWNAK4b5DmGAP0AiuOvEWQdkQACpIaWV8z9AaxIJjuSaZEDq5aQd
6468ZTNAQCEepBiHMGVAVfe4aP9sQEAq27xkQchlQL8IzbOZpkBAsUlTchNiZkAq
6469GuH+M+BAQIJpZ0H9/WZAR2n7uQ==
6470 "]]},
6471 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
6472 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
64731:eJwBUQKu/SFib1JlAgAAACQAAAACAAAALBwAl8O2MUBFY+I7eeZPQOAcYBQi
6474KDJAVzSeXfPBUECUHcCRgJkyQM0dDcDElVFASR4gD98KM0AA7j3FsG5SQP0e
6475gIw9fDNAAqUwbbdMU0CxH+AJnO0zQNxC5bfYL1RAZiBAh/peNEBlx1ulFBhV
6476QBohoARZ0DRAxTKUNWsFVkDOIQCCt0E1QPaEjmjc91ZAgyJg/xWzNUDUvUo+
6477aO9XQDcjwHx0JDZAjd3Itg7sWEDrIyD60pU2QBrkCNLP7VlAnySAdzEHN0Bh
64780QqQq/RaQFQl4PSPeDdAYKXO8KEAXEAIJkBy7uk3QDVgVPSyEV1AvCag70xb
6479OEDkAZya3ideQHEnAG2rzDhAPoql4yRDX0AlKGDqCT45QLZ8uOfCMWBA2SjA
6480Z2ivOUCzJ/+ugMRgQI4pIOXGIDpAEcamx8tZYUBCKoBiJZI6QNlXrzGk8WFA
64819irg34MDO0D+3BjtCYxiQKorQF3idDtAklXj+fwoY0BfLKDaQOY7QIXBDlh9
6482yGNAEy0AWJ9XPEDRIJsHi2pkQMctYNX9yDxAk3OICCYPZUB8LsBSXDo9QKa5
64831lpOtmVAMC8g0LqrPUAm84X+A2BmQOQvgE0ZHT5ACyCW80YMZ0CYMODKd44+
6484QGFABzoXu2dATTFASNb/PkD/U9nRdGxoQAEyoMU0cT9AElsMu18gaUC1MgBD
6485k+I/QJRVoPXX1mlAtRkw4PgpQEBeQ5WB3Y9qQA8a4B6oYkBAniTrXnBLa0Bp
6486GpBdV5tAQE/5oY2QCWxAX1j3Qw==
6487 "]]},
6488 {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
6489 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
64901:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAWQVmcrRnMUCEXOnjpWxTQOIrQvUY
64911zFArdCRaGNoVEBqUh54fUYyQONwjSxYalVA83j6+uG1MkAAPdwvhHJWQHyf
64921n1GJTNABTV+cueAV0AExrIAq5QzQBhZc/SBlVhAjeyOgw8ENEAIqbu1U7BZ
6493QBUTawZ0czRAAyVXtlzRWkCeOUeJ2OI0QOfMRfac+FtAJ2AjDD1SNUCyoId1
6494FCZdQK+G/46hwTVAgqAcNMNZXkA4rdsRBjE2QEbMBDKpk19AwNO3lGqgNkAG
6495EqA342lgQEn6kxfPDzdA3VPndQ0NYUDSIHCaM383QKQr2FNTs2FAWkdMHZju
6496N0B1mXLRtFxiQONtKKD8XThAO5227jEJY0BslAQjYc04QPE2pKvKuGNA9Lrg
6497pcU8OUCqZjsIf2tkQH3hvCgqrDlAXix8BE8hZUAGCJmrjhs6QAyIZqA62mVA
6498ji51LvOKOkC4efrbQZZmQBdVUbFX+jpAVwE4t2RVZ0Cfey00vGk7QP8eHzKj
6499F2hAKKIJtyDZO0CU0q9M/dxoQLHI5TmFSDxAGRzqBnOlaUA578G86bc8QLX7
6500zWAEcWpAwhWeP04nPUA5cVtasT9rQEo8esKylj1AunyS83kRbEDTYlZFFwY+
6501QDUecyxe5mxAXIkyyHt1PkCfVf0EXr5tQOSvDkvg5D5AHCMxfXmZbkBt1urN
6502RFQ/QIeGDpWwd29A9vzGUKnDP0Dvv0qmgSxwQL+R0emGGUBAowfj0biecEAD
6503pT8rOVFAQFMaUM19EnFAQwf5Kw==
6504 "]]},
6505 {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
6506 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
65071:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAT1IXl9YSMUB2APqDUqhXQJHnd/Qb
6508gDFAHxnwc+zaWEDTfNhRYe0xQK780mkYFVpAFRI5r6ZaMkAQq6Jl1lZbQFen
6509mQzsxzJAZSRfZyagXECZPPppMTUzQJdoCG8I8V1A29Fax3aiM0Cod558fElf
6510QB1nuyS8DzRAzqgQSMFUYEBe/BuCAX00QEB7yFSNCGFAoJF830bqNEAas3Zk
6511IsBhQOIm3TyMVzVAX1Abd4B7YkAkvD2a0cQ1QBtTtoynOmNAZlGe9xYyNkBO
6512u0ell/1jQKjm/lRcnzZA54jPwFDEZEDqe1+yoQw3QPK7Td/SjmVALBHAD+d5
6513N0BxVMIAHl1mQG6mIG0s5zdAY1ItJTIvZ0CwO4HKcVQ4QMK1jkwPBWhA8tDh
6514J7fBOECefuZ2td5oQDRmQoX8LjlA3aw0pCS8aUB2+6LiQZw5QIhAedRcnWpA
6515uJADQIcJOkC1ObQHXoJrQPolZJ3MdjpAO5jlPShrbEA8u8T6EeQ6QENcDXe7
6516V21AflAlWFdRO0C4hSuzF0huQMDlhbWcvjtAnxRA8jw8b0ACe+YS4is8QHqE
6517JZoVGnBARBBHcCeZPEBeMaY88ZdwQIalp81sBj1A+RCiYLEXcUDIOggrsnM9
6518QE4jGQZWmXFACtBoiPfgPUBcaAst3xxyQExlyeU8Tj5AGOB41UyickCO+ilD
6519grs+QJ6KYf+eKXNA0I+KoMcoP0DUZ8Wq1bJzQBIl6/0Mlj9Awnek1/A9dEAq
65203aUtqQFAQGm6/oXwynRAwJf82g==
6521 "]]},
6522 {RGBColor[0.528488, 0.470624, 0.701351], PointSize[
6523 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
65241:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAJKabp++3MECK/R7wyNpcQEuK/z7v
6525IjFAhx6jq71QXkBybmPW7o0xQJnOkizuz19AmlLHbe74MUDOBnc5LaxgQME2
6526KwXuYzJA3W1aPwF1YUDoGo+c7c4yQHGc8ydzQmJAEP/yM+05M0CFkkLzghRj
6527QDfjVsvspDNAI1BHoTDrY0Bex7pi7A80QErVATJ8xmRAhqse+ut6NEDnIXKl
6528ZaZlQK2PgpHr5TRAEDaY++yKZkDUc+Yo61A1QMoRdDQSdGdA+1dKwOq7NUD7
6529tAVQ1WFoQCM8rlfqJjZArR9NTjZUaUBKIBLv6ZE2QPFRSi81S2pAcQR2hun8
6530NkCsS/3y0UZrQJno2R3pZzdA7wxmmQxHbEDAzD216NI3QLmVhCLlS21A57Ch
6531TOg9OEAM5liOW1VuQA+VBeTnqDhA1P3i3G9jb0A2eWl75xM5QJ1uEQcRO3BA
6532XV3NEud+OUAMQgwRucZwQIRBMarm6TlAOvlhDLBUcUCsJZVB5lQ6QC+UEvn1
65335HFA0wn52OW/OkDlEh7XindyQPrtXHDlKjtAX3WEpm4Mc0Ai0sAH5ZU7QJi7
6534RWeho3NASbYkn+QAPECX5WEZIz10QHCaiDbkazxAVvPYvPPYdECXfuzN49Y8
6535QNrkqlETd3VAv2JQZeNBPUAbutfXgRd2QOZGtPzirD1AI3NfTz+6dkANKxiU
65364hc+QO4PQrhLX3dANQ98K+KCPkBvkH8SpwZ4QFzz38Lh7T5Aw/QXXlGweECD
653710Na4Vg/QNc8C5tKXHlAnocM8g==
6538 "]]},
6539 {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
6540 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
65411:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAudZCOb1WMEDIiLPCTqVhQLG1F8FO
6542vzBAwqlbEf+JYkCplOxI4CcxQEqy2+lUdGNAoXPB0HGQMUBaojNMUGRkQJhS
6543llgD+TFA/nljOPFZZUCQMWvglGEyQBo5a643VWZAiBBAaCbKMkDD30quI1Zn
6544QIDvFPC3MjNA720COLVcaEB4zul3SZszQK7jkUvsaGlAcK2+/9oDNEDmQPno
6545yHpqQGeMk4dsbDRAuYU4EEuSa0Bfa2gP/tQ0QAmyT8Fyr2xAV0o9l489NUDY
6546xT78P9JtQE8pEh8hpjVANcEFwbL6bkBHCOemsg42QBRS0odlFHBAP+e7LkR3
6547NkBKtw10RK5wQDbGkLbV3zZASRA1JfZKcUAupWU+Z0g3QAJdSJt66nFAJoQ6
6548xviwN0CKnUfW0YxyQB5jD06KGThAztEy1vsxc0AWQuTVG4I4QOD5CZv42XNA
6549DiG5Xa3qOECsFc0kyIR0QAUAjuU+UzlAQiV8c2oydUD93mJt0Ls5QJsoF4ff
65504nVA9b039WEkOkC1H55fJ5Z2QO2cDH3zjDpAlgoR/UFMd0Dle+EEhfU6QDjp
6551b18vBXhA3Fq2jBZeO0Cgu7qG78B4QNQ5ixSoxjtAzYHxcoJ/eUDMGGCcOS88
6552QL07FCToQHpAxPc0JMuXPEBw6SKaIAV7QLzWCaxcAD1A6Iod1SvMe0C0td4z
65537mg9QCQgBNUJlnxAq5Szu3/RPUAkqdaZumJ9QKNziEMROj5A5CWVIz4yfkCb
6554Ul3LoqI+QGeWP3KUBH9ARW4B0A==
6555 "]]},
6556 {RGBColor[0.363898, 0.618501, 0.782349], PointSize[
6557 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
65581:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAQ9qO2ObdL0Bc2DZ1CqxlQNzPYrXs
6559VDBA8Ws6EenEZkCWMn7+5bowQLeqvwy35GdAUZWZR98gMUCWlMZndAtpQAv4
6560tJDYhjFAoilPIiE5akDGWtDZ0ewxQNNpWTy9bWtAgL3rIstSMkAvVeW1SKls
6561QDsgB2zEuDJArOvyjsPrbUD1giK1vR4zQFItgsctNW9Ar+U9/raEM0ASjcmv
6562w0JwQGpIWUew6jNACNmSK2jucEAkq3SQqVA0QJn6HFeEnXFA3w2Q2aK2NEC0
65638WcyGFByQJlwqyKcHDVAZ75zvSMGc0BU08ZrlYI1QKxgQPimv3NADjbitI7o
6564NUCG2M3ioXx0QMiY/f2HTjZA9SUcfRQ9dUCD+xhHgbQ2QPNIK8f+AHZAPV40
6565kHoaN0COQfvAYMh2QPjAT9lzgDdArg+MajqTd0CyI2sibeY3QGqz3cOLYXhA
6566bYaGa2ZMOEC0LPDMVDN5QCfpobRfsjhAlHvDhZUIekDiS739WBg5QAmgV+5N
65674XpAnK7YRlJ+OUAOmqwGfr17QFYR9I9L5DlAtGnCziWdfEARdA/ZREo6QNcO
6568mUZFgH1Ay9YqIj6wOkCaiTBu3GZ+QIY5Rms3FjtA6NmIRetQf0BAnGG0MHw7
6569QO7/UOY4H4BA+/58/SniO0Ci/b0BuJeAQLVhmEYjSDxALGYL9fIRgUBwxLOP
6570HK48QHk5OcDpjYFAKifP2BUUPUCZd0djnAuCQOSJ6iEPej1AgSA23gqLgkCf
65717AVrCOA9QCg0BTE1DINAdukItw==
6572 "]]},
6573 {RGBColor[1, 0.75, 0], PointSize[0.0055000000000000005`],
6574 AbsoluteThickness[1.6], PointBox[CompressedData["
65751:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAMuQPTnYAL0DDzEv1WsRqQLMWnanf
6576xi9Ab1uie0EfbECaJJWCpEYwQN4/68K4gm1A271bMNmpMEDneSbLwO5uQBxX
6577It4NDTFA1AQqyqwxcEBc8OiLQnAxQJP3OY9B8HBAnYmvOXfTMUAoFcO0HrNx
6578QN0iduerNjJAm13FOkR6ckAevDyV4JkyQN/QQCGyRXNAX1UDQxX9MkD9bjVo
6579aBV0QJ/uyfBJYDNA/jejD2fpdEDgh5CefsMzQMoriheuwXVAICFXTLMmNEB9
6580Sup/PZ52QGG6HfrniTRA/5PDSBV/d0CiU+SnHO00QFkIFnI1ZHhA4uyqVVFQ
6581NUCVp+H7nU15QCOGcQOGszVApXEm5k47ekBkHzixuhY2QIlm5DBILXtApLj+
6582Xu95NkBRhhvciSN8QOVRxQwk3TZA5dDL5xMefUAm64u6WEA3QFtG9VPmHH5A
6583ZoRSaI2jN0Cn5pcgASB/QKcdGRbCBjhA5tjZJrITgEDntt/D9mk4QOxTpO2H
6584mYBAKFCmcSvNOEBTZKvkgSGBQGnpbB9gMDlALArvC6CrgUCpgjPNlJM5QHZF
6585b2PiN4JA6hv6esn2OUAnFizrSMaCQCq1wCj+WTpAR3wlo9NWg0BrTofWMr06
6586QM53W4uC6YNArOdNhGcgO0DECM6jVX6EQOyAFDKcgztALy997EwVhUAtGtvf
65870OY7QPjqaGVoroVAbrOhjQVKPEA1PJEOqEmGQK5MaDs6rTxA4CL25wvnhkDv
65885S7pbhA9QPeel/GThodA1XcG1A==
6589 "]]}, {}}, {}},
6590 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
6591 Axes->{True, True},
6592 AxesLabel->{
6593 FormBox["\"r\"", TraditionalForm],
6594 FormBox[
6595 "\"\\!\\(\\*SubscriptBox[\\(P\\), \\(ram\\)]\\)\"", TraditionalForm]},
6596 AxesOrigin->{15.15716669803249, 0},
6597 DisplayFunction->Identity,
6598 Epilog->{
6599 Directive[{
6600 Thickness[Large],
6601 RGBColor[1, 0, 0]}],
6602 LineBox[{{15, 27653}, {35, 27653}}]},
6603 Frame->{{False, False}, {False, False}},
6604 FrameLabel->{{None, None}, {None, None}},
6605 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
6606 GridLines->{None, None},
6607 GridLinesStyle->Directive[
6608 GrayLevel[0.5, 0.4]],
6609 Method->{},
6610 PlotRange->{{15.500902594985835`, 37.5}, {-5.722487713541126*^-14,
6611 752.8222381444347}},
6612 PlotRangeClipping->True,
6613 PlotRangePadding->{{
6614 Scaled[0.02],
6615 Scaled[0.02]}, {
6616 Scaled[0.05],
6617 Scaled[0.05]}},
6618 Ticks->{Automatic, Automatic}]], "Output",
6619 CellChangeTimes->{3.6447534049309998`*^9}]
6620}, Open ]],
6621
6622Cell["Now calculating the post shock conditions:", "Text",
6623 CellChangeTimes->{{3.644689023415*^9, 3.644689034899*^9}}],
6624
6625Cell[CellGroupData[{
6626
6627Cell[BoxData[{
6628 RowBox[{
6629 RowBox[{"M0", " ", "=", "1.5"}], ";"}], "\[IndentingNewLine]",
6630 RowBox[{
6631 RowBox[{"\[Rho]preshock", " ", "=", "1"}], ";"}], "\[IndentingNewLine]",
6632 RowBox[{
6633 RowBox[{"\[Rho]postshock", " ", "=",
6634 RowBox[{
6635 FractionBox[
6636 RowBox[{
6637 RowBox[{"(",
6638 RowBox[{"gamma", "+", "1"}], ")"}], "*",
6639 SuperscriptBox["M0", "2"]}],
6640 RowBox[{
6641 RowBox[{
6642 RowBox[{"(",
6643 RowBox[{"gamma", "-", "1"}], ")"}], "*",
6644 SuperscriptBox["M0", "2"]}], "+", "2"}]], "*", "\[Rho]preshock"}]}],
6645 ";"}], "\[IndentingNewLine]",
6646 RowBox[{
6647 RowBox[{"gamma", " ", "=", " ",
6648 RowBox[{"5", "/", "3"}]}], ";"}], "\[IndentingNewLine]",
6649 RowBox[{
6650 RowBox[{"Kb", " ", "=", " ",
6651 RowBox[{"1.38", "*",
6652 SuperscriptBox["10",
6653 RowBox[{"-", "16"}]]}]}], ";"}], "\[IndentingNewLine]",
6654 RowBox[{
6655 RowBox[{"Tpreshock", " ", "=", " ", "4931"}], ";"}], "\[IndentingNewLine]",
6656 RowBox[{
6657 RowBox[{"Tpostshock", " ", "=", " ",
6658 RowBox[{
6659 FractionBox[
6660 RowBox[{
6661 RowBox[{"(",
6662 RowBox[{
6663 RowBox[{"2", "*", "gamma", "*",
6664 SuperscriptBox["M0", "2"]}], "-",
6665 RowBox[{"(",
6666 RowBox[{"gamma", "-", "1"}], ")"}]}], ")"}],
6667 RowBox[{"(",
6668 RowBox[{
6669 RowBox[{
6670 RowBox[{"(",
6671 RowBox[{"gamma", "-", "1"}], ")"}],
6672 SuperscriptBox["M0", "2"]}], "+", "2"}], ")"}]}],
6673 RowBox[{
6674 SuperscriptBox[
6675 RowBox[{"(",
6676 RowBox[{"gamma", "+", "1"}], ")"}], "2"],
6677 SuperscriptBox["M0", "2"]}]], "*", "Tpreshock"}]}],
6678 ";"}], "\[IndentingNewLine]",
6679 RowBox[{
6680 RowBox[{"mh", " ", "=", " ",
6681 RowBox[{"1.67", "*",
6682 SuperscriptBox["10",
6683 RowBox[{"-", "24"}]]}]}], ";"}], "\[IndentingNewLine]",
6684 RowBox[{
6685 RowBox[{"velscale", " ", "=", " ", "8091.25"}],
6686 ";"}], "\[IndentingNewLine]",
6687 RowBox[{
6688 RowBox[{"M2", " ", "=", " ",
6689 SqrtBox[
6690 FractionBox[
6691 RowBox[{
6692 RowBox[{
6693 RowBox[{"(",
6694 RowBox[{"gamma", "-", "1"}], ")"}], "*",
6695 SuperscriptBox["M0", "2"]}], "+", "2"}],
6696 RowBox[{
6697 RowBox[{"2", "*", "gamma", "*",
6698 SuperscriptBox["M0", "2"]}], "-",
6699 RowBox[{"(",
6700 RowBox[{"gamma", "-", "1"}], ")"}]}]]]}], ";"}], "\[IndentingNewLine]",
6701 RowBox[{"SoundSpeedshock", " ", "=", " ",
6702 FractionBox[
6703 SqrtBox[
6704 FractionBox[
6705 RowBox[{"gamma", "*", "Kb", "*", "Tpostshock"}], "mh"]],
6706 "velscale"]}], "\[IndentingNewLine]",
6707 RowBox[{"vshock", " ", "=", " ",
6708 RowBox[{"SoundSpeedshock", "*", "M2"}]}], "\[IndentingNewLine]",
6709 RowBox[{"Pramshock", " ", "=", " ",
6710 RowBox[{"\[Rho]postshock", "*",
6711 SuperscriptBox[
6712 RowBox[{"(", "vshock", ")"}], "2"]}]}]}], "Input",
6713 CellChangeTimes->{{3.644689174668*^9, 3.644689180002*^9}, {
6714 3.6446892207530003`*^9, 3.6446892831280003`*^9}, {3.644689414222*^9,
6715 3.644689426212*^9}, {3.644689521635*^9, 3.6446895618*^9}, {
6716 3.644689668742*^9, 3.644689780764*^9}, {3.644692444599*^9,
6717 3.644692446758*^9}, {3.64469252073*^9, 3.644692521792*^9},
6718 3.644692563227*^9, 3.644750775672*^9, {3.6447512711289997`*^9,
6719 3.644751295501*^9}, {3.644751327519*^9, 3.644751331152*^9}, {
6720 3.644752095685*^9, 3.644752098269*^9}, {3.644752765815*^9,
6721 3.6447528256219997`*^9}, {3.644752861764*^9, 3.644752952197*^9},
6722 3.644753281284*^9, {3.64475331241*^9, 3.6447533410880003`*^9}, {
6723 3.644753609024*^9, 3.644753692974*^9}, {3.644753733524*^9,
6724 3.644753816679*^9}, 3.644754170852*^9, 3.644754205571*^9, {
6725 3.64475434669*^9, 3.644754366488*^9}, {3.644754397835*^9,
6726 3.644754404227*^9}, {3.644755499117*^9, 3.6447554996280003`*^9}}],
6727
6728Cell[BoxData["124.52251903697032`"], "Output",
6729 CellChangeTimes->{
6730 3.6447543329119997`*^9, {3.644754379227*^9, 3.644754404763*^9},
6731 3.644755500358*^9}],
6732
6733Cell[BoxData["89.11803801612251`"], "Output",
6734 CellChangeTimes->{
6735 3.6447543329119997`*^9, {3.644754379227*^9, 3.644754404763*^9},
6736 3.644755500361*^9}],
6737
6738Cell[BoxData["13614.899485445241`"], "Output",
6739 CellChangeTimes->{
6740 3.6447543329119997`*^9, {3.644754379227*^9, 3.644754404763*^9},
6741 3.644755500363*^9}]
6742}, Open ]],
6743
6744Cell[CellGroupData[{
6745
6746Cell[BoxData[{
6747 RowBox[{
6748 RowBox[{"apreshock", " ", "=", " ", "90.66"}], ";"}], "\[IndentingNewLine]",
6749 RowBox[{
6750 RowBox[{"vpreshock", "=", "136"}], ";"}], "\[IndentingNewLine]",
6751 RowBox[{"vpostshockcheck", " ", "=", " ",
6752 RowBox[{"(",
6753 RowBox[{"vpreshock", "-",
6754 RowBox[{
6755 RowBox[{"(",
6756 FractionBox["2",
6757 RowBox[{"gamma", "+", "1"}]], ")"}], "*",
6758 RowBox[{"(",
6759 FractionBox[
6760 RowBox[{
6761 SuperscriptBox["M0", "2"], "-", "1"}], "M0"], ")"}], "*",
6762 "apreshock"}]}], ")"}]}]}], "Input",
6763 CellChangeTimes->{{3.644750984133*^9, 3.644751064359*^9}, {
6764 3.6447511202390003`*^9, 3.6447511452460003`*^9}, {3.644751218005*^9,
6765 3.6447512189*^9}, {3.644751486749*^9, 3.6447515017320004`*^9}, {
6766 3.644751694377*^9, 3.6447517062799997`*^9}, {3.6447521988120003`*^9,
6767 3.6447522171549997`*^9}, {3.64475564554*^9, 3.644755698708*^9}, {
6768 3.6447558610290003`*^9, 3.644755866*^9}}],
6769
6770Cell[BoxData["79.3375`"], "Output",
6771 CellChangeTimes->{{3.6447511243269997`*^9, 3.644751145781*^9},
6772 3.644751219348*^9, {3.644751488211*^9, 3.644751504007*^9},
6773 3.644751706791*^9, {3.644752199385*^9, 3.644752217434*^9},
6774 3.644753405031*^9, 3.644754484651*^9, 3.644755655994*^9, 3.644755699648*^9,
6775 3.644755866484*^9}]
6776}, Open ]],
6777
6778Cell[BoxData[
6779 RowBox[{
6780 RowBox[{
6781 RowBox[{"^",
6782 RowBox[{"I", "'"}]}], "m", " ", "going", " ", "to", " ", "go", " ",
6783 "with", " ", "this", " ", "one"}], ",", " ",
6784 RowBox[{
6785 RowBox[{
6786 RowBox[{
6787 "as", " ", "something", " ", "seems", " ", "to", " ", "be", " ", "off",
6788 " ", "with", " ", "the", " ", "first", " ", "thing"}], "..."}], " ",
6789 "and", " ", "I", " ", "know", " ", "that", " ", "both", " ", "of", " ",
6790 "these", " ", "should", " ", "give", " ", "me", " ", "the", " ", "same",
6791 " ",
6792 RowBox[{"results", "."}]}]}]], "Input",
6793 CellChangeTimes->{{3.644755892558*^9, 3.644755922884*^9}}],
6794
6795Cell[CellGroupData[{
6796
6797Cell[BoxData[
6798 RowBox[{"\[Rho]postshock", "*",
6799 SuperscriptBox["vpostshockcheck", "2"]}]], "Input",
6800 CellChangeTimes->{{3.644754537134*^9, 3.644754553005*^9}}],
6801
6802Cell[BoxData["9155.953504185602`"], "Output",
6803 CellChangeTimes->{3.644754553398*^9}]
6804}, Open ]],
6805
6806Cell[BoxData[
6807 RowBox[{"Check", " ", "the", " ", "uniform", " ", "collapse", " ",
6808 "solutions", " ", "for", " ", "the", " ",
6809 RowBox[{"box", ":"}]}]], "Input",
6810 CellChangeTimes->{{3.644755949829*^9, 3.644755961475*^9}}],
6811
6812Cell[BoxData[{
6813 RowBox[{
6814 RowBox[{"t1", "=", "0"}], ";"}], "\[IndentingNewLine]",
6815 RowBox[{
6816 RowBox[{"t2", "=", ".24"}], ";"}], "\[IndentingNewLine]",
6817 RowBox[{
6818 RowBox[{"timestep", "=", "0.001"}], ";"}], "\[IndentingNewLine]",
6819 RowBox[{
6820 RowBox[{"r", "=",
6821 RowBox[{"Table", "[",
6822 RowBox[{
6823 RowBox[{"r0", "*",
6824 SuperscriptBox[
6825 RowBox[{"(",
6826 RowBox[{"Cos", "[",
6827 RowBox[{"\[Xi]", "/.",
6828 RowBox[{"First", "[",
6829 RowBox[{"FindRoot", "[",
6830 RowBox[{
6831 RowBox[{"\[Xi]", "+",
6832 RowBox[{
6833 FractionBox["1", "2"],
6834 RowBox[{"Sin", "[",
6835 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
6836 RowBox[{"k", "*", "t"}]}], ",", " ",
6837 RowBox[{"{",
6838 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}], "]"}],
6839 ")"}], "2"]}], ",",
6840 RowBox[{"{",
6841 RowBox[{"t", ",", "t1", ",", "t2", ",", " ", "timestep"}], "}"}]}],
6842 "]"}]}], ";"}], "\[IndentingNewLine]",
6843 RowBox[{
6844 RowBox[{"r2", "=",
6845 RowBox[{"Table", "[",
6846 RowBox[{
6847 RowBox[{"r02", "*",
6848 SuperscriptBox[
6849 RowBox[{"(",
6850 RowBox[{"Cos", "[",
6851 RowBox[{"\[Xi]", "/.",
6852 RowBox[{"First", "[",
6853 RowBox[{"FindRoot", "[",
6854 RowBox[{
6855 RowBox[{"\[Xi]", "+",
6856 RowBox[{
6857 FractionBox["1", "2"],
6858 RowBox[{"Sin", "[",
6859 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
6860 RowBox[{"k", "*", "t"}]}], ",", " ",
6861 RowBox[{"{",
6862 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}], "]"}],
6863 ")"}], "2"]}], ",",
6864 RowBox[{"{",
6865 RowBox[{"t", ",", "t1", ",", "t2", ",", " ", "timestep"}], "}"}]}],
6866 "]"}]}], ";"}], "\[IndentingNewLine]",
6867 RowBox[{
6868 RowBox[{"rsmall", " ", "=", " ",
6869 RowBox[{"Table", "[",
6870 RowBox[{
6871 RowBox[{".1", "*",
6872 SuperscriptBox[
6873 RowBox[{"(",
6874 RowBox[{"Cos", "[",
6875 RowBox[{"\[Xi]", "/.",
6876 RowBox[{"First", "[",
6877 RowBox[{"FindRoot", "[",
6878 RowBox[{
6879 RowBox[{"\[Xi]", "+",
6880 RowBox[{
6881 FractionBox["1", "2"],
6882 RowBox[{"Sin", "[",
6883 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
6884 RowBox[{"k", "*", "t"}]}], ",", " ",
6885 RowBox[{"{",
6886 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}], "]"}],
6887 ")"}], "2"]}], ",",
6888 RowBox[{"{",
6889 RowBox[{"t", ",", "t1", ",", "t2", ",", " ", "timestep"}], "}"}]}],
6890 "]"}]}], ";"}], "\[IndentingNewLine]",
6891 RowBox[{
6892 RowBox[{"t", "=",
6893 RowBox[{"Table", "[",
6894 RowBox[{"t", ",",
6895 RowBox[{"{",
6896 RowBox[{"t", ",", "t1", ",", "t2", ",", "timestep"}], "}"}]}], "]"}]}],
6897 ";"}], "\[IndentingNewLine]",
6898 RowBox[{"ListPlot", "[",
6899 RowBox[{
6900 RowBox[{"{",
6901 RowBox[{
6902 RowBox[{"Transpose", "[",
6903 RowBox[{"{",
6904 RowBox[{"t", ",", "r"}], "}"}], "]"}], ",",
6905 RowBox[{"Transpose", "[",
6906 RowBox[{"{",
6907 RowBox[{"t", ",", "r2"}], "}"}], "]"}], ",", " ",
6908 RowBox[{"Transpose", "[",
6909 RowBox[{"{",
6910 RowBox[{"t", ",", " ", "rsmall"}], "}"}], "]"}]}], "}"}], " ", ",",
6911 " ",
6912 RowBox[{"AxesLabel", " ", "\[Rule]", " ",
6913 RowBox[{"{",
6914 RowBox[{"time", ",", " ", "position"}], "}"}]}]}],
6915 "]"}], "\[IndentingNewLine]",
6916 RowBox[{
6917 RowBox[{"Transpose", "[",
6918 RowBox[{"{",
6919 RowBox[{"t", ",", "r"}], "}"}], "]"}], "//", "MatrixForm"}]}], "Input"],
6920
6921Cell[BoxData[
6922 RowBox[{"ListPlot", "[",
6923 RowBox[{
6924 RowBox[{"Table", "[",
6925 RowBox[{
6926 RowBox[{"Transpose", "[",
6927 RowBox[{"{",
6928 RowBox[{
6929 RowBox[{"Table", "[",
6930 RowBox[{
6931 RowBox[{"r0CF", "*",
6932 SuperscriptBox[
6933 RowBox[{"(",
6934 RowBox[{"Cos", "[",
6935 RowBox[{"\[Xi]", "/.",
6936 RowBox[{"First", "[",
6937 RowBox[{"FindRoot", "[",
6938 RowBox[{
6939 RowBox[{"\[Xi]", "+",
6940 RowBox[{
6941 FractionBox["1", "2"],
6942 RowBox[{"Sin", "[",
6943 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
6944 RowBox[{"kCF", "*", "tCF"}]}], ",", " ",
6945 RowBox[{"{",
6946 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
6947 "]"}], ")"}], "2"]}], ",",
6948 RowBox[{"{",
6949 RowBox[{"r0CF", ",", "rCF1", ",", "rCF2", ",", " ", "rCFstep"}],
6950 "}"}]}], "]"}], ",",
6951 RowBox[{"Table", "[",
6952 RowBox[{
6953 RowBox[{
6954 RowBox[{"(",
6955 RowBox[{
6956 RowBox[{"(",
6957 RowBox[{
6958 RowBox[{"(",
6959 RowBox[{"4", "/", "3"}], ")"}], "*", "\[Pi]", "*",
6960 SuperscriptBox[
6961 RowBox[{"(", "r0CF", ")"}], "3"], "*", "\[Rho]0"}], ")"}],
6962 "/",
6963 RowBox[{"(",
6964 RowBox[{
6965 FractionBox["4", "3"], "\[Pi]",
6966 SuperscriptBox[
6967 RowBox[{"(",
6968 RowBox[{"r0CF", "*",
6969 SuperscriptBox[
6970 RowBox[{"(",
6971 RowBox[{"Cos", "[",
6972 RowBox[{"\[Xi]", "/.",
6973 RowBox[{"First", "[",
6974 RowBox[{"FindRoot", "[",
6975 RowBox[{
6976 RowBox[{"\[Xi]", "+",
6977 RowBox[{
6978 FractionBox["1", "2"],
6979 RowBox[{"Sin", "[",
6980 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
6981 RowBox[{"kCF", "*", "tCF"}]}], ",", " ",
6982 RowBox[{"{",
6983 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
6984 "]"}], ")"}], "2"]}], ")"}], "3"]}], ")"}]}], ")"}], "*",
6985 SuperscriptBox[
6986 RowBox[{"(",
6987 RowBox[{"-",
6988 SqrtBox[
6989 RowBox[{
6990 FractionBox[
6991 RowBox[{"8", "\[Pi]"}], "3"], "GCF", "*", "\[Rho]0CF", "*",
6992 SuperscriptBox["r0CF", "2"],
6993 RowBox[{"(",
6994 RowBox[{
6995 FractionBox["r0CF",
6996 RowBox[{"r0CF", "*",
6997 SuperscriptBox[
6998 RowBox[{"(",
6999 RowBox[{"Cos", "[",
7000 RowBox[{"\[Xi]", "/.",
7001 RowBox[{"First", "[",
7002 RowBox[{"FindRoot", "[",
7003 RowBox[{
7004 RowBox[{"\[Xi]", "+",
7005 RowBox[{
7006 FractionBox["1", "2"],
7007 RowBox[{"Sin", "[",
7008 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
7009 RowBox[{"kCF", "*", "tCF"}]}], ",", " ",
7010 RowBox[{"{",
7011 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
7012 "]"}], ")"}], "2"]}]], "-", "1"}], ")"}]}]]}], ")"}],
7013 "2"]}], ",",
7014 RowBox[{"{",
7015 RowBox[{
7016 "r0CF", ",", " ", "rCF1", ",", " ", "rCF2", ",", " ", "rCFstep"}],
7017 "}"}]}], "]"}]}], " ", "}"}], "]"}], ",", " ",
7018 RowBox[{"{",
7019 RowBox[{
7020 "tCF", ",", " ", "tCF1", ",", " ", "tCF2", ",", " ", "tCFstep"}],
7021 "}"}]}], "]"}], ",", " ",
7022 RowBox[{"AxesLabel", "\[Rule]",
7023 RowBox[{"{",
7024 RowBox[{
7025 "\"\<r\>\"", ",", " ", "\"\<\!\(\*SubscriptBox[\(P\), \(ram\)]\)\>\""}],
7026 "}"}]}], ",", " ",
7027 RowBox[{"Epilog", "\[Rule]",
7028 RowBox[{"{",
7029 RowBox[{
7030 RowBox[{"Directive", "[",
7031 RowBox[{"{",
7032 RowBox[{"Thick", ",", " ", "Red"}], "}"}], "]"}], ",", " ",
7033 RowBox[{"Line", "[",
7034 RowBox[{"{",
7035 RowBox[{
7036 RowBox[{"{",
7037 RowBox[{"15", ",", " ", "27653"}], "}"}], ",",
7038 RowBox[{"{",
7039 RowBox[{"35", ",", " ", "27653"}], "}"}]}], "}"}], "]"}]}], "}"}]}],
7040 ",",
7041 RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input"],
7042
7043Cell[CellGroupData[{
7044
7045Cell[BoxData[
7046 RowBox[{"ListLinePlot", "[",
7047 RowBox[{
7048 RowBox[{"Table", "[",
7049 RowBox[{
7050 RowBox[{"Transpose", "[",
7051 RowBox[{"{",
7052 RowBox[{
7053 RowBox[{"Table", "[",
7054 RowBox[{"tCF", ",", " ",
7055 RowBox[{"{",
7056 RowBox[{"tCF", ",", "tCF1", ",", "3.85", ",", " ", ".1"}], "}"}]}],
7057 "]"}], ",",
7058 RowBox[{"Table", "[",
7059 RowBox[{
7060 RowBox[{"r0CF", "*",
7061 SuperscriptBox[
7062 RowBox[{"(",
7063 RowBox[{"Cos", "[",
7064 RowBox[{"\[Xi]", "/.",
7065 RowBox[{"First", "[",
7066 RowBox[{"FindRoot", "[",
7067 RowBox[{
7068 RowBox[{"\[Xi]", "+",
7069 RowBox[{
7070 FractionBox["1", "2"],
7071 RowBox[{"Sin", "[",
7072 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
7073 RowBox[{"kCF", "*", "tCF"}]}], ",", " ",
7074 RowBox[{"{",
7075 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
7076 "]"}], ")"}], "2"]}], ",",
7077 RowBox[{"{",
7078 RowBox[{
7079 "tCF", ",", " ", "tCF1", ",", " ", "3.85", ",", " ", ".1"}],
7080 "}"}]}], " ", "]"}]}], "}"}], "]"}], ",", " ",
7081 RowBox[{"{",
7082 RowBox[{
7083 "r0CF", ",", " ", "rCF1", ",", " ", "rCF2", ",", " ", "rCFstep"}],
7084 "}"}]}], "]"}], " ", ",", " ",
7085 RowBox[{"AxesLabel", "\[Rule]",
7086 RowBox[{"{",
7087 RowBox[{"\"\<t\>\"", ",", " ", "\"\<r\>\""}], "}"}]}], ",", " ",
7088 RowBox[{"Epilog", "\[Rule]",
7089 RowBox[{"{",
7090 RowBox[{
7091 RowBox[{"Directive", "[",
7092 RowBox[{"{",
7093 RowBox[{"Thick", ",", " ", "Red"}], "}"}], "]"}], ",", " ",
7094 RowBox[{"Line", "[",
7095 RowBox[{"{",
7096 RowBox[{
7097 RowBox[{"{",
7098 RowBox[{"2.25", ",", " ", "0"}], "}"}], ",",
7099 RowBox[{"{",
7100 RowBox[{"2.25", ",", " ", "40"}], "}"}]}], "}"}], "]"}]}],
7101 "}"}]}]}], "]"}]], "Input",
7102 CellChangeTimes->{{3.644756126736*^9, 3.644756216602*^9},
7103 3.644756333651*^9, {3.644756430935*^9, 3.6447564725299997`*^9}, {
7104 3.644756525894*^9, 3.644756632052*^9}, {3.644756683898*^9,
7105 3.6447567242390003`*^9}, {3.644756773406*^9, 3.644756786835*^9}, {
7106 3.644756860354*^9, 3.644756860752*^9}, {3.644761518344*^9,
7107 3.644761536352*^9}, {3.644761695197*^9, 3.6447617175369997`*^9},
7108 3.644763688766*^9, {3.6447637256210003`*^9, 3.644763776051*^9}}],
7109
7110Cell[BoxData[
7111 GraphicsBox[{{}, {{}, {},
7112 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.006944444444444445],
7113 AbsoluteThickness[1.6], LineBox[CompressedData["
71141:eJxTTMoPSmViYGBQB2IQjQpMHGbNBIGd9lmBYppn/xpD+Sftj97pXGP83djB
7115xBgELttv3TBpgcEbmPxN+69RoUr77xg7QMx5YB85+47njRMw9Y/tHZbelyje
7116YOyQngYCz+wvLH+d3DIZpv+l/ZGaxK3/Co0dzp4BgTf2gl+6NS95w8z7YL/s
7117xl2nNwow9R/tV2SrbjX/aAQ1/7P9/IWGanP2GEH1f7H/UvDv4d8mI6h93+yr
71182n/W27oYQc37YW9b6FpmzmAENe+nvY4Mw/TD2wyh5v22j2RNK9qSbgg174+9
7119f5D49GtChlDz/tmrLJu9/P12A6h5DA47rzlZ7g0zgKpncHC+1Xfj2V19qPmM
7120DkZP+P3KGPSh+pkcWJbNXBUvoge1j9nhzKoZ/3ZI6ELNY3FY+W3q+3weHah5
7121LA5KTPmN9u+0oOaxOnQ8DlNetEcTah6bw7J93Rr7SjWg5rE7FM68tNBTXB1q
7122HodDdH1WeMI8Vah5HA5sG4OCnNhVoOZxOpg6NwS/8FGCmsflYPZryQG3DAWo
7123edwOHktn2R2eKwM1j8dB54LQ5/j74lDzeBwY1d7WzA0VgprH6xBRt3mlwTE2
7124qHl8DnzLTUwD3z+xBwB25wCq
7125 "]]},
7126 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.006944444444444445],
7127 AbsoluteThickness[1.6], LineBox[CompressedData["
71281:eJxTTMoPSmViYGBQB2IQjQIaTBxmzQSBnfbFwq/E9tfC+CftN7xYFvu7zMTB
7129xBgELtvv7Dt5fWM2TP6m/RUxw+a70SYOEIMe2OcFbfUud4epf2yvd63uZ6me
7130iUN6Ggg8sz8fMU/ynABM/0v7mp0BDwrfGTucPQMCb+yPFuuzBB43hpr3wX7V
71319LCJEbONoeo/2qtFu20uyjKGmv/Z3vn+p+I2E5j+L/bHjbnzyn8aQe37Zi8Q
71329zNfdacR1Lwf9kJTcnlyio2g5v20fyCTIKKkYQQ177f9I22nrxLXDaHm/bGf
7133+Lz8i3SDIdS8f/beXf/t3isZQs1jcNi4Vfyg334DqHoGhzvnk7a+CTGAms/o
7134sFls7sr7x/Sh+pkcYmvv8j26oge1j9nB9dGhix8u6ULNY3HI3fZz96f9OlDz
7135WBz+6FVsnDVLG2oeq8M8fsuUyEQtqHlsDlmLv/p7CmlCzWN3cL9bfl9wtTrU
7136PA6HfV9nRu7RUIOax+HgcGjK8YJ2Fah5nA4bBP/uZj+kBDWPy+Hes9JWj4sK
7137UPO4HS74ayu8CJGFmsfjoPuoZ79GhQTUPB6H6LU8C76cEoKax+vw/LjKw4/h
71387FDz+BystTuv+ZQ+tQcAycQF8w==
7139 "]]},
7140 {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.006944444444444445],
7141 AbsoluteThickness[1.6], LineBox[CompressedData["
71421:eJxTTMoPSmViYGBQB2IQjQpMHWbNBIGd9jVX97Js/GsC5Z+0n/PlMN/hbyYO
7143JsYgcNl+Xw4Dv/FrmPxN+y2XeJ78vmXiADHngX0LZ5+v2DGY+sf2MuxytyrW
7144mDikp4HAM/uznIHnxftg+l/am36z536aZeJw9gwIvLGv+Hzp3nknmHkf7NeF
7145nb9/RBSm/qP9Eq/0jWsfG0PN/2z/XGbLwYI1xlD9X+xnfhP/9SHfGGrfN/tl
7146Jj/jefWMoeb9sH++beqiBc+MoOb9tJ8ie2Biw0wjqHm/7bOC5Cpq3Yyg5v2x
7147v1xzIzDxrSHUvH/2RXnJ1971GkLNY3BYOeWNxwN1Q6h6BodpRnX/nu4ygJrP
71486DBLZWrTEjcDqH4mh+0hisUpU/Wh9jE77JV8u0SjVw9qHouDYVlsR2mxLtQ8
7149Fodr0Y0Pv7rpQM1jddhqLb1UgE0bah6bg35HfPmVdZpQ89gdZBVlZW/ZaUDN
715043BQyDkZLbFZDWoeh0PV5Ws289lVoeZxOmg/qFRRN1eGmsfl0HbZzcvLShFq
7151HrdDxK/djLw8clDzeBz0vrD1fBSQhJrH47DFROewt4Mw1DxehzLBaRKbX7JD
7152zeNzyFx/t9zj91N7AEgi/50=
7153 "]]},
7154 {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.006944444444444445],
7155 AbsoluteThickness[1.6], LineBox[CompressedData["
71561:eJxTTMoPSmViYGBQB2IQjQIaTB1mzQSBnfat0yd+WlQL45+0b2d4uL+rzNTB
7157xBgELtsf8jJ325IFk79pP6XvhYtUlKkDxKAH9jMPpPlvdYGpf2zPbbF3V7WW
7158qUN6Ggg8sz+zi7k1kRum/6X9WyN9s4jnJg5nz4DAG3ud4rKdfvtMoOZ9sN8k
71596qFnOMEEqv6jvZJVx/oXMSZQ8z/bd0eV8kerwPR/sc/ZqdKW9cwYat83e1vu
7160n/5fFxlDzfthv+fmXourkcZQ837ae8op8N/nMoaa99v+c8WvXw+3GkHN+2Mv
7161KmS5flmUEdS8f/azgo7nvvthCDWPwWFh8cELhRMMoeoZHAKnznS/r2AINZ/R
71624fbeaIObKw2g+pkcOKZtyv6sZQC1j9nBNFC8IsFdH2oei8NX04MhP9T0oOax
7163OGzs6BIM/KwDNY/V4Uz636fHV2lDzWNz+Jxzcl68txbUPHaHzymHohZd0oCa
7164x+HQ9OhHbImtOtQ8DofNTyQ2nW1XhZrH6bBs3bcetzXKUPO4HHQPiPP7LFaE
7165msft8GCJz2PDw3JQ83gc9NkaI3atlISax+PAt8f72aKtwlDzeB1Yo9kDSqo5
7166oObxOUwzNpJ0aXxmDwBSNf9T
7167 "]]},
7168 {RGBColor[0.528488, 0.470624, 0.701351], PointSize[0.006944444444444445],
7169 AbsoluteThickness[1.6], LineBox[CompressedData["
71701:eJxTTMoPSmViYGBQB2IQjQrMHGbNBIGd9n2RqQ+m/DWF8k/aF/H8Kwj6Zupg
7171YgwCl+2Pa+TVmr6Cyd+0L/E6stTipqkDxJwH9uvL7QNDDsPUP7b/mREzu26F
7172qUN6Ggg8sz+dvc1qdQdM/0v7pflyiaeTTR3OngGBN/YPPklOOWsJM++D/bYr
7173B2rmcsHUf7RfoLlyrfI1E6j5n+31Z5jFus4xger/Ym9fYyj0JMYEat83+8sP
7174f9jfFTeBmvfDfsKfp+c4zxpDzftp/1euoce2xhhq3m/7mvnXat1UjaHm/bEP
7175Xz6T581xI6h5/+wPmmmzvks2gprH4DAjaFoE809DqHoGB+4fWybcaDOEms/o
7176IBOudI+X1xCqn8lha+OVuSbdBlD7mB3CjyxQPcNgADWPxWHXVxXF6lt6UPNY
7177HLq3TnZcM18Xah6rw6PJ99Xq/XWg5rE5bA80PvbquRbUPHaHkyvSZ2SlaULN
717843B4EqGRcOG4OtQ8Doe3X6PU/7CrQc3jdFCsLf6aqqgCNY/L4eqaF5d9eZSg
71795nE7ZPjfPRJWJQ81j8fBQOK3SrOTFNQ8HocM52zOX1oiUPN4HaYsqWg35eWE
7180msfncHh72y579uf2AF6LAbE=
7181 "]]},
7182 {RGBColor[0.772079, 0.431554, 0.102387], PointSize[0.006944444444444445],
7183 AbsoluteThickness[1.6], LineBox[CompressedData["
71841:eJxTTMoPSmViYGBQB2IQjQIazBxmzQSBnfbTpS3PtdXC+Cft4ySklaTKzBxM
7185jEHgsv1ptqVbtmXC5G/aB7MtYAuPMHOAGPTA/oieRPBnR5j6x/YvZv6ublQz
7186c0hPA4Fn9qdkMj98YYXpf2kfu4a3x+6BqcPZMyDwxn5y0d48n62mUPM+2O+a
7187bHmas9UUqv6jvZzkqdVx/qZQ8z/bX776fZW+CEz/F3she7t5sZdNoPZ9s8/c
71888UP/aI8J1Lwf9qnyfKl2DiZQ837ab5R/wDnnrTHUvN/2LMc2MayeYgw174/9
7189TJtfmYamxlDz/tm/kOqf8/acEdQ8BocJhtkPpiQaQdUzOByLunDz4htDqPmM
7190DjEfXnQ7FRhC9TM5JOV+O1/62gBqH7OD8ANT/hexBlDzWBzqtna8/durDzWP
7191xSHt0ZxCdh89qHmsDj/3H0w3+6IDNY/Nodps7tvSFm2oeewO89/wXDP6pQk1
7192j8PB/Xx4kk6QBtQ8Dgd19rlztDrUoOZxOsz2/hDbOk0Fah6XQ+3MnTP8S5Wg
71935nE7/PhjdnmvhALUPB4HQ63Sj963paDm8TgcPNWlE7hABGoer4Pyu5f7vs3j
7194hJrH5/DB+na0de9zewDXdQIJ
7195 "]]},
7196 {RGBColor[0.363898, 0.618501, 0.782349], PointSize[0.006944444444444445],
7197 AbsoluteThickness[1.6], LineBox[CompressedData["
71981:eJxTTMoPSmViYGBQB2IQjQrMHWbNBIGd9gvu8uyp+GsG5Z+091SxuPzwq5mD
7199iTEIXLa/8OT2a/OXMPmb9saHqtNLr5s5QMx5YH/z6YeQSQdg6h/bXzs1K6Zl
7200iZlDehoIPLM/eVZ6mV0zTP9Le9GXf7ZtjDFzOHsGBN7Yu39K8DxtADPvg/2+
7201oE2SZf9Noeo/2s/meL1y5glTqPmf7cuFd/6Q7DGF6v9i/5TRW+u6pynUvm/2
7202DP0/5NcymkLN+2Fv5WT2u2izCdS8n/ZpCg7tv+JMoOb9tu9909fMz2ICNe+P
7203/e2LUcfLFhlDzftnL/D/k/FbS2OoeQwOHQIOGWqnjKDqGRwa9r5WOh1kBDWf
72040WFu53rL8suGUP1MDvyREkzbvQ2h9jE7nP996gfzbgOoeSwOC62+xRxQMICa
7205x+LgwL9sYdIPPah5rA78bxaveDtDF2oem4O9NLsoo6IO1Dx2h1KDTcK/e7Wg
72065nE4rHRtT+m4owE1j8MhQeK+YCSHOtQ8TgcxqdxjS7hVoeZxOai0dcUG3lOC
7207msftYBP03zmgRAFqHo+Dkc37vSIl0lDzeBykg1b5rxAVhZrH67DJPPrbdgMu
7208qHl8DrIH9P+aCb+wBwC6rv5c
7209 "]]},
7210 {RGBColor[1, 0.75, 0], PointSize[0.006944444444444445], AbsoluteThickness[
7211 1.6], LineBox[CompressedData["
72121:eJxTTMoPSmViYGBQB2IQjQIazB1mzQSBnfYr5z9YmVUL45+0NzEIbVlZau5g
7213YgwCl+2vHBJS3pkBk79pL1wXfmJymLkDxKAH9u/nnAwztIepf2x/5LelbbuS
7214uUN6Ggg8sz9edy66gwGm/6X9WdU3D1VumjmcPQMCb+x/FbKoeK0xg5r3wf6w
7215oHbGo0ozqPqP9pI/uFdccTSDmv/ZXjqwyo2FBab/i/2OI+HbAg6YQu37Zj8t
72169Qf/1DJTqHk/7PlT4yYuVzOFmvfTXkpxAUvkBROoeb/tRYWz2UqKTaDm/bGX
7217Td+tsoffBGreP3vzx2Gn3ywxhprH4NDwXuTDdiNjqHoGB2sF9pwjO4yg5jM6
72183FUqe77azAiqn8lhj4uVyY/VhlD7mB26xRMeyUsYQs1jcWiW0jjcWGUANY/F
7219Qdpm/cW9S/Sh5rE6qEm0vVxiqwc1j82BmaHQpmevDtQ8dgfvkvDAw4raUPM4
7220HLj3bEt7kqYJNY/DYZamYnt7hzrUPE6HiS9e6h1pUIWax+VwpihaKdhdGWoe
7221t0PD8uNbHp1XgJrH42Dsl9l1l0cGah6PQ8nNk0X/u0Sh5vE6ODae0a08xAU1
7222j8/By6VlntHMF/YAOsL4Wg==
7223 "]]},
7224 {RGBColor[0.647624, 0.37816, 0.614037], PointSize[0.006944444444444445],
7225 AbsoluteThickness[1.6], LineBox[CompressedData["
72261:eJxTTMoPSmViYGBQB2IQjQosHGbNBIGd9psSt0yP+WsO5Z+0V7ApMi38au5g
7227YgwCl+1vLvCMsnoBk79p/8nSWHPTVXMHiDkP7FlCFkVc2AtT/9h+s85N2a4F
72285g7paSDwzP6YfqPgpVqY/pf2rUm3eWaEmjucPQMCb+zXfVz+74Q6zLwP9scv
7229LN7m98UMqv6j/fTnOsv4d5tBzf9sv7/Pesq7ajOo/i/23e0pTqfMzKD2fbPX
7230sfnxv+a1KdS8H/aP29vU78w0hZr30/6cIkPTdkdTqHm/7edZunfeeGQCNe+P
7231fdwf6SbGWhOoef/s447vSnrDbwI1j8Gh4tzLcs/ZxlD1DA5fm5S27pUzhprP
72326CC3x2bqg5lGUP1MDhkGMWmWPEZQ+5gdPIy/nrYuNYSax+KQ+itS0/mKAdQ8
7233FocqkzsNPRoGUPNYHWxcMrRiHulBzWNzOPHkVrJ4lC7UPHYHpR1/+rq3akPN
723443DIM3qW4fBRE2oeh8MVq+Q/Wzk0oOZxOvBsT5v++Ksq1Dwuh5J4nechG5Sh
72355nE7HPnTr1qqrQg1j8fBJOFx2LKlMlDzeBzOJbycGsYgBjWP1+HCKdtUqxBu
7236qHl8DhUnbtjryb+0BwDE4AKZ
7237 "]]},
7238 {RGBColor[0.571589, 0.586483, 0.], PointSize[0.006944444444444445],
7239 AbsoluteThickness[1.6], LineBox[CompressedData["
72401:eJxTTMoPSmViYGBQB2IQjQIaLBxmzQSBnfa7lTta/Wph/JP23B79zyxKLRxM
7241jEHgsv3duoaJu9Nh8jftL33l67oQYuEAMeiBvRR3dVS+DUz9Y/uFsRX/euQs
7242HNLTQOCZ/dEHxself5tD9b+0t51/ypz7krnD2TMg8MY+qdD7pvtic6h5H+xP
724398uw7s6Dqf9oL3rdd4mXiTnU/M/2yWf+PLzx2Qyq/4t9nFfhOee1ZlD7vtkf
7244EvrxPiXBDGreD/sdq9btFeA1g5r3075ZKeG/6GZTqHm/7dUTlHlsg0yh5v2x
7245XzCx5r7bKxOoef/s21bL/XpdZQI1j8GhYO2+/7eYTaDqGRzWP7X9t63FGGo+
7246o0N8KLOz6F8jqH4mB1GZuhlVOUZQ+5gdWPy7toZfMoSax+Lgfqu7n0XPEGoe
7247i8OLUw8kdtUZQM1jdQgu8MoWbteHmsfm0HPSpXvRN12oeewOP34vPBPsqQM1
7248j8PhwgrR7DnVWlDzOBz4fJYWPunQgJrH6dDe+vg/U7Ya1DwuBxmfv6vDJFWg
72495nE7cAZFTGNvV4Sax+NgVhSrnG8nCzWPx0HjBcfOtaViUPN4HeJF1s/5/ZQb
7250ah6fw1If3YeaS1/aAwB6mv5p
7251 "]]},
7252 {RGBColor[0.915, 0.3325, 0.2125], PointSize[0.006944444444444445],
7253 AbsoluteThickness[1.6], LineBox[CompressedData["
72541:eJxTTMoPSmViYGBQB2IQjQosHWbNBIGd9keeRhc7/LWA8k/afwteM53hq4WD
7255iTEIXLZ/FLP9hM1zmPxN+00bX716d9nCAWLOA3v9Q8ExfLth6h/bT+gTv98/
7256x8IhPQ0EntkfmfisJrUCpv+l/dfbO5Pq/Cwczp4BgTf2oh/fbT4mBzPvg/15
7257v6nB6i/Noeo/2k8+lreoda051PzP9uxc+/QPZ5tD9X+xN+Sti9qrbA6175t9
7258xMvv932umkHN+2Hfe/ZasGuDGdS8n/bmygdqSlTMoOb9tl/f9r9v4UFTqHl/
72597B+p3bXpCTeFmvfPfm1/08TXT02g5jE4pPdMbs/JMYGqZ3DI8oh03/DKGGo+
7260o8P8dyc/eCYYQ/UzORxiX3Bq9xkjqH3MDgey5OcX6xtBzWNx0Ny19+vRdkOo
7261eSwOoYlPNzy/YgA1j9XB1E8s7KmoAdQ8NoeAdes26U7Wg5rH7nDO3p1L5q4O
72621DwOByN519wfrNpQ8zgcPGKfPxPi1ISax+nAFJKQofRADWoel8MRi3MFEU0q
7263UPO4HXyXK7DPeqQINY/Hwbzl+nvz67JQ83gcGvM17rC8FoOax+vwLlbhyp5y
7264Hqh5fA6XLjQ2qWq/sgcAcJwGWA==
7265 "]]},
7266 {RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], PointSize[
7267 0.006944444444444445], AbsoluteThickness[1.6], LineBox[CompressedData["
72681:eJxTTMoPSmViYGBQB2IQjQIaLB1mzQSBnfZnl+snGtXC+CftH8Wf9DhRYulg
7269YgwCl+2fWb37vzcNJn/TflLuMW/eYEsHiEEP7F0rdeLWWsLUP7av279t/yQp
7270S4f0NBB4Zn/YaabR+q8WUP0v7ddJrOz9eMrC4ewZEHhjf7JgUp/rLAuoeR/s
7271L/PyLZqcDFP/0V5gW/+CA2oWUPM/2692r69d+9gcqv+LPfOFrmdms8yh9n2z
7272f7//+3kTL3OoeT/sEz/8e1n52Qxq3k/718oKvy5NNYOa99veYu1tQTZDM6h5
7273f+xV9tjOunjEFGreP/srxc80XgeYQs1jcIjPzuD/d8UEqp7BQWV1yYSVASZQ
72748xkdHrRPmFd32Biqn8kh//PBP390jKH2MTvUtG3p6O8xgprH4sAz6310+0ND
7275qHksDoe+v/QQ1TaEmsfq4JDS/s0hwwBqHpuDyGSJWzv09aHmsTssaX7j/qRA
7276F2oeh8OUqSX5IRO0oeZxODTmacY4dmpCzeN0qFW6e8ExVB1qHpdDtup806jX
7277KlDzuB0m/nlRrmOnBDWPx8FiWuAehgI5qHk8Dre/uf+PThCHmsfrULt8Incd
7278Jy/UPD6H/yHXlBU3vrIHAF3XBks=
7279 "]]},
7280 {RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142],
7281 PointSize[0.006944444444444445], AbsoluteThickness[1.6],
7282 LineBox[CompressedData["
72831:eJxTTMoPSmViYGBQB2IQjQqsHGbNBIGd9tcymf1V/lpC+Sftz2Y/+9n/xdLB
7284xBgELtu/llA1t38Gk79pX6i5aI32JUsHiDkP7KMMWBN8dsDUP7bP+RC6YOoM
7285S4f0NBB4Zn/ws/eLH0Uw/S/t00Jn7Ehxt3Q4ewYE3tjXfDDNPCIKM++D/fUz
7286bR/+37WAqv9o37d0w7zf8y2g5n+29291OD092gKq/4v9tUnTizYIWEDt+2bf
7287Ou37fpn95lDzftibCas3rEszh5r3036+SkO5Ibs51Lzf9gcub5+StcAMat4f
7288+7TAed/FjMyg5v2z/x3udeDVblOoeQwO4V620/ttTaHqGRzu8064uWibCdR8
7289RgcFxXCfzWomUP1MDjL3H+vZ9RpD7WN2sFjkWbT6pRHUPBaHd5WKhzysjaDm
7290sTjo97174NRoCDWP1cG76se0ObsMoOaxOdwob2J0OaMPNY/doer4xNY1LHpQ
72918zgcvnMvKdwgpQM1j8Nhd332xXxOLah5nA4/PkRaJp5Sh5rH5SAsVPArOkQV
7292ah63w9XAjS/2zVSCmsfjYLnidMdJDnmoeTwOJnXpSpuvikPN43Xg+cjkbD+b
7293F2oen4POTa2jMuav7QENfgI/
7294 "]]},
7295 {RGBColor[0.736782672705901, 0.358, 0.5030266573755369], PointSize[
7296 0.006944444444444445], AbsoluteThickness[1.6], LineBox[CompressedData["
72971:eJxTTMoPSmViYGBQB2IQjQIarBxmzQSBnfb3ta/biNXC+Cftd5Qzrw4vsXIw
7298MQaBy/bvv0XnHUiFyd+0D3xay+sVaOUAMeiBff7zu4mvzWDqH9tHK35tmCFm
72995ZCeBgLP7A8s+TfX6YMlVP9Le7lJ7Y+vH7Z0OHsGBN7YGxTcdHaeaAk174P9
73007e7/djkRMPUf7XmmXpxjJmkJNf+z/edDjJJNly2g+r/Yrwxd8k+z3QJq3zd7
73016dzv61lMLKDm/bDnNvMXe3zTHGreT/sQ1Qdf+ivMoeb9tvf8NVn8PL851Lw/
73029iue/QuJmW8GNe+fvbLNuvBXamZQ8xgc/DWF5BWXmULVMzjMLFitNEfGFGo+
7303o0PiLtlfzztNoPqZHE6eYk2sf2sMtY/Z4cvee9HH3Yyh5rE4XIgM1uCaagQ1
7304j8VhrsrnioLrhlDzWB3CJ2Sa/+AxhJrH5uCnVzYl3cQAah67QwC3+eGSGXpQ
73058zgcIpsuF/Ms1YGax+HwdcJat3mdWlDzOB2K919b2GCvATWPy2H3P4f9sXtV
7306oeZxO0gur4wM/KoENY/HwWqXa+ikhfJQ83gc+ljbXbm8JaDm8TrMtiqpYtDl
7307g5rH5xAZW58msfe1PQCYdf0K
7308 "]]},
7309 {RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], PointSize[
7310 0.006944444444444445], AbsoluteThickness[1.6], LineBox[CompressedData["
73111:eJxTTMoPSmViYGBQB2IQjQqsHWbNBIGd9i/frtLi+GsF5Z+0X9KsECP/xcrB
7312xBgELtt/uTJpqeNTmPxNe8OFkXkZF6wcIOY8sG+dty25aytM/WN7z6ApibOn
7313WDmkp4HAM/v9oRuDe3Jh+l/aXztXxuftYOVw9gwIvLF/8r5G7hAPzLwP9g+8
7314KnpvXLKEqv9o39XyaVbhJEuo+Z/tpzMcTsvxtoTq/2JfI7Gxa/FfC6h93+w3
7315OX+f/2aFBdS8H/YPIsrXiPtaQM37ac+h5lD07qU51Lzf9pcUCmYZ15tDzftj
7316/6o6ftNCHnOoef/svRSE3r+caAY1j8HBneP5sk18ZlD1DA4hl49lT20yhZrP
73176LAo+MlymbcmUP1MDmXb1Ccf8DWB2sfssOFmsevjxcZQ81gcNlm29p1+ZwQ1
7318j8WBa/d3gXm6RlDzWB2Slt26HhxvCDWPzWGDgrbG2iYDqHnsDmr+dxhsdfSh
73195nE47P7BVJahrws1j8NBb9H73Wc4taHmcTq86w3mWrBFA2oel0PSa8GWeDU1
7320qHncDrF/HE89DlCGmsfjIPfs/gRdWQWoeTwOL3qWZSQekICax+ug1fJ048F9
7321fFDz+BzaHl5mF3F+Yw8AsOIEGg==
7322 "]]},
7323 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.006944444444444445],
7324 AbsoluteThickness[1.6], LineBox[CompressedData["
73251:eJxTTMoPSmViYGBQB2IQjQIarB1mzQSBnfaf1tdJ/KqB8U/a9/fb8j4vtnYw
7326MQaBy/Y/Np28cygFJn/TXjDW9Hybv7UDxKAH9rNC+1M1TWDqH9ubNxs7zROy
7327dkhPA4Fn9vvYUjivvbKC6n9p38edZrlvj5XD2TMg8MZ+er7CT4cOK6h5H+yf
7328cH687eILU//RnqNEeOYabiuo+Z/tre1atoQdtoTq/2Lvf3uvmGyJJdS+b/Ye
7329Ut/7r8haQs37Yb+ler6TzwELqHk/7feoLXjvE20BNe+3fZS7j+yMd+ZQ8/7Y
73306wge4H9eaQ417599IUtZ28s/ZlDzGBzsn+/Wcyk3g6pncOAze7Sl74Up1HxG
7331h0dvVoUGBphC9TM5KC3yPMq4zgRqH7ND7lcO/f8MJlDzWBymSG7/0uNhDDWP
7332xaE88M+K081GUPNYHXL3eFes32gINY/NQUj4we5PFwyg5rE7/JnUaMd6QB9q
7333HoeDbL5RxZGdulDzOBwyNhsa/u7UhprH6ZAZc6Fov6Ym1DwuB64bjzwS+9Wg
73345nE7LAzksi5boww1j8dB7r3M94mZClDzeBwcRY517zCVhJrH67DzbNjLpgB+
7335qHl8DltSNVbyn3xjDwD54v1x
7336 "]]},
7337 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.006944444444444445],
7338 AbsoluteThickness[1.6], LineBox[CompressedData["
73391:eJxTTMoPSmViYGBQB2IQjQpsHGbNBIGd9r8Lg9je/LGG8k/aV82O2rfus7WD
7340iTEIXLb/O4FBxOUJTP6m/QcJQYOl56wdIOY8sN/Ak5F+YhNM/WN7tS2XlBZO
7341sHZITwOBZ/Z7t4vtl8+A6X9p7+YRmmJoae1w9gwIvLH3fn/48n5mmHkf7F+c
7342yNTaeNwKqv6jfVuyyfTnLVZQ8z/b3692ZXK0toLq/2KvNO/UommvLKH2fbO/
73439+Fb/Z5JllDzfth3zjt+o8HYEmreT/tCdYbc1WcsoOb9tn+cq7HgT6wF1Lw/
73449nnLFHJ1nptDzftnP/PFTdmX6eZQ8xgczI5N2Hb1vhlUPYPDiRl//7b7mUHN
7345Z3RQbitkbttsCtXP5HC+N/u7E58p1D5mB03BeRLScSZQ81gcyn6+iPJbZAw1
7346j8XhyXMGx583jaDmsTpUXtojwc1iBDWPzaGEdaq/hbwh1Dx2h8xs4X3PNA2g
73475nE4NDxNrFJw0YOax+Gw6EjxMk0uHah5nA5PtHxv35unCTWPy2HTkc28yT/U
7348oOZxOzxddmk1B4cK1DweB/kfkbHftipAzeNxmD376Tr+1ZJQ83gdPMRPKLg8
73494oeax+fw8GWNF7f/W3sAFQ8DLQ==
7350 "]]},
7351 {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.006944444444444445],
7352 AbsoluteThickness[1.6], LineBox[CompressedData["
73531:eJxTTMoPSmViYGBQB2IQjQIabBxmzQSBnfYsJmpf7tbA+Cft05aX55cV2ziY
7354GIPAZXvGfHPvo8kw+Zv2F668mXDY18YBYtAD+6OHHTLTDWHqH9uLPC1kXsJn
735545CeBgLP7HdnnCzJfGoN1f/S/l+LS/+SrdYOZ8+AwBv7/3np6+zqraHmfbB/
73560/6oQtYJpv6jPXNw6FSlf1ZQ8z/bN+9kC9DebAXV/8X+a8J1PYFEK6h93+xL
7357jn/LX8JuBTXvh33cwfd5W5dZQs37aa+qkfCK084Sat5v+5wpLMqJZy2g5v2x
735832DdeKowxAJq3j/7A2dst764ZA41j8FBb2mqXbqHOVQ9g0Pzbwn3xi1mUPMZ
7359HVLkLTbuEjOD6mdyqKns1WzJM4Xax+zwVMeYyXy3CdQ8FoeIm1IH+f8YQ81j
7360cQisY72pZmAMNY/VoeWF7s60MCOoeWwO1757Pq7NNYSax+4QwvvszqliA6h5
7361HA6PoifW1JzTg5rH4XDn6lbpiC4dqHmcDvE/Tzr/E9aCmsflELWx5VJKojrU
7362PG4HzT+zZGYnq0DN43GQZ5x+OIpJEWoej8NXJdZLaQpSUPN4HXI2yKxhshKA
7363msfnwJd38TXb1bf2AI+//Lo=
7364 "]]},
7365 {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.006944444444444445],
7366 AbsoluteThickness[1.6], LineBox[CompressedData["
73671:eJxTTMoPSmViYGBQB2IQjQpsHWbNBIGd9rzffj48/8cGyj9pH7h5ioLdZxsH
7368E2MQuGzP5pvX5PYYJn/TfsOEEx8fnrFxgJjzwP5WlWQ22waY+sf2zGKCT5b1
73692Dikp4HAM/tdkjVam5Ng+l/abztovEvcyMbh7BkQeGO/6R1X595f1lDzPth/
7370cIs+3rnHGqr+o32jU9nk2HJrqPmf7dW/H58rqm0N1f/F/oTyk12d162g9n2z
737155r3Lb6nxgpq3g974yfirK8kraDm/bS/qXEgPWO9JdS83/Zfdj1YetTGEmre
7372H/tPFx6qbz9oATXvn/3zDQt9XthaQM1jcFBrsTr2Y4M5VD2Dg22cyYQqKXOo
7373+YwOS3b8i3tfaQbVz+Sgmbo++ug5U6h9zA4LPU68DpIwhZrH4mC100f9YqgJ
73741DwWh/0iXIUhbcZQ81gd+v/Nizy0wghqHpuD5at/ZYd3G0LNY3ewX7/j97q9
7375BlDzOBxcLh2ouxGhDzWPw0Hs+fcJbVy6UPM4HW4ed1sj26kFNY/LgWle6PS0
7376U+pQ87gdcgOTe3X3q0DN43FQ4Lqiud9PEWoej4PfKpWve6dKQc3jdTAOver+
7377uEkAah6fg/Un1V6m6Hf2ALYxBos=
7378 "]]},
7379 {RGBColor[0.528488, 0.470624, 0.701351], PointSize[0.006944444444444445],
7380 AbsoluteThickness[1.6], LineBox[CompressedData["
73811:eJxTTMoPSmViYGBQB2IQjQIabB1mzQSBnfZiO86eP1gD45+0t9m/8SJrsa2D
7382iTEIXLbn0l6683gSTP6mfb/PkiAGH1sHiEEP7D8YfspZqgdT/9j+o9uGIyu5
7383bB3S00Dgmf3OU3oP/ty3gep/aZ/3T+lp1zobh7NnQOCNfVreumSbMhuoeR/s
7384v7BeEf1mBlP/0f6/4fSJMz5YQ83/bH/apPP1/0XWUP1f7Gc/++DG7GcNte+b
7385/cKSb/4lH62g5v2wZ2d3mC3XawU176d9n6bC02MKVlDzftvXPtyjobXGEmre
7386H3uTNKfWP3qWUPP+2fNPZX3yfIUF1DwGB7lkfr8uSQuoegaHHwf8bxY3mEPN
7387Z3R4GniUR+WuGVQ/k8O1gIu9bPpmUPuYHWJTYq/mlZpCzWNxkJlZ1ztpvQnU
7388PBYHndV8nE13jKHmsTrMFhH4JfvbCGoem8PsO5u5OLmMoOaxO2gFdktNZjeE
7389msfhsNzjQ4PJY32oeRwO/j8s2bZ26ULN43QImXZYxPafFtQ8LoeVXWoxGcYa
7390UPO4HTYt0/63X0oVah6Pg4Kw4ATl2YpQ83gcVhi6SIhyS0PN43X49bP38eHT
7391AlDz+Bwyyqr0/j14Zw8A6M3+VA==
7392 "]]},
7393 {RGBColor[0.772079, 0.431554, 0.102387], PointSize[0.006944444444444445],
7394 AbsoluteThickness[1.6], LineBox[CompressedData["
73951:eJxTTMoPSmViYGBQB2IQjQrsHGbNBIGd9vJVC/du/mML5Z+01zh9runsJ1sH
7396E2MQuGzPz3nng8cjmPxN+3yOhs1yp20dIOY8sGd9eSrPZS1M/WP7++X+S9d0
73972Dqkp4HAM/sd1Q+nusXC9L+0V7cWEvinZetw9gwIvLGXehdot/ujDdS8D/Y/
7398jvikJG20gar/aF+ruKP/cqYN1PzP9vlFXpavpGyg+r/Y5678e6nmiDXUvm/2
73995t7f7GPSrKHm/bC/o5lhGMxgDTXvp72TVkOS6iQrqHm/7dk4Zq7uk7aCmvfH
7400vuz3okeOcyyh5v2zN6vMrH4ubAk1j8FBzOnJVekmC6h6BodNytlKuc/MoeYz
7401Oqi97t4V4WAO1c/k0Gzzeb97vxnUPmYHyYZP+7oumULNY3H4X7HhczCnKdQ8
7402FoeZjsIL1xuZQM1jdVim1Tir0tcYah6bw99zGfP8Ioyg5rE7iH6OtSwPNISa
7403x+HQcr/f8YSZAdQ8DodOzprqx1x6UPM4Hc6nONTGFGtDzeNyCCz/rpA1RwNq
7404HrfDt9+f84LKVKHm8Tgoyvh9a3+uCDWPx4FpZ7J1ToM01Dxeh0Pz3OqXiAhC
7405zeNzmPrr3Pmfae/tAblL/+4=
7406 "]]},
7407 {RGBColor[0.363898, 0.618501, 0.782349], PointSize[0.006944444444444445],
7408 AbsoluteThickness[1.6], LineBox[CompressedData["
74091:eJxTTMoPSmViYGBQB2IQjQIa7BxmzQSBnfYaNqWrl9bA+Cftha+/Np5aZOdg
7410YgwCl+2FnwtpnEqEyd+09z8SLWLrZecAMeiBvfSCxQWPtWHqH9ufW/GudT2b
7411nUN6Ggg8s9+uM8V7wi1bqP6X9vfLGa0Ll9s6nD0DAm/sz+Z+lbDKtYWa98H+
7412b/PRTee0Yeo/2v8WuNnL99gGav5ne+EN3O1XJtlA9X+xd8jhiv9mZQO175v9
7413WcVv+i63raHm/bDf6DPheHuxNdS8n/bftB7cb2a2hpr3275Pr1Tvc5cV1Lw/
74149jsmMDu0c1pBzftnHxt7Vuh5nSXUPAYHPsWdsWtfWUDVMzjktrVlp/lYQM1n
7415dEhrCcroXWwO1c/koK8h+qnjvRnUPmaHa7PbVyzTN4Oax+LwMOJRpGiyKdQ8
7416Fge2G+KWdztMoOaxOmx0+GR1db4x1Dw2h/iDskZTlhlBzWN3YJhqEBE92xBq
7417HofDtlnLnb5VG0DN43A4LLXvg2C3HtQ8Tgcv471Pq19oQ83jcviZfOJpNqsm
74181DxuB6vAPfefXFSFmsfjoKjaHfPGWAlqHo9DtENz3OGv0lDzeB26nP9LtcYK
7419Qs3jczhcp1z49c17ewDbDwBT
7420 "]]},
7421 {RGBColor[1, 0.75, 0], PointSize[0.006944444444444445], AbsoluteThickness[
7422 1.6], LineBox[CompressedData["
74231:eJxTTMoPSmViYGBQB2IQjQrsHWbNBIGd9ob/PGZO/2MH5Z+0//eI42nMJzsH
7424E2MQuGwvcdQz3vshTP6mvX6DeWn0STsHiDkP7A3Ca4qaVsHUP7bfc7M3bVOL
7425nUN6Ggg8s996143xVjhM/0v76Vs+pD5RtnM4ewYE3tg3vp3xeccLW6h5H+wZ
7426ne0YrZfZQtV/tK9g+NXtGWMLNf+z/fa3Z67s47KF6v9iL6wv/jp/ow3Uvm/2
7427KT++yusE2EDN+2Hflr8jds8za6h5P+1XaTvEPiqxhpr32148NHBj+C8rqHl/
74287H+ppsw9U2YFNe+ffYuj4apnLy2h5jE4sDL0PbULtoSqZ3BQf7lwS/wmC6j5
7429jA7LZSXFDrFZQPUzOdwRNlc55W8OtY/ZYdJ2mUmHesyg5rE4HLYQOXBtjynU
7430PBaHkjyZi1z3TaDmsTrsCUu+bfDJGGoem8PBzZeO3vxiBDWP3eG1GXO5/VND
7431qHkcDs9D9zurHDSAmsfh8EebIc2BWx9qHqfDUUYrv9mxOlDzuBwWBMxclZun
7432CTWP26FuWUtAua4a1DweByW9E4cCGpSg5vE4bD2+qFEqWwZqHq9D4Ivt21KX
7433CULN43OoYLTprLD8YA8AJ5QAtA==
7434 "]]},
7435 {RGBColor[0.647624, 0.37816, 0.614037], PointSize[0.006944444444444445],
7436 AbsoluteThickness[1.6], LineBox[CompressedData["
74371:eJxTTMoPSmViYGBQB2IQjQIa7B1mzQSBnfZWB2TaO2tg/JP2r96pTlMpsncw
7438MQaBy/YyixumnUmAyd+057MRvlbpYe8AMeiBvRtfaImiJkz9Y/vVXLruW5ns
7439HdLTQOCZ/Za+n9uUr9pB9b+09/94f0L4AjuHs2dA4I29Sa7NOfMUO6h5H+xZ
7440mbb7L1eAqf9o/+29VFfLVVuo+Z/to7X7lFY22UL1f7F/9lG5/KW6LdS+b/a/
7441zn3lFzlqAzXvh33UpAefP0TaQM37aR+vs+CWwzNrqHm/7edX65rsybSGmvfH
74423mb3kV+CT6yg5v2zX6M61fFZiBXUPAaHv/eSci/stoSqZ3B45L33b4SEJdR8
7443Rofn2+4f/pZpAdXP5ND5PyKMe4M51D5mB7/LG6vvvTSDmsfisFTCTW2GmBnU
7444PBaHhyyKmRamplDzWB1O5Fyp7nExgZrH5qC8rD1S3tkYah67w7UbV6cq6xtB
7445zeNwkBC87hLEZgg1j8PBzNbpdl63PtQ8TgeHC9u27bqkAzWPy8HDNis//7om
74461Dxuh0O/fQ5ydqpBzeNxUDJn1dx6RglqHo8Dn/+hJYUPZKDm8TpI9BYEub0X
7447hJrH59Dn/CyyrOaDPQBvP/7m
7448 "]]},
7449 {RGBColor[0.571589, 0.586483, 0.], PointSize[0.006944444444444445],
7450 AbsoluteThickness[1.6], LineBox[CompressedData["
74511:eJxTTMoPSmViYGBQB2IQjQocHGbNBIGd9s5NH0qq/9hD+Sftr/5ycn/z0d7B
7452xBgELtsrNm4/6/sAJn/T/t33d2Yzjts7QMx5YB99VLfswHKY+sf2M63PqO9o
7453sHdITwOBZ/ab7dfk5AbB9L+0Z9c7v/uUjL3D2TMg8Mb+xZv7K7bdt4Oa98Ge
745486D+POHZdlD1H+1L7lt37Pezg5r/2f5/hn/B5F+2UP1f7HduMWBOnmcLte+b
7455/YSlX///trSFmvfDXn8rR5fqWRuoeT/thXUZIuaH20DN+22vsYhzu8JNa6h5
7456f+zrAlQjwgOtoeb9s7/M+fPG0/1WDrCA+7rX/GuiihVUPYPDnHU33ILqLKHm
7457MzpoBCwr1D5rAdXP5GD2uqrDR8ACah+zA9d7t9RfbuZQ81gc2n+U90QWmEHN
7458Y3Hwm63KmNZtCjWP1eFyk6vMi2kmUPPYHFpn2LxNmWgMNY/d4WDVii3slUZQ
74598zgcPM+8c23wNoSax+Fgoe604hyrAdQ8Tofd84zlb7nrQs3jcvigaW1S6KAF
7460NY/bgS1Q1GjOEzWoeTwOyg5O/ZKSylDzeBwyrj08fiJUFmoer8MDQ813ahZC
7461UPP4HJa2TtAq2f/BHgCSegAY
7462 "]]},
7463 {RGBColor[0.915, 0.3325, 0.2125], PointSize[0.006944444444444445],
7464 AbsoluteThickness[1.6], LineBox[CompressedData["
74651:eJxTTMoPSmViYGBQB2IQjQIcHBxmzQSBnfZqSkkbzexg/JP2CcwGf25aODiY
7466GIPAZfvJ+uVNz/Vh8jftn0c+9Y5WdnCAGPTA3sKOeY++MEz9Y/v2nGyO3f/s
7467HdLTQOCZ/aYPcUrbz9tD9b+035+175ntTHuHs2dA4I39nJzmZtNoe6h5H+x5
7468G1a8qReFqf9o/+lcTNuv43ZQ8z/bL14msK+2yA6q/4t9T7lt/x0RO6h93+zV
7469ar6+f7zOFmreD3uWGwYKUQ62UPN+2h/XTbj694QN1Lzf9htPPLVs9bCBmvfH
7470/sDT1q1z9llDzftn/+ttTMFTLWsHWMi9ncNT+7nHCqqewSFM8Eu/9xNLqPmM
7471Dpkvc+QTDCyh+pkcHl+bs6u3wAJqH7PDMa47fmJLzKHmsThk3lj5SeqUGdQ8
7472FofdhlozJz80hZrH6nBvxrY9zi9NoOaxOTzv+tiw6r4x1Dx2hzUy1ZdfHzKC
7473msfhUNXO5r5ugiHUPA6Hq/qPHz11NYCax+lglruh/eceXah5XA4zxHh+Fq3U
7474gprH7eC17O4iPQd1qHk8Diqe9V9rU5Wh5vE4HIplfC1/WhZqHq/DimsPO9kb
7475haDm8TnsOW71u5Dpoz0AV+0IiA==
7476 "]]},
7477 {RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], PointSize[
7478 0.006944444444444445], AbsoluteThickness[1.6], LineBox[CompressedData["
74791:eJxTTMoPSmViYGBQB2IQjQIaHBxmzQSBnfbazD4r9Otg/JP2YZ37ruytcHAw
7480MQaBy/ZT5wnJrciHyd+0v24eXPMqycEBYtAD+8Mz39vUB8HUP7bf7df6Jc7O
7481wSE9DQSe2d+4wJHToAbT/9J+z+VrHTe4HBzOngGBN/b+b9Titlyzh5r3wV7Q
7482XtH6Tb89VP1H+4J9tS2mjvZQ8z/buz+5yJ3xyg6q/4t9vJWXdFi3HdS+b/Z7
7483gr7eP61sBzXvh/2NXxHb+jbbQs37aV+jdyAoxsoWat5ve8v3B/e83G4DNe+P
7484PVP1M6FH2jZQ8/7ZK106wP50qjXUPAaHp9UPWVq/WkHVMzgIlvDfdPGygprP
74856LCyyfjslMmWUP1MDhMO7Xtz7oIF1D5mhya1QgsjRguoeSwO3jtuR9xRNoea
7486x+KgcULP8KC5GdQ8VodX69Rj51ubQs1jc/CsXSbyQdcEah67w/R9vp/O8xhD
7487zeNwWO0k53HnqiHUPA6HIosW2b+tBlDzOB02Wut+kDDSg5oHjAjmu3tLhLSh
74885nE79P1eKnxwtjrUPB4HlaA90Y82KkPN43GQfqrAV+4gBzWP1yG/epbqi5NC
7489UPP4HC5xPj2d7/rRHgBeaAAy
7490 "]]},
7491 {RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142],
7492 PointSize[0.006944444444444445], AbsoluteThickness[1.6],
7493 LineBox[CompressedData["
74941:eJxTTMoPSmViYGBQB2IQjQIOODjMmgkCO+31n5jO19gH45+09+b3Xbtwh4OD
7495iTEIXLafzrtuZ8Z6mPxN++OiB9dULnJwgBj0wN7v6+295ybC1D+2N3p+JSWh
74961sEhPQ0EntlHaD5yU02F6X9pL1HkJyfk6eBw9gwIvLFnNEudI6kJM++DPff/
7497My46rDD1H+3frp3XVLDLHmr+Z/vXipMjg5Lsofq/2Bv9DVt+ntEeat83+2DN
7498r+c3z7CDmvfDfq1so89hNTuoeT/tDfQVLuxabQs177f9IdF59n7qtlDz/ti7
7499CLgXqM+0gZr3z95zm8r8Jww2UPMYHO5EbesRi7OGqmdwOH1NS8lugxXUfEaH
7500V9K/qk5+s4TqZ3KwXfdATsDQEmofs4OdE5uSX5wF1DwWB90ZvPvn1ppDzWNx
7501mBZnfPJdrxnUPFaHr0dm/P3Vawo1j81hdX70CtMaE6h57A5NCQqCW8KMoeZx
7502ONz5a+rJJW0ENY/Dgd9RNULkmAHUPE4HHa5VERbL9aDmcTk8f7+2qaxaG2oe
7503t8OlgLyW4O/qUPN4HFSjfx50+6cMNY/HoTTHwfDcVjmoebwOZgrBB08ICUPN
750443N46d0/J7fjoz0AehT5uw==
7505 "]]},
7506 {RGBColor[0.736782672705901, 0.358, 0.5030266573755369], PointSize[
7507 0.006944444444444445], AbsoluteThickness[1.6], LineBox[CompressedData["
75081:eJxTTMoPSmViYGBQB2IQjQocHWbNBIGd9iZH5acp/nOA8k/aO0693dr6w8HB
7509xBgELtvPqvEM1XwPk79pv+2z3l2ORw4OEHMe2N8IOGEndxGm/rH9ynqVq4l7
7510HBzS00Dgmf31xt2KpxbD9L+0LxE4ttm73cHh7BkQeGN/++s2zptpMPM+2PfG
7511ceYkOcHUf7Tfdi7+wFVJmPmf7fvjQ5bb3LKH6v9iz3og2dizwh5q3zf7l/+/
75127J/Naw8174d9k8PKR99n2kHN+2n/RL/BV1LWDmreb3svm6pDm6bZQs37Y9+2
7513dPnZHDZbqHn/7AtmdZg9ybaBmsfgcMWyW2TFMWuoegaHNku3bHMxa6j5jA5a
7514Ww9o/Iu0gupncng5kykwcKIl1D5mh9+xs7mzdltAzWNx4K+wV42/bg41j8WB
7515+at5oswTM6h5rA4MtznnhT0whZrH5sCbJGBTfcoEah67Qy7TZ/0ZC4yh5nE4
75168O309bJIMIKax+GwxvPYJG02Q6h5nA7Lb6gdDJfRh5rH5dB/p8694ok21Dxu
7517B7FlZl+fBmlAzeNxUE0x01jtpQI1j8fh3Of4EFVteah5vA7/jnDHrowWhprH
75185/C/1zI3+/RHewBmk/1u
7519 "]]},
7520 {RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], PointSize[
7521 0.006944444444444445], AbsoluteThickness[1.6], LineBox[CompressedData["
75221:eJxTTMoPSmViYGBQB2IQjQIcHB1mzQSBnfYWyzh7pexg/JP25tJZcZkWjg4m
7523xiBw2X7O6ycfXurB5G/aL7s4h3eGoqMDxKAH9slrtuzPFYCpf2yvIFHimvzb
7524wSE9DQSe2YfdmvIn75EDVP9L+wvrbD1bjzo4nD0DAm/st27lKJ+xxAFq3gd7
7525/n2uk2fUw9R/tC91K7AvDnOAmv/Zfua5riphTZj+L/bXmwr2H3pnD7Xvm339
7526tS/rm5vsoeb9sA9Pvlihw2sPNe+n/QyDB6fK++yg5v22v5wU5irOZgc174/9
7527CSsO7U3FtlDz/tlPr3tz9vE1GwdYyJ2RSJhjqW8DVc/g4DAncYtBjTXUfEaH
7528bL/2a0Z7raD6mRymtao0T/poCbWP2WF7pcHXVglLqHksDp/CC7sVDC2g5rE4
7529FHTb/PS0Moeax+rA/bHKbpORGdQ8Nof8kKPnD0iYQs1jd4hYctSv5pUx1DwO
7530B/uSVO+0pUZQ8zgcPILSzzq5GULN43RQWr5Ys3yiPtQ8Lgfzk/48Vb46UPO4
7531HaJ+/0utWKcBNY/HQS23uI9/ugrUPB4Hjer68poF8lDzeB2OZR750blEGGoe
7532n4PYhce2mXyf7AGnHv1v
7533 "]]},
7534 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.006944444444444445],
7535 AbsoluteThickness[1.6], LineBox[CompressedData["
75361:eJxTTMoPSmViYGBQB2IQjQIaHB1mzQSBnfa27Z+bhetg/JP2Ogt/mPlWODqY
7537GIPAZft5UQ09q/Jg8jftp63nslNPdHSAGPTA/h37Qoe9/jD1j+1nbDi8NcXK
75380SE9DQSe2V8zyrsurAjT/9Jex3frvX3Mjg5nz4DAG/v+0qgn4Y8coOZ9sJ8o
753927Tr3B4HqPqP9sb7GvYJTHaAmv/ZPjs3eyFHqgNU/xf7q4v2qc4zcoDa981e
7540bO2X+dnf7aHm/bDXbvvJl9hgDzXvp72voYPHtf92UPN+28d0Gp2oLrWDmvfH
7541nutCRsf3B7ZQ8/7Z708KSH3saAs1j8HhyHcTldPTbaDqGRx+/6v5q/nIGmo+
7542o8Oa574t6QrWUP1MDs6FblsvB1pB7WN2KJ569N7CUkuoeSwOV8wXf3zYZQE1
7543j8XhrqLjxPIJ5lDzWB3E2d/c4201g5rH5nDRrSqZLd0Uah67g7PbjNwEExOo
7544eRwOBfq1PlNeGUHN43B4GsXBEdVmCDWP0+GclYCnN7MB1Dwuh3tbFS5Wb9OB
7545msftMD/g+DUuLk2oeTwOamUbvhQ/VoGax+Pg2Oh/9iWXAtQ8XodevtopWW+F
7546oebxOegI9fGlB36yBwDXdv7A
7547 "]]},
7548 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.006944444444444445],
7549 AbsoluteThickness[1.6], LineBox[CompressedData["
75501:eJxTTMoPSmViYGBQB2IQjQIOODrMmgkCO+0dM+5W8eyD8U/aK6m38xvucHQw
7551MQaBy/YLTkprZK+Dyd+0b+utyNu2wNEBYtAD+4rk3oM8/TD1j+35PYXV0iod
7552HdLTQOCZfWi3+6Yd8TD9L+07XuuU/HB0dDh7BgTe2GeargkUV4CZ98FeuHbf
7553Q5ZfDlD1H+0/mU60XXfeAWr+Z3tbHp8Tfxc4QPV/sbdnOfr6Vq4D1L5v9tcc
7554fx3XNHOAmvfDnmGl4tKpn+2h5v20ZzRacNSk0B5q3m/7J+v5vB88sYOa98fe
7555J/XkUxs/O6h5/+yfuW3582iNLdQ8Boc91zjXxDDYQtUzOGxNnOGm7GEDNZ/R
75564U2DiNGcZmuofiaHDzEZz0U2WUHtY3bQ3xh1Yu8lS6h5LA7bxK+GL35iATWP
7557xcF7h6vm0mfmUPNYHZRkY+szr5tBzWNzMLHU/+691RRqHruD3ousHpc6E6h5
7558HA4LX03xPaRvDDWPw6EpeaVT4TFDqHmcDjyL/P7esjWAmsfl0Lbo49RaeV2o
7559edwOj5f2u89N1YSax+OgXv826oa+KtQ8Hod3LvfjproqQM3jdQjZbGrgbSYC
7560NY/PwTnE4n7KlE/2AJoP/p4=
7561 "]]},
7562 {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.006944444444444445],
7563 AbsoluteThickness[1.6], LineBox[CompressedData["
75641:eJxTTMoPSmViYGBQB2IQjQqcHGbNBIGd9m6exwtZ/zlC+SftJdaKvhD54ehg
7565YgwCl+0XW2w/rP0OJn/Tviz72TzXB44OEHMe2DPvr3SKOQdT/9i+7WHStPQd
7566jg7paSDwzP7qY4Xe2Hkw/S/tn3Qu4TRqcHQ4ewYE3tg7ff2771oszLwP9lPv
7567/OKwNoep/2i/ce3CPd48MPM/2/Ov1nn/6Y4DVP8X+xWppzeKr3SA2vfNXlH3
75681/65BQ5Q837Yv3q6RDbV2AFq3k/7rUYMzpMf2UPN+22fe+3VWZcQe6h5f+z7
7569fmk6N+22g5r3z55XW2LKI3E7qHkMDlu23jN+l2ELVc/gUHBkc7/MOhuo+YwO
7570ulK37194Zg3Vz+Qw16NLMkzIGmofs8PrM+833tS3gprH4jDjO9u+FDtLqHks
7571Djv8vA5esrGAmsfqoGt8Tv6opjnUPDaHadpPuiYym0HNY3eQ7LJdrXHCBGoe
7572h8OlpWv8PpQYQ83jcJDP8artYDOCmsfp4MnZuzGrwgBqHpeDXv+hqPoOXah5
75733A7qv8N36B/UhJrH46DeoXXQpkYVah6PwyyO/A8ODQpQ83gdZCLendauF4Ga
7574x+cQNe3R+qTrn+wBPtYCuQ==
7575 "]]},
7576 {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.006944444444444445],
7577 AbsoluteThickness[1.6], LineBox[CompressedData["
75781:eJxTTMoPSmViYGBQB2IQjQIcnBxmzQSBnfZeWhsz/tnC+CfteY2XHPhh7uRg
7579YgwCl+2XLg+Kf6MLk79pn+YZcv6KvJMDxKAH9n1SaYdX88LUP7b/W7mJLfO7
7580o0N6Ggg8sw+x+ZXOdNcRqv+lvYOGzPzsfY4OZ8+AwBt7ma3+OtNmO0LN+2Av
7581bmNuUFgCU//RvkB1k/VLD0eo+Z/tH3ryir2QgOn/Yi90/GJ5yBMHqH3f7HMk
7582fm0XXO0ANe+Hfej3HRn/cxyg5v203ypp8OCHpgPUvN/23/4cC1h52B5q3h/7
7583C/1dC45r2EPN+2dvyl+j/ajJzgEWcqunbN5df9EWqp7BQUv9/A1REVuo+YwO
7584eZsX9rJ62UD1Mzl4mazxnl5kDbWP2WH5i5bZX3usoOaxOFRdt1BRm2EJNY/F
7585QfWpXyTDZAuoeawOlp72BxRqzKHmsTn8kJ0pdz3QDGoeuwOLjsApHiFTqHkc
7586DsyJR/zldhlDzeNw2FPyevt8NyOoeZwO7QWnU39tMoCax+VwrXqyfONHXah5
75873A7ZAQqah2S0oObxOGhMTFdfeEIVah6Pg/uZf41vdilAzeN1ePJnWTrPCRGo
7588eXwOBTd6GhKkPtsDAOGo/Tw=
7589 "]]},
7590 {RGBColor[0.528488, 0.470624, 0.701351], PointSize[0.006944444444444445],
7591 AbsoluteThickness[1.6], LineBox[CompressedData["
75921:eJxTTMoPSmViYGBQB2IQjQIanBxmzQSBnfb+3LPjv9fC+CftmXcazbxT7uRg
7593YgwCl+2Xi737tSYXJn/TPkz90P/keCcHiEEP7CXLglx++8DUP7YvEWIqzzJz
7594ckhPA4Fn9penXHZaLg3T/9J+zrHJJkv/ODqcPQMCb+y/lSycGXrTEWreB/uZ
7595s4vDl290hKr/aK8/99CutlZHqPmf7Te/eGtzNwSm/4t9tcYN24nyjlD7vtlv
7596Z/61vvWpA9S8H/b7Oc5unrnMAWreT3t+qQdyK5IcoOb9tt8/8eLLNkkHqHl/
75977IVUX//lmWYPNe+ffczn+4cevrWDmsfgsLi4w1nQyg6qnsHhSecrRf4qW6j5
7598jA7rfDKsrdbaQPUzOXyTP1d745I11D5mhxQWqVbBV1ZQ81gcYrZndT3/aAk1
7599j8VhUnXwR92XFlDzWB1c4jck1Jwzh5rH5hAl4LdJZoEZ1Dx2h/dnH734EG0K
7600NY/DwUTmToDPf2OoeRwOkbU9n7a1GUHN43Q4cp1TquutAdQ8Loe6jJQnTVF6
7601UPO4HdYvfTEzpEILah6Pg8asJb2sompQ83gcvvT3Cc/4qgA1j9dh9cJ45rcC
7602olDz+BzapcwD42I/2wMAFvIF7Q==
7603 "]]},
7604 {RGBColor[0.772079, 0.431554, 0.102387], PointSize[0.006944444444444445],
7605 AbsoluteThickness[1.6], LineBox[CompressedData["
76061:eJxTTMoPSmViYGBQB2IQjQIOODnMmgkCO+2D37SEfdgL45+0/2l3sPDAdicH
7607E2MQuGy/srVzWu5amPxNe1dWA4PP85wcIAY9sF980e6oVw9M/WP7N6sCn2eX
7608Ojmkp4HAM/vgt2tkfaJg+l/a/0jhPnXPysnh7BkQeGN/weQzm6g4zLwP9tK/
760919fdfecIVf/R/p3IZUuVQ45Q8z/bt7afS740wRGq/4v9k857zOeiHKH2fbNn
7610ev9z+U95R6h5P+y1pB7+M37gADXvp32m1ITY8NkOUPN+2zMvtde2DHSAmvfH
7611XuvuUt2VjA5Q8/7ZN193jnoYYQ81j8FhdlDs6UWL7KDqGRzmv2HN5nhgCzWf
76120eH9U72XeQK2UP1MDou5P6yXNLaB2sfsoKCwPk/X3RpqHouD3fQ5H1Z4W0HN
7613Y3H4LxjRGW1vCTWP1cG/VJHxhoIF1Dw2hz1MzG5J78yg5rE73Mrfyn51qSnU
7614PA6HtOufA6tcTKDmcTh8a9XVPXfMCGoepwOTvcc5SQ1DqHlcDqqhpitbDutB
7615zeN2+PxrA9fzy1pQ83gcNBc//JyZqAY1j8dhYbDcUmcDRah5vA5FbhLzz0aK
7616Qs3jc5gb81AxZsFnewAM/ADW
7617 "]]}}, {}},
7618 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
7619 Axes->{True, True},
7620 AxesLabel->{
7621 FormBox["\"t\"", TraditionalForm],
7622 FormBox["\"r\"", TraditionalForm]},
7623 AxesOrigin->{0, 0},
7624 DisplayFunction->Identity,
7625 Epilog->{
7626 Directive[{
7627 Thickness[Large],
7628 RGBColor[1, 0, 0]}],
7629 LineBox[{{2.25, 0}, {2.25, 40}}]},
7630 Frame->{{False, False}, {False, False}},
7631 FrameLabel->{{None, None}, {None, None}},
7632 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
7633 GridLines->{None, None},
7634 GridLinesStyle->Directive[
7635 GrayLevel[0.5, 0.4]],
7636 ImageSize->{738., Automatic},
7637 Method->{},
7638 PlotRange->{{0, 3.8000000000000003`}, {0, 37.5}},
7639 PlotRangeClipping->True,
7640 PlotRangePadding->{{
7641 Scaled[0.02],
7642 Scaled[0.02]}, {
7643 Scaled[0.02],
7644 Scaled[0.05]}},
7645 Ticks->{Automatic, Automatic}]], "Output",
7646 CellChangeTimes->{
7647 3.644756726447*^9, 3.64475678791*^9, 3.6447568615030003`*^9,
7648 3.644761537677*^9, {3.644761703822*^9, 3.644761718552*^9}, {
7649 3.644763749509*^9, 3.644763777266*^9}}]
7650}, Open ]],
7651
7652Cell[CellGroupData[{
7653
7654Cell[BoxData[
7655 RowBox[{"ListLinePlot", "[",
7656 RowBox[{
7657 RowBox[{"Table", "[",
7658 RowBox[{
7659 RowBox[{"Transpose", "[",
7660 RowBox[{"{",
7661 RowBox[{
7662 RowBox[{"Table", "[",
7663 RowBox[{"tCF", ",", " ",
7664 RowBox[{"{",
7665 RowBox[{"tCF", ",", "tCF1", ",", "3.85", ",", " ", ".1"}], "}"}]}],
7666 "]"}], ",",
7667 RowBox[{"Table", "[",
7668 RowBox[{
7669 RowBox[{"-",
7670 SqrtBox[
7671 RowBox[{
7672 FractionBox[
7673 RowBox[{"8", "\[Pi]"}], "3"], "GCF", "*", "\[Rho]0CF", "*",
7674 SuperscriptBox["r0CF", "2"],
7675 RowBox[{"(",
7676 RowBox[{
7677 FractionBox["r0CF",
7678 RowBox[{"r0CF", "*",
7679 SuperscriptBox[
7680 RowBox[{"(",
7681 RowBox[{"Cos", "[",
7682 RowBox[{"\[Xi]", "/.",
7683 RowBox[{"FindRoot", "[",
7684 RowBox[{
7685 RowBox[{"\[Xi]", "+",
7686 RowBox[{
7687 FractionBox["1", "2"],
7688 RowBox[{"Sin", "[",
7689 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
7690 RowBox[{"kCF", "*", "tCF"}]}], ",", " ",
7691 RowBox[{"{",
7692 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}]}], "]"}],
7693 ")"}], "2"]}]], "-", "1"}], ")"}]}]]}], ",",
7694 RowBox[{"{",
7695 RowBox[{
7696 "tCF", ",", " ", "tCF1", ",", " ", "3.85", ",", " ", ".1"}],
7697 "}"}]}], " ", "]"}]}], "}"}], "]"}], ",", " ",
7698 RowBox[{"{",
7699 RowBox[{
7700 "r0CF", ",", " ", "rCF1", ",", " ", "rCF2", ",", " ", "rCFstep"}],
7701 "}"}]}], "]"}], " ", ",", " ",
7702 RowBox[{"AxesLabel", "\[Rule]",
7703 RowBox[{"{",
7704 RowBox[{"\"\<t\>\"", ",", " ", "\"\<v\>\""}], "}"}]}], ",", " ",
7705 RowBox[{"Epilog", "\[Rule]",
7706 RowBox[{"{",
7707 RowBox[{
7708 RowBox[{"Directive", "[",
7709 RowBox[{"{",
7710 RowBox[{"Thick", ",", " ", "Red"}], "}"}], "]"}], ",", " ",
7711 RowBox[{"Line", "[",
7712 RowBox[{"{",
7713 RowBox[{
7714 RowBox[{"{",
7715 RowBox[{"2.25", ",", " ", "0"}], "}"}], ",",
7716 RowBox[{"{",
7717 RowBox[{"2.25", ",", " ",
7718 RowBox[{"-", "30"}]}], "}"}]}], "}"}], "]"}]}], "}"}]}]}],
7719 "]"}]], "Input",
7720 CellChangeTimes->{{3.64476268369*^9, 3.644762722458*^9}, {
7721 3.6447628106429996`*^9, 3.644762819867*^9}, {3.644762954666*^9,
7722 3.644762955097*^9}, {3.644763018957*^9, 3.644763026914*^9}, {
7723 3.644763866792*^9, 3.644763874667*^9}}],
7724
7725Cell[BoxData[
7726 GraphicsBox[{{}, {{}, {},
7727 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.006944444444444445],
7728 AbsoluteThickness[1.6], LineBox[CompressedData["
77291:eJxTTMoPSmViYGBQB2IQjQ5mzQSBnfbzXjAXGv89uh/CP2mfUmdSwc10bb+J
7730MQhctt8Z6t02p/0BVP6m/XT+KVz9os/2Q0x5YG/yL9Mvd+1rqPrH9iEH7yt/
7731WPFhf3oaCDyz36fxacaNps9Q/S/tNeL2XH+R+m3/2TMg8MY+bfX/qk3BP6Hm
7732fbB3eumk9tT3D1T9R/snueJzQsL+Q83/bD/XUuVTvTnjAYj+L/alyrZPec4y
7733HYDY981+n1xcJ2cuywGIeT/su3WE8y9LsB2AmPfTnn1L+YcvF9kPQMz7bX8o
7734X3ih3ixOqHl/7J/VWqk2F3NDzftnH+/xxMotgRdqHoNDuIc/n0EyP1Q9g8NL
7735j5emu/cLQM1ndNA+zs5VfkcQqp/JIfLP+mPSXMJQ+5gdKmYlOtV5i0DNY3HI
77362bDmrNISUah5LA5Pb3ZPq5IQh5rH6rCE//hD23USUPPYHFY4Lb76JUcKah67
7737Q5Tq0hnn4mSg5nE4VG+R3Ms0SQ5qHofDkTmZV2b1KkDN43SIEXwQ+ZlHCWoe
7738l4PbtDmsGx4oQ83jdtiXH36p3EwNah6PQ2txg8HzLE2oeTwO34/tT56apgc1
7739j9fh8cRDjYkRJgdi5zx4vuQxr8OVyTv4nnvYHgAAd/QW+Q==
7740 "]]},
7741 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.006944444444444445],
7742 AbsoluteThickness[1.6], LineBox[CompressedData["
77431:eJxTTMoPSmViYGBQB2IQjQ5mzQSBnfZXTa4Hv+s8th/CP2l/8Ixp9NO+a/tN
7744jEHgsv3uucXX0j4+gMrftP+taXfx6aJn+yGmPLBfV/iTc0LcG6j6x/bfPsXt
77456xf+uD89DQSe2dszH52z/f9nqP6X9nOEFe86fv22/+wZEHhjf9qpUuXU159Q
77468z7YeyVdfMDF/Beq/qN9UIbR4UJ+hgMQ8z/b324//XH9UsYDEP1f7CNcfmQl
7747uDIfgNj3zV65kiHh8HuWAxDzftiX3FomZ7+M7QDEvJ/2vRIP76RncUDN+23f
7748ESSVymnHBTXvj739l2hLY2UeqHn/7KcYxP5xl+GDmsfg4MLxfgGHmABUPYPD
77497le3N7zREoSaz+gQEb/uwjE/Iah+JgeXP7xC35qFofYxO3y4XpCVeFYEah6L
7750g93srDWL9cSg5rE4dH96Uey1RhxqHquD9WLWhUY+klDz2Bze7NXtExGThprH
77517uDltrI/QUQWah6Hw0lVdtOVofJQ8zgcHhXLN3R/V4Cax+lgVBGUX9mgBDWP
7752y4FDKmr+83gVqHncDmHzZ5ovPKIGNY/HYc7K5rjJvFpQ83gcwicteaOqqQ81
7753j9dhNwej6vRbJgcSre4m77rL63Bl8g6+5x62BwCpnhU4
7754 "]]},
7755 {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.006944444444444445],
7756 AbsoluteThickness[1.6], LineBox[CompressedData["
77571:eJxTTMoPSmViYGBQB2IQjQ5mzQSBnfa1VavMVood3w/hn7RfK2Nut1/6+n4T
7758YxC4bO/8bLaaYfRDqPxN+0nOL6bbGDzfDzHlgX3Lk46jm/jfQtU/tt+lci9C
7759v+7j/vQ0EHhm/+vu9AXTar5A9b+01zrZ+mhWy/f9Z8+AwBt791ufzj6c/gtq
77603gf7oNvxsw12/IWq/2i/UTLSYmcxwwGI+Z/tJa4VfbwvzHQAov+LvVPq5g+b
77619zIfgNj3zb7x8iKz2iLWAxDzfthHdlidW2XMfgBi3k973lqvk7eYOKHm/baP
7762NFXUfPKQC2reH/uZWbW+jy/xQM37Z39O4tpezxt8UPMYHOJytllVVglA1TM4
77639Pec05abJgg1n9Gh83vIdLGDQlD9TA66f7JjL/wVhtrH7JAm2jDJxV8Uah6L
7764A2+bRrfKTjGoeSwO+txugVIOElDzWB2umLkkqL+ShJrH5qBnucPNZL801Dx2
7765B8v0tW2fTspCzeNw6PWuuracRwFqHocDg/dV7ZpERah5nA7s94+0/P+sBDWP
7766y+HkXHFL+fsqUPO4Hd6duz3nVJA61Dweh83323rsN2hBzeNx2B7bWbrttT7U
7767PF6HKfX2J87EmB7wXdPyT/wGr8OVyTv4nnvYHgAAeIEYIw==
7768 "]]},
7769 {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.006944444444444445],
7770 AbsoluteThickness[1.6], LineBox[CompressedData["
77711:eJxTTMoPSmViYGBQB2IQjQ5mzQSBnfY9x2olUxYf3w/hn7SfkWOhOHPF9f0m
7772xiBw2f6U3pGy30ceQuVv2vfHToqbvPf5fogpD+xXh0s0Xj3wFqr+sX1sWOzn
7773cy8+7k9PA4Fn9jN2ZC0p/fkFqv+l/fa6V88/C//Yf/YMCLyxP1yYU/7T8jfU
7774vA/2kSHvQsNy/0HVf7RnP12/luEGwwGI+Z/tw1SkPvI3MR2A6P9ir9aWV8Zu
7775xnIAYt83+5u6rrzmX1kPQMz7Ye9kdq5W7CD7AYh5P+07Hm7e6jubE2reb3sV
7776CY23+1q5oeb9sX/zYF7i5CZeqHn/7P8z+Nd7T+GHmsfgUHmh9srLewJQ9QwO
7777iXoHl/kzCkHNZ3TY0v87Ns1YGKqfyUH0z8kVq8pFoPYxO9wN6t+lflEUah6L
7778w52CZ5lLncWh5rE4XFNerPfqsgTUPFaHrFNN8jIdUlDz2ByKtzj9D86QgZrH
77797qDesbG2pV4Oah6HgxlLoVB1ngLUPA4HBaXu6zmnFaHmcTrcdTWf1ZquDDWP
7780y6FH8eqlsDhVqHncDm3/ZJm+PFCHmsfjcFK0a9frIG2oeTwOPSLm9crhBlDz
7781eB3yvtVmM903PfBAbv/6HZd4Ha5M3sH33MP2AACBIRmg
7782 "]]},
7783 {RGBColor[0.528488, 0.470624, 0.701351], PointSize[0.006944444444444445],
7784 AbsoluteThickness[1.6], LineBox[CompressedData["
77851:eJxTTMoPSmViYGBQB2IQjQ5mzQSBnfZVkoF/5AxO7IfwT9rb7LNkKTa9sd/E
7786GAQu2z8tf3PsqN4jqPxN+95yG9VXXi/2Q0x5YH/l1HKbH4XvoOof299pv9Ob
7787F/xpf3oaCDyzN59suyKk7CtU/0t7FxP/tz6Lf+w/ewYE3tjbcT5TELzzG2re
7788B/ukszUCNUr/oeo/2qfXLFPysGE8ADH/s/3kooMf7D8wHYDo/2LPuVzzT9Q6
7789lgMQ+77Zm3c8f/yhnO0AxLwf9kZPEnWb/DgOQMz7ac/uJrvogDEX1Lzf9q9+
77906W2cqckDNe+PvVf4gVJnIz6oef/sZ31JXqCmIQA1j8FhuolrXpSzIFQ9g4Px
7791hc2KjTlCUPMZHR6pL1LZtlQYqp/J4d9v9S8tH0Wg9jE7BE6Y94grWAxqHovD
7792quglHmrnxKHmsThU2zDw7EqXhJrH6sAUd/CegJo01Dw2hx36Z7cXC8pCzWN3
7793kFi5tUTMVB5qHofDvT3pfn4XFKDmcTjY/XRojjVVgprH6bB5zcr13LeVoeZx
7794OfgunZTTd1cVah63g7xeQrpsvgbUPB6H+969L6Z/1Yaax+NgU7XycPYOA6h5
7795vA7uuXv4LBLNDqjr9z2ZfpbX4crkHXzPPWwPAACY5hGC
7796 "]]},
7797 {RGBColor[0.772079, 0.431554, 0.102387], PointSize[0.006944444444444445],
7798 AbsoluteThickness[1.6], LineBox[CompressedData["
77991:eJxTTMoPSmViYGBQB2IQjQ5mzQSBnfabUlXu39xzYj+Ef9K+gMf6uc+hG/tN
7800jEHgsn3BARHxCTMeQeVv2ndPfPba4caL/RBTHtiH2Jn/kFJ+D1X/2L5uZ7QG
7801375P+9PTQOCZ/dVcgTXGn79C9b+0v/hy86elRj/3nz0DAm/sLy2IP6VR9wdq
78023gf7LDfu0wuv/4eq/2h/Qffs9P4FjAcg5n+2v3Ag40N+HPMBiP4v9o+PP2lc
7803p8Z6AGLfN/tpjzp3rfrFdgBi3g97mUlf77y9zXEAYt5P+75VbX3GZ7ig5v22
780433XXtLTkLA/UvD/2i88+7Pz8kA9q3j/7rRkKjeptAlDzGBw2zODhOL1cEKqe
7805wYGtaNmcTdeFoOYzOggc8HjNKiEC1c/k8OR3q318tijUPmaH42fXcr27IgY1
7806j8Whyi1JfXmEBNQ8Fgel0NiXnb8loeaxOsz8+H8u6xFpqHlsDn9WhRdM3iUL
7807NY/dge3UzuwVr+Sh5nE4tJbGdSkaKULN43CIufBNz2++EtQ8TodOYZmjE/1U
7808oOZxOfBrBrAdi1GDmsftsD120Rm3vxpQ83gcvjVOEHOZoQM1j8fh9X1pji2S
7809hlDzeB3kn/zamPvY7MAjMa6ijSd4Ha5M3sH33MP2AACvOiAB
7810 "]]},
7811 {RGBColor[0.363898, 0.618501, 0.782349], PointSize[0.006944444444444445],
7812 AbsoluteThickness[1.6], LineBox[CompressedData["
78131:eJxTTMoPSmViYGBQB2IQjQ5mzQSBnfYvN34/OMXz5H4I/6R9TIzNKTX/m/tN
7814jEHgsn0ih216FNNjqPxN+9+rJ2yanvpyP8SUB/Z1G49ttr3yHqr+sb3b61uH
78151mp83p+eBgLP7IM9Hq8XKvgG1f/SPm6+xI9/B3/uP3sGBN7Ym1rcLHZQ+As1
781674P9zvtnDiW7MRyAqP9ob3D/M891FqYDEPM/2/PxC3yYf4b5AET/F/vzL+az
7817M81nPQCx75v9FxudiSm17Acg5v2w/2/f2ROZyQk176c9B/+HqmUp3FDzfts3
7818HLCx9C/khZr3x/6PM/O8xRP5oeb9s79w506ixhMBqHkMDqf/XF5ozSMEVc/g
7819cFN4pvgTJ2Go+YwOdhHvN4Z2iUD1Mzmc/f24y/KpKNQ+ZgcH7r1GF8PEoeax
7820OHgbKrBpPJaAmsficDx317HIfimoeawOhq12sb8SZaDmsTk4qj3S2JwsBzWP
78213aH6a5yhbIAC1DwOB1290GNfJitCzeNwqF6+5pYdpzLUPE6H+Kq+W+KHVKDm
7822cTlcWsO74O9tNah53A7+vU8MC7o1oebxOPDumOzywUoXah6Pw2zXPp8/VYZQ
782383gdfkZZhi5ONT8wzVewi/EIr8OVyTv4nnvYHgAAz4YV9w==
7824 "]]},
7825 {RGBColor[1, 0.75, 0], PointSize[0.006944444444444445], AbsoluteThickness[
7826 1.6], LineBox[CompressedData["
78271:eJxTTMoPSmViYGBQB2IQjQ5mzQSBnfby/04t8b92cj+Ef9Jedp3tWoY7N/eb
7828GIPAZfu2wNTtKjmPofI37duOWlW++/RyP8SUB/YhQqvNNzh9gKp/bP9SJirW
7829d/Ln/elpIPDMXlB52+aPb75B9b+0fxNS+zc88Nf+s2dA4I39hvNBshGH/kLN
7830+2BvJCOy4NsChgMQ9R/tJ0yQapLLZDoAMf+zvU/s9vfnrVgOQPR/sV/JGd0b
7831Ks52AGLfN/vg6efS5Rg4DkDM+2H/4q2MzdFvnFDzftp3FkemS/7lhpr32z5w
7832sfNfTVE+qHl/7LVjhW6uVBCAmvfP/nXATCdNJ0GoeQwOTxJmW68pEIKqZ3BY
7833s7V7kug6Yaj5jA55H6ZWLP0jAtXP5LD1t+M14XgxqH3MDls9zkRtuSEONY/F
7834QVrm3pMVuZJQ81gcstvEl2gqS0PNY3U4IVEr8/6/DNQ8NofWhTkPL/HIQ81j
7835d/jM+lDn2SoFqHkcDlefeTOd+KoINY/DYWZdUpt+sTLUPE4Hk4cMH+aaqkLN
783643KYYnDa0jRaHWoet8PzPWrTZ0pqQc3jcVB+N61ozl1dqHk8Dt6rGSa63DGE
7837msfrcPFi+Y8bz80PFL3M3Niyn9fhyuQdfM89bA8AAHpZGBM=
7838 "]]},
7839 {RGBColor[0.647624, 0.37816, 0.614037], PointSize[0.006944444444444445],
7840 AbsoluteThickness[1.6], LineBox[CompressedData["
78411:eJxTTMoPSmViYGBQB2IQjQ5mzQSBnfbhXvPauZJP7YfwT9ob/7GbcCvj1n4T
7842YxC4bF84s5f9/dXHUPmb9r/uP7F3bXi1H2LKA/uXp4umOs7+AFX/2D7F7+b3
7843N38/709PA4Fn9hv+dmy/kPkdqv+l/XSuR0wbH/zaf/YMCLyxd0s/cyw/5R/U
7844vA/2ByOiazt/MxyAqP9o/97R8XvqWaYDEPM/23eujnv/fwXLAYj+L/a9WmLC
7845K/vZDkDs+2a/8WOB3Y0mjgMQ837Y35q94bVBCxfUvJ/2/DcOBfdM5YGa99te
7846ps3rIMtOPqh5f+yjJJQfN1YIQM37Z89xNFRZa4Eg1DwGB8ajSVdlrgpB1TM4
78471IXX8bpLikDNZ3SY1WFj/zVPFKqfyWHh7/mK726IQe1jdtBqu900PUoCah6L
7848wxu2OYc1f0hCzWNxEJ5f0vhzmzTUPFaHxDW7bz+eKws1j83hpMz3mZ+2ykPN
7849Y3fIEkvWWM+qCDWPw6F2vpPd7HAlqHkcDjtCJYwU7ipDzeN04PIoZlVZqQo1
7850j8shZEvH5Zxb6lDzuB3q32T8ObRcC2oej4OlyqwFHg16UPN4HH4LFF/tsTWC
7851msfrsMpj22y+LIsDqlfktpvv5nW4MnkH33MP2wMAjNMazg==
7852 "]]},
7853 {RGBColor[0.571589, 0.586483, 0.], PointSize[0.006944444444444445],
7854 AbsoluteThickness[1.6], LineBox[CompressedData["
78551:eJxTTMoPSmViYGBQA2IQPWsmCOy075tWmHX0/an9EP5Je04/h+ItX2/tNzEG
7856gcv2sx9tDd9p/wQqf9P+188+tjm8r/czgMEDe99Wq8+XPn+Aqn9sr98QMakn
785748v+9DQQeGbvfyN69/pn36H6X9qrHnDj4Cr4vf/sGRB4Y7/in2tBO9t/qHkf
78587F2nLoqSCWM8AFH/0d7/c3rOWkPmAxDzP9sf/8n6Xl+c9QBE/xf7Su+LM/6w
7859sx+A2PfNXtxHWHQSK+cBiHk/7I94usyeI8gNNe+nfYeNjsN/XV6oeb/tH2YE
7860tt6P4Yea98e+/bLx28gLAlDz/tkrWgqxaP8ThJrH4CCpqZXfaykMVc/gEPyz
7861oKOiRQRqPqPDCYXHrK4PRaH6mRy6fv/NOREkDrWP2WH+4Verqu5IQM1jcdj1
7862MXLRqiYpqHksDtu2X4w76SUDNY/V4Yf9r1k3rOWg5rE5sJ9x0OzUV4Cax+7w
7863QO2pckWCItQ8DgfVCMuqvJ1KUPM4HK7pnLsr4K4CNY/T4f66p1KrZNSg5nE5
7864iFu45S6J1ICax+0gLrM68Y2pNtQ8HoeAqLnnvijpQ83jcVhd9lTy6jwjqHm8
7865Di37v9i5vLE44LL19Rrx7bwOVybv4HvuYXsAABpTFWo=
7866 "]]},
7867 {RGBColor[0.915, 0.3325, 0.2125], PointSize[0.006944444444444445],
7868 AbsoluteThickness[1.6], LineBox[CompressedData["
78691:eJxTTMoPSmViYGBQB2IQjQ5mzQSBnfZHH7n4NtSc3g/hn7T/N9cxrK/p9n4T
7870YxC4bN+gdW9588onUPmb9r+ELc9+mvV6P8SUB/bC9kyBKT4foeof26/YeF1H
78715/KX/elpIPDM/u0mvf19yT+g+l/abypdzZv8//f+s2dA4I293bT9kvNX/Iea
787298H+5MWX5us3MB6AqP9ov3hJ38MvU5kPQMz/bM/isfZdfCvrAYj+L/bBOT1y
7873AQ3sByD2fbPPXbb1tXcH5wGIeT/sl36/7sUxnxtq3k97zoVTdYqO8ULN+21/
7874TXWNSiyDANS8P/Yb+ly+G2oIQs37Z2+99twT7RghqHkMDma9Hzn+zRWGqmdw
7875UJmdzLzqvQjUfEaHHzs6z0wJFoPqZ3Io+h29Y9EZcah9zA5ijL8uxcZJQs1j
7876cei+I96ozSsNNY/FIe6Cns3MezJQ81gd+i5bRJ29KQc1j81hJWcbq2SLAtQ8
7877dodI83R5x92KUPM4HM4JGGxzlFaGmsfh8JW5pZNxowrUPE6HraIRBgYT1KDm
7878cTnc2M3MfueGBtQ8bod13m+PiR7RhprH45A2YcGfBUf1oebxOETfCY+TZTCG
7879msfrEGNm/Kgyz/KA1JqJDxQ38zpcmbyD77mH7QEACtMV7A==
7880 "]]},
7881 {RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], PointSize[
7882 0.006944444444444445], AbsoluteThickness[1.6], LineBox[CompressedData["
78831:eJxTTMoPSmViYGBQB2IQjQ5mzQSBnfZ/9SQMrDnP7IfwT9p/e+1kmcF/Z7+J
7884MQhctt9UzPbDV/gpVP6mfY3u48meGm/2Q0x5YF/64+S6r0s+QtU/tvd+HHb8
7885tO3X/elpIPDMvruX8XDugx9Q/S/tFbUFhPf0/dl/9gwIvLE/P21OYrQqwwGI
7886eR/sffkMRZ24mQ5A1H+05wvbGmbzi/kAxPzP9o7TQt71f2Y9ANH/xd6+133J
78874h/sByD2fbM/zRBxiJWbC2reD/sZS7N/FevwQM37aT+R9b/E0zg+qHm/7W2m
7888r2/zChKAmvfH/o5nKCNXgyDUvH/2kYrdR3V2CUHNY3AI/LhjUR6TCFQ9g8MP
7889m7C621GiUPMZHZQDDSY/OSoG1c/kEPV7J3OtmwTUPmaHHjvO3w4PJKHmsTiE
7890H78av2a6NNQ8FgeWl92SmUWyUPNYHdTSyyUPlctDzWNz8HI//XDFDQWoeewO
7891F9xfSnGJKUHN43AoPan2SaRWGWoeh4PIbUvTT1KqUPM4HbpqTrluY1aHmsfl
7892MMf+4ALhCE2oedwObtX6OvZBOlDzeBzsHgdOVTMxgJrH48DldGpRaqIx1Dxe
7893B9O1ha3rP1ge6H3y5Wrwel6HK5N38D33sD0AAGEsDOs=
7894 "]]},
7895 {RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142],
7896 PointSize[0.006944444444444445], AbsoluteThickness[1.6],
7897 LineBox[CompressedData["
78981:eJxTTMoPSmViYGBQB2IQjQ5mzQSBnfYixa+Fvk09sx/CP2n/ytZFxmnOnf0m
7899xiBw2b5/t56HRO1TqPxN+wr33qgFW9/sh5jywN5m00Se9r8foeof278VuZaY
7900veLr/vQ0EHhmr5Vx5ZhP7E+o/pf26x6USIjK/d1/9gwIvLGfkxRpll7GcABi
79013gf7e14Vn66kMh2AqP9on8d+53RzHMsBiPmf7euf/H67P5HtAET/F3vFdUxa
79023ws4DkDs+2ZvHP1rxv5eLqh5P+wbg/+vvL+TB2reT3uBrAzWiO98UPN+2y/l
79032PzCfIkA1Lw/9jysadyPrgtCzftnXzzVfZmuhDDUPAaHzNAGm/tpIlD1DA4n
790473n85DkmCjWf0SHk5bVIEwtxqH4mB+ff4v7hBySg9jE7sNZIKKskSUHNY3FQ
79052zTZTldJBmoei8NKxpffLNjkoOaxOsT/jcq5zaUANY/N4W2LwD4LXUWoeewO
79067hHZYpcLlKDmcTjINsnqvbinDDWPw8Fg0/sHj1pUoeZxOiQ8tom2KVeHmsfl
7907EH24zsr7uibUPG6He6sKJ2Y80IGax+PgVRe8pqbVAGoej8Pu5TbP1x4yhprH
790868CnskHjaZHVAe+/zx1Xr+Z1uDJ5B99zD9sDALNYEjQ=
7909 "]]},
7910 {RGBColor[0.736782672705901, 0.358, 0.5030266573755369], PointSize[
7911 0.006944444444444445], AbsoluteThickness[1.6], LineBox[CompressedData["
79121:eJxTTMoPSmViYGBQB2IQjQ5mzQSBnfZZx/d93aB0dj+Ef9L+fq/rf2nNu/tN
7913jEHgsv0JlvAZj549hcrftC9LNFf87vR2P8SUB/ZzsiOzJMI+QdU/tt/tFvqH
7914S/jb/vQ0EHhmf8Jp+SntWz+h+l/aR0+7KZu39u/+s2dA4I29t54Yd/FxhgMQ
79158z7Yh7bvP59+gOkARP1H+7M7mBxPH2I5ADH/s/0eo8Vv359nOwDR/8X+97m9
7916671echyA2PfNvmPrnPxKAW6oeT/skxgnR3q780LN+2nfee7ix1P9/FDzfttz
7917V23zUv0mADXvj73ZgTLRXfpCUPP+2fdwsrTrlQlDzWNwaN7pfs3/tAhUPYPD
79187AbrEjtDMaj5jA6NjbUKLavEofqZHDR/l84ytJKE2sfsULVT3Zv9iRTUPBaH
7919b3MCZdetkYGax+LgJ+V2hWOWHNQ8Vgct91+nr0YqQM1jc5hwKHTWiUZFqHns
7920Dvsz3grOOa0ENY/D4aiVSNZuBxWoeRwOgZ1Ley6/U4Wax+lg4rW+4NArdah5
7921XA5y7jZXmsK0oOZxO5Td2vxtYp4u1DwehxDJ0MOXrhlAzeNxyOJdr/1N2QRq
7922Hq/D81nvTkt9tTpg7dXHqraC1+HK5B18zz1sDwAAQLUV3w==
7923 "]]},
7924 {RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], PointSize[
7925 0.006944444444444445], AbsoluteThickness[1.6], LineBox[CompressedData["
79261:eJxTTMoPSmViYGBQB2IQjQ5mzQSBnfbG3JNuZK8/ux/CP2m/67bbo69b7+43
7927MQaBy/ZBvvUv1gQ8g8rftC+ufvjc98Lb/RBTHtgbqiqeWLnuE1T9Y/vYiivT
7928VtV+25+eBgLP7NNkq85xhf+C6n9p/9LbTvm4zb/9Z8+AwBt7zl+X7tdJMB6A
7929mPfB/sxhtrW/pJgPQNR/tNfN0twmpM56AGL+Z/tfDV5v5e3YD0D0f7F/8b7C
7930dF4i5wGIfd/sn/HbuxlP5oaa98Ped70a5/YrvFDzftq3zJR9LyciADXvt33O
7931651rhDwEoeb9sU+sbpef1C4ENe+f/craA+n6V4Sh5jE4LJTlLzigLwpVz+CQ
7932p6T3Pn+OGNR8Roe1kirPL8tIQPUzOQj9vvyUe4sk1D5mh4/fzIpfpUpDzWNx
7933ON7O/0fPXBZqHovDV6PFG2/oykPNY3X4PmGm9oUVClDz2BwMGWaXRVxThJrH
79347mBWmc+bqqYMNY/DIecz17K+RSpQ8zgc8hOiLY5EqEHN43Tg3KjY5hGnATWP
7935y+H+qZ+5u65qQc3jduDj+ha9+48u1Dweh4QtYbc0NAyh5vE4SBUrFti1mkDN
793643XYL6ibH1BufeBViqPWoSW8Dlcm7+B77mF7AACS3RIV
7937 "]]},
7938 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.006944444444444445],
7939 AbsoluteThickness[1.6], LineBox[CompressedData["
79401:eJxTTMoPSmViYGBQB2IQjQ5mzQSBnfaO4am71WzO7YfwT9ov1fY4et7p3n4T
7941YxC4bH9v6nKL8l3PoPI37Qumdq9bEvtuP8SUB/a/771QtWb/DFX/2J5hVbCh
794214tv+9PTQOCZ/b3vPpdeXv4F1f/SvpxxsYbCmX/7z54BgTf2x4/2b+nKZDwA
7943Me+DfSyDX1dvKfMBiPqP9o3SAdpR3awHIOZ/trc4//GN/xr2AxD9X+xPC5js
7944/niT8wDEvm/2rlkPZd6K8kDN+2FvH7trh1ISH9S8n/YnvINSIxIEoOb9tr8a
7945s5ePYZYg1Lw/9n1mMzSz7gtBzftnf/BjjYeBkQjUPAaH3Y3XOA2niELVMzg4
7946HFHIWsguDjWf0eHuxlNrlfsloPqZHP79MjR8pisFtY/ZIdXEbfbZ59JQ81gc
7947phedvbX+oCzUPBaHWd4M/SsOykPNY3U4dMui+9R3Bah5bA5XbB8EvdBSgprH
79487rCu8yOHXqMy1DwOB9E1jI8SWVSh5nE49JoLPtlySA1qHqfDffEps89d1ICa
7949x+Ww0G87+6cQbah53A5LLS0OPunSg5rH45DtH/GxrtIQah6Pw6kbk7e0PTOB
7950msfrMKMjW6jtp/WBPSEv79Yu5HW4MnkH33MP2wMAjNsZnQ==
7951 "]]},
7952 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.006944444444444445],
7953 AbsoluteThickness[1.6], LineBox[CompressedData["
79541:eJxTTMoPSmViYGBQB2IQjQ5mzQSBnfaBiy3mPTxxbj+Ef9L+QK3nipXn7+03
7955MQaBy/YZ9853OKo8h8rftP+53rT096t3+yGmPLCPmLGh+Uz8Z6j6x/Ylty+d
7956fhn0fX96Ggg8s6++JH/tRMBvqP6X9izb2fUqo//vP3sGBN7Yt0706Zy2i/EA
7957xLwP9g9tpqYrXGA+AFH/0f7tmbIFC9+zHoCY/9m+VHbmm3opjgMQ/V/s1xm+
7958d3AN4joAse+b/eIjzZ+XzeCBmvfDXoPbL6PvPR/UvJ/2rP/abk9cIwA177e9
7959zbkDBW9fC0LN+2O/++MKYydzYah5/+zvpFpqGk4QgZrH4HD96dzFC3+IQtUz
7960OAinCT+9VCQONZ/RgdursKSYURKqn8nh2a/+mgPLpaD2MTvcLgw9vCFTBmoe
7961i0N6bPdOAx85qHksDgqb9Mz2aClAzWN16FW58eqImyLUPDaHsmpV/Yp6Jah5
79627A5qs4pZvt9WhprH4bAn5YesaZoq1DwOhzV8x/uX6qhDzeN02FLHtjHEVRNq
7963HpdDyqWShZpXtKHmcTvYZ1ap8UnqQ83jcSh/Fclx9ZQh1Dweh2o7tp/n3E2h
79645vE6FP5fuXV3tc2Bv7935IfP43W4MnkH33MP2wMACx4bmg==
7965 "]]},
7966 {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.006944444444444445],
7967 AbsoluteThickness[1.6], LineBox[CompressedData["
79681:eJxTTMoPSmViYGBQB2IQjQ5mzQSBnfbuP7gb54Se3w/hn7Tfdtaruznm/n4T
7969YxC4bP9F7ccN7r7nUPmb9jkn71sHVbzfDzHlgf2bwIqHsTs+Q9U/thfnDUrr
79703Pt9f3oaCDyzd1z76ebys7+h+l/aT87JMb706v/+s2dA4I29Uyxn3CJupgMQ
79718z7Yp1TecdmsxXIAov6jvU/dXNGXwWwHIOZ/tt+c7fBmfQfHAYj+L/YTg1Yd
7972m3GK6wDEvm/2PPJqpxKkeaHm/bAX3vlQ/FcNP9S8n/auG3YHnv4hADXvt/1c
7973+yOXbtkKQc37Y/98zU5bqX5hqHn/7L/d/Mpp9E4Eah6Dw1vPVFuhWDGoegaH
7974p+xsCSz3xKHmMzqYPxK3PlwsCdXP5HD+19vjsxSlofYxOwStT3k9+bUM1DwW
7975B3MPzxkbr8lBzWNxKLG7q7KkRAFqHqtDZF651/6pilDz2BwkdmZxc1xRgprH
79767jB31df/+81UoOZxOKTKvo/kOKEKNY/D4eTTGutp09Sh5nE6dD2tOHZrhybU
7977PC4H1TAj68RgHah53A7XZuzpNl+uDzWPx6GpNVpeW8YIah6Pg+aSClvxlaZQ
797883gdvMpeRHz8a3OgqNLJ13c2r8OVyTv4nnvYHgAA3yoXaQ==
7979 "]]},
7980 {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.006944444444444445],
7981 AbsoluteThickness[1.6], LineBox[CompressedData["
79821:eJxTTMoPSmViYGBQA2IQjQ5mzQSBnfb51veTwx+d3w/hn7TPkPbJi315f7+J
7983MQhctt+bp6B57ftzqPxN+y0fXRqvMH3YDzHlgX0Dt4P9e4EvUPWP7XfaXWTQ
79841PixPz0NBJ7ZP2g/erfN6w9U/0t7gYkZc0RtGQ6cPQMCb+wZNI8ZrYthOgAx
798574P9y63KSm6tLAcg6j/ar9E/0mWwg+0AxPzP9h92Pn99/xsHVP8X+6ziVJ83
7986TtwHIPZ9s8+qPLFAah4v1Lwf9lWbdz02YhWAmvfTvjXpw3EWV0Goeb/tmTYe
7987NznRLwQ174+9RMYp90/PhKHm/bMX8tv0yshHFGoegwP3Op3rTQfFoOoZHPas
7988/HHL1FMCaj6jQ3rVPkbhZ5JQ/UwOW395C5fOlobax+xw6k2xcHmuLNQ8FgcO
7989Y/Zyo0R5qHksDsdOdQv37FOAmsfqoLJDbNXOJ4pQ89gcdn5b/3y6hjLUPHYH
7990kd3lvzsmqkDN43DgvfZ06m1NNah5HA4v9hg9b2PQgJrH6ZDo8/p2go4W1Dwu
7991h2c331+ZcUkHah63g3lKfcUGKQOoeTwOvQqxZo25RlDzeBxucb5ujOcyO7Dg
7992ntj1NZN5Ha5M3sH33MP2AAABRw5Q
7993 "]]},
7994 {RGBColor[0.528488, 0.470624, 0.701351], PointSize[0.006944444444444445],
7995 AbsoluteThickness[1.6], LineBox[CompressedData["
79961:eJxTTMoPSmViYGBQA2IQjQ5mzQSBnfb7nSOVO80v7IfwT9pf3LZshbT1g/0m
7997xiBw2Z5rh0flgsQXUPmb9n/+zXxS7/lhP8SUB/bCR9nnNmR+gap/bN9TEDD7
7998xKQf+9PTQOCZfV3SjIepx/9A9b+0v/5aSv5QC8OBs2dA4I39vi9N7LvWMh2A
7999mPfBPvdT1v8b91kOQNR/tP//4NX/chn2AxDzP9vrcfS/5k/lhOr/Yu8zReGS
8000/W7uAxD7vtnvu5xVfkWBD2reD/virpbdL7wFoOb9tD8qompnN1EQat5v+wyl
800109O2PhSCmvfH3kX5duApOxGoef/sNQ/lnTZeJQo1j8FBWehLwWdVcah6Bodu
800279eh6VskoOYzOkwSSj2RFCEF1c/kMOfXyjh/URmofcwOjlrN1lHvZaHmsThc
8003kz0auvm1PNQ8FgfJcCumEg5FqHmsDu8Zt3FuMVaCmsfmEG3y9bB6rTLUPHaH
80043tM/vwW+UYGax+Gwpe/OxXXdalDzOBzYp7yYVJ6lATWP08Fsc+zHZ/O1oOZx
8005OSyPXZt3IVAXah63A3ONgvbRRAOoeTwOM3fH+V7fZwQ1j8ehMz/22PJsswM5
8006hya08LTxOlyZvIPvuYftAQAkFxBx
8007 "]]},
8008 {RGBColor[0.772079, 0.431554, 0.102387], PointSize[0.006944444444444445],
8009 AbsoluteThickness[1.6], LineBox[CompressedData["
80101:eJxTTMoPSmViYGBQA2IQjQ5mzQSBnfbHXx6a8qz2wn4I/6T96Tj1WR2ND/ab
8011GIPAZfupDIUns06/gMrftP/D/d5de8KH/RBTHtgvrzv/S/DQF6j6x/Z/F543
8012zfj7Y396Ggg8s5e2zX7q4vIXqv+lfY/b2YV5ZxgOnD0DAm/saw7Y3zn6j+kA
8013xLwP9h/1Nt3JtmI9AFH/0T5ukmDp/gb2AxDzP9tnh5m9tr/MCdX/xd566+3w
8014ycY8ByD2fbOX0eP161vMBzXvh31Got/keZMEoOb9tGc7Hrml/K4g1Lzf9ucm
8015n/uxyFgYat4f+5x7r6MXTROBmvfP3t1Me40JhxjUPAYHx7LdXCld4lD1DA5x
8016b+9emCEvCTWf0eHAKu7+TaekoPqZHDp/sa/S7JeB2sfssD19UrJtoRzUPBaH
80174BZHKSlrBah5LA45j198iA5ShJrH6rDbOzRzXZMS1Dw2h7+FVgu2X1SGmsfu
8018wHKn+pOUuyrUPA6HWPfLvE1v1aDmcTioZs+zy7iiATWP04FH6gJbrrA21Dwu
8019h6yHWRwcF3Wh5nE7nJt88O7NFQZQ83gcloQlpOgKGEPN43Gwunqe68MZswML
80205PgrH1TwOlyZvIPvuYftAQCckQ6a
8021 "]]},
8022 {RGBColor[0.363898, 0.618501, 0.782349], PointSize[0.006944444444444445],
8023 AbsoluteThickness[1.6], LineBox[CompressedData["
80241:eJxTTMoPSmViYGBQA2IQjQ5mzQSBnfbn+nXYXI5c2A/hn7Q/xrai++vxB/tN
8025jEHgsn2ox0xJU9OXUPmb9hskXFZfu/ZhP8SUB/YVFtMjFkt9hap/bL/gst8F
80269oyf+9PTQOCZfb+43Uvlg3+h+l/aBy2sV5EWYTxw9gwIvLG36vmz4aI/8wGI
8027eR/sS7N/7vw3hfUARP1H+9POFq/YnrIfgJj/2X7lkruv8h25oPq/2Mtdm3b3
80282WqeAxD7vtnXdKxX8VDjh5r3wz7CQiI75KYA1Lyf9q6VfVobNYWg5v22N2G9
8029FDWhVRhq3h/7uTP/pFa9E4Ga988+adXzHtM0Mah5DA7Rt5qWXHknDlXP4GDY
8030f8H7VJck1HxGh3dOm0KZbKWh+pkcin6lfmXmlIXax+ygtXRht8JnOah5LA67
8031Kxd0RjUoQM1jcdifP/2+8xxFqHmsDh1Tv5xYcVEJah6bw4L19TXuaipQ89gd
8032qt/8fft4oSrUPA4HFoZTnqH+6lDzOBycnUJeRdhpQs3jdHjU4CTzuU0bah6X
8033g06qxiL7AD2oedwOs1cnTXj33gBqHo/D+o+J1c2JxlDzeBxeWjn5W+iZH+AM
8034mvdHKYfX4crkHXzPPWwPAADFbw3r
8035 "]]},
8036 {RGBColor[1, 0.75, 0], PointSize[0.006944444444444445], AbsoluteThickness[
8037 1.6], LineBox[CompressedData["
80381:eJxTTMoPSmViYGBQA2IQjQ5mzQSBnfbXTKeVL+S6uB/CP2nfs1ajNonv4X4T
8039YxC4bH9nwsHM//NeQuVv2q9XncnXJPtxP8SUB/bnP8ZtMyn+ClX/2L6E9VzW
80408ks/96engcAz+8hPAm+Z7P5B9b+0l/xjuPx4NOOBs2dA4I39j/CdrXcXMB+A
8041mPfB/udyh+kT37MegKj/aK/1NS7ez5PjAMT8z/bPPrW8mr+eC6r/iz3T98Bk
8042KxXeAxD7vtnffBT4m3ElP9S8H/a+/I+cuBQEoeb9tO/UPrzgVakQ1Lzf9jPL
8043ru6pvS4MNe+P/dEQ3oIgN1Goef/sa+SW5JodEYOax+BQZudl5xosAVXP4MBk
8044ePjY76+SUPMZHaRvR8gErZeG6mdyiPp12OFekyzUPmaHxY82bGYulYeax+Kg
8045mP//x6yjClDzWBwE/rie036mCDWP1SHk/mSNxQrKUPPYHJzfHom4XqUCNY/d
80464dOf+pdr/qhCzeNwWLPjQKvGRnWoeRwOSZJc0zxXaELN43TY9nyLYeUvbah5
8047XA7vXzy1Lj+vBzWP2yH9MLMzs7kh1Dweh909yZNubjKGmsfjMHPBlskN/eYH
8048uHv2bj0Xz+twZfIOvucetgcAU5kT3g==
8049 "]]},
8050 {RGBColor[0.647624, 0.37816, 0.614037], PointSize[0.006944444444444445],
8051 AbsoluteThickness[1.6], LineBox[CompressedData["
80521:eJxTTMoPSmViYGBQA2IQjQ5mzQSBnfYnH/x/8S/g4n4I/6R9U+jKvPMhD/eb
8053GIPAZXuzWy93nuR4BZW/af/H6F2hbsrH/RBTHtgnr1YTOXb6K1T9Y/vHZr6s
80547ra/9qengcAz++9nHn94uOsfVP9L+wdhTzRLFjMeOHsGBN7Yb1Uui3r5kfkA
8055xLwP9nVP2ktUvNgOQNR/tO9a1npl6lqOAxDzP9urOOq8Oi/LDdX/xf6JOO/L
80563jm8ByD2fbOfI/frxV1RAah5P+zdn62WOpAmCDXvp/2pu9/FVA4JQc37bc/0
80574oZctqYI1Lw/9p/45aq05olCzftnP31Sgp+5kjjUPAaHiYsEb2zdLgFVz+Bw
80589dJWR91EKaj5jA6+xf8fLVSUgepncnD+pdiz448s1D5mBymFA7effZOHmsfi
80590JESl3GbSxFqHotDUseXPcIGSlDzWB3kNI075uYrQ81jc3iixWWafl4Fah67
8060QzYv09PScDWoeRwOwYXbD/4W0oCax+HQ9GG/o5WQFtQ8ToceP3X3/7k6UPO4
8061HNbnLL66zk8fah63g/HtJV/F6wyh5vE4HFNPXanPYgI1j8fBi039xokP5gfa
8062b9xfeC+Y1+HK5B18zz1sDwAA8t0RcQ==
8063 "]]},
8064 {RGBColor[0.571589, 0.586483, 0.], PointSize[0.006944444444444445],
8065 AbsoluteThickness[1.6], LineBox[CompressedData["
80661:eJxTTMoPSmViYGBQA2IQjQ5mzQSBnfZPGzOjYqZf3A/hn7Qv/6uZYDP74X4T
8067YxC4bH9QSYhrStErqPxN+7X2zldvrPq4H2LKA/vvKe8Kw1W+QdU/tm/NODP/
80682fJf+9PTQOCZ/bTl274cMP8P1f/SftnGaWsUXjMeOHsGBN7YF7830v/qxHIA
8069Yt4He0bF84Hbl7AdgKj/aP8qfI3nXUHOAxDzP9sn9l9++b+bG6r/i/1xixN5
8070D0X4DkDs+2Z/2tv7ilW4ANS8H/Y2e0s/la4VhJr3055tgk5vLJ8w1Lzf9hmR
8071dxoiqkWg5v2xlz+t18L0TRRq3j/7TWyy+hYN4lDzGBxWs90sVJORhKpncFhR
8072smJP3BkpqPmMDhXcy1Z+nCwD1c/koPOr/vqkMjmofcwOJ9Y9Z0y1UYCax+Lw
8073KXLvdekARah5LA7bRRav/l2pBDWP1eFV0aXn0/cpQ81jc2jL8Bf8rqwKNY/d
80744ZFsywO7TWpQ8zgc/miu+3uuRANqHofD/OOlb7VqtKDmcTokbZ0Z0/pQB2oe
8075l0Phh4T8Z2f1oeZxO/z/5LpC56gh1Dweh4uH0g60hppAzeNx+Jk9U0YwyOLA
8076AqGFfH4evA5XJu/ge+5hewAAQvATNQ==
8077 "]]},
8078 {RGBColor[0.915, 0.3325, 0.2125], PointSize[0.006944444444444445],
8079 AbsoluteThickness[1.6], LineBox[CompressedData["
80801:eJxTTMoPSmViYGBQA2IQjQ5mzQSBnfZv1S+f3nn34n4I/6T9pmWrAlc+fLjf
8081xBgELtsXZ1lFxd15BZW/ab/aZ4ZFy8eP+yGmPLA/Lbft/Iuab1D1j+1jZnlb
8082tQn93p+eBgLP7NmaOn/M3/Ifqv+lfS6Pp/5ZI6YDZ8+AwBt7w93vmRmnsByA
8083mPfBvjVWTN/rP9sBiPqP9p6cl/eplHEegJj/2X7+3aqX+r+4ofq/2M+LbP5i
80840st3AGLfN/v/FXP2T58hADXvh73OFPtT2l8Eoeb9tPdySmSeHiUMNe+3/clT
80859x+5nhWBmvfH3rvNvu+WrxjUvH/2Z6tu8lveE4eax+BwLGsB9/QGSah6Boc6
8086sdnmE8yloeYzOixb7FPgyCYL1c/kIPLrrlLuBzmofcwOzb7vp4bVKkDNY3GI
80879pdxj5mqCDWPxYFrYeCsx4eVoOaxOmzfU+g+iVcFah6bg+ayKW/bKlSh5rE7
8088ROmx3WHnVYeax+Gw9NESy0XXNKDmcTjsm6c9U/qZFtQ8TgdzGZ4i7lBdqHlc
8089DpJW/Sz9agZQ87gdTnE9j3LkMYKax+NwJzbj+u1lJlDzeBxWXuROjNxscWBB
80903OzJEra8Dlcm7+B77mF7AADWmwnX
8091 "]]},
8092 {RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], PointSize[
8093 0.006944444444444445], AbsoluteThickness[1.6], LineBox[CompressedData["
80941:eJxTTMoPSmViYGBQA2IQjQ5mzQSBnfZfztrYiqtc2g/hn7RP9tV2FtN4tN/E
8095GAQu21/fnLRKw+01VP6m/crIt7P1LT7th5jywD7hRq1u1dVvUPWP7U+dPnVF
8096tfb3/vQ0EHhmn6mnV7dfguEARP9Le+P03xsrq5gOnD0DAm/sGdvX3OB5ynIA
8097Yt4He85ZsTx3I9mh6j/az9710zjnFucBiPmf7e9oK72Mz+CB6v9i31hlV9XB
8098yn8AYt83e/1lb1d9uSkANe+HvWo256KHVkJQ837at32ZWnlhmTDUvN/2JjaP
8099XYzlRaHm/bEvdwyYsWmpGNS8f/bP3039YGkjATWPweHhufSl7E8loeoZHHx3
81009G46uEgaaj6jwzXrz2YTK2Sh+pkcfv20znPPkofax+xg9+abpsc+Bah5LA4H
8101Xaq3zbmlCDWPxSFOl6HzNK8y1DxWh0Y2weU9MSpQ89gcTj++eVLsrCrUPHaH
8102i3Yd1y+kq0PN43Dwnj27tNRCE2oeh8Pt0ocuPAHaUPM4Hfia69onntCFmsfl
81038Ot37kWtNAOoedwO05U6eMOCjaDm8Tg8/5H5zvCHCdQ8Hoco87qlC0UsDxSq
8104nOGxMuJ1uDJ5B99zD9sDAGt2DHI=
8105 "]]},
8106 {RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142],
8107 PointSize[0.006944444444444445], AbsoluteThickness[1.6],
8108 LineBox[CompressedData["
81091:eJxTTMoPSmViYGBQA2IQjQ5mzQSBnfZ/ipetK8m6tB/CP2m/4ttqk+a8R/tN
8110jEHgsn3Sn65fn9a/hsrftF+Z5vT/Vt2n/RBTHthvnujaza33Har+sf2Sv575
8111R5//3p+eBgLP7BfMFmfQD2c4ANH/0v7XwbUmaoeYDpw9AwJv7PcFZa6VMGM9
8112ADHvg33vtSUv87ewQ9V/tOfMUVi52Y7rAMT8z/Y8VSdf9F/jger/Yl8w++f/
811327X8ByD2fbOPuGw3LVBaEGreD3tpp8uV0xuFoOb9tD+27NR7zs/CUPN+289c
8114+2yZQqEo1Lw/9kv+JCzq+isGNe+fPXNy0EWrWRJQ8xgcfhvp21d4SkHVMzgo
8115RDXofuaVgZrP6MByZebfB69kofqZHB7/nLlT8Yk81D5mh59d//Za/leAmsfi
8116oGl1S/WuvBLUPBaHDTvXlW8OV4aax+rgG7CBrX21CtQ8NodcRfllyxTVoOax
8117O3j6c12eeUgdah6Hw5fgSRs9ZmlCzeNw+O0z/cOfndpQ8zgdHr/8MEfcRg9q
8118HpfD7b0+844tNYCax+2QYqV5IGuWEdQ8HodPk7NZOzxNoebxOHDM/fDyZanl
8119gaqeyqnr1Hkdrkzewffcw/YAAJ1sFrE=
8120 "]]},
8121 {RGBColor[0.736782672705901, 0.358, 0.5030266573755369], PointSize[
8122 0.006944444444444445], AbsoluteThickness[1.6], LineBox[CompressedData["
81231:eJxTTMoPSmViYGBQA2IQjQ5mzQSBnfbMUgIKlzZc2g/hn7RfPE9H7cOWR/tN
8124jEHgsj23y2avvZJvoPI37X8XT09qO/ppP8SUB/ad3rwv57R9h6p/bO+mf5Iz
8125NejP/vQ0EHhmz87J2DRvKsMBiP6X9gdkErZf4mQ+cPYMCLyxr5VTa1JpZz0A
8126Me+DvaDwm2NM/BxQ9R/to2Td5X4v4joAMf+zffiJghf7XXih+r/Yh+zZ0qr/
8127jf8AxL5v9r0MExrXxQhCzfthzyU5N9D3hBDUvJ/2bJH/U53tRaDm/bb/J/eK
8128g++wKNS8P/YXtheuSQoVh5r3z172Ot8m6x8SUPMYHMSmf7vxYq0UVD2Dw+ff
8129RStUKmWg5jM6GOU4HDGIlYPqZ3J4/qea6Z+eAtQ+ZofNmmxB2g6KUPNYHCbq
8130W06VTVWCmsfiwOwWmzZ7oTLUPFYHiVn+aY2/VKDmsTnwx6c0mZWpQc1jdzgQ
813133MuSVYDah6Hw2yezrfSfzSh5nE4SKr4znmrrAM1j9Nhe0Dyprnr9aDmcTns
8132qdfOTnpqADWP20Ev6FRR/UMjqHk8Dv/0cmXuzTKFmsfjsJMpWc/ouuUBN5fu
81335iJZXocrk3fwPfewPQAARQEBPg==
8134 "]]},
8135 {RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], PointSize[
8136 0.006944444444444445], AbsoluteThickness[1.6], LineBox[CompressedData["
81371:eJxTTMoPSmViYGBQA2IQjQ5mzQSBnfZ5Rysn6n+/tB/CP2nv6rpWPPb3o/0m
8138xiBw2X5Sz+1Z7c1voPI37Zc1vDlqyPN5P8SUB/ZyrFfd9O5/h6p/bP8qwWMJ
8139y94/+9PTQOCZfX7ZK2a+KwwHIPpf2reXC1nVBzIfOHsGBN7Ya7x6FGZwg/UA
8140xLwP9tP8jZdMzeSAqv9ov/Nc7mQndu4DEPM/208Vk3jxfhMvVP8X+9nvtrc6
8141mgscgNj3zX6v7sMc7nmCUPN+2P9/n6bJzC8MNe+nvTe3yZ2abhGoeb/tUya8
8142zfotIgY174/9n6KmbVZrxaHm/bO38D49ySZMEmoeg4Ph771FkULSUPUMDifn
8143piqHPZGBms/oEMvyvKvhvBxUP5PD7T9aGq+zFaD2MTvkn+B9JtOoCDWPxeG7
8144ygyWuFVKUPNYHEIvcYc2v1aGmsfq8OTxu6PVnqpQ89gcNs5ZGXfslBrUPHYH
8145iwK+U9oVGlDzOBycj9Zrvo/VgprH4WD+m8njXq8O1DxOh77tV48rK+tDzeNy
8146mOvIZfFPxRBqHrfD78xs1SkaxlDzeBy4TuUZm7wxhZrH45CZcbWoysLqAP9N
8147r+QmYV6HK5N38D33sD0AAD+VCdA=
8148 "]]},
8149 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.006944444444444445],
8150 AbsoluteThickness[1.6], LineBox[CompressedData["
81511:eJxTTMoPSmViYGBQA2IQjQ5mzQSBnfZCaY+Zem0v74fwT9rPeKfLecrx8X4T
8152YxC4bM98jfl14Ns3UPmb9n96HTXvBn3eDzHlgX3evjlL9pv/gKp/bB886bjd
8153EvW/+9PTQOCZ/dLHl1trhRgPQPS/tPe7dGSP9kzmA2fPgMAb+2db52vbaLId
8154gJj3wV6qp6pR4wgHVP1He42GKRxd2dwHIOZ/tr+Usv+5vCIfVP8Xe976qR7Z
8155xQIHIPZ9s38WZRSRcV8Qat4P+1/HDBh3hgpDzftp37Y3I2jbdRGoeb/tjzF+
8156PPMiTQxq3h97Lb3JB4RYJaDm/bMP3t9ebLtFEmoeg4NPfCvPqTJpqHoGhyn2
8157EfPa/WWh5jM6dM/pDbzgKA/Vz+Rw4c9N3xsrFKD2MTtop4tW8R1ShJrH4pAo
81589b143nslqHksDividjlnm6pAzWN12KDbp1o2QxVqHptD6K13VmHy6lDz2B02
8159NEw4+uWSBtQ8DofXtWWph/ZrQc3jcAi7tOPzue86UPM4HZLlPO6unKYPNY/L
8160oY75JcusFEOoedwOxxp5bqzIN4aax+Mgmlrg1WVrBjWPx0HynPv2QzOtDoT7
8161NH6+xcnrcGXyDr7nHrYHAJq6DEU=
8162 "]]},
8163 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.006944444444444445],
8164 AbsoluteThickness[1.6], LineBox[CompressedData["
81651:eJxTTMoPSmViYGBQA2IQjQ5mzQSBnfbLBH1LXjVf3g/hn7SfPG3dL7OOx/tN
8166jEHgsn2vnI61TPhbqPxN+8WzpvV0zPy8H2LKA3uPihSmwAk/oOof23857HbT
8167edLf/elpIPDM/mvAXva3AYwHIPpf2ovoltvfeMB84OwZEHhjv7gxhsGjiu0A
8168xLwP9nNPHIzbLccJVf/Rvt1wd+3F89wHIOZ/tpfdnPbcv58Pqv+LfQV/MffU
81699QIHIPZ9sxftaHY+qiAENe+H/bu5v27kzRGGmvfT/lj+3BPvlUWh5v22Nyj+
8170ondthxjUvD/2gS8Xn3oVIwE17599nrFLiJ2QFNQ8Bof0wz7LrG5LQ9UzOGQ9
81719JLcuUsWaj6jwx4TEwmFLfJQ/UwOR/50FB99qgC1j9nhCassHwOzEtQ8Fofj
8172/GGP75koQ81jcfj5KsMouF4Fah6rQ3W5bmvBc1WoeWwOX8VNxJ8Vq0PNY3dQ
8173nyh0cK+uJtQ8DofJZrkLpypqQ83jcChdmTd/f6Iu1DxOh9lOsT/FWQ2g5nE5
8174xB89ftF0iSHUPG6HyTPXdu3dZgw1j8dBgaEo8UGfGdQ8Hofjxrt+c/22OtC3
81758YViJQOvw5XJO/iee9geAAAs4gs+
8176 "]]},
8177 {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.006944444444444445],
8178 AbsoluteThickness[1.6], LineBox[CompressedData["
81791:eJxTTMoPSmViYGBQA2IQjQ5mzQSBnfZKm7Y9dT91eT+Ef9Je3Vb/zeJzj/eb
8180GIPAZXvNtJDuZwfeQuVv2i9a/vq98YPP+yGmPLCfZqiT8OjFD6j6x/bTvh4t
8181fvzn7/70NBB4Zu+yb1lnTD/jAYj+l/a32zUPtWiwHDh7BgTe2Jf6Sl4NPs12
8182AGLeB3slVk4bv0pOqPqP9s8fPfwkYcJzAGL+Z/toRr7n9X/5oPq/2H+YH3Bu
818332uBAxD7vtl7bb2ip5QkBDXvh/3jkiMbVB4LQ837ac+tdMlOs0AUat5v+2lP
8184vk84zCUONe+PffOSLVcObZGAmvfPvnM5g6l9gRTUPAaHRnURh9X2MlD1DA6W
8185zbZTXqnKQc1ndChOy31vLqwA1c/ksOOP+cxNSopQ+5gd5i9RWfTRWQlqHouD
8186AevWIPkqZah5LA5+5eKK1idVoOaxOngcPPMky0wNah6bw/TQys+lJ9Sh5rE7
8187zF84ZU9bhybUPA4Hm/fJdzOataHmcThMaVDx3nBaF2oepwN7mRjLbTsDqHlc
8188Dvbty+ZdfGwINY/bIX6jn+2lv8ZQ83gcdGYXV5g9MIOax+NQMVPHITjG+oD3
8189ypfsUd95HK5M3sH33MP2AABBgA3U
8190 "]]},
8191 {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.006944444444444445],
8192 AbsoluteThickness[1.6], LineBox[CompressedData["
81931:eJxTTMoPSmViYGBQA2IQjQ5mzQSBnfZaEQrhSwWu7IfwT9p3Plt/V0D0yX4T
8194YxC4bL9xXc3tDVrvoPI37RdscQi+r/ZlP8SUB/Zarz/vLXb8CVX/2L5U3ZWv
8195Of3f/vQ0EHhmP0V7AveZs4wHIPpf2i98dNvFsIDlwNkzIPDG3ljy2sp4GfYD
8196EPM+2C9zDJB8eJkTqv6jvdsUjoyEGTwHIOZ/tu/y3/psfTY/VP8X+2gDvYkv
81971AUPQOz7Zl/1SFWqfrEQ1Lwf9pe9+zpuaYpAzftp73aFbWvSHlGoeb/tv4X+
8198/rQhRhxq3h/79fFH783ikYSa989+vvReUYdzUlDzGBzmdN++Kb1EBqqewUFA
81991YBfZqIc1HxGh65NBy7F+yhA9TM5rP3zbN/8eEWofcwOMc46Zo9blKDmsTjM
8200+CV8KH6/MtQ8FoeFzMf4lYVVoeaxOghz57iktqpBzWNzsJy87zyrrAbUPHYH
82018U1iO/wfa0LN43B4tDxK0uapNtQ8DoeN4be+LTDVg5rH6VC48jzfvAoDqHlc
8202Dgqerdm5ykZQ87gdtE6+f//MxQRqHo+DuVlpf4+hOdQ8HgfN//NaZu+1PrC6
8203eO7zqnc8Dlcm7+B77mF7AAAFugnX
8204 "]]},
8205 {RGBColor[0.528488, 0.470624, 0.701351], PointSize[0.006944444444444445],
8206 AbsoluteThickness[1.6], LineBox[CompressedData["
82071:eJxTTMoPSmViYGBQA2IQjQ5mzQSBnfaG/zpPMIVf2Q/hn7Rv6TM4Xxv9ZL+J
8208MQhctrf4vkS7eso7qPxN+/kHp27ryv2yH2LKA/u9S3ZLs876CVX/2F488sgK
8209pUv/9qengcAz+8czKnuteZgOQPS/tM+w7Tt+dzvLgbNnQOCN/d0nk+qyc9kP
8210QMz7YK9ZN/1bsR4XVP1H++Wu+neX/+E5ADH/s/3JuTHP7t/kh+r/Yn/5AHeI
8211UIrgAYh93+xX8pez3nkiBDXvh/1ZpYiECQUiUPN+2re3WWvP4RCDmvfbPvH4
8212v5B568Sh5v2xvyN17UVRiiTUvH/2+/orvznoSEPNY3DY9n5RcQ+HLFQ9g8Pz
8213Y0pdvn/koOYzOiz8J7ytvVUBqp/JYeGfqU965ihC7WN2EHtkfOrKUSWoeSwO
8214/98XGS5gUYGax+Lwpb/kH1esKtQ8VocHIdxL4q+oQc1jc7h9gXnN1EINqHns
8215Dr2HZmyWsNOCmsfh0JMQGMrvrgM1j8PhvN6ERRPn60HN43S4c6dDMnGTAdQ8
8216LgdG7hQLzmQjqHncDt8fTFj0u9sEah6Pg9PFsmWPmsyh5vE43EgRPPlYzubA
8217Uxk+zZtPeRyuTN7B99zD9gAA4xYTaA==
8218 "]]},
8219 {RGBColor[0.772079, 0.431554, 0.102387], PointSize[0.006944444444444445],
8220 AbsoluteThickness[1.6], LineBox[CompressedData["
82211:eJxTTMoPSmViYGBQA2IQjQ5mzQSBnfYiqz5bJsy9sh/CP2nPYbrxwKuFT/ab
8222GIPAZfudDmerXf+9g8rftJ937pWk2ZYv+yGmPLCfE9dcOe3TT6j6x/Y1Xc7O
8223h2z+709PA4Fn9kZsyfyrvZgOQPS/tHed4eDV9Z/lwNkzIPDGfv0G/+DyfewH
8224IOZ9sF+3695ltk4uqPqP9qzfQ4PeJ/AegJj/2Z75G+NndhUBqP4v9i6BL8Vs
8225FggegNj3zf6GzYkPFmrCUPN+2O/5qWjhtl0Eat5P+zMWBQuvhohBzfttf8yC
8226aXs3gwTUvD/2HNeeffLaIwk175/9TWaz645d0lDzGBzOBmfx/s2RhapncNia
8227Icpany4PNZ/RYYdX+sz1+xSg+pkcpv1x4aq6qQi1j9nhUoN13DE2Zah5LA4Z
8228Ty8ueOCpAjWPxcFDRvntp2WqUPNYHdbMW8UcpawONY/NoY7Ps0P1mAbUPHYH
82291stS6x/O0IKax+FgLOkx8dEKHah5HA7vWN38mjj1oeZxOrgJOKmovDGAmsfl
82308OiME+vSRUZQ87gdDv8wDBW4bAI1j8fBN6dir8UVc6h5PA7tp5p5dRpsDlj9
8231WBdedJfH4crkHXzPPWwPAAD2aAkm
8232 "]]}}, {}},
8233 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
8234 Axes->{True, True},
8235 AxesLabel->{
8236 FormBox["\"t\"", TraditionalForm],
8237 FormBox["\"v\"", TraditionalForm]},
8238 AxesOrigin->{0, 0},
8239 DisplayFunction->Identity,
8240 Epilog->{
8241 Directive[{
8242 Thickness[Large],
8243 RGBColor[1, 0, 0]}],
8244 LineBox[{{2.25, 0}, {2.25, -30}}]},
8245 Frame->{{False, False}, {False, False}},
8246 FrameLabel->{{None, None}, {None, None}},
8247 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
8248 GridLines->{None, None},
8249 GridLinesStyle->Directive[
8250 GrayLevel[0.5, 0.4]],
8251 Method->{},
8252 PlotRange->{{0, 3.8000000000000003`}, {-29.28477565771375, 0}},
8253 PlotRangeClipping->True,
8254 PlotRangePadding->{{
8255 Scaled[0.02],
8256 Scaled[0.02]}, {
8257 Scaled[0.05],
8258 Scaled[0.02]}},
8259 Ticks->{Automatic, Automatic}]], "Output",
8260 CellChangeTimes->{
8261 3.644762821131*^9, 3.6447630295950003`*^9, {3.6447638681940002`*^9,
8262 3.644763876085*^9}}]
8263}, Open ]]
8264}, Open ]],
8265
8266Cell[CellGroupData[{
8267
8268Cell["Now checking everything in physical units(cgs) .... ->", "Chapter",
8269 CellChangeTimes->{{3.644764071251*^9, 3.644764094348*^9}, {3.644764410674*^9,
8270 3.6447644131940002`*^9}}],
8271
8272Cell[TextData[{
8273 "r0phys = radius iteration index \nrphys1 = minimum radius of sphere in cm\n\
8274rphys2 = maximum radius of sphere in cm\nrphysstep = iteration spacing = .5\n\
8275tphys = time iteration index\ntphys1 = first time state sampled = 0\ntphys2 = \
8276final time state sampled (computational units) = 2.25 (this is the final \
8277simulation time, although the ring has formed long before then..)\ntphysstep \
8278= time step spacing = 0.1\nGphys = grav constant in cgs\n\[Rho]0phys = \
8279initial ambient density in ",
8280 Cell[BoxData[
8281 FormBox[
8282 RowBox[{"gram", "/",
8283 SuperscriptBox["cm", "3"]}], TraditionalForm]],
8284 FormatType->"TraditionalForm"],
8285 "\nkphys = constant in equations "
8286}], "Text",
8287 CellChangeTimes->{{3.644684996274*^9, 3.644685113605*^9}, {3.644685582354*^9,
8288 3.644685716422*^9}, {3.6446859904890003`*^9, 3.644686098981*^9}, {
8289 3.64468671523*^9, 3.644686754902*^9}, {3.64468682766*^9,
8290 3.6446869210889997`*^9}, {3.644764706138*^9, 3.644764808296*^9}}],
8291
8292Cell[CellGroupData[{
8293
8294Cell[BoxData[{
8295 RowBox[{
8296 RowBox[{"Gphys", " ", "=", " ",
8297 RowBox[{"6.673", "*",
8298 SuperscriptBox["10",
8299 RowBox[{"-", "8"}]]}]}], ";"}], "\[IndentingNewLine]",
8300 RowBox[{
8301 RowBox[{"\[Rho]0phys", " ", "=", " ",
8302 RowBox[{"1.67", "*",
8303 SuperscriptBox["10",
8304 RowBox[{"-", "24"}]]}]}], ";"}], "\[IndentingNewLine]",
8305 RowBox[{
8306 RowBox[{"kphys", " ", "=", " ",
8307 SqrtBox[
8308 RowBox[{
8309 FractionBox["8", "3"], "\[Pi]", "*", "Gphys", "*", "\[Rho]0phys"}]]}],
8310 ";"}], "\[IndentingNewLine]",
8311 RowBox[{
8312 RowBox[{"rphys1", " ", "=", " ",
8313 RowBox[{"20", "*", "3.08", "*",
8314 SuperscriptBox["10", "18"]}]}], ";"}], "\[IndentingNewLine]",
8315 RowBox[{
8316 RowBox[{"rphys2", " ", "=", " ",
8317 RowBox[{"37.5", "*", "3.08", "*",
8318 SuperscriptBox["10", "18"]}]}], ";"}], "\[IndentingNewLine]",
8319 RowBox[{
8320 RowBox[{"rphysstep", " ", "=", " ",
8321 FractionBox[
8322 RowBox[{"rphys2", "-", "rphys1"}], "10"]}], ";"}], "\[IndentingNewLine]",
8323 RowBox[{
8324 RowBox[{"tphys1", " ", "=", "0"}], ";"}], "\[IndentingNewLine]",
8325 RowBox[{
8326 RowBox[{"tphys2", " ", "=", " ",
8327 RowBox[{"4.26", "*", "381360279481384.188"}]}],
8328 ";"}], "\[IndentingNewLine]",
8329 RowBox[{
8330 RowBox[{"tphysstep", " ", "=", " ",
8331 FractionBox[
8332 RowBox[{"tphys2", "-", "tphys1"}], "100"]}], ";"}], "\[IndentingNewLine]",
8333 RowBox[{"ListLinePlot", "[",
8334 RowBox[{
8335 RowBox[{"Table", "[",
8336 RowBox[{
8337 RowBox[{"Transpose", "[",
8338 RowBox[{"{",
8339 RowBox[{
8340 RowBox[{"Table", "[",
8341 RowBox[{"tphys", ",", " ",
8342 RowBox[{"{",
8343 RowBox[{
8344 "tphys", ",", "tphys1", ",", "tphys2", ",", " ", "tphysstep"}],
8345 "}"}]}], "]"}], ",",
8346 RowBox[{"Table", "[",
8347 RowBox[{
8348 RowBox[{"r0phys", "*",
8349 SuperscriptBox[
8350 RowBox[{"(",
8351 RowBox[{"Cos", "[",
8352 RowBox[{"\[Xi]", "/.",
8353 RowBox[{"First", "[",
8354 RowBox[{"FindRoot", "[",
8355 RowBox[{
8356 RowBox[{"\[Xi]", "+",
8357 RowBox[{
8358 FractionBox["1", "2"],
8359 RowBox[{"Sin", "[",
8360 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
8361 RowBox[{"kphys", "*", "tphys"}]}], ",", " ",
8362 RowBox[{"{",
8363 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
8364 "]"}], ")"}], "2"]}], ",",
8365 RowBox[{"{",
8366 RowBox[{
8367 "tphys", ",", " ", "tphys1", ",", " ", "tphys2", ",", " ",
8368 "tphysstep"}], "}"}]}], " ", "]"}]}], "}"}], "]"}], ",", " ",
8369 RowBox[{"{",
8370 RowBox[{
8371 "r0phys", ",", " ", "rphys1", ",", " ", "rphys2", ",", " ",
8372 "rphysstep"}], "}"}]}], "]"}], " ", ",", " ",
8373 RowBox[{"AxesLabel", "\[Rule]",
8374 RowBox[{"{",
8375 RowBox[{"\"\<t\>\"", ",", " ", "\"\<r\>\""}], "}"}]}], ",", " ",
8376 RowBox[{"Epilog", "\[Rule]",
8377 RowBox[{"{",
8378 RowBox[{
8379 RowBox[{"Directive", "[",
8380 RowBox[{"{",
8381 RowBox[{"Thick", ",", " ", "Red"}], "}"}], "]"}], ",", " ",
8382 RowBox[{"Line", "[",
8383 RowBox[{"{",
8384 RowBox[{
8385 RowBox[{"{",
8386 RowBox[{
8387 RowBox[{"8.580606288331144", "*",
8388 SuperscriptBox["10", "14"]}], ",", " ", "0"}], "}"}], ",",
8389 RowBox[{"{",
8390 RowBox[{
8391 RowBox[{"8.580606288331144", "*",
8392 SuperscriptBox["10", "14"]}], ",", " ",
8393 RowBox[{"1.2", "*",
8394 SuperscriptBox["10", "20"]}]}], "}"}]}], "}"}], "]"}]}],
8395 "}"}]}]}], "]"}], "\[IndentingNewLine]"}], "Input",
8396 CellChangeTimes->{{3.644686955184*^9, 3.644686966546*^9}, {3.644687013459*^9,
8397 3.644687035801*^9}, {3.644687069111*^9, 3.6446870752980003`*^9}, {
8398 3.6446871334960003`*^9, 3.644687167156*^9}, {3.644687708424*^9,
8399 3.644687766149*^9}, {3.64469004952*^9, 3.644690051462*^9}, {
8400 3.644764421835*^9, 3.64476446581*^9}, {3.644764541762*^9,
8401 3.6447645567679996`*^9}, {3.644764590137*^9, 3.644764685743*^9}, {
8402 3.6447648371470003`*^9, 3.644764870682*^9}, {3.644764901249*^9,
8403 3.644764917343*^9}, {3.6447649672019997`*^9, 3.6447649956619997`*^9}, {
8404 3.644765309656*^9, 3.644765322583*^9}, {3.64476579188*^9,
8405 3.644765794326*^9}, {3.644784514766*^9, 3.6447845239379997`*^9}, {
8406 3.644784723782*^9, 3.644784726157*^9}, {3.644786609832*^9,
8407 3.644786610453*^9}, {3.644786663406*^9, 3.6447867787539997`*^9},
8408 3.644786813906*^9, {3.644786933927*^9, 3.644786992465*^9}, {
8409 3.6448435402349997`*^9, 3.644843590757*^9}, {3.644843651104*^9,
8410 3.64484365159*^9}}],
8411
8412Cell[BoxData[
8413 GraphicsBox[{{}, {{}, {},
8414 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.006944444444444445],
8415 AbsoluteThickness[1.6], LineBox[CompressedData["
84161:eJw9kws01Fkcx+c98/8zec7ERlqSHY+W2KNUdO7vFskz1dotm8oUKpba01Cr
8417kFfIklppNyJsm2wRW9pqsR4liUoeJYo1skYmzyZse+Y/e8+555577r2/x/f7
8418uZ/uDN0oZtBoNPHH+d+qGsdyee7TFSSW9YdIF6ReQf2B/AOp/+9voycN7t3r
8419y0kcbukjeyKqQ48P+UUuLVOdNyFBnbnpyqskLvdcG2YjaUWMGnlJaLHqfhsK
8420zbLubCwisTWxY6+kqwNFqSdu9cxTvX+BaHqXO6bPkXjLjjul23N6UFukw/D9
8421TFW8Vyjd9sKi6hQS6zo++Jzp3YcaKt+MdMeq4v+NlnafalgUSeKWTzqLCxlS
8422pNDaQiSEqvINokRymK4VQOK0yQGR6/UhNB7UJr/9pSr/MLJ3UeOnupLY/cl4
84234bB4BHlsLgv7fpWqnreI6dlic9KKxHHt9IyG5FFkeUTqfsdQVZ8c8duzy9X5
8424JO6rS/TKDniHDqQ5OUsUBFXvGEJBYc1zUgJDuYbGvtXjKPpSJi/vKUHVP4F6
84253vlk+1UROC//TNNq4SRyKNLRtykmqH6mUOfCrewFZwhMzzBM0RiZQtPLbRv1
8426jxJUf9OoIDyiymIPgf2PXXTtrX+P9DuWiDw9CKpfBQqcTbKMsSPw3RALoiz3
8427AypRO9BdrU9Q/c+giTGvFRqzPGzoV1p/PGIWTVY6LhT38ig95pB1ypxPdQ0P
84283ykwAAsRDegR0rjFBTxKHxo8d69ASXE8LDPwN84U0KGG7qEYDuBRetGhflZM
842994KP8TPz6TN0BsRsE8YXL+JR+jGgZtQ9izbDxW5qAz1iGQMyBkUm69u5lJ5M
8430OOJs9U9MKRcfiTH/82EnE1yObk7/NZlL6cuCQjkv4Y9dXHx5en+OfT0Lhhu7
8431BOUOXEpvNpRiM98fNLm469trUbllbNg9GmLv2s+h9OfA48VpQd03OJiUjvkR
8432uRwI7C/Z75LMofzgQpbTSGLsNg522L58dXgKF+ynHlWfsORQ/vCg5ZZLr6+C
8433jYPaDht0SXjwplsSIG1gU37xwDadE2N7mo3Put9VgJiAa4w5Izt/NuUfAdJv
8434nJpfi9i44S9GV7E3CVY5XrUr5SzKTxIKOIVP7W6y8OTKdZUCRzXoiDUPro9i
8435Uf6qgdyCc3gIsbBZWdLZKHN12LYvOi6LzaL8Vgctt4Ho2jom3mLeJBkQ8qGJ
8436Bu2B8UzKfz5ocZp9JJiJ4y9o+nox50FCep/uII1J8TAPXotton+7xcDlepvs
8437b47MgzYYsbl7kEHxoQEndBtfkpYM3J/2o9D4uQb01ei7He+lU7xogm9j3xKD
843803R8InY4cm2AJuRlO41WraNT/GjCGrl9164JGjZ2SnsT0akJG3gpP8nyaRRP
8439WpAQYuTs7knDN99bf13ipQXVUc0mrW/nQMmXFng0hHyx0XEOvCta772q04JV
844056pW9MXPgpI3bZivs8rO7f4MDIYdXDF/tTYE+Tztc+bNgJI/bTDlKx6krvkA
84410VbCSxvKtCEjbudsY7gClDx+3JslXiw8/x70Bn/XOybSAUurTXYVNdOg5FMH
8442lpeXmMb1TsHVi18lXs/RgfFNWRqpk5Og5FUHRpLyZcvYk+Dir5iUCnSh5aER
8443riYmQMmvLhw1W5a5mzUOLxf8vMcwRReY9ijReOwdKHnWBXlJysmaZ3I49Mzx
8444mTdDAL80rdV+dGUUlHwLgCG15+8/+BY0TvWsi5cIYK+xryh4owyUvAtAxMkz
8445GUofgiKPmIpKmQACnG/QvjsvBSX/QrC8Z5P0OrgfHMnFS0YChCArGFxm+qoX
8446lP9BCGrJHYGSW13QVlt72qRLCI/HEhQvuK2g/B/zoeozX5pRcBH8Cy7MxmA=
8447
8448 "]]},
8449 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.006944444444444445],
8450 AbsoluteThickness[1.6], LineBox[CompressedData["
84511:eJw1kwlQk0cYhnOQ+w+BQAJFcBA8Cl5gLaKWWPdbFBHkrEdFOSaR4llTymHT
8452eiAUEcYWFaqOBRXBA63KoXghoyQeRAtakCCHAnKZABpASMC2kz87s7Ozs7vf
84538b7PTonZESqjUSgU2X/z/9U81hqyg2P4fKzr3N49KesSaptzg6klzPs7iCKt
8454mpLF42P5rDDdCzclKnuZdBBxzOdqtPl67WQ+k4/Lgnx3eibVIZv5TUXvqOb7
84559Shbfrm9zUhgD070lqSmRuQxY82enmGCfN+MApvLHZkDBF4dffdaZF4bMj6J
84568fPqJsh4b9DySYqU5FYC20pq5tJDOpA2cZ/k2T8EGf8t2vrUWeP1hMC1Dpri
8457Qlo3Wk/RF/5Vac7XgzTRKzu9Swh8aKTLzb+0D21XvnlQe9acX4sOtByVJucS
8458OPDFUKFW1o8+5hF1c9LN9QygsK1RnMFEAqe+pGY/PDiIzuRX6O9uMtf3Hq33
84597NySG07gDmV68HHpB0R99/qL5KXmevUI90snYmYTGMoEgq0+Q+hOS3hcmL25
8460/mG0OWDxhB+NwKfP5Kh9xCPoVfVFT9THI/v5iKo68mJ8nvMwNdspU9D/EUWU
8461qhq9b/LI/kbRpWL1w3n5PBy1p8D/tWoM7ZZnrXBL5ZH9GlBz4lcbHOJ4uHL7
8462TE5JvhE5pKT00QN4ZP/jSMZNr2qfzcNOG66p9idPIGfvjt+uW/JIPT4hzapM
8463nULHxXfPOsJMNwrk0vNDPNVcUh8KJC+dLqy7wMU6xyiXIyIq9J66GhvxK5fU
8464iwq+N/pi1TFc7HTkDHWcSoP5kxkMFx8uqR8NeodZxBoxFwfwutpkOhp4RXNd
846543QcUk86ZHAlqvBqDlbsc7/3VEMHb1Wjv/gEh9TXAkS3GuvO7+Dgi6Pb8hao
8466LCB7UXY4Dzik3gwoc7A+7CXi4Kbvr/6SX8KA1EI/xxlv2aT+TJC3TPi+LGNj
8467brd+AyefCa8/7XL33c8m/WCB29Hegu9C2HhRpLePPJMF38QnBPo4sUl/2EB8
84689in+ThcLx9X/5NiUxIY/zyY4t19hkX6xoTRDTT+XxMLHAisNIOOANlSmYCxh
8469kf5x4FmwIUNPZ+GHD2hNxSFcCGwbq9mmYpJ+cuFU1tQf4w4w8cjiZTdFEh7k
8470nI6H1hVM0l8ePA7yUCjZTDyj5MCxX9wJ2FlpbBYpGaTfBITebsm5v5eBV7ur
8471k7rEfGi1Mi6oXswg/efDJtfBIoHeAqedslobTLcEtDHVJveCBcmDJVBCd79a
8472FWmBy+zDF1T0W8JoTWCam9CC5EMAGY2z8u3v03HnoVyxyysBsBkRxYScTvJi
8473Ba4nO+lDk+k4I0W7y1dqBfd/X19e+YhG8mMFPzTUSNfJadhlyaHeZI0VeCt4
8474dpfsaSRP1lATPY1bcJuKK8Y8vr0cbA1pzOKEaRupJF/WsL+eHygep+CQ8rpH
8475b5TW8Ez4tHPtMQrJmxDmJKpP18yj4J6d8QvtfIQQJLU0Hs/+BCb+hLC71okW
8476WzEBe2eLz68sEcK5NRJJQeM4mHgUAueitk733gj2Pdft97jZQNjUsmn1FkYw
84778WkDy/9QyTSWBrhSsC69NM8GcgURsXFWY2Di1QaOL7mRo2GPgl+UYaRbZAsp
8478j0UX4kZGwMSvLegzhrPmNg1D66STsU6ZtrDtS8M9+5IhMPFsC19PeLc0/KyH
8479xAZJQwhNBEVBwuV1Cz+AiW8R9MiUUnrnIAgOty1LSxKBU4Wt89+KATDxLoIA
8480SlaKwqCFolX7ym/qRFBPieG+q+4FE/9iUGbUSAr8u0DCnTq9XyqGQruNRbfk
84817WD6D2LwUuUdLP68Beqrq4+6NomBVzQQW3XiOZj+hx2ktkYGn0g4D/8CVDfD
84823Q==
8483 "]]},
8484 {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.006944444444444445],
8485 AbsoluteThickness[1.6], LineBox[CompressedData["
84861:eJw9kwk01Vkcx99ie9v/8bz3yDLx6mgsxVRGm9d0f5ckmiwRKhSn49SYlJmU
8487UmMrSk6RpVHkoZQ20iJ5LUNN9ToyRqJC49nKwyC7Zua8a+4599xzz733t3y/
8488n2u+9UfPUAaNRgv9d/63zgw7H1Pv59v4WKUM7zJOuYKahraecft/fx/ZfFkc
8489WhvMx7ttvFT1ljUoa2l6jk/gzLkCyS9GGbYE8HH5904R30TVoTmFj/PCfGfu
8490N6ByN5veYQ8+tmMF74hqfoPaVlkUxq2def8OZec/ChRgPvYJrioNzG1FEtNj
8491svPLZ+J9QNMM3w67hXwslL6wZXq0Iz17oxT5vJn4Hai46spHNxM+fmXUVFLE
84926EL3VCdxI38mXzeyuVv8NIjBx6kjnZauNz+iTklfhnKQIvl7UXOkWWVoO4Xd
849364eLekP7UH5P6MLWPyhSTz+SJfW1ej2icEIj/dTTYwPIqDr5V/k1itT3NypO
8494tpVIcijcXnN0/ZmQQXTCJd5s/xGK1DuEVv+0cX5NBIWhnM/f6TiMRvVFzzQC
8495KFL/ZzRUINm6GCicL8tQOIpHUEw7uHpZUaSfUXThUrs8UJfC9FOmx/l9o0hu
8496u6nLd5hH+htD5R3mtUvf8HDQ4QLXtifjqJ0zFMas5JF+J5DXgCql9CwPy8Ot
8497WWV5kyhxPG0Ux/BI/1OofrZ8zZ3NPGy6ufRJ/L5ptKY8iclewSN6fEEJerOS
8498HGbxcFWhCVhb0mDBCV9T6TCX6EMDkX1Gm1EtF6tMgiTpIjoIkKj+WTGX6EWH
8499xxERL11judg0XUafojNA2TIYl+nHJfoxQDD58NAVWy5243S2hqoY8KaxR5Kk
8500wSV6MiFLsS7fopGDD8RaPXjZxISv+Vs0Yi9xiL4aEB936avMaA6+PPZDrsMT
8501DXAodkkLXsshemvCnf5xxdtZHNy860ZMXpkmFAZI6BqdbKK/FuhlhUvqStmY
85023TW0mZWnBf5GqztXHWQTP7Shokf5wN2ZjZcFLnHcfVwbIvuNG/t4bOKPDrj8
8503XK4jqWfhsIZok+YoHfDcGfn2XRaL+KUD9vHpCSabWDjbXT4BoSywlD1vbDBl
8504Ef9YcBvddtZ8r4Of/sZoLvFgQ7h5YX1ujg7xkw05QpnwnJ8OHlnuXCGScsDz
8505YZXJiFCH+MuB/D3+B8+/1MbzypKyY6y4kCCI+jYtUZv4zYV0m4bLD1doYx8r
8506RVSnmAcDZuWZ5gNaxH8eVHynP1kk08KJ53U3rmdSMG1lIXDy1iI8UPCVVOGg
8507YmjhckNvh7t9FBj7lDSlXdMkfPAh6dyJIAt/TaxMzRRL3vLBxvkc9zRDk/Ci
8508C6rwjlbFRQ2cHNe73ylEF5RH90bfd9Mg/OhCYWWwap2KiSUrU3v2NenC3P7k
8509kztSmIQnPRBssFaMWzLx3XE7/6vr9aDEfVdz22MG4UsP2lxCDjEDGNjjVt3v
8510H2r0gLbx3tWVfXTCmwBetR+w3nOYjrsjIpcaOArgTIWMtZeiE/4E8Mk1z9gs
8511m4Z/mS8uXlsmgBYhb6XUjEZ4FMChBV50h9VfwLD7tuFhS33Ybyw2+Ow0DWo+
85129cEnurXQdsUUXC/wO3ozVx+WPZstd7KcBDWv+uA0/EIay50Al6CJkS6REOxr
8513OLp6yjFQ8yuEMFXFkdEbo9BifHa76XEhvF50c4zaPQJqnoWQ6q6c/2nOZ9j7
8514WvragyGColfvo+urh0DNtwhq//KuzN4wCPy0VufEKBFoBh+03lE7AGreRbBk
85156t5A4sJ+uLAu9laFSgRrKjjCbb2fQM2/GILdtg+FWHWDlD3Xoi9EDFuS6ow9
8516mUpQ/wcxXKcv8u13bYWG6urTc5rFgP386gts/wT1/zAA14zteQZxl+EfCEy8
8517dA==
8518 "]]},
8519 {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.006944444444444445],
8520 AbsoluteThickness[1.6], LineBox[CompressedData["
85211:eJw1kwdQVFcUhrfAsoXd9yi7IEiiiCaAjixiDCGseM+1oSgril1QIUZEDOAg
8522ShEVERUEBUWJBRSIPfQaRAwCRjGhuBCKAlJ16GWlGjP73p25c+fMbef8/3dm
85237zm0wZ3FYDDcv8z/V3qE1lWbGzSRuLfdq8sw8hHyaOLoKRrpuBDNd9hYw/sS
8524+8x36q0xLUW2FbXOWfX0fgXiVxBn6+pInLV+ubfUvwoZCBRrfRX0eQXy1NkU
8525cLqaxBa83Qf8G/5Fqx+Pt4n+oe83oaFF++TEKxI7736S7nKrGZnkbD0eVka/
852614q2jVw1OfyMxLqyVwvZ8jZkOFbXU/sH/X4H8t18Izgtm8SVBvUPU1hdKLJX
8527z5uRSv/XjZZy1ZxL7pI4Stlpap/5EaUWBWVOJtD/96Arp9/w7l0lsUPNSEqP
8528ex9KiXd5UR5F59OPjjkt3bE9jMSn65iXys8PoPLhBbNdA+n8BtHkwI+eCm8S
8529t5WGO8a7DaELG2LCCn+i8x1GyVNzH+tuJzFkEYSn7QiKT/IQN6yj8x9FRdNq
85307wlE4tt3rlTYSpQomuklTbei6/mEVubGiornkZh5ySiC6PuELm7yD7DRp+sb
8531Qy5kwYFZPBK7hiTZt5SNo9XJ2841DRJUvRPohUfiE/sqAhd5mfMyEibRoHeS
8532elgqQdU/hWDxaGVEJIGNdqaXhR6dRj6WC/127CcoPT4ji5rkOYNA4CfJM8Hc
8533lAEl+kS3vRFB6cOA9G85aXtHRLh3pqtxrJgJ1q3+dtavRJReTFhmrrQqTxRh
8534o9g7zCkmC+ISW1lCPxGlHwusmYFD7NUivFbQ2ezey4JAx5fG9wxElJ5sSIl2
8535Cfr0QYgDT5o9fV3PBv3NrYU9eUJKXzUYXBPgEXpGiB+MHby1pEwNGvU+V+Y4
8536CSm91aGgtI176ishbvglLTghQx1KyMn25k5NSn8OpMnfTr/8XRPzu4Z38hI4
8537UG2lkyTz06T80AB7u5ZGSxtN/IPL97Y+ERpwybN4z+1pAeUPF0KrD1wPeyrA
8538+xUBMxv8uaCxyOdqXYiA8osLOUHbNS4uFeBrDkUT4M4D9yHp4ruTfMo/Hty0
85398mVJcvm4vITV8FDOh6g96xsrvfmUn3yI+3V2ZpUpHyttVuSLZQIgmrmjomYe
85405a8AAuJCgwNjefibjLPXgs00Id596AK5kkf5rQlvrlc8LVJysbNZhX+nRAhs
8541qZcyKIVL+S8EYtdiR5kTF4clklsc2SLIV5aSQ1MaFA8isDEzjIlM0cBZ+huX
85425PWJQPaOv3B6rQbFBwHhe/tnWQ1wcHtUnMS4kQDHM82eRjEcihcS8uw6C1Ms
8543OfjcqZ5jy91I4ITE2BX8rU7xQ0Jd4ugR7KGOjZdGfThaT4KWG1/TjKVO8aQF
8544m1dJo+Vxajhv3GLbY0ctqIy1srtpqkbxpQWygvy0/lw2lmdXvWgt1QLpjbtH
85455i1nU7xpg++G+ZkzXrNwt/dhaz1bbRCC3eUEJxbFnzbMeCTNjnjDxCcWSO6t
8546ydCGD1Pju+47MSketWFiS2NcUQUD63fn6IeY6oD8rI3aeWBQfOqA266x9tD9
8547nyE1aWt45i0daAx9LzFG06DiVQcG7rd0mJJTsMp1Qtkl1oWuYqZfbtUEqPjV
8548hSb58RPF4ePwzvDGPqMIXVhmedBSXToGKp514e31i0GMv5RwpFZWK2eJIcnp
8549QapCPgoqvsWQvfu9jkXpMBAxzSvC/MXQw+34jmMyBCrexWB/LC1x/b4B+G3d
8550yez8XjEU+GYZ1ev2gYp/CUwIWffn8j+CjG8yr89NApKJFdFdMR2g6gcJlH59
85515edzJ1pA8fz55TkNEggSPLML/1MBqv7QA5HDof6YqEfwH04uwzY=
8552 "]]},
8553 {RGBColor[0.528488, 0.470624, 0.701351], PointSize[0.006944444444444445],
8554 AbsoluteThickness[1.6], LineBox[CompressedData["
85551:eJw9kwdQlEcYhq/SDu7+/7g7CGg0BwFBGXEcgwFB2G/BBBVpAcE4HE0hKALD
8556eBAjYKMohhHEQglVjAOISlE0lBgpgogaKeEwIPVQihrl6MYM/2VndnZ2dvcr
85577/vsF36HXAMZNBot8NP8b1WON+zLpU5qfDw5HCrXP1uKgmx7+9n/72vQfT3u
85584bWqfByxzm3yuUkjun400KeOrTxvQxX2g6d+Z/Jx5S778A1Rz1A+OD7cQFfe
855970QxNAGNWCKxubpvSJTsL5Rv5afYM0dS71+gDNFEhHCaxB6+tbd8cvrR7b6J
8560dVveklS8AbQpWKWz/TWJBTaP1jNdhlBpl6HwyTBJxR9Bqe3+CVv6SPxUr6ek
8561iCFHNcMjdYJuZb4xNLaxfNvuJyROUYyaOFa8RuMTJ7JVmpX5J1Ddk4xNq+pI
8562vPP5h6KJwCk0vzU5Oq9SWc8bJB5QaU4uJvGpbnpq85m3iJVwIbI/V1nfO1Tw
8563uV9TZjqJhxoTnTMC/kHP44YWapKU9b5HRfU59g5HSQyVPN4B6w/Ioq6lYWOY
8564sv5pxCqeOX/Kj8T5BRfarEUK9JK4W2PpruxnBlnqW1i72pOYnroymTc1g1Da
8565fUbrJmV/s8jfLHCq4EsSS+IKHV82zSHPHEmHTKDsdx6tendNGs4kcV3oWvXy
85663AVUFumd5P+WoPpfRF5XRKU3/ibwyr23mk5GL6E2zx8iPVsJSo+P6OD2z3w8
8567bhO49soKWGtCg1IX/57ifILShwbGXCtbj7Of4q2QiM8L6WBuF9rpJiUovegg
8568iahty5d8in++gL5IZ0DhTbmt3bcEpR8DzJmZG802EHgHZ7Q/cJIBxNB35wJ0
8569CUpPJlS4he1uWeThn46b1j/uYYJazj6p10MepS8LfAU7qsLTeLh49mCORRML
8570jsVXEtzveZTebKjNegwmBjwsC7sZk1vOhsGGjpYaOZfSXwWcOU6yhhIu1pC/
857136ueqwI7dvVJrA5xKT9UQZbeO6NjzsWWPputI5JV4aZ834T7lBbljxrUm4vN
8572X5do4eDOIytkUWpwb/aQ+59BWpRfarBZKk5iG2jhyzvr5iFQHfLh0rlomSbl
8573nzrEG62vNUrVxM0PGLISFw0oK5gdZG7TpPzUgFRxrpvqHAcrrBzuCm048GjJ
8574td2omEP5ywG3e9djPb052Lg86XKMqSaU3QkdPavKofzWBB2tho6aWxrYw7Qt
8575alSkBUI7Y8+ePRqU/1oQcMSzsIOhgePziN3OTC4cfrCfl3dVneKBC16i4Ml1
8576juq4UtfdonqKC75BwSeCXqlRfPAgcY3rS7tENTycclEk7uVBZLO47YqBGsUL
8577ASf58ozY31Tx6RMTP9oHEGAsLWNXu6pS/BCgkXCGbjmigsVbU15F9xCw1JUU
8578Lz+sQvFEQraVhduvLBVcPWfufd2ZhGnZTKF3Cpvii4RMM3LohYiNXaqePRxo
8579JMFvIN1WK5NF8cYHUb1sS70+C4+FR36tY82HuNbe1S2XmBR/fHDg/eE8SzLx
8580MTPRte3lfJgekceIEhgUj3yo0uOVDSroWHfstm6ciTYMscYX9ALoFJ/aUL1a
8581XftgKw3fKPRKrMjRhrocN4tYMxrFqzZkSaZ/fqr9Eb6RzCvkQgFk1ChkPvWL
8582sMyvAFwr4chpnwXo08/evzJZAMXmRiHzU3OwzLMAzMat2wRhsyDtsulyYQih
8583oEM63P1CAct8CyG7Lzyk8atp4KX1O8RHCaHjhhPKk76HZd6FsEdR5KKb9Q6u
8584Oh2vujsphIsXytLW/PIGlvkXQXp7ls/I2DjYaBgaTQWI4PGBe6xYQzks/wcR
8585yKxnow3vDEBnQ0O6gUwEVTWmpSGe3bD8P3TgGVNqS2SVwb+k38KA
8586 "]]},
8587 {RGBColor[0.772079, 0.431554, 0.102387], PointSize[0.006944444444444445],
8588 AbsoluteThickness[1.6], LineBox[CompressedData["
85891:eJw9kws01Fkcx2dGzMOY+f//YwZhs+okKqxW1hbq/m62SFid2FbrkVnbCRHV
85906HUKYdEWarfaWkqbrdWLTLFRZ4uhUtYpr0k0sRFDdpJXj22PO3vPueeee+69
8591v8f3+7kfR276Us5hsVjyD/O/VT9CF3zjlLpAggd74not959H8qLL51z/31eh
8592kF6VmZ+LBG+eFzT40L4W2Tjqouud9ecNKKxamXLOUYLL/ZclfKJoQg47q5e9
8593nKu/34wOapvSjs2RYGd+xEaFug1N1tXzz87Sv+9AS8Y3H7K0keA1EdWlYQVd
8594yIeX0j48XR9Pg6iOxIy5Ugk29bznZBDYjZYo4xfXifTx/0aXv3A4qOJK8F/T
859520vOcHqR9nG5yJ6lz9eH8sIi3QdGGXxg9Lm9z5V+NMcqK50aYkh+Leq1DI84
85963MNgv4cjZ7TyIRTQc81+u5oh9bxEd+LvL6huZPC+VnZeXfYw8rJ4rwqvYUh9
8597/yAf3wzbiAoGd9dmBhyL0iHLi66J1SUMqfcVKk616NhWwGAoF4tjPEbQozaH
8598rTm5DKn/NVoRPOA9mcLgU0U/NnjIRpGLjZHPrUSG9DOG5u9u2/hsPYPZedY5
85994qExpGsUZq0NYkh/4yjaR5xohxgcvue0z1PVBBIM5Pcsd9b3O4naHQ0OVlkz
8600+EbcXH5Z4Rskv6QRpwn0/b9FtLPL8LHXNLZeV6pKS36HImVV51kamujxHv1Z
8601ElZSdo/G1b9awVx7FozJvJaUKmmiDwtec3XFEwU0HrQKtz0kZQOmC4XZmTTR
8602iw0z/Nl7I+I/xD9UxH7L5sAuJpy1M5gm+nHgtqEittWDxiuNn3fJBznwdIZ3
8603btJMmuhpABHZNy1W8Wi8M8Xh5v12A9iZuOVI5ABF9J0G38WJ9l58QOHfx2ML
86043FTTIH+i3M6llCJ6G0K4e+iN5/kUVsdf3l1YZgh7q1qCG5Ioor8RKDRP1J2r
8605KSzofbWOX2gEmiuPRFafUsQPLihHNmbtZij8edhnHptzuPAgSqjgdomJPzx4
8606s7/1lv9RMd7QvMNKreBB/M1Y6n6AmPjFg4r4PsF2IzE+6ndjEuR8eJL/TutT
8607KSL+8SHWvD/ZLUaE625z1CWBAmjsLup3tRIRPwXww9mPdIvumODRRd6VUk9j
8608yLQ+8ZvnVhPirzHM62zd42Jjgu3Kvj+620EIt41feBnXCYnfQgjZdf3FH7FC
8609vMahQfFcZgKzA7uUC2kh8d8Erh1JHospNcbpJ6mQAAMRuOTyRP6BxoQHEWzl
8610XF1xTyvA5ear3SqGRJA6rGppyhAQPsSQoS076T9DgHsO/CSzfSyGI3z5fMcr
8611fMILBf7dvdtCvPk4K1W7fVkUBSvi7t5RPuIRfihYHGOT7RTJw7ZeB14kt1PQ
861278tnF/dzCU80aBw9ZO8TuLhiwnnthQAaLGdW8c1GjAhfNIwVRMvuJhnhQGVT
8613vaaWhny7VP6rl4aENwauzc+u+XaDIe5LSHI382BAF5RcouuYRvhjIDFhdb98
86141TS8d77srG8ZA+zG5l9SKg0IjwwkPF5ay7U1wOZ9V8332EtAsef4yLk0DuFT
8615AkvzpGVmGja+dPqrzCsFEqB2ua7XurMJrxKYlb3v5+vZLLw8fHK0V2oKKyu0
8616S7kX3sMUv6agMudtCVr4DjotT0Rb55iC1KmzaPjCG5ji2RR2LHphZS+bhG0t
8617ni2BHCmcCsbT1RvGYYpvKaSuY90KLR4FcX6Xd7pCClUhV/0W3x2BKd6lEJt0
8618nP20UQfFq1KUlYNSCEhMM+++PAxT/MvAKddNWlw/CJ6CWbOHomSQ/sQpWVre
8619B1P/QQYvvw7Nrh58Bs01NYdnqmUwtCnfwr+/Dab+hxn4rvNa7v3wEvwLdOm5
8620SA==
8621 "]]},
8622 {RGBColor[0.363898, 0.618501, 0.782349], PointSize[0.006944444444444445],
8623 AbsoluteThickness[1.6], LineBox[CompressedData["
86241:eJw9kwswlWkYx8/F7XCcc77znXMYl7aIQm0027IsO73PS40kl7IkhXUyUUia
8625lN1cQlIIJVRLm8ta1ax7mqK1wpq1W1hyUDSdUDko91TbjvfsN/PNN9+8t+f5
8626/37vqsBwDymLwWBIP73/fZVPm79xRd1eEVbIw0b1026iQLXTUdL//+8hRU18
8627fZifCEeu81R0m7WgzCdxEV2+yvEOxLFOjc32EeGaHY6HraI7UWX1xqZbXsr5
8628PeiaLJNj4inClpyA0Oj+PuTpZWUw66pcP4he9M/XrHIWYa+Ahsp9BUNo0FKS
8629UoqV+z1Dr9yGbU47iLDI4c8NbPfnqPPC3e/uWyv3f4EeNk7meliK8CM92Y0S
86301igy6E70s1+rPG8M2Z2lLOI+E+GMuREz5+pXSOp8PlxPojx/HFHBJmlaXBHe
86313j1TMi6dQMWp8j4PprKeSRT58WLBxAyNkx4zs9rOTqGY8mD94TGa1PcGTR27
86328YPpII2ft6S45Qe9RYGDyWMNf9Ok3mlU5pQdVfYbjaGGzz9oP4OOTKeayitp
8633Uv8sSmcPzUdcp/FP13M67CVz6NQGj55t2TTpZx6tHI7Jj0qgMTPL8Bx/Yh4V
8634876lXkbQpL8FFBpcP/vLXhr7xxU5D7cuons2rTM122jS7zt0MXTPzxwbGjeG
8635WXCqCpeQ/uuQnCJjmvT/HrXd2b4piUdjQ7/K1sTjH9BsN3+kbF5I8viIdHkl
8636C4JnQtxQbAAWZgzAA3olt9uFJB8GNDPL+QWVQqww8De6IGaC9/Aj1JQnJHkx
86374YkF/mJlnBAbXrjOfM9kgdeR3sZaqZDkxwJvjV2lp5yF2EVrZEiqYEGV75eZ
8638iZ8LSZ5sGH29Vb2OEuLvE8zv/yVjQ9Ql66O60xTJVwUKOmdNS/6hcPnCoQLr
8639VhWQW1Fb/GopkrcqBK5+NGCbQ+H+iIqThVWqQOXidrujFMlfDbY0Str3eFJY
8640c3Taj1OoBp812R3Kt6QID3U4WXhAd4pLYdt9NvaR59Th2KQ3029UQPhowJWj
8641rRayJgE+0BNj0B+tAVm/b9ofdEVAeGmA4SZvp7koAc7b3vgOpBzQjtxoku4i
8642IPw4YJ7UpbfaWIDbmln9N9w1YcrE9W3wFJ/w1IQzllezIvL5eM7O6Y7YQQsc
8643vx6J99rMJ3y1QIXNTtB+wcNrqs7knTTnQt9eaW5KCo/w5kL+eNXH+rU87GXe
8644ET0i0QabgDxJdos24a8N2rWXXVQCtXHyNYG3G5sH435l3PeLXOIDD7IVKsWh
8645mVxco7vTun6CByUnTNfZm3CJH3xIrhQH+tVqYXnGJYnRAB/uOpem1WIt4osA
86469GrHdlo91MSpp8ZPOAYJIEQ6klHtrUn8EUC4e43I5AkHG32T8fK4TACPG1Ni
8647pP4c4hMFa4ygb9dTDVy/aLn7lhsFm0Piw7p2axC/KNglbNh6u1Mdu9d2/vGs
8648hYLmgxGdMid14psQfC/bumrXqeGxw1Ff6dgLYf+A2MbQWI34J4TCLnlSZ6oq
8649jl8vKdtWJQRufXODYlyF+CiEdT9GDVq4qGDdsTrdODMatJZcFLbFbOInDW1s
8650I8+meRb+tcgnpbqAhoDdOhm+TiziKw0L8ozw82lMvNX/3dyoWASxsinP3g4G
86518VcEKxz2W6erMfBT/avBhuc+ja/PHRg59AGWfRZBe2rOQfu7S3Cs16HXnSWG
8652a32CHYMzi7DstxhC+tP13uosAD97yCk5WgxFjJU+vSvmYNl3McROZVaUqc5A
8653qWtC7R2FGDhuPlcLHryBZf8lIDU7IK/aOQkOmqtNJ4Ik4OBWNF7u+AqW74ME
8654VE80XvE2kUPPgwcXjfsln3gsJW2M7Yfl+6EDN20gIlFWAf8C4h653A==
8655 "]]},
8656 {RGBColor[1, 0.75, 0], PointSize[0.006944444444444445], AbsoluteThickness[
8657 1.6], LineBox[CompressedData["
86581:eJw9kwlUzVkcx1/vtbyletv//2pUhjgcRXaN0mPu74pJ0sswWTotXkxHmyyV
8659mkYkpXgohMgjocK812KZoaRFYxtKqjclon2ZFq0yy+m+uefcc889997f8v1+
86607mSfIDdfJoPB8P13/rdqx4KjLfM64mnc9TGwxezIDeTpt1l68v/9fRRzwH7T
8661sTgah8xc21U5oxQxFcbhdbHa82co95ZHZGQMjfPWLN8xN+wVsuvMkAZEa+9X
8662oZwy16O3fqLxHI739jBNDcpuTLGBcO37OnTkQdSb6btovN77gdozrQEFb8hc
86636BGojfcelRa7tL3fRmNK+nQ2S/YByXeyE+54aeM3oW7b28o6dxq/nFCbncFs
8664Qc5P1mbLXLX5WtGH/EJzagWNFYPNM5xy25Ey7JT7VAdt/k60WN12J3oejVdX
8665fsro9O1GI7NFh62na+v5C0046sGbbEbjg9U6Jx4n9KDbDn8Eehtr6+tFKekv
8666q9sZNP5QGud6Vt6HrvGqPQt6KVJvP8rkGBlqGikMeXy+v8MnJOC3VzlUUqT+
8667AVRxqyKz6RGFL10+9cxBMogqpRd8KtUU6WcIifHEcj0lhXVOWCTyu4fQemdl
8668SvhRivQ3jIJituy1iaCw1750p3dlIyj44IjelG0U6XcUuV7LK1znRuGCQGtO
8669zsXP6OX0PvOSJRTpfwztW+4XHjSNwhYe6rKY8C8oIcln0lo+RfT4GwUEdTgG
8670DorxgyvmYD2DAQrlAK+gXkz0YUDSqE8olIhxl7mXZTKtA9tVrPDhTDHRSwfO
8671sw811yvE2CL5ss6YDhNmV7r83LNTTPRjQjt33jubH8TYmdfc4NvFhJjT044n
8672LxYTPVkQ5PKy/2szMY7cb1X4vJYF/r8Oy56Pioi+ulC16O3TVI0IZw0HpNmW
86736YKtn//WuHsiorcebOE7jhxJEWFNsCrqYo4eKENUSzJ3i4j++mCS6nKnRibC
86743JZ+D85Ffdj8QvnEdJaI+GEAjqu2ZWwxEGE7z28cQhINIPZmlmN+g5D4wwa7
86759Eu7De8KsV9VhLkmjA0dGQuKvY8JiV9sqFfZH1JtFeIzqwtGwZcD1md9Kwbs
8676hcQ/DkyMUoXNFAjx42KmJlvGhfj5kWPOjQLiJxeKNEZn3PIEeNDe8R4t5UH0
8677jZRZtrEC4i8PApNOfdu/ToCn58SfibIyhEH34KH9UwXEb0PQeGRRdxr5eL3V
8678s7BmiRE47XDb0x3BJ/4bgU/F/YvnhHwcqxS4u7KM4bqVEy8r3ZjwYAyqWjcG
8679b6ExzjP93vZutzGUsw7uu1pkRPjgQ2xoqOX21Ub4o+K0xPJPPjQktHZKXxsS
8680XgTw8VDbXO5GQ3z4QOfe5XIBJGxmrVNreIQfASgXOV2YsJGHLZcq2sJrBVAy
8681nz0w5TWX8CSEAPq71GxnLr47MmfjTVchbFUtr1AUcghfQlDHUBFX5nCwLP9V
8682+ftSIXxSeZx7mMomvIngC7utKkeXjVt37Fps4iCCGrn6keOPBoQ/ETxbGDpp
8683aZk+jp4lub4qRwQml9T1GyfrEx5F0OJ5tX/NHj1s2nrbdN8MMaSFjjX9XqJL
8684+BTDmt02ff58XfxL+oa43DQxqG2H75W7sQivYnix7CzIFUy80mt0sIWmwL26
8685Qz+rWIfwS0F10Mrc3h4Gfmt2fptFIgX9J69xgyQMwjMFX9Wi32Q+XyD0jfSN
8686jElD2qa6A2+jP8M43zTINliExMeNAD+pwTE2jIbEa3HykJAhGOedhuOBh7xD
86877Abgqsv+/HtdNBTNtLHcVNMH4/xLYN7hRcuScQ9IuVOndcslMPDQ1AdVdcD4
8688f5CAWYrlzd5NTVBVUnJyikYCXpXyXlpcB+P/wwT41IqUogY1/APHT7/n
8689 "]]},
8690 {RGBColor[0.647624, 0.37816, 0.614037], PointSize[0.006944444444444445],
8691 AbsoluteThickness[1.6], LineBox[CompressedData["
86921:eJw1kw041Vccx+8r9+K+3/+fUbMsDNVIPVRzq/M7taW8ZhYpKmpbllRP3d7H
8693UKEpKaRy5a3y/tYWFbOhnqUXs1uRiXDFsBSXRNse557nOc95znPO+b18v58z
8694a3OYdwiLwWCE/Df/X3VDVVVQ/lEFjQe7d/SanSxAAfcceHXluv0tZOY18q6k
8695jMa75qwdbLapR7uXXojQlOjOG9HGTxz2hxTRuMJjRbiDsgnVWppV2eXr7qtR
8696XblItvgKje35m7YrW58ibjhj+alM3fs25JjBGZ97ica+m26XBqY/R+xIxQtp
8697ii5eJ7rsfDNNcZrGcsW9T9leXUjr5VNafEIXvwcJig9f+zqCxo9MW/JzWL3o
8698UK3FRIhSl+8lOtkZJryyg8YJWo2Na3k/asu5sHxesC7/ANo8WdSlXUdjt+aR
8699nIGQIeTxp2Ixx01Xzz+odoblPu9lNI5+wky8E/cKDT9wru2Yr6tvGC19NOpY
8700MpvGXfXHPc8Hv0ZDi2zU1ZSu3jco715MppEejaFCJAp1GUGFNquPnRuhSP2j
8701yCSgISCgi8KXM881utBaZOneNxjQRJF+xpBebo32XDWFmYkz40VDY0g/tt+c
8702n0+R/sbR7gzBVEkyhYO+z3LtaHiLLJrm0qciKdLvBDLsFj7NCKVw9Q47fpnq
8703HTq25WBm95cU6X8SOT2MuuWnoPDMDaUNUfunkLl3hd87S4ro8R7VPpyf9LsR
8704hW9nzwA7Gwa0bG0KrxuWE30YsGnEtF3zWI4HZwRZJFFMOBqxsMj+ppzoxYSA
87057rvnL6bL8cykTOYkkwW8hfWKOZFyoh8LjgpEZi1b5HiNoeZ5yCALfP+gT2dh
8706OdGTDaNFfp3HZ8vxoUjbmvstbAhur5oXxZYTfTkgSGvYdaZDhvPGv0t3auBA
8707rKohuuy2jOjNheC3lcYd52W4dWfJEVUZF+zdPiwy2Ssj+utBjzImx9dThg16
870832zgq/Qg5Zm+bbKNjPihD8LR4AVqpgwvDnR22RWvD2dDp+JET6XEHx48aTpc
8709rSiS4m/UB2e0KnnweayjRWCUlPjFg0vzzO9sXyfFqW7VExDCh1W1KRGBdlLi
8710Hx+k+xLUCyYl+M5vrNZ8LwP4wMeL2dMoIX4awDLzxt7QixKsXbKyklIYQvtN
8711F9Nft0uIv4bgn21X2+EswdZlJ1KP2BpBBKsw6xeOhPhtBMJtj+TrH4ixr22j
8712UkMLoLCG25+dIib+C2D9WNiB1CAxjskQr/NkC6H04EjUHGsx4UEI9+tV6689
8713EeEKEx+nG0NC+Dv+RbMkSET4EEH0Z087lV1C3J2QTFs8EwGn0c69IURIeBFD
8714sV+/8MULAY79YeDAimAxFKw1Ny3eKCD8iKHZrN1arDbCFksT+va3iKE099jO
8715zlVGhCcJlPI8AtmVhvjGW3v/Qk8JxI3xnddYGRK+JCDSfluQ+KMB9rredLez
8716XgJWWtfgK8N8wpsUVHtTA/29+fhl+J5Fxi5SWDPg7rGzgEf4k8J4Mq8qj83D
8717EXPpq6vLpGARp5qq99EnPEohc1aL4R6VHjZ5+ZPJ9zYymP+6oN2/h0v4lIG6
8718Z/EZYysuLs7yO16eLgMO1drjFMghvMogOy3L2Pk0G38RNKHtpeTgoNbcOFLF
8719IvzKITHD1uGrNiZuN7u4bWa8HGwornXfCIPwLIfyJC3XkcPA+x4rHnuxKLjU
8720dvXnDsEUTPNNgdPjvLvm4xMgOvN8ZYySgj2er8IE9eMwzTsFmf2HJEvCtJDr
8721Hnm9cpCCg3x2Lj3wBqb5p+F9Hzttz4JhUBjMthoKpqHQ8aT6ydZBmP4PNNhf
8722j66OT9SAuq7u7MetNKTGNG4cz/kLpv+HMYQPudYwNGXwL3udv8k=
8723 "]]},
8724 {RGBColor[0.571589, 0.586483, 0.], PointSize[0.006944444444444445],
8725 AbsoluteThickness[1.6], LineBox[CompressedData["
87261:eJw1kwdQlEcYhq/AHcfB9f8/QtEByQkowaiUKIeZ/RZDUMopqBBEJZ5AFFSC
8727iBCxKyIJRrBgQjgULAExFDU2VKKIBQ2HggJKEaRzwQIIokmGvZ3Z2dnZ3a+8
872877PWYWsXqFkMBkP93/x/1Q+TrhiXwGY57m+P7rT48QwKduJq3zTp91dR0YSz
8729v9U8l+OYqQv7H9lXoDadfcpAo/68CvFyDOJ86+X4nJ/n+s/jtcg7NM21u1Z/
8730vxbV5jw4fFMrx9N4K1bHNzxFoR/CFz6r0r9/hp7uSDGfWSnHi1aUFS/LbkaH
8731ftfur7yhj9eKNhfY+xy9JMcyj/tObFUb2jtN8/RUsT7+SzTVDpe8Pi3H1eb1
8732BSdYnajg4sDXCRp9vi7kIpjIcD8kx2lDHfbepT3I/PExB7d9+vx9aJ/XBlH0
8733Fjn2efT2RJ9ah3ITVnc3xujr+Qd9l9/bukMtx7ueMA9U7htAn4XlUGGL9fW9
8734Qi/HLNLivOS4rSLZ/+jK18glImH+dTd9vW9QQRpjtoedHMM5oXCN8i2aj/Nd
8735dbS+/kG01OiyQGsgx8eOH6pS0kMobqlLYvsATfoZRiO8bxV2z2nMPGCVKtQN
8736o4u3nU8euUOT/t6hjWUXtjmX0nj51lzvltsj6PGEFYqxLJr0O4oqrCMG+nbT
8737+Fr0FF6J5j1SZrMdOGtp0v8Y0gVrmHgRja2WFt/euekDKhEZpee500SPj8hs
8738+qYWOxsal+VZwhR7Bnw6tbDuHocm+jBgmk47N7Wbwv2Wy20yKCakq8Lbw6so
8739ohcTLMpNfEPOUtgq4zhzjMmCloPKD6v2U0Q/FkhFvQG71lF4Pr+jWd3PAjsh
87409+dSP4royYbN4taHA44U/mG7w/UH9WwIYSfxZ/Epoq8BeH48a5bSIcP576Ky
8741XW8bQGOdTd7zchnR2xBWtTs5z8yS4YZ1RUmaEkO4Pnmf9Z44GdGfA+cDyzJq
8742fGXYuPPNUp6GA4+7opIphYz4wYU6TVi513spnrXMTRmTyoVcB1V1RLWU+GME
8743ccwg3vo8KY6sTbRsiDeCnKjpW0PipcQvI1iWz+IpvKU40+faKKh5EN59z6nS
8744XEr84wFnXdRMZbcEV95kNRSojOF0rMJwy58S4qcxXA1LdduzS4KHZs+9RHnw
8745QXm/leOnkhB/+TD3wnX00EKCJ5fszUxyMAGTgh5/RruY+G0CThN9JtYXiPEi
8746h6r4DtoULni1mgd8Lyb+mwKHu81W7SbGu3NES/zZAhC1eu5kvxcRHgQQF7Sx
8747wbZMhM+ZBbhe1AmAy8+RlSWJCB9CKN+apfpLKcLtaYdpm0Yh2AmiC/0GhYQX
8748ESRO6e25HCXEKTv6EjxXiuCB9+ymMy0Cwo8IOMzYIsMFAmwzJ617U70Isi24
8749PZoyU8KTGIZHA2yCJ5viiyPTggv9xVA058GvRqkmhC8xrIm80bSll49V57V3
8750WivEsNjdzTHNi094kwC0eXUyNMa4a33sF3KlBK5t6KnPfMUj/ElAMZIZaPYl
8751D29zpE/PK5GAY+xPE2YkGxEeJRD6wmTSkbtcbNZ1wWyrvRQqokOfdHO4hE8p
8752hC75aka5Owf/kRuUXJothcBXVyQnVhsSXqWQMFjYw083wF7LR4c6KRnwH7Wu
8753WVDMJvzKwKfGpPByJQs3WWSFW6XKIDRjBagfMwnPMvjmSpWjso6BN9Z51KlY
8754FGQti+t7kfkRxvmmYELgLOvzkWMgTG+euzuegpDhoMRTn4zCOO8UlEbE3GDn
8755DsNJ3+3nL/VT4PyyboqWMQjj/NNwf1712wDb1+BhbKvQraQhPI85b+2QDsb/
8756Aw2ejzr/VtzphNpbtw5OaqAh0vIXdbRVM4z/DznU3PXt9OgrhX8BiRK06Q==
8757
8758 "]]},
8759 {RGBColor[0.915, 0.3325, 0.2125], PointSize[0.006944444444444445],
8760 AbsoluteThickness[1.6], LineBox[CompressedData["
87611:eJw9kw041Vccx93LjevGff/fv7DKKmEr1UrIrZ3fkUa4GItWtOgVpVZTySOV
8762ENmDRG1eUqzNPJarJnmZvG55iR7avRUzL1eF5D3Rtse5O89znvOc55zze/l+
8763P2fxV4fcA5gaGhoB/87/VvUIpdb/GsMxwIM9wSrD+J/RF4lPry35f1+KHF7t
87642zTGNsBHPvIYfGxWg7wy7yZOa6vPG1ChwZMjViwDXORqH7IqtAW1pGjKf2Co
876577ch1aV4I9cZGluydx0MVf6J7lxsCjCfpMn7ZyhiD2+DzRsae+0qu+2b0YnM
8766WvdIw1/SJF4X2rboyuzY3zQWSR+u1HTrRobcVxpZSprE70VOmbr3w1to/GiB
8767Ii+HqUJPCypSL9Wp8/WjDuvG4aZSGidM9Jk5yl8iL81bQnRbnX8AyZNsNnTf
8768pLHz47GcgYAhNLUw9WpRqrqe10hgI3cpiqXx+SeMxLqLw2j/KHt/1yl1fW9Q
8769vPmnL2wDadxdEy276j+CwlL+qKzYrq53FOW7n2w55EhjKOJyA+3GUP9Ojsph
8770vbr+cXRdnl/hsJTG17NTGuyoCVQbGKkdzFf3M4kGAlmexe8kmJFoHMcdmkQH
8771WBErlvdJSH9T6JRyF6u4WYL9Im44/lX7FkUfTF53oFhC+p1GZ3b+xrbJkuDy
8772YAt2YeY7NKK4WLAsWkL6n0G5PSX2K4Il2HjH7dpzJ2bRliafhy4eEqLHexSU
8773VL4iykqCy24agYWZBoQMx9i1LJAQfTRgVhWbbzlD4UEjP5NkMQNyF6cZZjyn
8774iF4MUKS7MgzLKWycnM2YYTDh3ri8NCudIvoxIVdQf8nyNIW3cvo6AwaZMOU4
87758W2VD0X01AStowdKfawoHBZpXtGo0AQP002qIQFF9NWCsN2pZREDYvzTVFCG
8776Va0WrOSGV7FrxURvFuxtvuF+IUOMlYd/Cc8sZIGMOZk0dlxM9J8HUavHI2XO
8777YqyrGt3BzpwH/InW3iQTMfFDGzKc/GQl4yJs47ve7kicNshV2VRlvYj4owMi
8778y088sq+J8P62U0bKUB2Ylq167h0oIn7pwKLlvZ912opwmnP5NASwIUrw/pml
8779roj4x4apfU6J9u1CXFfFVOa56YLN5WkdOltI/NQF2xyn6KwgIZ6w3XxPLOXA
8780d8oLI4p1QuIvB9bUez64PyvApoUxaeHm8yHF02xGWi0gfs8HWXudmXesAHuZ
8781N4T2UXpQ0VzmyHQREP/1oECc2GjJE+CoLN42maY+BG9JOato5hMe9OG86wcx
8782owl8XER/blU8pA+prs3So858wgcX0O7GVY5sPu5JuEKZPOVCjuk27cAHPMIL
8783D7LDj/v/foqHY88OnLT358FkpkWL52oe4YcH1r06ttMNXGyyMeHFCQUP4hKi
8784AnzXcAlPfLAb8ukpSNbHxW8tffJlfGiLSmRUD+sRvvhQr5QIghz1sNudlvqu
8785Gj5En1k6fix9PuFNAL1uk4dzBzi4P+Rra4mdAFbPXtjzwIpD+BOAx5cWr8+F
87866eIzH1O3nAoFYL0jTJpRwiY8CsDg5kab+6M6mO6/S0eYCcH7hf6jk6Y6hE8h
87879NR7tAZ6aOOCG97R8gwh5DSlS0Wh8wivQpC5FZd3JLPwFr/pCZVYBN2Pni1c
8788dkuL8CsCbdaQ+SK5Ju4w/H6vcZwIkoRlvp1yJuFZBMzubE+HHxn4m3ZpuxtT
8789DI2HF/NHEjUI32JgtdaFblXMAjepc3NUqBhwZmUUBL2DOd7FUNOzN+ThkynI
8790dYm8c29QDIOVeQXxogmY45+CtLx02VrRKEh1lywb8qcggVPSwax6DXP/gYLt
8791b5y6Kt73Q1t19eUPlRScP9Zk6NfXCXP/QwJrc9x5p0eK4B/QgMTt
8792 "]]}}, {}},
8793 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
8794 Axes->{True, True},
8795 AxesLabel->{
8796 FormBox["\"t\"", TraditionalForm],
8797 FormBox["\"r\"", TraditionalForm]},
8798 AxesOrigin->{0, 0},
8799 DisplayFunction->Identity,
8800 Epilog->{
8801 Directive[{
8802 Thickness[Large],
8803 RGBColor[1, 0, 0]}],
8804 LineBox[{{8.580606288331144*^14, 0}, {8.580606288331144*^14, 1.2*^20}}]},
8805 Frame->{{False, False}, {False, False}},
8806 FrameLabel->{{None, None}, {None, None}},
8807 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
8808 GridLines->{None, None},
8809 GridLinesStyle->Directive[
8810 GrayLevel[0.5, 0.4]],
8811 ImageSize->{588., Automatic},
8812 Method->{},
8813 PlotRange->{{0, 1.6245947905906965`*^15}, {0, 1.155*^20}},
8814 PlotRangeClipping->True,
8815 PlotRangePadding->{{
8816 Scaled[0.02],
8817 Scaled[0.02]}, {
8818 Scaled[0.02],
8819 Scaled[0.05]}},
8820 Ticks->{Automatic, Automatic}]], "Output",
8821 CellChangeTimes->{{3.644786950237*^9, 3.644786993172*^9},
8822 3.6448435919300003`*^9, 3.644843652632*^9}]
8823}, Open ]],
8824
8825Cell[CellGroupData[{
8826
8827Cell[BoxData[
8828 RowBox[{"t", "=", " ",
8829 RowBox[{"2.25", "*", "381360279481384.188"}]}]], "Input",
8830 CellChangeTimes->{{3.644843501005*^9, 3.644843511781*^9}}],
8831
8832Cell[BoxData["8.580606288331144`*^14"], "Output",
8833 CellChangeTimes->{3.6448435135950003`*^9}]
8834}, Open ]],
8835
8836Cell[CellGroupData[{
8837
8838Cell[BoxData[
8839 RowBox[{"ListLinePlot", "[",
8840 RowBox[{
8841 RowBox[{"Table", "[",
8842 RowBox[{
8843 RowBox[{"Transpose", "[",
8844 RowBox[{"{",
8845 RowBox[{
8846 RowBox[{"Table", "[",
8847 RowBox[{"tphys", ",", " ",
8848 RowBox[{"{",
8849 RowBox[{
8850 "tphys", ",", "tphys1", ",", "tphys2", ",", " ", "tphysstep"}],
8851 "}"}]}], "]"}], ",",
8852 RowBox[{"Table", "[",
8853 RowBox[{
8854 RowBox[{"-",
8855 SqrtBox[
8856 RowBox[{
8857 FractionBox[
8858 RowBox[{"8", "\[Pi]"}], "3"], "Gphys", "*", "\[Rho]0phys", "*",
8859 SuperscriptBox["r0phys", "2"],
8860 RowBox[{"(",
8861 RowBox[{
8862 FractionBox["r0phys",
8863 RowBox[{"r0phys", "*",
8864 SuperscriptBox[
8865 RowBox[{"(",
8866 RowBox[{"Cos", "[",
8867 RowBox[{"\[Xi]", "/.",
8868 RowBox[{"FindRoot", "[",
8869 RowBox[{
8870 RowBox[{"\[Xi]", "+",
8871 RowBox[{
8872 FractionBox["1", "2"],
8873 RowBox[{"Sin", "[",
8874 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
8875 RowBox[{"kphys", "*", "tphys"}]}], ",", " ",
8876 RowBox[{"{",
8877 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}]}], "]"}],
8878 ")"}], "2"]}]], "-", "1"}], ")"}]}]]}], ",",
8879 RowBox[{"{",
8880 RowBox[{
8881 "tphys", ",", " ", "tphys1", ",", " ", "tphys2", ",", " ",
8882 "tphysstep"}], "}"}]}], " ", "]"}]}], "}"}], "]"}], ",", " ",
8883 RowBox[{"{",
8884 RowBox[{
8885 "r0phys", ",", " ", "rphys1", ",", " ", "rphys2", ",", " ",
8886 "rphysstep"}], "}"}]}], "]"}], " ", ",", " ",
8887 RowBox[{"AxesLabel", "\[Rule]",
8888 RowBox[{"{",
8889 RowBox[{"\"\<t\>\"", ",", " ", "\"\<v\>\""}], "}"}]}], ",", " ",
8890 RowBox[{"Epilog", "\[Rule]",
8891 RowBox[{"{",
8892 RowBox[{
8893 RowBox[{"Directive", "[",
8894 RowBox[{"{",
8895 RowBox[{"Thick", ",", " ", "Red"}], "}"}], "]"}], ",", " ",
8896 RowBox[{"Line", "[",
8897 RowBox[{"{",
8898 RowBox[{
8899 RowBox[{"{",
8900 RowBox[{
8901 RowBox[{"8.580606288331144", "*",
8902 SuperscriptBox["10", "14"]}], ",", " ", "0"}], "}"}], ",",
8903 RowBox[{"{",
8904 RowBox[{
8905 RowBox[{"8.580606288331144", "*",
8906 SuperscriptBox["10", "14"]}], ",", " ",
8907 RowBox[{"-", "200000"}]}], "}"}]}], "}"}], "]"}]}], "}"}]}]}],
8908 "]"}]], "Input",
8909 CellChangeTimes->{{3.64476268369*^9, 3.644762722458*^9}, {
8910 3.6447628106429996`*^9, 3.644762819867*^9}, {3.644762954666*^9,
8911 3.644762955097*^9}, {3.644763018957*^9, 3.644763026914*^9}, {
8912 3.644763866792*^9, 3.644763874667*^9}, {3.6447662062*^9,
8913 3.644766345099*^9}, {3.6448437236140003`*^9, 3.644843754028*^9}}],
8914
8915Cell[BoxData[
8916 GraphicsBox[{{}, {{}, {},
8917 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.006944444444444445],
8918 AbsoluteThickness[1.6], LineBox[CompressedData["
89191:eJxdk3s0FFgcx8fIY7zGY2ZSyEYnebSbdFKKrfvL5CSVZyiRmiSMR7UkeUzW
8920Ulpqe9m03m1aRKSV5E55h5A8RjSeg5bJI+Oxbbt79v6195x77rnn3vt7fL+f
8921u9o70IFDpVAonH/mv+v/x+Qwd1TrSj5Kng8tzNh4Af+3r0DLj+XGXDG7gkNM
8922HCfbDWvQivI8eqvoBjlvQgEs02eW5nfx4/3WwaZhbUjIymrbuSuT3O9A4H/G
8923QHkyB2+gHfUL6+lGTU7bZS1Tcsn7XhRI6WaqsPOxy9HnjzzThGjvId26I+GF
8924JN4AWou5eVUOjzDDqvEbafshtP1yI83VpITEH0EPvpj9skWuFLeuFOTdo46i
8925WvWutLjBJyTfGKIxn9V788twkkRkuKfkAxKpvTw5mV5O8k8gHUXwteVVYLv2
8926T/cmOGIUoGjESeVUkno+oiQZbzdeDsbfd0ldq7s8hbgCTQunFD6pbxolP2hx
8927dPnxBR6qiT/w8/EZJOXwdeqd2Jek3ll0tdoz3jyiCsNjOt3f8hPijt1kWZ2t
8928JvXPodhKetfLwBqcmXWzyZIlQUZ9BUu9frWkn3l034Xtlulbh6Wu6STSxfMo
892943zyBQPfetLfAooOnyqNPdWAvaKz9/TXLiItD3X9toBXpN8llDHsW7HudCOu
89305BrTitP/ROX19dzM8CbS/2dUY0Bb5R7bjHU8HtXGnvsLBRWK+H7Jr4keX9Du
8931BX2L8P0t+HmONhgbUqCCHQy0rhaiDwU4oleN00db8aS2l951phSserHLbfdE
8932K9FLCm43MU00w9uwzvUsqc9SVDjZWukSKv+G6EeF8Ur3utDbb/BeRZGQM0kF
893308Nbj6w3aid6SsN68bK5vIp2HMEzws0CabAOCo9RcnxL9F0GZgKJ1rHxt/i3
8934hYA089plgGJU9OovdhC9ZcB4n4utq24n7gkqikwvlgHfoeoa44pOor8szBn2
8935unl5dGGF0VkPWrospKYs8hiUbuKHHAQk7Eg7mdONLTy3WIYkyoH06UhGlJ2A
8936+CMPO8uzoiLmBdi347x2T5g8OMw6j/5wr4f4JQ8mZYcXGw6+wyl2lUvAoQG7
8937pcg6RKmX+EeDsa/WxuVX9eK6KmpPnr0CePuUzDyM7iN+KgBUN6QW7niPJdvY
8938T5lWitCqJXfiLFVI/FUE1yOFlq9PCLFBcUJKpJESpBTp+8U3CYnfStDMWOlT
8939s7kfuxg1hYlYyrA6StBflNlP/FcGyS21NaFqAzguQ9X1gLQKWDqzItkXBwgP
8940KsDXtqpzmh/AjzWdzMvEKmCy7TtJT9Ag4YMO9T5qDVoTg3g46RZL7x0d/Goy
8941rroHDBFeVGGve7/uyNQQvnRxItz6uCrc2Leuj3F+mPCjCiWHejV300aw3rdJ
89424+cEqiAsbr40mjpCeFIDXl++echmES5b3OBecEANPPNscv07RIQvNXilO3c/
89435MIoti9tqx+oUQOuRdrNTSZjhDd1+OJQkBAxOIbHgs9sXW6pDnbptqFm2eOE
8944P3Vg85ILfAI/4Jj1rFzbYnVYkfD7Cmf2H4RHdbjTfep9oNEE1hx7ohltqAEb
8945XQ7uCNGZJHxqgIZLnJi7WowLs93iS9I04ES5f+8Z7Y+EVw247NuWFVH8Edt4
8946LUlGmQzAXT2M8oNThF8GxIxEqaYpTuP3Wnd9dBIZsE1S5WjbNk14ZsCis/0H
89474cMZHNpp1WlPZUKwpw2eyZ0lfDOB6iCYt6n7hOk/CdlxYUyIiTLjrGJJCO9M
8948uPvUdpiXPY9/3ccrfTrJBCWvRq5U0iLhnwWyFuKFzzKfsZXCmrXi4yzwSnD3
8949qN5E4f/3H1iwKZGiXNVC5XdUV9/Q72HBnpbczdFiOb66hun47XcsoLoGZdf3
8950yvP/Bj32H8s=
8951 "]]},
8952 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.006944444444444445],
8953 AbsoluteThickness[1.6], LineBox[CompressedData["
89541:eJxdk3s0FFgcxxnyZswwk0OzFcUOPVhrW7Xsdn9LixKtrDpbjRZRm9Q6ER2l
8955FpVpOUWiUx55zaGNkEjc6WGMkIYxMXm/xmOQ9yPa3dP9a+8599xzz7339/h+
8956P3f90VP7fCkKCgo+/87/1v+Psf5AmdH1B2hfh+wUD1/An/fP0CEb/14ePw6f
89572fTzWDO7Gg3DGbOLoiRyXo8sE3Mr8l+l4pK9DqetQkUo7HnI0sn2++R+C7pK
8958KRnc1ZqDLdW9T4RKW5HhHe/4rJY88r4ddd6aGa4RP8Se3pWPjqR2Ia2BQMew
8959kUISrwexM0e6beRFWN++bquSex86IQn+xXaihMQfQHurNDflTJfit4Zt+dkU
8960GVLZEngsY7GM5BtCXZ7CdFdKBY6bG2Q7F4+gNxVyWqNmJckvR/Y71RuyNDHe
89610zyTLfcdR8d5d4L+oPNJPRPIJDnFzMfwOY56p3ijJvYDmmwS3I41eUHqm0TO
89620dzu5c0vcV/1FbcUnynkven7tDe2r0i90+iDqWyZsasaQwmV+rvdDOINxz8Z
89632C8g9c+i12XmW7z8anDG/Vv1dsw5JJ8z9I8MFZJ+5pFFxHmzMG4tVrzB4lLH
896451F2menkwYzXpL8FpEy5vs6uvA5zLmY6dwsWUe3ha6Pbm+tJv0soZnZr5KmJ
8965BlwVaKFelPYRRe+TRIWrNpL+l5GY89RvLqkRsw49Evx5bgWZLImTytlviR6f
8966EHOt6mhzxVtcmbUGLNgK4PFbZaenu4joowAdlaws90ERHlvDMU5gKIL8iL6V
8967JKKJ6KUI7KFrTourmzEr4b7isiIF5H7PEhoeNRP9KFBc0MPz3yvGuzUHu3zH
8968KHBW8KNJh1xM9FSCGPPJQoe/WvD5S+a4oU0J+kxtrEstJURfZYiYUKpxEUtw
89693sLJ1G0CZTi8kDHGOv+O6L0KbHLL7zltbMXSoMKItKJVEOBv7j/a2Er0V4EW
8970N3nCxgttWEM2fUg9TQW0Y4JcmZZS4ocq2B0VVnf3SvH2I9/aneGqQthlJ78H
8971Ke+JP2og0aGspHm044CW8DXSUDUoPtf+aYDWQfxSg5UM2rN8UQdO3lO1BL7q
8972MDBfm2ec1En8U4f+9bEHK7d24ZqXFGm+uwYcd2E5LiR2ET81gJYbrMZZ6cJz
8973OxzLGfaa0BYz3UEP6Cb+aoKvNfPm1y3d2KzoanKEuRY8Pe7GH3boIX5rQRO7
8974jH34SQ/2NK8PHWRqg1RJWevp5l7ivzbQjJvirbJ7cXS6rpebkg5cdnqCZtf3
8975ER50QI/7Ihml9+ESA49tZeM6cIDDurt/Qz/hgwp58sl7wXn9uD8uiWn8ngqC
8976mIXVo98MEF50QaGTxtMVDOBrl+VhDj660L7jK5cffh0k/OhCzDpJae/sIDb+
8977Pm74XJsu2C5PMYOSZIQnGiSGT1EC7Idw2aLlwb/daCBNN5g/OjpE+KKBN3XS
8978WSVjGLs/Fgl7qmnAjbOupXNGCG90oAvWfedjNoqHTgfbrrajg4e98fzc/Cjh
8979jw67zOymp8RyHLmZyXMpokN/t0XVw6oxwiMdtKxfUnHpODYYKjW4yNaD/N7E
8980UQpngvCpBzZZGmu95RO4IPPAleJUPfDNqivwivpAeNWDhFR+bBJ7Ev/EWZqT
8981MfShLJyhbfN+kvCrD/TCDYktqVO40+juMRZXH3jJu7/oD5kmPOuDYY6RdYf/
8982DA6R2EvcKQywcpU9EIXOEr4ZIBQ18W0K5jD1ZpdjdCgDQo7p6Ow0WiC8M6DS
8983LI4bWbeIc1wvPS4fYwAVRXw50v2R8M8Ew7iUOlb8J2yvscF03IcJyblRYmGq
8984Iv/zf2BC6O2JlB1nlflNNXktwgYmULyCMoXtavx/APqAMG4=
8985 "]]},
8986 {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.006944444444444445],
8987 AbsoluteThickness[1.6], LineBox[CompressedData["
89881:eJxdk3s0FFgcx8eMMITBzKRCNWnl0WHlZL137y9WSkztWjk9JLKlh9cpCSkp
8989YbNiE5ulPNrOprxDpTtipE0iUcZ7BuM1g0yjULt7un/tPeeee+659/4e3+/n
8990rvE7viOASqFQ/P+d/63/H5KhY+KVvxQhJcWiDG+js/jL/hFqjUvjCI1ScajZ
8991Tkm7MR851Vk7mT/KJOfN6CP91151kxu4wsM55OuINsQ8ts0w60QBud+BbLJk
8992t87V38YW9P1BEYK3qFB4YYUG8y5534P+ZNP7eZYl2Gt/bem+nH5kFVJb/9vu
8993MhJvEJkl/Lzs1sUKzHR8bk7jitDCWv2CFeX3Sfxh9N0ZYTVrsBq3rui6U0gV
8994oylXRfNarYck3yg6fK3jlC3U4hT5iLFb+TgysEru8bbDJP8kkiwEj6zz4mH3
8995dlnhZIAU6bvfvKsbWkfqmUJSs1cy55QnOP6NwpWnSdMotfmEvK6ontQ3g2h+
8996rscLmhuwiJ/gmeX/DvGUPPNpUj6pdxYtTQgOm9V6iqFCU/OIgwwNjCf6pGxq
8997IvW/R/blzucndj/DN/OuNjuw5ahe62K7YfzfpJ85VFtQKuPee44Vrugna0rn
8998UIb84cHLgmbS3weUeGl9oozegn1j890GGj+izRYKAq7+S9LvPKqgneYIKl/i
8999x8dM6WW5C8gIb2kv4LaS/hdRw4bQWt5kK9bfU9p4/tQnpGxQtd0pqY3o8RmN
9000bB7LNjd5hWsL9MDUmAITZ9Si8p+9IvpQgHv1eHTxkXYs0fPlpLMUoHhRqBLI
9001eE30UgC+IiWwu+I11k/PU1hUoELkQk3buj0dRD8qnLlxOGmXUifepjbSHyCh
9002wgNLT/Hlkk6iJw06AvqO9u59g6POmeAXXTSI75GK9mu8JfoqQpMSI9wKv8V/
9003fTiaY92oCJEh1g9Cw7uI3kvgW+qqGVtTARYEl8Tkli2BgxOX6UUiAdFfCWpO
9004LraM5XZjVfHsHnquEsSFDy/X9e0hfigD026HxIfTi233feMQmqwM02nMKsFI
9005L/FHBY76+UY1FPfhQx2n9QQRKpB0plQtz7Gf+KUCB12ETo2F/TjT/fE8BNDh
9006CWMmYZQxQPyjg9dG2sy66AH8tJ4quMNVBcMDvleyxgeIn6oQMxlXF7h7EMvt
9007XGpYjmogfDfwU3HLIPFXDU6oRIkznYXYqOxSZozJUhhYG73MvVZI/F4KnY7e
9008EzIbEfYyaY4YYatDesKGTfVVIuK/OpjeSV8ctx3CF24wvD1pGtDg4KNciIcI
9009DxrgN+8aZOE2jCt0f7CulmrAxfh61NI5TPjQhOSw9rDmQyN4KCWDzenWBMMt
90103D+iKWLCCwPKDiBLu+tinBg3Gensz4A1xvZVQQ6jhB8G+Ay99IoVjWKOU8rY
9011qS4GpLosz5OnjhGetKBQ1+bFPpdxXP3Rwueupxb8mCF22UWdIHxpgfzT5EQm
9012fwJzK9uaBvlacFvUuDiVNkl404bVdmmSrUESPBoSbrPMQRv2ds9FPHSXEv60
9013Ye3wrN63BlP47Ab27a1l2uCd7WEZf32K8KgNTnyN1Qmcaaw7el831lgHHPQo
90141dtKpgmfOrB31Q6+qtsMLs7flVCeowP+KWbn7SUzhFcdyH5dHFaa8w67+s7L
9015xSwmFBt4LLnnO0v4ZUL+6ablGlYy3LcyO1A/mQm69u3iGP33hGcm2M4NRQrW
9016yPHJTsdOLpUFM/YJv5d8P0f4ZkHKzuZEzrUPWDOt3+VCBAuOeIxWHlg9T3hn
9017QV9628bY2QV8a/u5yhoJCzQNLQbbrT4T/tnAnrnZYqCuwHNUNfxK6s+GtsZi
90189xeqNN6X/8CGR/n968tWKvGoMWN0zgM2UL2D85t6VHj/AGDPIKU=
9019 "]]},
9020 {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.006944444444444445],
9021 AbsoluteThickness[1.6], LineBox[CompressedData["
90221:eJxdk3s0FFgcx8dQGDReM2mjE9tjUOvRHrQWdX9RKeVRo41Ch7ObjHBq0UMI
9023pVglZelBElFJXomlO3kMaTwmeUaIjJjxfpNtT/evvefcc889997f4/v9XM1j
9024J+09qBQKxf3b/G/9/xD3eQtXRz9F3oEe/s7eofj7vgSND/k5jHrHYr9NDuJG
90257UrUYLnI7ky/Tc75yKm65qilbwrO32/paxAgQFmrNG0q6enkfhNK0Df6o+TZ
9026Y6wv63YioL0VRTLY9sWsbPK+A3W5xVsnncnBbLfSHJekLuS0oADP+XkkXg/S
90278+rbq6b1Aquav9WTtOtF1Scrxub9X5L4n1GcRfHOsLpi3PBD25M0qhCFuCdO
9028tbJKSb4BtFM0ylJBGMdM92tb5w2i6EjNnGofLskvQvcKWyhpya+xTeNkmshj
9029GNWPPBoqaSgj9YygC1iufKNUBQ5vkYitujqKVvLWs+eMK0l9Y6jETGpxL4eH
9030eysv2ya6jyPNbtdHxqlVpN4JxBmYEQo+VGPIp9O9zCbRalHYgvHKGlL/FLqQ
90315doW7PAWpzy4xTdjTqNnuuPbqq7zST8zyJ4vLNMW1GKJWI0o+vAM4idmiFxp
90329aS/WXRepme26Uk9dg1Ote7mzaEfDUosImwbSL/ziCV/NCxosgG/8taVzU1e
9033QK82/6NVf1tA+l9EpXMsZhS8wxpHcnhhgV/R2LbEZeVD74geS6jAk7//Snwj
9034Ln2oDrraFAi9c0htDN4TfShQweEepI+9x2J1V604hgSE3M7tmrrfRPSSAPba
903502GlDs1YI+6BxKIEFWavFyqel24h+lHBLnbMy7qkBe+V6+/yEFNh6a7TU4vT
9036rURPSdC7/1bbX68NnwvVwbVtkrAmLvOW/FAb0VcKVDXU12o8bsePZzlJxjwp
9037iB+oucTz+kD0XgbWzhctNxl04Haf50HJucvgmM94Jmemg+i/HG7eU5DLft2J
9038acKJI7LJy2HCzblv1bWPxA9pmIgU0Tz1u/AvLiZmflHS8LNgWCo8sYv4IwNL
9039h10WTy3vxsebzqq3B8iAKfoz3v5UN/FLBvYUm2ma9HbjBJtX8+AhCyoPvxZv
9040Z/cQ/2SBt+NsZPSbHlxVTm1/YkeDjjMPOk23fyJ+0kBkeOPcyaJPeNrUqohh
9041LgdDLnX1Nka9xF85CO3oNlvK68UbcyMTgnTkQaojg/PMqI/4LQ+dDtNZ0cV9
9042mK3DD+hnKsA+BUdXPnwm/ivADiO2Z1rdZxxxX/GQreQKkDZcqDno0k94WAG5
9043nrW/rhnvx/lqB4xfDq+AgswTwl1XhYQPOvjM5u/awBrAfTHxTK0PdAihZayj
9044vxkgvCiCh9Cv2MP3C75yUXTG0l0RPJlW6+PXDBJ+FEE3882kumAQa1nEfAls
9045UwRhjLnehaghwpMSFOUHJbD3ifDLOf3DWbZK0BBVeHO/mpjwpQRXxQN/bR4U
9046Y7sCQXVPpRJUbHU2qOMNE96U4e/m0PoExxE84Htq60ozZTAs6T+3rWGE8KcM
9047KSY1FhF2ozhkMzNjT64ylO6WDTdsHSU8KsO0n6mJ/vExrDbwQi1YWwVqD3iG
904836KOEz5V4EpCAicvbRxnp/52OS9JBdwDoxzXOk4QXlXgoVyyE58xiXe5zk8L
9049GaqQzr28yOqbJPyqgpGV9z3Lqin8cfXd3zWiVOFSp1OuWtk04VkVDu/Oft3S
9050NoP9m82b7agMyNFlRV5jzhG+GeDYWOlAD57H9BtdVhEBDHAxLneJWL9IeGcA
9051hcpsD1Jfwun7QguKxAyQlRy1+VhG4X7nnwkpd2YKf7Kncs1p6zYMuzOB1t9e
9052ITgtxf3+H5hAfV5foMOV5nK2OLzYkvltf8gntbpDhvsvlT0pig==
9053 "]]},
9054 {RGBColor[0.528488, 0.470624, 0.701351], PointSize[0.006944444444444445],
9055 AbsoluteThickness[1.6], LineBox[CompressedData["
90561:eJxdkns0FFgcx2fG+5HnDFYcUZHRg2pTZKr7S6xdIrJlk/dJp0VsjyGVYqkk
9057znBID++ULYnxSFF3VDSl2krIY2c8xjPjNYNItj3dv/aec889v3Pv/T2+34+x
9058f9iuIBqFQgn4tv87/7/EotCBxUnFiN9g+KtvRSz+HtciHc9dcQsVqThipbu4
9059ybwe+fPrQpM418n9K7QqUUEQfT8fV+y0D7div0OOz6RHJ27dIu+bkdezYytm
9060rhRjSyW/Q+z2j4hVHZwR5lBK/nci3eLlFdF1XOzp96jMJ1uIziR48xpZlSRf
9061N1rr6n/2fM19TGc1rpFx60XBNSFbO20fkvx9aPkC58NETS1+q992p5A2gARb
90629ASzRpjUG0QKl2bo5/15OHm639ypfBgtEVTG2xTWkfojyOzIVn3T4SfYuUla
9063OBI0iuLSSpgBVs9IP2Nopcd2jlJkPf6zlcp5njiOonFTuVVdA+lvAh39AV+Q
9064qPJxb/051yuBkyj7YfidQ3tfkH4lqMrpzP7Smy8xVKir/24nRZ7iU1nC6UbS
9065/xSauHXCkuH0Guflp7+y05lG8fY+xYey3pB5ZtAfUer8mKi/MZVjeFF9dAa1
9066VUtuzpq+JfN9Rk6NJau5TW+xb0yBU1fDLFJdG1nwIPYdmXcOFdC39Rmvf48f
9067h1oocXO+IJ+rq8NnRe/J/PPoRoMgxDOzCRt6lzXERX5FooDoGkeXD0SPBRSf
9068co8qkm3Gj24YgIU5BYyrb5RvqW0m+lDA2l57dejxFiw28DVJY1DBaVPs/fh1
9069rUQvKkhsh3JzxluxYVo+dZ5Kg3izSpem0o9EPxoYxEa52B5pw7+o9AuDxDTY
9070rHQgYmxjO9FTBk52VIvUKR04+iwTv26TgVqnIMcqfgfRVxZ81q1olEvvxLc/
9071h2RbN8hCmZ+vh0HQP0RvOXCu7L9saC3A7YdLT+Vw5WDNrIWprryQ6C8PNd1q
9072+TYRQqw8IPFWypEHrtnB1kVCIfFDAfZNlWYV7uzCNj4b7SIuKkCY14dVBrwu
90734o8iNMZd2pywvhsfbD5h0M5WBLGszVLaX93EL0WwsrxMKzLuwZnOj+cgSAkC
9074NqmMZl7tIf4pwQbPySVS3V78/Cmt/Y6bMqRz+pid6b3ET2XwZudtOK4nwtO2
9075Ox4wWCogeVnz0/A1EfFXBVLKHFIDl/VhM+75zFNMVTBNb36iWdJH/FaFnuD0
90768OV2/diT+Yrdr7MI5DkxF5pf9xP/F8FvWLfFN3AAx+dq7HGVUQNH06wUua8D
9077hAc1kG1zV1O9Nogr9Dysq0fVoPuN1qU61hDhQx1cTmcYnu4bwqLkDB2TDnXo
9078fEm5nZM6THjRAP2Q/O0pOz7hC7EjUfaBGlAq48qpW/hE+NGAhdCnadWPR7DJ
9079luShyDYNYH0MeCifICY8acKLXU8DnT1HcfWspdddV00w27Z9wkR3jPClCRqj
9080EZeFCWPYrfIdv7teE8Id2GXN82OENy3I1awpSoocx4PhRzbp2mnBj6rutXlz
908144Q/LTBJzPVvjJvAZ1bpFP3M/RZP1bUIGJOERy0oMQp2bS2ZxHqDVXox5trg
9082l9TkJnSXED61gavdRd8vI8X3CvaeK8/WhoCAT0xZLCW8asPdbckwkDiFHX3n
9083pgcYdMgOrJPmHZwm/NKhQUN76cl9M1iw+PoBw4t0kMb0nCwL/kx4pgP7SpRy
9084c+osPt7CanGjMSBC//mxMNEc4ZsBBruxwZcD81g9Vbgjns2A3UbZikXMBcI7
9085A1KqVvJYeRTeTZezlQ/EDFCU8JkeI1Ted/51wMLBJY+VIcNjKS8zHQ3UASSv
9086wGoRyvH8vIx8NDN0gLbncAG/U5H3L6QNFYY=
9087 "]]},
9088 {RGBColor[0.772079, 0.431554, 0.102387], PointSize[0.006944444444444445],
9089 AbsoluteThickness[1.6], LineBox[CompressedData["
90901:eJxdkns0FFgcx+ehGOVthvLYkq2MtoTQw+PcX3WUUdhW6bHem7bWSh2UOKUS
9091i/SwOVmbR0Qi1XjECZdCOjjlzXiMxzQjmWHCeDa7e7p/7T3nnnvuuff+7u/7
9092/X7W+vzu5k+jUCi+/87/1v8PsSBQpJdQgHJ3dFj5LV7D3/YVaHvV1mKVpSQc
9093vOlHcZtJHZrmxETvikgj503I0BE8i+RZuPjgnrNbw1rQUNC7B4Yoj9zvQOnH
9094SkXm0YXYjOF9OozXjaaOh/eu++UFed+HXGa53x1VLsbu3pUvPNP46LFmgb2o
9095sJTUG0JWlgOl8+7lWNuucQvddQRtUGLdrJS/IvU/Ip2qX32986rwh9U9+Y9o
9096IsRxHq6JMa0m/42iic1yijyqBifKhCb7i8ZQvyXn2BPea/L/OGrfkmvxaFst
9097dm6bfjTuL0HWNiUBSrfrSD8TqEd4yWtsvB5f76LeeRs3iYzKr2qd4jSQ/qRI
9098fTpcNzX/HR6pi3FJ8fuChv6Mepam2kj6nUKUfEZbYnAThmI1tTO20yhREuYQ
909929VM+p9BKa5Orw+teY8zH95rsmXJUGahIP5G+3uiZxbZ3mQ/+xz3AVPvGMSr
9100SWZRb5e9TxK0EH1ziHIrwjdxsQV7Xc7aP1g/j/jm2xiSklaidwGpGBg71ga3
91014apAUwY3fRExGBlVxmbtRP8SSk66V7tG0o4NTryov3bhK/oQ/fO5psIO4occ
9102HS65y7UP7sSV2fpgakKBsnapS4JVF/GHAk/0/Zc3LXZhsb6XURKTClqdbrdY
9103td3ELyrEHfasikrswQZJD6lLVBqoVHDjTY/ziH804J+jmW0y7cWcFUK+v5gG
9104MeeDrTMWe4mfdGjRycnIfd+HL0WxcXMPHXypa+a9c/qJvwqQt88yTHx5AD+Z
9105+y3Nul4BRGcu3nq5mU/8XgZmSutDbjzgY17Q88h07jLYvKs/RKY2SPxfDuyZ
9106ew4GVwexsmjqBCN9OZwxNK5UnR0keSjCG58Q8+HAIbzD08Y2OF4R8obK3bnC
9107IZKPEiQ9rQi/7zOMT3WE6/PClCC1funp84FhkpcS6GVLh1d5juD7zlUL4M+A
91084iYdIyl/hOTHgJyTp18e9xfgt29ovHxXZXDNMwmN/CwgeSpDQ8XziciQj1i2
9109c285024FyK3zamLoQpLvCki9USBquCvEG7ix9yPZK4FzkL76/AYRyXsliCK2
9110WVZUirA7uylMyFKBGlZe0YDHKMlfBUL2d4Pe3CiOzlA/4kJXhdjVDj8Vp34i
9111PKjC4X3dA3O7x3Cx7iHrMokqaEyXWeySjhE+1MBy2QVpZ9ZnLEhMZhn1qoFN
9112wpGt5ifGCS/q0DzZ2lSuJ8Z/XB2/uMdPHWQTHvJxvpjwow6tFpUW7gUSbGSf
9113+OlCjzo43X6zrt5hgvCkAWKZgq5R4QQumzc7+tRFAwQ781cZGk0SvjSA9zHo
9114FDtlEruWtDQM1WmA/CxqrNWREt40IddpOurKX1I8evb8dh1bTbA5VrmksP4L
91154U8TMvpCr2u+/IKv/MB67MTVhNjMS+wEtynCoyYENCYFXJ6ZwrqjpbqXTbRg
9116qtbOkJ09TfjUgv6Eja8UvWbwsyyPmKI0LfBx5nwVbpQRXrWgJDTSlE6bxY5e
9117CzIRUxuSFRfH9cWzhF9t8OCV5hRNzOEBvb9PGsRrg/+6044c1QXCszakjO12
9118a+Us4tBOu05XGhPMGQF+B4qWCN9MGGkvE4gOyrHaXf7e6DAmZNMrugTJlOpv
9119vDNhbWCztl0JtTrnQFRJuZgJDEGmYgOLXv2NfxYUTT6MO9CrUG2nbLxe4seC
91208O/NS3hOitUPxhes8iNYQDsSlNXQp1T9D/N6Irg=
9121 "]]},
9122 {RGBColor[0.363898, 0.618501, 0.782349], PointSize[0.006944444444444445],
9123 AbsoluteThickness[1.6], LineBox[CompressedData["
91241:eJxdkns0FFgcx814PzIGMxGyrGyU1+4pm5qp7q/aXUUe1aooxEkvK9mQJSs5
9125mopWnZRqESZ5tBj0WOlOil4SJobxzmtmjFcMouzucf/ae84999xz7/3d3/f7
9126/Zj5/+IRSFVQUDjw7/xv/f8Y7gseNLpYiM4VJjGDIAEv7B8j7+X0fqNNV3Ho
9127Ss9hgVU1gkHLukleBjmvRUjjdKd0CxeXbd983CGiAUUbp9c4i/LJ/SbUMRMl
9128KH9QhO3V/Y5EiFpQnkKSmTCeR963o0RAHEePcrzLr7Jkf3oXqr8191jR7CGp
912914OcDLxlR8b+xvrsN3aK7r2oaUelKL2qktTvR/HrM6cHXmNcv6S1gEsdREv3
91303uMyHZ+S/8RIWKcsC8uqwslTA1bOpVJ0gtNtZ0x/Tv6XoTgpzcUythq7CCa5
9131ssARJBFVcAtHa0g/oygxqsy21v8lPiukpLw4P4bO8L4NzWh6RfobR+J3jlzY
91329gb3Vie6pQV8RGYhl0sbq2pJvxPIelHKT8GsOgxlNNpR1iQKiFgzds37Helf
9133jqrfeg3/aVSPb2ddrWUxp9DFCiNoEdUTPdNI5fbmVK9bDZiSYnKBNjKNGqY4
9134xra+jUTfDHrrufXaEQsB9o3Ndu6u+YTwd2PHvpYIiN5ZxFmmmhdU/B4/CV6h
9135zsuYQ+kn9bS3n2oi+j+jRD8XE+mmZmziU1ITH/kFVdzdYO1BFxI/5pFl28nA
9136tE4hrswxhhVWCvDD+HpZ618txB8FWDpR3rEirhUPG/uaX2FQoCPMPIi7S0T8
9137ooD5CUFbgE0bNrmSRflMoUKKR/GrOJV24h8VCgI4dJOedrxNc6ArcJgKbzqj
913859xxB/FTEZZ5XvHZmNmJf4uzxm9bFYHqLduZgLqIv0owa/dVirSsC+fPHEt3
9139rFECee4zeY91N/FbGRxWCU1jM7uxKKQ4JoOnDDYxl2qaDXuI/ypwXd20Y/5y
9140D9YYnPBRz1ABM0ZnFk3nA8lDFWzqnKpNkz5gp/3fs0IvqELf4YzTztq9JB81
91418BcOPcq/1IsPNUUZiyLUYBuH7+TH6CN5qcG8octzzs0+fN3lySwEqoOKv8VO
9142Z8t+kp86GEZ+2P6spB+/eEYVFbhrgObTo1WmaIDkqQGOivy8BMEAnlq75RGD
9143rQlK2alrLQ8Pknw1ocBbj22nKMbf8M5dj7HWghA1+5CmdDHJWwukKQL5jg0S
9144vMu6NmKAuQhibjR2DPZKSP6LIEmQVvT+ohQnZOp4uSlqQ612j2Hg2iHCgzbk
9145PthXPCAbwmUGOxwfjmgDa4lfS1mOjPBBA/3ze2rsDwzjvuRUpnkbDVJdi+5X
9146WY4QXnTg9Emln/tGRzDnjOzU5gAdMB1xKNfyGyX86IDn3N5DkbWj2Hx9siSy
9147VQfkq5rFGuwxwhMdwqvvRJvwxvDDT/Z77rnR4fZq/Y2GNuOELzrkdAQ7hRWM
9148Y/fyhpc91XRIuqnVX+rwkfCmC0Vnbb1/ffwRi4+HrVnM0oV1eVbsg24ThD9d
9149MLN3zfWSTuDfbZh3t/J0YdR1dbRT8iThURfMI/mxy1lybCC+bxBrpQcJX3Il
9150J+RywqceqKuFHCiumMJF2bsTS9P1wN+xoP71H9OEVz3Ahcf0lkbM4B99Z6cG
9151GfqQlLeq/2roJ8KvPkhyvFcOxc/iTqNbB00u6EPj83Hdft4c4Vkf7q+jpb1T
9152/oLDm9nN7lQGjE+peticmSd8M2Bn/u5myQ0FPu1y15aECAZkhFvbhKdR+Au8
9153M6DEIiSI9YrKv+MaV/5omAEaTVG9rA1K/AX+mcC+ORO2z0yFz9awsBwJYAJv
9154k49tV7kaX0jlLnY4yASqV0j2y3Y1/j8WbxkX
9155 "]]},
9156 {RGBColor[1, 0.75, 0], PointSize[0.006944444444444445], AbsoluteThickness[
9157 1.6], LineBox[CompressedData["
91581:eJxdkns0FFgcx82QmfGawcyg6KHdRNuWzUYrOXt/G+VRtNUmZOpEWW1JbQ1J
9159pbSSxyonm93ymqgteqDBWbqzHGOSkmoYIuORQTPGczyS3T3uX3vPueeee+69
9160v/v7fr+fJfuObAumamlp7ft3/rf+f6h6DisWJBWg0MXu42EJv+C5fQWKSVVz
91617S6n44gvvle9tq1Bhn8y/L3vZJPzelQnKQ9ampyPS7ZuPGrPb0Tc2mPqE8cL
9162yH0p4n73h8P2wod4NWNvGL9VhniCrJDE3GLyvg3h5IZRdoYQ79xb+SgoswNp
9163lnutX3SlnNTrROs/Nlu3Xa7A7A3PVmn7dqOLPkVpGDCp/x6dXpTkmvm3CL+c
916433Ivj6pAFQcjEwSoivzXh0ThBrL+qmqcoum19SgeQIyOEzpJbjXkfyUKzD8Z
9165kvdUjL1fj+UpgweR5ExV9zYfCelHjfYwVR8Lm57iuGbKldrLQ0i3QN7QxHtG
9166+htGufdG1gwM1OPumnifjP0jKMdDUEqLfEH6HUWbHZOCll1owFDCZB5yGUPG
9167kWuR0usl6X8cUb1CLPq4jTgn91q9C1eDTkp8J+06G4meCdRewoupLnyFKVes
9168EpmDE+gVVyoVR78m+iZRqplFvbvXG8w7K/CQi6fQTYeCxh+spETvNBpa2a9v
9169oJbiJ4dXMIqyPiLP7riAyOomon8G8b/U+bkkoxlbBT4SX4j8hG48s5ZLI2TE
9170j1k0RtltNubVgitvWcIKWy1oN0q6tNy2lfijBal1dGEC7S1WWfKs0zgUyDMZ
9171dl2reEv8okBZ8uYpt7o2bJWWS5mhUMFCUUhvedBO/KNCzA6TEcPr77CXfm9H
9172sIoK8beqeRTUQfzUBhcxNlCWduDoWDv8vEUbtgifFvrby4m/OrDYeZki6K4c
91733538KdNRrAO0HqNAQ5tO4vc8WLcvQcIXdOLW8IcxWUXzwAYj89KlXcR/XWBY
91745Z/qFHRhPcVoICNLF2T6GZdYy7tJHjTIcJ71Cyjoxt8EOblEJNJgyUjcbblD
9175D8mHDiupllMVlT04VHrKspVPh1mvuBqW53uSFx16kvPzpmXv8XXvJ9MQzIBt
917646vjc8J6SX4MiE/w712hpcC11dTWe756IJLdZ4rSFSRPPbi9qWF/8ld9WOPs
9177Vs7ZoA9GrLjiqoY+kq8+lNtHXk2L6Mc2RZeux9gZQKoooMbJfIDkbQDq/GNl
9178H0QDeKddPb+XawgOi2fow0c+kPwNIW9PgNWv1kp8MZu1y0fbCJjaF9rZLUrC
9179gxFobLpj31xT4RLz7Y5lg0bwoyv9zCq/QcIHE6LoC59Xs9S4JyWda/2WCRM0
9180nUw7vprwwoKM0/PVtC41TjivjNq4nwVVPY8P5fgOEX5YUNHeXOpePYStXVP6
9181I1tYkN3Sd3+L8zDhyRhm0zy6zIXDuGxq9e5CH2Pg2UcfZDuNEL6MIVx6SL+y
9182cgT7Pm6UdNYYg6VYOpvrOUp4M4GyJwe+Dn03ivuOHl9n5mICrpNpMZKoMcKf
9183CWTHflZ3c+E4PreSe8ezyAR2TA++6K0bJzyaQPPnqt8azmuweZ/Q/KytKZg5
9184mgor3CcIn6awJlao528xiR8I/OKLM01h7xKDW/enJgmvpiDpCph2Uk3hTbxp
9185jYLDhjjvI+0szTThlw3R4ZSHSy1m8LsFNw5YJbLh24NRbWf8PhGe2SBNksnr
9186K2fxyaYNTb5UDviNvFqke0dLNMc3B0rDpM7yFIqIebXD7SKfA78PpJ+j36CK
91875njnAGo1/mt9u7Yof0vs43IVB/TE20WPQueJ5vjnQq3b1j2HQ2gi2od+v8TN
9188XKDuChdI2uiifwDReRgM
9189 "]]},
9190 {RGBColor[0.647624, 0.37816, 0.614037], PointSize[0.006944444444444445],
9191 AbsoluteThickness[1.6], LineBox[CompressedData["
91921:eJxdkns0FFgcx82MvDMMQ4oSm47X0pZFlm3vL2WVIrFFrfdp9dLTjljpsUI2
9193MhR1ytQIqdYrCW3uVEioyCOvvBkxM8ZzvLLtcf/ae8499/zOvff3+H4/q32D
9194dgVQpaSkfL/u/87/L2HfUf6Kvx4hB/ZCQ1BtFF6M/0GcmXdbreqS8QkTV2G9
9195YTkSBg33p92+S+5rkFv0ZIdHQyYu2Gl/fB2rDuWcdNDiLs0m7xuRddyzRDE3
9196D5vL+xxitTYjpkP+g00vCsj/djTV/KvXaNdT7O7zPM8rtROtenyzeCPtGcnX
9197jTZ1uu3ZYVCK1e2qzWguvWhv8CWb3DU8kr8fFS6wIt2LXuDa5S0P06l8pBu8
9198+eh3O16ReoOoS1WtzLu3DMdNDRg6Ph5Cty2UmudDK0h9AVLy6zhrwKzETvUT
91996YIAEXLWf6MnyX5D+hlBylyDqvjt1fjPj5SE15fFKDo93ow+VEP6G0WeUdm8