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
9200hMvvcG95lPMN/zF0LsHjk87196TfcSQ64HIjKbAWQwGdfth2AmWHrGf/ZFtH
9201+p9EupUnN69nfMB3uddqbDWmkE/jpeww/gcyjwTdrwwNMMf1mJKgE0sXSVCP
9202xeqrPikNZL5p5NraT/nmVCP2jkhz7KqYQTEWgZaxzk1k3lnk933NkexvP+LS
9203o8by+Zw5NOwiyeIqN5P559Hp2eLqsyPNWGd/XsXFkC+ILZJO9qxvIXosoLK1
9204tpU7i1vx83vaYGwoBRHGLWuC77YRfaRAmusRNxjbjoXa3nqJTAocy+Fplod8
9205InpRwD7ruaZhYAfWSeRS5ilUqLJz5yabdhL9qKCr73RwIaMTb1cc6AwQUsHI
92060/Fls34X0ZMGA/6FB63vdOGw80b4bQsN7jAyZdfpdhN9pcF+i4ldPacbP5g+
9207kmpZIQ2M1XtfWur3EL2XgF3cDyePZ/Tg1mO54Zz8JWBInfgt2bSX6C8DLHMz
9208rbKCXqzAH98vz5GBJKpbkOqmPuKHLNAyXwqSq/vwRi8r2xOxsrAv9FAty7Of
9209+CMHEuNt1u+H+3FgY6h2K0sOHtF/3oUjBohfcvCORo06rMnHKU6lsxAgD+kx
9210tiUzOXzinzxM3vwQznYaxK9fUVsfuihAqHjU01cwSPxUAPUrHSuvxX/GUzZb
9211ipl2iqAZdsLUx3KI+KsIr2U6+NNdQ3htfnRKuJESFJ6J1r4ZP0z8VgLJM0bY
9212RRBgd6Ma1oDGUhCmGayfnREQ/5cCj68T41goxJF3VPY405Rh99Qa7iuWiPCg
9213DNyqDVldq0ZwwbLdlkUiZdiW90vC7sgRwgcdDlVdsRKLRnBf3HUNvTY6ZPLN
9214fMf2iQkvKjBemrfhVo0Yx1wQnLH3V4GANht9KzRK+FEBA56bnEbJKNb7Me5z
9215SIsKOJ2dO51gNUZ4UoVoP4GDeskYLpox9/jbWRVWmvTG0WGc8KUK1m8PtsnW
9216jmOXJ3WV3eWqkCXmaLEDJghvDMDTHOX9lEk8ePyUtaYtAzY7SJUa35sk/DFA
9217r2FG0Osyhc+Zatzfls+A4oz7eklyEsIjA+Lrluey3kjwssHCZRGGavAw6I8L
9218sinThE818Jr7kisdPINz0vZGPU79GiseZrH9ZgmvalCrtb3H1X8OO3jPTvGZ
92196hA2ktkYEzpP+FUHZZt0C89HX3DHilsHdGLVIUeBmqm1sEB4/vpeVJvYVyLF
9220+73JrsmFyoSiz9xrp+MpvEW+mbDCxJXTdIHKo7M7t0SymJDktaQxJZXGW+Sd
9221CXVX8+k/jErzMnacf1IsZILCU9Pba9kyvEX+NWCXOG1r+AM53spGRnubqQZQ
92229xxLq2yX4/0LiiwT8w==
9223 "]]},
9224 {RGBColor[0.571589, 0.586483, 0.], PointSize[0.006944444444444445],
9225 AbsoluteThickness[1.6], LineBox[CompressedData["
92261:eJxdkns0FFgcx8cYj/EahpHC1io5w3bWstFm6ez9MTkeMaLYWON1bAlRrYnd
9227HixHL3bpxWE9o2ysR4iT3El5rLxfZVLTICMZCo1HsrvH/WvvOffcc8+993d/
92283+/383lgpEcIlUKhBPw7/1v/P6TjERL9y6WIrXiv+rjeBby+b0BNQX/xORsz
9229cfQX+6X97GaUs6Mr+mN6ATnvQIUOFrw0gxJc7eYQ9RW/F91M1cgL3V9O7g8i
92303+Hn8ykZVdicHhDGFz5D7VOPZ+dFNeT9CDI3nm7rYtfjAwEPKv1zRIizZ2rX
9231gRMNpJ4YGQVONvvzMNaxe/KlPHcMRWUdEucpPST1X6PIl8Ed6uVNuGfT8J0i
9232qgStJDA8sM9j8t8kSqvcWDFIa8Gpsgm2090p9PXFvNKIilby/zQ6/9nejCL/
9233v7Fr/0LRdMgMUmjp5mUznpB+ZlGDlX9GtKADJz6VS2u9+A6p5e5J4ZzsIv29
9234RyqV1SbZV7vxWHOye2bwHPpjLVBUG9VD+p1H6TdYAzS3XgzVDMZR2wVkE2s+
9235dnVHH+n/A/qBcy7yF/V+nF9wrcNWV4ZcRxtCOqX9RM8iCh655pLVM4Dl0gwv
9236MWYW0ZDnUeeV6kGibwmxcu5aUbKGMO9sodOrlmXka2WchROeEr0raMCuvMsj
9237/BlujDCjV+V+RGcbjyx1eA8T/avIpzVqmxNHiA39Klt+PfUJnWZO7BPtfE78
9238WENXXbfElZiM4Ac3DcCMTYENjiYPm/RfEH8oEB57J9SR+RJLDXhGV1hyYFjc
9239KitREBG/5GBOnJGZmCDChlcK5FblqJBC90KPqK+If1RI0tcSxiS8wi6qE6IQ
9240KRVaNLuNKxXExE95+J1a1pp4Xox/jjfFncPyMB2eyFNkjBJ/aRDGtbjieG0U
9241/7kUnmPdQoPNfgXswM1jxG8FgPtSgyMlY1h4rOJ0bpUCbLMvruNbjxP/FUEC
9242tTXFzeNYRTLvR89VBKclhhfT+zXJQwmO6CSfG5h6jXf777KNvqQE1+W5y4z4
9243CZKPMjR5xfLFmyT48GCcgZCvDH69ai8iayQkL2Wo4fseHvGcxBmujSsQQoeF
9244z5ykHh8mSX50CC111l3JfINbH1GFd7gqYE23uiUPUyRPFUjskz7Nlk5hmQ2n
9245nmWnClsl/kWfst+SfFVhSGhv58+dxiZV5zNOm6rBkGVN9KqylOStBqs9FXYG
9246j6X4gGkHf0JXHYrZ7n60pBmSvzocrYuMo26fxUl5mt7u8hrQvjBqWX9xlvCg
9247AS4JsjTv+VlcredpXTejAWP2ZiFavHeEDwb4pqzlG3a9w+Op13WNnjPgYNsh
92484/vfvSe8aIIz1fmUxb33+ELCdKxDsCao9OFnHRZzhB9NSC3oPThWMYeN9qS+
9249OTWsCYtbGd8O7pwnPGkB0+K3MkbjPK5bNv++zF0LhNtdalX2LRC+tECh+cdS
92507ugC5tb0tombtWC3QZhl/JkPhDcmtFoOT7hvleHJqBPfbLBlwt7rYWuXu2SE
9251Pybkm/RomiUu4nM7dG87VzHByDPoJHJYIjwywenM3rYtWstYb7JW7yxbG2xv
9252Tbhx3ywTPrUh+SeOT1nvCi4v9Em+m6MNAQvtzjFPPhJetUHoZtMeMbyKHXkr
9253MglLB06kiztplDXCrw50xxv7tW2hCF7qZ4caXtKB1EH7Op9eimCdZx1Q1avd
9254FXxDThAzZDfEpbJgo/i4+ngMVbDONwvOvO2idcbICxjpIk4SnwWpfdGmZvk0
9255wTrvLAhy9AqyUVQUFO+Lr6mXskDttmJc1n0lgXfjgD5dXReo3scK20aUBf8A
92568+YB+g==
9257 "]]},
9258 {RGBColor[0.915, 0.3325, 0.2125], PointSize[0.006944444444444445],
9259 AbsoluteThickness[1.6], LineBox[CompressedData["
92601:eJxdkns0FFgcx8cM5VGeM9YJRzjZKFsdoVhs9xe1HkWsqC1SsyWlISevjtKW
92619SpFtjyKrYm8Ot5WW9yJZaZNSjKemfEcxIwYj4Rtj/vX3nPuued37r2/x/f7
92620fc7d4BJpVAovl/3f+f/18RgoEj7ehFSCGelhvok4JX4ORp6dSPPwzcDB292
9263n2g1bkCnxCVL7nFsct+E/OUDBbzjBbhiv33QtrAWFDwYVrGoV0Let6GoDYse
9264m5PK8VaFYwFhXR0oOqndPG+5ivzvQadYkduLgv7CnsdqSn2yBCjwpVVV0GAN
9265ydeHDFtzj9015WC67astNLcBxH+xJS555AXJP4SKa13pf+fU47frOgtzqCLk
9266favTfB+zgdQbQdXu6+85b+DipNlhY8fyMXRTYHGld4hH6o8jy84npUb5/2CX
9267VmnOOFOMqk7z76NzTaQfCTr78s5JD4tmfK1dJpmbMIm4zqEzNZfekP4+oeGs
9268lAkW8y0eaIh1TT8xhYRnAvrcnFtIv9NoB69DJWT7OwwVKipnbKSoPcLUfFS3
9269lfQ/gxLrbqQ3yr/HDx7+3mSjOYssJFPa66XvyTxzyHayxEy+vw3LJOsmqojn
9270kOh8lVxqC5/MN4/a/a4EdNe1Y9/LbEdh42f0vaWQIq3sIPMuoL17UrbNFHTi
92712sBNCmXZX5C+ac+euQddZP5F5JS68SI9sxvrHiltvBq+hE6b8+SYd3qIHsuI
9272eZ5mKpf6Adc80oFNxhR4eCLkqFpqL9GHAtKNy1nvnAR4QsfX4DZDBqgXivuD
9273XwuIXjJQy/LIu3BAiHVvP5RZlKGCZ6u7UMwXEv2oMKbx3klytA87Kw0LmBNU
9274ONfwU2z8cB/RkwbW2WyjlqB+fPGKCX7dSYNdPL/qrsV+oq8s3Pp5x+izhAFc
9275MH82y7JRFr5LG09K1B4kesvBjyPZDX5Fg7iLVRKVXSYHBjHeit67hoj+q8Dr
9276oJ1HPH8IK4qmjyhkrwKa5KWVBmuY+LEa3l12ZqgribCVzw6b4MSvcYKFYe5j
9277EfFHHuIv5VVN7x3B/m2ROl1h8qCc+sZf7+MI8Use0scrHfclj+I0l9oFYCoA
9278lHnqF1iPEf8UoLOmrshPNIa59dSuQjdFGF8fPs2++5H4qQgSraXkR87jeNba
92794SnDVgmMPVz0MmUniL9KMFicn1KPJ/C3ZXFpUSZrYPljH9cnWkz8XgPR5x9T
9280DhlKsKdJU9iw5lrYxn9WFxMrIf6vhYioNyU+EgmO+UPVy5WmDGPi7ZrqhycJ
9281D8owbfU0spk7iSu0PCyrxcoQyV+yfL3zE+FDBVzcWGsdn3zCg0l3NA26VYCW
9282/5voqtEU4UUVcnb3P298MIXjfx2PsD+hCoU8+5vHDacJP6owf21/bunjaWxg
9283lzQa3qkKbK4+dZ2ZlPCkBpkUM7pSnRRXf9566ImrGqTrl3+Q854hfKlB8/Nf
9284ojKkM9itsoXX16AGjQ7mLkFps4Q3dWg+q8HZbT+HR4JCdn5jow5OQ212kvk5
9285wp866EfkmgX9OY+jTTXznMrUIYaiyxVHfyY8qgNtc4iQe3ABa41UaV021oBm
9286gZtOhvUXwqcGVEiuU7y2LOJitndseZYG+PRu0jtsvkR41YCBayZlca7LeK/v
9287wqyIQQdz7RvH7RCFs8IvHbREoXqDoxROr/a9k7qJdGjIjb1v9EiGs8IzHTJ+
9288yOzuC6FyQvm2fDcqA8I74KqHD42zwjcDhIXO/vUBshyVFIFDTBgD4vYIop6x
92895TgrvDNgammm0mrdak4pxcE+f5wBVC8Wm9cjz/kXqp0MuA==
9290 "]]}}, {}},
9291 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
9292 Axes->{True, True},
9293 AxesLabel->{
9294 FormBox["\"t\"", TraditionalForm],
9295 FormBox["\"v\"", TraditionalForm]},
9296 AxesOrigin->{0, 0},
9297 DisplayFunction->Identity,
9298 Epilog->{
9299 Directive[{
9300 Thickness[Large],
9301 RGBColor[1, 0, 0]}],
9302 LineBox[{{8.580606288331144*^14, 0}, {8.580606288331144*^14, -200000}}]},
9303 Frame->{{False, False}, {False, False}},
9304 FrameLabel->{{None, None}, {None, None}},
9305 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
9306 GridLines->{None, None},
9307 GridLinesStyle->Directive[
9308 GrayLevel[0.5, 0.4]],
9309 ImageSize->{746., Automatic},
9310 Method->{},
9311 PlotRange->{{0, 1.6245947905906965`*^15}, {-203705.20529240376`, 0}},
9312 PlotRangeClipping->True,
9313 PlotRangePadding->{{
9314 Scaled[0.02],
9315 Scaled[0.02]}, {
9316 Scaled[0.05],
9317 Scaled[0.02]}},
9318 Ticks->{Automatic, Automatic}]], "Output",
9319 CellChangeTimes->{
9320 3.644766349924*^9, 3.644787027531*^9, {3.64484372721*^9,
9321 3.6448437550620003`*^9}}]
9322}, Open ]],
9323
9324Cell[CellGroupData[{
9325
9326Cell[BoxData[
9327 RowBox[{
9328 SuperscriptBox[
9329 RowBox[{"(", "35000", ")"}], "2"], "*",
9330 RowBox[{"(",
9331 RowBox[{"2.2", "*",
9332 SuperscriptBox["10",
9333 RowBox[{"-", "24"}]]}], ")"}]}]], "Input",
9334 CellChangeTimes->{{3.644768777881*^9, 3.644768847951*^9}}],
9335
9336Cell[BoxData["2.6950000000000006`*^-15"], "Output",
9337 CellChangeTimes->{3.644768848889*^9}]
9338}, Open ]],
9339
9340Cell[CellGroupData[{
9341
9342Cell[BoxData[
9343 RowBox[{
9344 RowBox[{"ListPlot", "[",
9345 RowBox[{
9346 RowBox[{"Table", "[",
9347 RowBox[{
9348 RowBox[{"Transpose", "[",
9349 RowBox[{"{",
9350 RowBox[{
9351 RowBox[{"Table", "[",
9352 RowBox[{"tphys", ",", " ",
9353 RowBox[{"{",
9354 RowBox[{
9355 "tphys", ",", " ", "tphys1", ",", "tphys2", ",", " ",
9356 "tphysstep"}], "}"}]}], "]"}], ",", " ",
9357 RowBox[{"Table", "[",
9358 RowBox[{
9359 RowBox[{
9360 RowBox[{"(",
9361 RowBox[{
9362 RowBox[{"(",
9363 RowBox[{"4", "/", "3"}], ")"}], "*", "\[Pi]", "*",
9364 SuperscriptBox[
9365 RowBox[{"(", "r0phys", ")"}], "3"], "*", "\[Rho]0phys"}],
9366 ")"}], "/",
9367 RowBox[{"(",
9368 RowBox[{
9369 FractionBox["4", "3"], "\[Pi]",
9370 SuperscriptBox[
9371 RowBox[{"(",
9372 RowBox[{"r0phys", "*",
9373 SuperscriptBox[
9374 RowBox[{"(",
9375 RowBox[{"Cos", "[",
9376 RowBox[{"\[Xi]", "/.",
9377 RowBox[{"First", "[",
9378 RowBox[{"FindRoot", "[",
9379 RowBox[{
9380 RowBox[{"\[Xi]", "+",
9381 RowBox[{
9382 FractionBox["1", "2"],
9383 RowBox[{"Sin", "[",
9384 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
9385 RowBox[{"kphys", "*", "tphys"}]}], ",", " ",
9386 RowBox[{"{",
9387 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
9388 "]"}], ")"}], "2"]}], ")"}], "3"]}], ")"}]}], ",",
9389 RowBox[{"{",
9390 RowBox[{
9391 "tphys", ",", " ", "tphys1", ",", " ", "tphys2", ",", " ",
9392 "tphysstep"}], "}"}]}], "]"}]}], "}"}], "]"}], ",",
9393 RowBox[{"{",
9394 RowBox[{"r0phys", ",", "rphys1", ",", "rphys2", ",", "rphysstep"}],
9395 "}"}]}], "]"}], ",", " ",
9396 RowBox[{"AxesLabel", " ", "\[Rule]", " ",
9397 RowBox[{"{",
9398 RowBox[{"\"\<t\>\"", ",", " ", "\"\<\[Rho]\>\""}], "}"}]}], " ", ",",
9399 " ",
9400 RowBox[{"Epilog", "\[Rule]",
9401 RowBox[{"{",
9402 RowBox[{
9403 RowBox[{"Directive", "[",
9404 RowBox[{"{",
9405 RowBox[{"Thick", ",", " ", "Red"}], "}"}], "]"}], ",", " ",
9406 RowBox[{"Line", "[",
9407 RowBox[{"{",
9408 RowBox[{
9409 RowBox[{"{",
9410 RowBox[{
9411 RowBox[{"8.580606288331144", "*",
9412 SuperscriptBox["10", "14"]}], ",", " ", "0"}], "}"}], ",",
9413 RowBox[{"{",
9414 RowBox[{
9415 RowBox[{"8.580606288331144", "*",
9416 SuperscriptBox["10", "14"]}], ",", " ",
9417 RowBox[{"3.5", "*",
9418 SuperscriptBox["10",
9419 RowBox[{"-", "23"}]]}]}], "}"}]}], "}"}], "]"}]}], "}"}]}]}],
9420 "]"}], " "}]], "Input",
9421 CellChangeTimes->{{3.644768449023*^9, 3.644768605624*^9}, {3.644768638443*^9,
9422 3.644768702252*^9}, {3.6448437905299997`*^9, 3.644843814422*^9}}],
9423
9424Cell[BoxData[
9425 GraphicsBox[{{}, {{},
9426 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004583333333333334],
9427 AbsoluteThickness[1.6], PointBox[CompressedData["
94281:eJw1kwdQ01ccx/NPAiFhhCQkILME2aKCFsQH0Xs/xYVMGVqRIREVBQdWhlKk
9429iqDIUJA6OGSU0qqtyihgBasybEVZCjIOZAhIAReyDLa9e3l379797q3f7/v9
9430/AyDwj2kdBqNJv1v/r/KR7Siy+pyExoaHwwb1jl3E5/InOyPMZXH97CBaJtx
9431nTkNHVrkOd5qXoudLHSUrljJ9xtwo6uqZMaGhkpd1x60jmzGSVdHzQbs5edf
94324CyTu107MA0tZQeGRna+xJTXgHi/s/x+N96ZzYoV+NKQd2DVHf+cXtyfnLHY
9433Ryp/rw8b7LJcIYmgIQ3JkyUM9wG8y7Al5NlJ+fuvsQ3ifsPPoqEm7Y4bhfRh
9434fOt432nudfl/I/hmW8Paxvs0lDo1ZL6xZBSLQrradrTL/x/Ds+LGo7XvaGhz
943562ThmHQC7xScChKoUiSft/jCX/mDHhYUOtVOna8/+w67DVWFXdhAkfze45et
9436s1cG9lJooDbR7XLwB8xpDnLxSaFIvh/xpTR+layYQlDK5e5znMQ4NSBttJMi
9437+X/C3ndXvv1akY7y8i82OIqm8G36WNEHGzqpZxr3hKSBYxAdUef1krkT0zhW
9438ttvUKoNO6pvB6bz4ez31dBQQV7DxVd0sxmOvsg7TGKTeOTyuUXmVjRioOsyS
9439XXztM15soGhbE8kg9ctwubN2wpMKBtLzu1N3MmoeS7xLctfPM4geX3BTzfJG
9440qRMTVf2oC5bmNKjWqmr2PM8k+tBgzpu3zKmPicZ1A8QZQgqOSPWvRNgqEL0o
94416G8JtNVJVUB6GfmUjKKDk7Gnfsw/CkQ/OuzO827pcFFEzspDvdJxOmSPdD9M
9442KFMkejKAvaSgv8mIhY7FW9x/2sGAPZ6rvURZLKIvE1S7cs3K1JXQ9Zn9OXZ1
9443TNhuHGWtm65E9FYAX3vOzB9abNR54HbstWIF+CEr7plmEZvorwgs2TmqfBUH
9444cYY/+rGvKcIhzqSdbS+H+MGCOfs81sozymil/wrHQ8ksMIuyrIyRqBB/lODm
9445KNO3VqaC9ryI0e2MVAK79tgvM/WqxC8liDtan6mWq4Yuba6eAykbyjc/fyU6
9446zSX+saHvuj5fLFFH9Y/onTfcOfA5ONNw8r468ZMDPrYWng+ceWgKOVUKJcoQ
9447EJH+3q+PR/z9Lx4MWlEWz0emxUmXYi1UICnziW3bYgHxWwUeKd86PjEkQN4W
9448DZFDIlUY9srN9vpNg/ivCu36C+6mJAhRQq66rxtDDYwePg/3DhcRHtRgTKFh
9449fVGoJirV2mJXMaEG/SPha/4+rkX44EJat6DJv2gBGkzNEom7uNAeG/32wLg2
94504UUdoj8xfJI8ddGZ78ei1wargxavNaehU4/wow6y5z1svWQDJF6V+iaqQx16
9451Oxf66JV+RXjiQZPByddxVYaoYnbptl/deLBr/rD/ltdiwhcPNiq1VZy1Xojc
9452y5of99Xy4LvlD8wWFRoT3vhgM81MubjJFI0cjLDXdOSDo8efHW8szAl/fDBq
9453D9ub4mqJTliJft5UzIeML8h2oM6K8MiHdlydZ+K5FGmN/K4VZy6AftOkvg2U
9454DeFTAN86DIXOyZahWwVbE0tyBBC9d8MCzR22hFcBvFeRNs062qP1AXNTw0IN
9455mLbeCso1DoRfDWhgsc4WZa5GPTrZIXrJGvDUXLzdPxAIzxrgtfwzlc5Yh462
9456Sdrc6UJwfnwHHezeRPgWwsuOxMIj69wR90KvU0KkEPb5Rwx6aXoT3oXgkSho
9457iNnph35yiS+rHBdCCfvYM+38YMK/CMILtobO+4QjCWehyUSwCJi+6bqXR6NJ
9458P4jAVevEVdPeZPSipibTqFMEDnOhSxTW/EL6QxMOHNnXoiwzdfgXA0uttQ==
9459
9460 "]]},
9461 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.004583333333333334],
9462 AbsoluteThickness[1.6], PointBox[CompressedData["
94631:eJw1kws01Fkcx+c/4zHjNWbGDHm1ppCRRK3SzWPvL1JJNHnUrjzWrKJI6XjF
9464ykoqEZEtOfJYa7d2K2JRqa31aDfJo1jDyTNkPXqo0LC759y559xzzz333t/j
9465+/1co8DwnRI6jUaT/Df/X+UjVsnNsdqEhiaHw0b1zv6Cj+fMDMaZyvd3sZFg
9466j3GjGQ0dXime7DBrwC4iPWaehfy8GbfuULeftaahyh1OEVbRbfjk5fEVQ7by
9467+8/x9ya3e/ZiGlrNCgiNlv6NGZ5DwoOu8ve9WJKvnMDzoSGvgLpyv4I+PJyW
9468vcpbIo83gI2+MV9vH0lDWvaPLRkeQ3ifUXtwS7I8/ku8BrG/5ObSUKtu97VS
9469+ii+GT9wkn1Vnm8MX+9sdnp6n4YyPoyYbb01jnWCezr3dsnzT+A54dOohtc0
9470tL1jpnRCMoUlvBOBPHWK1DONc/4sHt4potCJLiqr6cxrLB6pCzu/hSL1vcHS
9471jrm8oRAKDTWkul8KeouZbYFu3ukUqfcdzjvHrZNVUAgq2ewDdjP4iwz/c+NS
9472itT/Hvvc3jD9uRIdFRVfaLYTfMDl9Imyt9Z00s9H3Bt8DuwC6YjKMkhjT33E
947338r2mVpk00l/szibk3T3RRMd+SeWbO1vnMN4oj/3CI1B+p3Hb7VqL7MQA90L
9474M2dVXPmELZcq2dRHM0j/MlztqpvyuIaBDHzLG5NjFrCD161ClwUG0WMRt9ev
9475fSpxVkB1P+iDuRkNHujUtYmzFIg+NJj34qxxHlBAk/r+wmw+BdESw7xIG0Wi
9476FwXD7QE2ehmKyCC7mJJRdHAyFhvG/aNI9KNDSJFXe7ebEnJVHemTTNIhf6z3
9477YUqVEtGTAaqWJYOty5TRsSTR/SfdDNgvdvQU5CoTfRVAvadwRZUmE12dPViw
9478rlEBfI1jrPQzmURvRdhjqzJ7R4eFpIduJlypUIRLuYkt2mUsor8SsGRnqWoH
9479FaQy+s6XdUUJjqrMrLPpUyF+KMO8bZHyhtOqaIPfervDacogijGvjbNXI/4w
9480oXxcwadBpob2P4/Tl0Yzwa4rYXG2SZ34xYTkqKYcjUINdHH7vXmQsODO9mf9
9481gpNs4h8Lhq4acoX2mqjpD7r0mocKyIJyjGbuaxI/VcDTRiR+4MpBH5BzLd9e
9482FfwjM9/4DnCIv6oQOBy4viqJi0wrTl1MEKnB6ZzHNp2reMRvNWhQvRE/NcJD
9483XqLm6BGBOox5FuZ7Xtci/qtDt+GS2+kpfJRSqOnjztAAk4fPwr3CBYQHDZhW
9484bHYpC9VGlTq71tVMaUD/WPimv+J1CB9syOrltfqVLUHDGbkCYQ8behJipw9N
94856hJeNCHhPcP7lFgfnf5uItYpSBN0OR0FzVIDwo8mLD57wTJIW4qEDhmvYro1
9486YVC63Nug8jPCEwc6lia/TKwzQjVzq/f86s6B/QtH/Ha9FBK+OODK7Kw5Y7Uc
9487eVS1PRpo4EDS2gcrVpYaE964YP1RIf3CNlM0FhFpq23HBYedv3e/EpkR/rhg
94880hUWkr7DHB23EPy0rYILuYvIZqjRgvDIhS58r8hEvBrpjP2mk2jGg0HTUwNb
9489KGvCJw+iNo6EzsvWoBslu1NvFfAgPmTLEu29NoRXHrxTk7TO2dkiF//5D6N8
9490LZBZ7QbV+o2EXy1oUVY+U5bjiF7o5QcbpGnBEzPhV34BQHjWAq+1n6hMxmYU
94911Wnf6UHng9ujchTRu43wzYfu7tTSo5s9EPt8n3NKNB8O+UUOe2p7Ed754JPK
9492a4772hf96JZUVTvJh2rWsRbd4iDCvwCOlOwOXfAOR/Yqy02mggTA9MnUvzQe
9493S/6DANx1jl827UtDz+vrc5ZJBeA4H2qpuOln8j+0IeLogXZVmenGfwHXyq5n
9494
9495 "]]},
9496 {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.004583333333333334],
9497 AbsoluteThickness[1.6], PointBox[CompressedData["
94981:eJw1kws0FFgYx+fBjDGYlxnyqDWFhiQ9pnQj534llQgZtCuPzNooemiROLIl
9499lUiRLbXyWGu3djfERqXXerSbyiNk2ITxyKKXhEbbnnPnnnPPPd+5r+/7/3+f
9500WXCkp5xGoVDkn+f/q3rEMdycrltQ0KgyYtD45K84KWu8N85SHd/CZqKt5nUS
9501Ctq7wGu0RVKLXayMtXJs1PsNuNFd13FyMQWVu6/dYxfThFMuDM/vs1efb8Xf
9502W9zo3IYpaBErKDxG8QzTvfvEu1zV97tw6EVmgsCXgmRB1aUBud1YmZq50Eeu
9503fq8Hm31tvcIxioL0HR/a0j368A6z5tDHh9Xv9+NliPMlP5uCGo06rhTRBnFJ
9504fM9RzmX1f0O4pK1h7ZM7FJQ+MSDZcG0YG4R2tm1rV/8/gqfET6JrX1PQppbx
9505ohH5GJYLjgQLdKkkn1f47F8FSk8rKjrSTj1df+I19hyojjiznkrye4MVLVM5
9506fWFU1Febsvl8yFvMagp280mjknzf4fOn+NWqMiqCcg5np8M4xumBp4YVVJL/
9507e+x7Y+WrZQwayi842+AgmsCltJHit4tppJ4P+J/QU+AQTEPU06apnLEPOEH1
9508jaVNJo3UN4mzeEm3ntfTUGBi4YYXdVMYj7zI3kehk3qn8Rv9qgssREe3I6xZ
9509ZZc+Yts5DGlNDJ3Ur8KVrkbJDyvpyNS/tO5w7AxeLbuW5zJDJ3p8ws01S5/I
9510nTVQ9Y8mYC2hwF3D6iav0xpEHwrMyHhLnHs00KhJoDhTSIVo+eycKKkm0YsK
9511/c1BUuN0TWSaWUBVUWmwztxrdty/mkQ/GoTly5o73BjIlT3QLR+lwQ9DXfeT
9512KxhETzro2Bb2Ns5looNJVnceddAh3MvJW5TNJPpqgG5n3vwKrha6PLkrd3md
9513Bvibx9qZZGgRvTXBz1578qYhCyl2lyRcKtOEc9mJjw2KWUR/BrBVJ6nXV2sj
95147cF3/qxLDPhWe3y5tFub+MGEKft85srjbLQyYIXD3lQmSGKtq+IcdYg/WlAy
9515rOFbq9JBO1rjTBQxWuDQnvBpsl6X+KUFR6Lrs/Ty9NC5TbenQc6Cm5uevhAd
95165RD/WNB7eTZf7MhF9X/SFFc8tEEVkmU2fodL/NQGmdTK654rD00g5yqhIxu2
9517R2W88e/hEX/ZEKIMXlGRxEeWZcfOJVjpwMmsh9K2hQLitw7Usa/Gjw0IkMyq
9518IWZApAtD3nkXvX/XJ/7rQsfsWTfSkoUoOY/ru5muB5b3n0bKIkWEBz0Y0Wxw
9519KQ43QOWGW5ZXjumBcihyzd/xhoQPDpzpEjQGFM9CyvRskbiTAx0JB17tHjUi
9520vHAh/j3d55iXCTr+3ciBtSFcMOS15DYoTAk/XKC1PmeZps5B4tXpL2M7uKBU
9521zPMxLf+C8MSDpjmH+xOrzVDl1KKtv23mQejMvoAt/WLCFw9ctdoqT9jNQx4V
9522TQ96anmQtPTe/AVF5oQ3Piz5oJF2dqMlGtoTZW/gwAfsebfjpZWE8McHi/aI
9523sDR3a3TIRvTzxjI+5HxC0r46G8IjH57h2/kWXouQ4dAfhokSAfRaHutZT11M
9524+BTA/lUD4dOqJehqoV/KtVwBxIWtn2WwTUp4FcB7HXnjlIM9cgmcnhgU6sOM
9525nR+wa1YRfvXhEZN5ojjLCT03vhhqmvo5loi/CggCwrM+yJZ+pGbQ16HoNsc2
9526D5oQ3B+Uoj1dGwnfQnjWkVK0f50H4pzpdk6OEUJkQJTS20BGeBeCd4qgIW67
9527P/rJLamialQIFayDj40KQgj/Ithd6Bc+4xOJHLXnWYyFiIDhm2FyfvgA6QcR
9528bDE8dMGyOxW11tRkzVWIwGk63FZzzS+kPwwgcv/OZrbKctV/hbKtgA==
9529 "]]},
9530 {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.004583333333333334],
9531 AbsoluteThickness[1.6], PointBox[CompressedData["
95321:eJw1kws0FFgYx+eBMV7zMkNerclbktKUbibdr/QSCUO18lizipDS8cyRSioR
9533kVU58lhrt3a3iI1Kba1Hu8mzyLBJnln0ktBod8+5c8+555577r3f4///XePA
9534iB1SGoVCkf43/18VI07F1emWGQVNDIaP6J/9GSfnTL2KN1fs72KhYJdpgyUF
9535HVzsMdFhWY83WumrXrJRnDfhFjdN8cwyCqp02xBpF9OGUy6PWQw4KO4/wxfN
9536bvfswRS0lBkQGiN7jpW8BoRhLor3vViaz0jk+VCQJKC23K+gDw+mZS/xliri
95379WPjb61XiaMoSFv82JbuPoCDjduDm48r4g9he8Tazc2loFa97multBF840j/
9538SdZVRb5RfL2zaUPLfQrKmB623HJzDAuCezr3dCnyj+NZYUt0/VsK2tYxVTou
9539ncRBvBOBPE0qqecNzvmzeHCHFRWd6KJmNZ55iz2Ha8PPb6aS+t7hro7ZSwMh
9540VDRQn7r9YtB7rNoW6OqdTiX1fsB557i18goqgkoWa7/jFF6X4X9uTEYl9X/E
9541PrdXv1mhQkNFxReaHAXTuJw2XvZ+GY308wn/HXwOHANpiJplmMaa/IQT5XvN
9542bbJppL8ZnMlJvvuikYb8k0q2vGyYxXj8Ze4hCp30O4ffaddcZiI6uhduzay4
95438hnbLlQR1cXQSf9yfMtFL+VxNR0Z+pY3HI+dx2LJzcJN83SixxfcXmffInVW
9544QrXfG4C1JQUe6Na2eWQpEX0oMCfhLHfuV0ITBv7CbD4VoqVGl6JEykQvKgy1
9545B4j0M5SRYXYxVU6lgbOph1H8P8pEPxqEFEnau11VkIv6cJ90ggb5o70PU6pU
9546iJ50ULctedW6iIESkq3uP+mmwz4PJy9BLoPoqwSaPYUWVWxVdHUmrGBlgxLs
9547No21M8hUJXorg4+D2swdXSaSHbiReKVCGb7LTWrWKWMS/VWAKT9LvbVWDamN
9548fPBlXlGBQ2pTK0V9asQPBsw5FDFWn1ZHq/1WOR5MY4BFrHVNvFiD+KMKN8aU
9549fOrlGmjfs3gDWYwqoK7ELzONmsQvVTgW3ZijVaiF8rbdmwMpE+5se/pScJJF
9550/GPCwFUjrlDMRo1/0GTX3NVAHpRjPHWfTfxUA4nIyuOBCwdNI+cavlgd/KMy
95513/n2c4i/6hAwGLiqKpmLzCtO5SVaaUBazmNR5xIe8VsDGtSvH5kc5iGJVVPM
9552sEAThr0K871+1Sb+a0K30YLb6Sl8lFLI9tlO1wKTh08jJBECwoMWTCg3bSoL
95531UGVup4rqye1YHA0Yv1fR3QJHyzI6uW1+pUtQIMZuQJhDwueJ8a9OTChR3hh
9554Q8JHuvcpDwN0+th43IYgNuhyOgqaZIaEHzbIn75gGqYtRMK1Ga9ju9kwKDPx
9555Nqz8ivDEgbaFx4eSao1R9ezSXb9s58De+UN+nkNCwhcHtqh2Vp+xM0HuVW2P
9556+us5kGz/wGJxqSnhjQsrPimlX9hqjkYjoxx0HLmwbsfv3a+tLAl/XDDrCg9J
9557d7NGR20EP26t4ELeFyQaaLAhPHKhC98rMvNYinRHf9NNsuRBv/mp/s3UZYRP
9558HkSvGQ6dky9H10t2pt4s4EFCyOYFOntEhFcevNeQts46OqBN/nPTI3xtmLXb
9559Cep1awi/2vCEwThTluOEXujnBxumaUOzpfBrvwAgPGuDxP4zNZO+EUV3ijvd
9560aXxwfVSOInu3Er750N2dWnp4oztine9zTonhQ5hf1KCXjoTwzgfPVF5T/De+
95616AfX5KqaCT5UMROa9YqDCP8CiCzZGTrvHYHEaiZmk0ECUPHJNLg4Fkf+gwDc
9562dI9eNu9LQ8/q6nIWyQTgNBdqq7z+J/I/dCDs8P52dbn5mn8BcbquNQ==
9563 "]]},
9564 {RGBColor[0.528488, 0.470624, 0.701351], PointSize[0.004583333333333334],
9565 AbsoluteThickness[1.6], PointBox[CompressedData["
95661:eJw1kwk01Vkcx9//PTzvWd7mPbIkhJCKGqWbp3N/pRRK8tCMLHmpiBaNrYxM
9567SSUSMm1HljFmamZMlqJJq6UZxhqynPTsCW0SepqZc+6759xzzz333t/y/X6u
9568UWD4NimdRqNJ/5v/r4oRreK29o4ZDY0PhA3rnfsVf5c52Rdrrtjfw4aiHaY1
9569FjR0aLHHeKtFNXay1FO9Yq04r8dNWzTE07Y0VLpl/UGbqGaceHV0Ub+94n4b
9570zjK7270T09AyVkBIVNdzTHn2G+93UbzvwbuuMeME3jQkCai85Zfdi2XJGUu8
9571pIp4Mrxgt9UqcQQNaYnrljLc+/Eeo5bghhOK+IN4OeJ8zc+ioSbdzpsF9GFc
9572dEx2inNDkW8E32yvX9/4gIZSp4YsNpWMYlFwd/vODkX+MTxt3BhZ/ZaGXFsn
9573C8akE3iX4GSgQIMi9bzB6X/lDWyzpNDJDupC7dm32H2oMizdmSL1vcNtrTNX
9574+vdRqL86aevloPeY2Rzo5pVCkXo/4B/O8yvlxRSCUg4n1GES41T/86NdFKn/
9575I5bcXf3mKxU6ys27WO8gmsJF9LHC97Z00s8n3BN8HhwC6Yi6YJDMmfiEj8r3
9576mFtn0El/0ziNl3DvRS0d+cfnb3pZM4Px2MuswzQG6XcWv9WquMpCDHQ/zIpV
9577fP0zXmKoYlcVxSD9y/FtF93EunIGMvC9VXMieg47SkpyNs4xiB5fcEPVikap
9578kxKq/FEfrCxo8FCnstnjghLRhwazEt5yJ5kSGtf3N84QUhApnX8lwk6Z6EVB
9579X0uAnV6qMjLIyKPkFB2cTD3mx75WJvrRYW+upKXTTQW5qA31SsfpcHmk53Fi
9580mQrRkwGqS/P7mkyY6GiC5YN/Ohmw22OtpyiLSfRVAnZ3zqIyriq6Mb0/e2WN
9581EviYRtvop6kSvZVBYs+e/lOHhboO/BF3vVgZLmXFN2gXsoj+KsCUn6PuOLIR
9582e/iDL+u6ChxmT66062UTP5gwbZ/LXH1GDa32W+VwKJkJptFWFbFideKPKhSN
9583KnlXy9XR3rZY/a4oVUAdcV+mazWIX6rwXWRtpmaOJrrken8WpCy47frspegU
9584h/jHAtmN+XxjMRfVPqF33XRngzwo02jyAZf4yQaJnaXHIxcemkJOFUKxGvhF
9585pL3zlfGIv2oQOBC4qiyBj8yLT1+Ks1SHM5l1du1LBMRvdXiiVnRsYkiAJJb1
9586UUMiDRj0zLnm+bsW8V8D2ufPu5uSKESJOVzvrQxNMHn8LFwSLiI8aMJr5fqN
9587hSHaqFRn+8ryCU2QjYSv+/uYDuGDA+d6BE1+hfPQQGqWyLibA8/jYt4cGNcl
9588vHAh5iPD67SHPjrz/VjM+iAuaPNas+u7DAg/XJh99oJlkGyIjB1TX0V3cqGv
9589a6GXQekCwhMPGg1PDMZXGqHymWU7ftvKg+C5w37bB40JXzxwVm0vP2uzELmX
9590NT+VVfPg+IpHixYXmBLe+GD7SSnl4mZzNHIwwl7bgQ+O2x52vrK0IPzxwaQj
9591bF/KFit03Fr08+ZiPqR/QXb9NdaERz504Pu5Zh7LkM7IbZ14CwHIzE/LnClb
9592wqcAvl0zFDIrX46K8n2SSrIFELPPeZ72TjvCqwDeqUubZhzs0Ub/2alhoRZM
95932/iAWtUawq8W1DOZZwsz16IXeteCDZK1oM7C+Bu/ACA8a4HHis9UGmMDimwX
9594t7vTheD29BY62LOZ8C2Ejs6kgiMb3BEnvdcpMUoIoX4RA57aEsK7ELYnCepj
9595d/min9wSyirGhVDCOtqgmxdE+BdBeL5PyJxXOBKzF5pNBIlA2TtN//JoDPkP
9596InDVOX7VvDcZtVVVZZp0iUA8G7JUed0v5H9oQ+iR0BY1ufmafwGVxK2Y
9597 "]]},
9598 {RGBColor[0.772079, 0.431554, 0.102387], PointSize[0.004583333333333334],
9599 AbsoluteThickness[1.6], PointBox[CompressedData["
96001:eJw1kwlQk0cYhvMnQEg4QhISbiyRw4CoqI3iSnT2U0QFFJFLixwloqLggZVD
9601GaSKKAiCIB44yFFKq60KgoKKVsthKyKHgAGGQ04phwciYLDtzGZndnZ2dvc7
96023vdZs8CwLTI6jUaT/Tf/X5UjSs119T1LGhrtCx00OvsbPp4x8SbaSrl/iM2E
96032yyqxTR0cL77aJO4Cq+zNlK/Yqs8r8X1m7SkU4tpqGTT2gN2EQ34VNbwvF57
96045f1mfNHyfvsOTEOLWAEhEW2vMcOjV7TPWfm+A++8yozhe9OQZ0BFkV92F+5N
9605Sl/gJVPG68FmO22WS8NpSFf6fCHDrRfvMmsMrjuhjN+PlyDOdl4mDdUbym8U
96060Adx0bGeU5zrynxD+GZL7dqXj2koZXJAvOHOMDYIbm/Z0arMP4JnRC+PVL2j
9607IZemiYIR2RiW8U8G8rUoUs84vvBXXt8WawqdbKXSahLf4a0DFaHn11Okvve4
9608tWn6Su8eCvVWJWy+HPQBsxoCXb2SKVLvR5x1jlehKKYQlHA4ex0mMKT4nxtu
9609o0j9n7D3/RXj36rRUW7ehVoH4SS+TR8p/LCYTvr5jDuDz4FDIB1RaSZJnLHP
9610OFaxy8o2nU76m8Jp3LiHnTV05B+bv6G7ehrDSHfmIRqD9DuDP+iWZ7EQAz0K
9611tWEVX/uCF8xRk1RGMEj/CnzX2TD+eRkDmfgWVZ+InMVSzzs5TrMMosdX3Fi5
96129KXMUQVV/GQMNmIaVOpXNLinqRB9aDDjyV3i2KOCRo39RekCCiJlplfCJapE
9613LwreNAZIjFJUkUl6HqWg6OBk4W4a/Y8q0Y8OIbmejXJXNeSsMdAlG6VD9lDH
96140/hSNaInAzQX5r+pn8tER+OsH7+QM2C3+2oPYSaT6KsC2u0580p11NH1qX3Z
9615y6pVYLtFpJ1xqjrRWxV87NlTD/RZqG3/7ZhrxaqQlRlbp1fIIvqrAVtxlrq3
9616io3Ygx99WdfUIII9sUzSxSZ+MGHaPpe54owGWuG33OFgEhPEkTbl0VJN4o86
9617FA+reFcpNNHu5mjjtgh1QK0xX6dqtIhf6hB/pCZDO0cbXXJ5NAMyFjxwedUt
9618PMUh/rGg97opTyTVQTV/0ttuuLFBEZRhNvFYh/jJBg+JtfsTZy6aRI7lAqkG
9619+Ienvvft4RJ/NSCwL3B5aRwPWRWfvhRjrQmJGc8lLQv4xG9NqNK4dWxsgI88
9620rWsjBoRa8NYj56rHTV3ivxbITQ3uJ8cLUHyOjvdmhjaYP30V5hkmJDxow7hq
9621rVNhiB4q0d+6rGxMG/qHwtb8fUyf8MGB1A5+vV+hAepLyRSK2jkgj4ka3z9q
9622SHjRgahPDK/T7sbozI8jUWuDdMCA25Rd22ZC+NEBqrmTZZI0B4lWpbyNlOtA
9623X5u5l0nJN4QnLjTMOdEfW2GGyqYXbft9Mxd2zx7y29ovInxxwVm9pSzRzhy5
9624lTY866niQtzSJ/PmF1gQ3ngg+aySfGGjFRo6EG6v58ADvOUP+VtrMeGPB5at
9625oXuSN9mg47bCXzYW8+DiVyTprbYlPPLgNX6Ua+m+COkP3dWPFfOh2+p0z3pq
9626MeGTDz+sHAiZUSxBt/J9Eu5k8+HonvUGejskhFc+vNeU1U872CMn/5nJQYEu
9627KOx8QKNyJeFXF14wmYmFGatRp9HVYJMkXagTi77zCwDCsy54Lf1CpTLWoSMt
96280hY3ugBcnhWhAx0bCd8CkMsTCg6vc0Oc812O8RECCPUL7/PQ8yS8C8ArgV8b
9629/b0v+tk1rrR8VAAlrKN1hnlBhH8hHMr3CZn1CkNStrnlWJAQ1L1TjS8PR5H/
9630IAQ3/eNZVl1JqLmyMmNumxCkMyELVdf8Sv6HHuw/vLdRQ2G18l9RCq1x
9631 "]]},
9632 {RGBColor[0.363898, 0.618501, 0.782349], PointSize[0.004583333333333334],
9633 AbsoluteThickness[1.6], PointBox[CompressedData["
96341:eJw1kws0FFgYx+eBMTMYM2OGPGpNISQpq3Qz6X5FSUqToXblsSaV8igViSOV
9635VCIiPXTksdZubS+xUcnWerTbbF5FHps0Qtajh7watj3nzj3nnnu+c1/f9///
9636PtPAsI0yGoVCkX2d/6+qEaPh4XzXnIIGu0N7jU7/ihMyR97EWKjiB9hUuMWs
9637xpKC9syTDDZZVmNXKyPNSzaqfTluWK8tHl9IQSXrV0XYRTXg49n9cxWOqvMv
96388Hnze+1bMQUtYAaERLW9xHQvhWi3u+p+B952mRHH96EgaUDFbb+cTqxIzpjv
9639LVO914VNt1kvEUdSkJ74qS3dU4GDTRuDnx1Vvf8W2yPOd7wsCqo3bL1WSOvF
9640t2K7jnOuqv7rw9eb5avqKikodbTH0u1OPxYGtzdvbVH9P4DHRHUHqt9T0Lqm
9641kcIB2RCW8Y8F8rWpJJ9hnPlnfvdGKyo61kJNrz31Hnv2VISeXUMl+X3ALU0T
9642lxQ7qUhRnbThYtBHzGgI9PBOoZJ8P+HzZ3gVymIqghIOZ5fTCHZO9T/T30Yl
9643+X/GPveWDn+rQUN5+efkTsJRfIs2UPRxIY3UM4b/CT4DToE0RE03SeYMjeE4
96445XYLmwwaqW8cp3MTHryqpSH/+AK31zUTeMXA66y9FDqpdxJ/0CvPZiI6ehhq
9645zSy+8gXbztJwqIqik/qV+K67YeLTMjoy8b1dczR6Ci+X3sldPUUnekzjuir7
9646OpmLGqr40RisLSlQaVDRIElXI/pQYErKXeTSpYYGjf1FGQIq7JfNvBTpoE70
9647okJ3Y4CDUao6MsnIpyqpNHA1k8yM+Ved6EeDHXnSxlYPDeTO7umUDdIgu6/j
9648cWKpBtGTDizbgjf1sxnoUIJV5d+tdNgucfYSZjGIvmqg3Z47t1RXE10d352z
9649uEYNfM2i7YzTNIne6iB1ZI3fN2CitvBbcVeK1eF8Vvwz/SIm0V8D2MrT1LvL
9650WYjV+8mXeUUD9rJGFjt0sogfDBhzzGMsPclGS/2WOO1JZoBZtHV5jFiL+KMJ
9651N/rVfKqVWmjHixjjtihNQC1x0+O12sQvTThyoDZTJ1cHXVj3cBJkTLi/7vlr
96524XEO8Y8JiqszeSKxLqr9g9Z2zZMFX4IyTUcqdYmfLJA6WEkeuXPRKHIpF4jZ
96534BeZ9sG3i0v8ZUNgd+CS0gQesig+cSHOSgtOZj51aJ7PJ35rQTX7ZuxQDx9J
9654reRRPUJt6PPKvex1Q4/4rw2tM2fcS0kUoMRcXZ8NdB0wf/w8TBomJDzowLC6
9655fHVRiD4qMdi0uGxIBxR9YSv/ijUgfHAgtYNf71c0A3WnZglF7RxojTs4HD5o
9656SHjRhZjPdO8TEmN08sjAwVVBumDIbcqRt5kQfnRh+vkrpknyLCRanvouulUX
96573rTN8TYp+YbwxIXGWUffxleYorKJBVuub+BC8NRev01vRYQvLrhpNpedspuD
9658PEsbnnRVc+Gw/aO58wrNCG88WDSmlnJurQXqi4h01HfigXjj763vrCwJfzyY
96593RK6M2W9NTpsI/x5bTEPMqeRg6LGhvDIg5f4YZ65ZAEy6PvNIN6SDwqLE11r
9660qAsJn3zYv6wnZFK5CN0s2Jx0J4cPsTvXzNDf6kB45cNnLVn9hJMjWu0/Odor
96610AOl3WZgVy0j/OqBnME4VZTpjF4ZXQ42Sf4aW4q+9wsAwrMeSO2/UNPoruhA
9662s7jZkyYAtye3UUTHWsK3AF62JhXuc/VEnLOdLolRAgj3i+z20pcS3gWwKYkv
9663j/nBF/3kkVBaPiiAEuahZ4b5QYR/IUQUbA6Z8g5DYtYc86EgIaj7pBlf7D9I
9664+kEIEoPD2RadyehFVVXm7DYhrJgMsVVf+QvpD30I37erka20WPYfCVKuHA==
9665
9666 "]]},
9667 {RGBColor[1, 0.75, 0], PointSize[0.004583333333333334], AbsoluteThickness[
9668 1.6], PointBox[CompressedData["
96691:eJw1kwdQFEYUhq/BcUe5xh1IU07gBERFzSkuxexTLBRBpGikygUjChYcmjBI
9670FEGRJsjYgpQQEo0NQYGILRQTT2kCUiJVQALYEIEcJpnZ25mdnZ3dfeX/vzUO
9671Ct8qo1EoFNl/8/9VOWJUXdfeNaOg8cGwYf3Tv+LEnMn+WIlyfw8vEO0wrTOn
9672oIOLPcZbzGuxo4W+2gUr5bkcN2zRtJ9eTkFlW9YfsI5qwskXRxcN2Cjvt+Jc
9673s6ouP0xBy1iBoVGdLzHNc0C8z1n5vhvvusSMF/hQkFdg9S3/vB48kJq9xFum
9674jNeHjb+1XG0fQUHa9k+X0t0H8G7j5pDnx5TxX2NrxPmGn0tBjXodV4tpw/hm
9675XN8JzhVlvhF8rU2+vuEBBaVPDZlvvj2KRSFdbX7tyvxjeEbcEFn7joJcWiaL
9676x2QTOFhwPEigSSX1vMU5fxQObrWgouPt1Kz6U++w21B12JlNVFLfe9zaMnNh
9677YA8VDdQmu50P/oDVmoJcvdOopN6P+FwGv1pRSkVQxuHstZvEOD0gY7STSur/
9678hL2r1rz9SpWGCgrPyu1EU/gGbazkw3Ia6ecz/iskA+yCaIiaZZjKmfiM4xS7
9679JVbZNNLfNM7iJd57VU9DAQlFm3vrZvDXY725hyh00u8sfqddeZGF6Oh+mCWr
96809PI/eMl8VWlNFJ30r8B3nPWSnlbQkaHvrbpj0XPYzut2/sY5OtHjC26sWdkg
9681c2Sg6h8NwNKcAg91q5s8shhEHwrMePFWOPYx0LhBgDhbSIVomdGFCKkK0YsK
9682/c2BUv10FWSYXUhVUGngaOphFPu3CtGPBqEFXs0drqrIWX2oRzZOgx9Guh8n
9683lasSPenAXlrU37iQiY4kWjx41kGHEI+1nqJcJtGXARpd+YvKuWroyvS+vFV1
9684DNhpGm1tkKlG9FYBbxv29G+6LNS5/2b85VIVOJub8FynhEX0VwWm4jT1rgMb
9685sYc/+rIuq8JB9uQqaQ+b+MGEGZsC5pqT6miN/2q7g6lMkERbVsbaaxB/1OD6
9686KMOnVqGBvmuNNeiMUgPb9vgv0/WaxC81SIysz9HK10LnXO7PgowFVS4vekUn
9687OMQ/FvRdMeKL7bmo/nda51V3NiiCc4wnH3CJn2zwklp4PHLmoSnkWCm0Vwe/
9688iMz3vn084q86BA0GrS5P5CNJacq5eAsNSMl5Km1bIiB+a0CN+o24iSEB8rKQ
9689Rw2JNGHYM/+S53Vt4r8mvDSaV5WWJERJ+VwfN7oWmDx+Ee4VLiI8aMG4inxj
9690SagOKtPdtqpiQgt6R8LX/RmnS/jgQEa3oNG/ZB4aTM8Vibs40BYf83b/uB7h
9691hQsxn+jeKR4G6OT3YzHrg7mgz2vJk3caEn64MPfiFcswdT4SO6S/ie7gQn+n
9692ibdh2QLCEw8a5x97nVBtjCpmlu245saDkLlD/tteiwlfPNis1lZxytoEuZc3
9693Pemr5UHiykeLFhebEt74YP2ZkXbWSYJGDkTY6NjxwWHrw443FuaEPz6I28P2
9694pG2xREetRD87lfIh5wuSDtRZER750IrvF5h5LEO6I3d0E8wF0CtJ6dtEXU74
9695FECk7VDorGIFulG0Pfl2ngCO7Nk0T8dPSngVwHsNWeOMnQ3aGDA7NSzUhlnr
96967aBeY0v41QY5k3mqJGcteqV/KcQwVRuemYt3+gcC4Vkbtq38h5pJ34Ai2+zb
96973GlCcHpyCx3odiJ8C6GtI7n48AZ3xDnT45gUJYRw/4hBTx0vwrsQPJMF8thd
9698vugn18TyynEhlLOOPNcrDCb8iyC8aHvonHc4smebmE0Ei4Dhk2lwfjSG/AcR
9699uOgevSjpSUWtNTU5CztF4DAbulRl3S/kf+hA+OG9zeoKie2/aput2w==
9700 "]]},
9701 {RGBColor[0.647624, 0.37816, 0.614037], PointSize[0.004583333333333334],
9702 AbsoluteThickness[1.6], PointBox[CompressedData["
97031:eJw1kwk01Vkcx9//Pduzvc17XtaheCFJGsUNzf2VNpGetUaW8UZRqDS2ycGU
9704VCKyVHJkGWOmZlJioknbWJrJyBKyTNaQQZtkeZqZc+6759xzzz333t/y/X6u
9705QUDYLgmdRqNJ/pv/r7IRo+C84bYxDU0Oh45qn/0ZJ2RND8aKZPu7WF+w26je
9706hIYOrxBPtpnU4c2m2kq55rLzRtzsomY/u5qGKlw2HbKMasEnL48vH7KR3W/H
97072cZ3evZiGlrF9A+J6n6OKfchw4NOsve9ODBPMY7nRUMe/jU3ffP78GBK5kpP
9708iSzeANb/2mydfQQNadg/sWC4DuEgg9agpuOy+C+xFWLt4ebQULNW17US+ii+
9709cWzgJOuqLN8YLuto3PT0Pg2lzYyYbLs1joVBPR17O2X5J/Cc4dPIujc0tKNt
9710umRCMoUDeScCeGoUqec1zv6jaHiXKYVOdFIZDWfeYNeRmtDzWylS31vc2TaX
9711OxRMoaG65J2XAt9hpZYAZ89UitT7Huee49ZIyykEFSzWAbtp/EWa37nxborU
9712/wF73rF9/bkCHRUWZTfaCWZwGX2i9N1qOunnI/476BzYBdARlaGbwpr6iOOk
9713+0TmmXTS3yzO4CTefdFAR37xxdv66+cwTPTnHKExSL/z+J1G9WUmYqB7oWbM
97148isL2EJfwbo2ikH6l+IqJ62kJ1UMpOtzs/549CK287hVsGWRQfT4hFtq1zyV
9715OMqhmu91wMyEBg+ENS3iDDmiDw3mPThWjgNyaFLHzzCTT0GURC83wlqe6EXB
9716UKu/tXaaPNLNLKKkFB0cjcR6sf/IE/3oEFzo0drlrICcVEb6JJN0yBvrfZRU
9717qUD0ZICKRfFg81JF9G2i6f2/uhiwT7zBXZCjSPSVA1ZPwfJKthK6Onswf229
9718HOwxirbUSVciesuDt43y7G9CJuoOvxF3pVweLuTEN2mWMon+CqAqPUvddlBG
9719yqPvfZhXFOAb5em11n3KxA9FWLApVLQ9rYJsfdfZHU5RBNNos+pYe1XijxJc
9720H5fzqpOqov3tsTrdUUpg2xn3abZBjfilBCciG7LUC9TRxR335kHChLs7nvUL
9721TrKIf0wYuKrHNbRno4bf6d3XXJVBGphlMH2fTfxUBjdrU/FDJw6aQY7VfHsV
97228ItIf+szwCH+qkDAcMC6ykQuEpWfuhhnqgopWU+sO1byiN+qUKdSdmxqhIc8
9723TBujRgRqMOpekOd+XYP4rwbP9ZbcSU3io6QCttdOhjqIHj0L8wgTEB7UYUq+
9724cUtpiCaqELqtrZpSh/6xsI1/HhMSPliQ1str9i1dgobTcgSGPSx4HhfzOnxS
9725i/DChtgPDM9TYh10+ruJmE2BbBBy2vIbu3UJP2xYePaCqZuijwwd0l5Fd7Fh
9726sHuZp27FZ4QnDrToH38ZX2OAquZW7f5lJwf2Lx7xdXtpSPjiwDaljqozlsuQ
9727a2XL44E6DiSsebh8RYkR4Y0LVh/lUrO3i9DYoQgbTTsuOOx60PXK1ITwxwVR
9728Z2hwqosZSjAX/Li9nAsXPiHroXpzwiMX2vG9QmPxKiQc+1UYb8KDQdGpga3U
9729asInDyLXj4TMS61QWbF38q18HkQHb12iudea8MqDt6qS5jk7G7TFb35mlK8B
9730nyy9QaV2PeFXA5oUFc+UZm1AL7TzgnRTNKDRxPBLX38gPGuA25oFKp2xGUV2
97312He40vng9PgmOtS7nfDNh66u5JKjm10R63yfY1IUHw76Rgy7a3oQ3vkgTuY1
9732xn7lg35wTqysnuRDJfPbJq2iQMK/AMKLvUMWPcOQvfIy46lAASh4petcGo8h
9733/0EALsKEy6K+FNReW5u1tFsADvMhFvIbfyL/QxPCjx5oVZGK1v8LGUKuHA==
9734
9735 "]]},
9736 {RGBColor[0.571589, 0.586483, 0.], PointSize[0.004583333333333334],
9737 AbsoluteThickness[1.6], PointBox[CompressedData["
97381:eJw1kws01Fkcx+c/gzHjMWbGDHmuyaMhFVnFzdTeX0mRSIZq5bFmtSl6aCOb
9739I1tSiYhU6shjrd1qe3hsVGprPdpt8izyOGkQsugloWF3z7lzz7nnnnvuvb/H
97409/u5FmHRG2R0Go0m+2/+v6pGnIb3ilvWNDTaHzVofPIqTswe7423Ue3vYnPh
9741Zqs6MQ3tme832iquxR62xpq59qpzOW5YryOZdKSh8vWrdjvENuPkC8Pz+lxU
974295/hs9a3u7ZiGlrECo2M7XyOKf8+0U4v1ftuLLvITOAH0pA0tPpmcF4P7k3N
9743WhAgU8VTYPNv7ZZKYmhIX/J4IcO3D0dYtEQ0HFbFf4WdEGcLL4eGmow6rhTT
9744B/H1g4qjnMuqfEP4Wpt8VeN9GkqfGBCvLRvGwoiutq3tqvwjeErUuL/2LQ2t
9745ax0vHpGN4XD+kTC+DkXqeYPP/FXYv8GWQkfaqcz6E2+x70B11Ok1FKnvHW5r
9746ncrt206hvtoUn/Ph77FGc5h3QBpF6v2Ac0/xqpWlFIJyDmeH2zj+Kj3k1HAn
9747Rer/iANuu775UoOOCgrPyN2EE/gGfaTkvSOd9PMJd0WcArcwOqIyTVM5Y59w
9748gnKbjX0WnfQ3iTO5SXdf1NNRSGLR2pd1UxiPvMzZS2OQfqfxW/2qCyzEQPei
97497Fillz7jBeYazjWxDNK/Et/yMkp+XMlApkE36w7HzWCJtCzfY4ZB9JjFTTVO
9750jTJ3NVT9kwnYiWnwwLC62S9TjehDgykpd7G7Qg2NmoSIsgQUfC8zy41xVid6
9751UdDXEupsnK6OTLMKKSVFB7DyM4v/R53oR4dtBdKWDm8N5KU10CMbpUPuUPfD
97525AoNoicD2AuLepvmMtEPSbb3n3QwIMJvhb8wh0n0VQPtrvx5FXqa6PLkzrwl
9753dWqwxSrOwSRDk+itDlIX9uQdQxbq3HUj4VKpOpzNSWwwKGER/TVAU3mSurWc
9754jdiDH4JYlzRgD3t8iXMPm/jBhEmXAqbrcS3kGrzUbU8qE8RxdlXxEm3ijyZc
9755HVYLrFVqo++exZt0xmqCa3vC7GS9DvFLE5L212fr5uuic+vuTYOMBXfWPX0p
9756PMoh/rFAcdmMJ5Loofo/6Z1XfNmgDM+2GL+vR/xkQ4Czrd8DLy6aQO5VAokW
9757hMRkvAtScIm/WhDeH7a0IomHbEqPnUuw1YaU7MfObQv4xG9tqNG6fnBsgI+k
9758tvLYAaEODPrnX/S/pk/814E2szm305IFKDlfL9CHoQtWD59GS6OFhAddGFOX
9759e5REGqByw41LKsd0oXcoeuXfBw0JHxzI6OY3BZfMQf3pOUJRFweeJxx4s2vU
9760iPCiB7EfGQHH/EzQ8R9HDqwK1wNDbmuevNOU8KMHs09fsExTzZFoefrruA49
9761UHRaBpiWf0F44kKj+eFXidUWqHJq0ebffLggm9kbvPGViPDFhbWabZUnHCyR
9762b0XzI0UtFw45PZg3v9iK8MYDx09qaWc8bdDQ7hgXAzceSDb80fHaVkz444Fl
9763e9T2tPV26JC98BfPUh6cm0XOfXX2hEcetON7BdZ+i5Dh0O+GiWI+KGyOKdZQ
9764joRPPsQsG4icVi5G14s2pZTl8SFu+5o5BludCa98+Kgta5pyc0EeIdMTgwJ9
9765mHTYBFo1ywi/+iBnMk+UZK9AL4wvRpim6sMTsejr4FAgPOuD1OkzlcFYjfa3
9766Sdp86QLwfHQT7e72JHwLoL0jpXjfal/EOd3jnhwrgOjgmH5/AynhXQDSFL48
9767/psg9LN3UkXVqADKWD80GBWGE/6FsKtoU+RMQDSSsC2tx8KFwAjMMDk/fID8
9768ByH4GB66YNOTip7V1GTP7RTC8unIheorfyX/wwCi9+1o0VLaLPsXTYut2w==
9769
9770 "]]},
9771 {RGBColor[0.915, 0.3325, 0.2125], PointSize[0.004583333333333334],
9772 AbsoluteThickness[1.6], PointBox[CompressedData["
97731:eJw1kws0FFgYx+fFmPEYM2PGW5lCQ5LSlG4me7/Sgwh5tcljTSpFDx2vcrAl
9774SqRIzyOPtXZrd0VsVHqtR7tZeRTNcEiELHpJaLS759y559xzz3fu6/v+/99n
9775HhrlJaNRKBTZf/P/VTXi1d2db1lS0NhA5JDxqV9wcu7EqwQrVXwXzxVutWgQ
9776U9CBhd5j7eJ67GJtrHHJVrXfhFs9tKVTSyio0mPtfvvYVpx+eWRBv6Pq/HN8
97773vJ213ZMQYtZIRGxiheY4dMv2uumut+NZVeYiXx/CvINqS0Pyu/FAxk5i/xk
9778qvf68NwdNiuk0RSkJ31iR/fsx7vM28Kbj6ref42XIc63vDwKajGSXy+hDeEb
9779R/qOc66p/hvGZR1Na5/ep6CsyUHxxpsj2DC8q2N7p+r/UTwjehpT/46CNrVP
9780lIzKxvEO/rFQvjaV5PMW5/1ZNOBlTUXHOqlnGk++w16DtZFnN1BJfu9xZ/v0
9781pf7dVNRfn7b5YtgHzG4NdffLpJJ8P+KLp3m1ygoqgkoOZ4/TBIas4NMjCirJ
9782/xMOuL3y7TJ1GiosOtfkJJzE5bTR0g9LaKSez7gn/DQ4hdIQ9YxpBmf8M05S
97837rSyzaGR+qZwLjflbk8jDQUnFW982TCN8ejLvIMUOql3Bn/Qq7nMQnR0L9KG
9784VXH1C7aboy6pi6WT+pX4lptR6pNqOjINLG84GjeLnX1vFqyfpRM9vuK2Ooen
9785MhcGqv3BBGzEFHhgUNvqfYZB9KGA0pe71KWPgcZMgkU5AirEyMwuRUvUiF5U
9786GGoLkRhnqSHTnCKqkkoDFwtvs4R/1Ih+NNhV6Nsmd1dHbpqDvbIxGuQPdz9K
9787rVInetJBy674Vcs8JjqcYn3/bzkd9ng7+wjzmERfBnC6ChZU6Wqga1N785c3
9788MGCbRZy9SbYG0VsNtjqyp+4YsJBi343EqxVqcD4vqVm/lEX0VweW8hT11mo2
9789Yg99DGRdVYdD7Inlkl428YMJM46FzJUnNNHKoBVOBzKYII6zqUmQahF/NKBs
9790hOFfr9RCu54nmChiNUDamfh1qlGb+KUByTGNuToFOujCpnszIGPBnU3PXgqP
9791c4h/LBi4ZsYTSXVR4x80xXVPNijDcs0n7usSP9ngK7H2fujGRZPIpUYg1YSg
97926Oz3gX1c4q8mhAyErqhK4SGrivQLidZakJH7RNKxiE/81oI6zbIj44N85Gvd
9793FDso1IY3PgVXfH7TI/5rg8LM8HZmqgClFuj6b6brgOWjZ1G+UULCgw6MqjWt
9794L43QR5UGW5ZXj+vA4HDUmr+OGBA+OJDdzW8JKjVEA1l5QlEXB+SJ8W/3jRkR
9795XnQh4RPdL93bBJ34fjR+bZguGHLb85sUpoQfXZh91sMyzZiDRKuz3sTJdaFf
9796Md/PtHIu4YkLrXOOvk6qNUfV04u3/rqZCztnDwZteS0ifHHBVaOj+qT9fORZ
97971fq4r54LKQ4PFywssSC88cDhMyPznKsVGt4f7ajvxINvvB7I31iLCX88sOiM
97983J3pYYOSbYU/uVbw4NxXJOlvsCU88uAFvldo6b0YGQz/bpAk5kO/VXrfBuoS
9799wicfYlYNRswol6Ky4oC0m/l8OLx7g6H+dgnhlQ8TWrKWaSdHtD54ZnJIoAcz
98009gGgWbeK8KsHzUzmydJcZ9RjfCXcNOO/WCzaFhQChGc9CHD4Qs2mr0MxHdIO
9801T5oA3B6Xo/3droRvAcjlaSWH1nkiztlel9RYAUQFRQ/46PsS3gXgn8ZvSvgu
9802EP3onlJVMyaAStbhZqOiMMK/EKKLAyJm/aKQlD3fcjxMCCz/bJOLI/GkH4Tg
9803YZB82ao3Az2vq8udpxACzETYqa35mfSHPuw7tKdNU2m16l8rIa52
9804 "]]}, {}}, {}},
9805 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
9806 Axes->{True, True},
9807 AxesLabel->{
9808 FormBox["\"t\"", TraditionalForm],
9809 FormBox["\"\[Rho]\"", TraditionalForm]},
9810 AxesOrigin->{0, 0},
9811 DisplayFunction->Identity,
9812 Epilog->{
9813 Directive[{
9814 Thickness[Large],
9815 RGBColor[1, 0, 0]}],
9816 LineBox[{{8.580606288331144*^14, 0}, {8.580606288331144*^14,
9817 3.5000000000000005`*^-23}}]},
9818 Frame->{{False, False}, {False, False}},
9819 FrameLabel->{{None, None}, {None, None}},
9820 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
9821 GridLines->{None, None},
9822 GridLinesStyle->Directive[
9823 GrayLevel[0.5, 0.4]],
9824 ImageSize->{776., Automatic},
9825 Method->{},
9826 PlotRange->{{0, 1.6245947905906965`*^15}, {0, 3.458897683146271*^-23}},
9827 PlotRangeClipping->True,
9828 PlotRangePadding->{{
9829 Scaled[0.02],
9830 Scaled[0.02]}, {
9831 Scaled[0.02],
9832 Scaled[0.05]}},
9833 Ticks->{Automatic, Automatic}]], "Output",
9834 CellChangeTimes->{3.644768707433*^9, 3.644787068528*^9, 3.644843815407*^9}]
9835}, Open ]],
9836
9837Cell[CellGroupData[{
9838
9839Cell[BoxData[
9840 RowBox[{"ListLinePlot", "[",
9841 RowBox[{
9842 RowBox[{"Table", "[",
9843 RowBox[{
9844 RowBox[{"Transpose", "[",
9845 RowBox[{"{",
9846 RowBox[{
9847 RowBox[{"Table", "[",
9848 RowBox[{
9849 RowBox[{"r0phys", "*",
9850 SuperscriptBox[
9851 RowBox[{"(",
9852 RowBox[{"Cos", "[",
9853 RowBox[{"\[Xi]", "/.",
9854 RowBox[{"First", "[",
9855 RowBox[{"FindRoot", "[",
9856 RowBox[{
9857 RowBox[{"\[Xi]", "+",
9858 RowBox[{
9859 FractionBox["1", "2"],
9860 RowBox[{"Sin", "[",
9861 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
9862 RowBox[{"kphys", "*", "tphys"}]}], ",", " ",
9863 RowBox[{"{",
9864 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
9865 "]"}], ")"}], "2"]}], ",",
9866 RowBox[{"{",
9867 RowBox[{
9868 "r0phys", ",", "rphys1", ",", "rphys2", ",", " ", "rphysstep"}],
9869 "}"}]}], "]"}], ",",
9870 RowBox[{"Table", "[",
9871 RowBox[{
9872 RowBox[{
9873 RowBox[{"(",
9874 RowBox[{
9875 RowBox[{"(",
9876 RowBox[{
9877 RowBox[{"(",
9878 RowBox[{"4", "/", "3"}], ")"}], "*", "\[Pi]", "*",
9879 SuperscriptBox[
9880 RowBox[{"(", "r0phys", ")"}], "3"], "*", "\[Rho]0phys"}],
9881 ")"}], "/",
9882 RowBox[{"(",
9883 RowBox[{
9884 FractionBox["4", "3"], "\[Pi]",
9885 SuperscriptBox[
9886 RowBox[{"(",
9887 RowBox[{"r0phys", "*",
9888 SuperscriptBox[
9889 RowBox[{"(",
9890 RowBox[{"Cos", "[",
9891 RowBox[{"\[Xi]", "/.",
9892 RowBox[{"First", "[",
9893 RowBox[{"FindRoot", "[",
9894 RowBox[{
9895 RowBox[{"\[Xi]", "+",
9896 RowBox[{
9897 FractionBox["1", "2"],
9898 RowBox[{"Sin", "[",
9899 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
9900 RowBox[{"kphys", "*", "tphys"}]}], ",", " ",
9901 RowBox[{"{",
9902 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
9903 "]"}], ")"}], "2"]}], ")"}], "3"]}], ")"}]}], ")"}], "*",
9904 SuperscriptBox[
9905 RowBox[{"(",
9906 RowBox[{"-",
9907 SqrtBox[
9908 RowBox[{
9909 FractionBox[
9910 RowBox[{"8", "\[Pi]"}], "3"], "Gphys", "*", "\[Rho]0phys",
9911 "*",
9912 SuperscriptBox["r0phys", "2"],
9913 RowBox[{"(",
9914 RowBox[{
9915 FractionBox["r0phys",
9916 RowBox[{"r0phys", "*",
9917 SuperscriptBox[
9918 RowBox[{"(",
9919 RowBox[{"Cos", "[",
9920 RowBox[{"\[Xi]", "/.",
9921 RowBox[{"First", "[",
9922 RowBox[{"FindRoot", "[",
9923 RowBox[{
9924 RowBox[{"\[Xi]", "+",
9925 RowBox[{
9926 FractionBox["1", "2"],
9927 RowBox[{"Sin", "[",
9928 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
9929 RowBox[{"kphys", "*", "tphys"}]}], ",", " ",
9930 RowBox[{"{",
9931 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
9932 "]"}], ")"}], "2"]}]], "-", "1"}], ")"}]}]]}], ")"}],
9933 "2"]}], ",",
9934 RowBox[{"{",
9935 RowBox[{
9936 "r0phys", ",", " ", "rphys1", ",", " ", "rphys2", ",", " ",
9937 "rphysstep"}], "}"}]}], "]"}]}], " ", "}"}], "]"}], ",", " ",
9938 RowBox[{"{",
9939 RowBox[{"tphys", ",", " ", "tphys1", ",", " ",
9940 RowBox[{"2.25", "*", "381360279481384.188"}], ",", " ", "tphysstep"}],
9941 "}"}]}], "]"}], ",", " ",
9942 RowBox[{"AxesLabel", "\[Rule]",
9943 RowBox[{"{",
9944 RowBox[{
9945 "\"\<r\>\"", ",", " ", "\"\<\!\(\*SubscriptBox[\(P\), \(ram\)]\)\>\""}],
9946 "}"}]}], ",", " ",
9947 RowBox[{"Epilog", "\[Rule]",
9948 RowBox[{"{",
9949 RowBox[{
9950 RowBox[{"Directive", "[",
9951 RowBox[{"{",
9952 RowBox[{"Thick", ",", " ", "Red"}], "}"}], "]"}], ",", " ",
9953 RowBox[{"Line", "[",
9954 RowBox[{"{",
9955 RowBox[{
9956 RowBox[{"{",
9957 RowBox[{
9958 RowBox[{"5", "*",
9959 SuperscriptBox["10", "19"]}], ",", " ",
9960 RowBox[{"1.4885456249999992", "*",
9961 SuperscriptBox["10",
9962 RowBox[{"-", "12"}]]}]}], "}"}], ",",
9963 RowBox[{"{",
9964 RowBox[{
9965 RowBox[{"1.2", "*",
9966 SuperscriptBox["10", "20"]}], ",", " ",
9967 RowBox[{"1.4885456249999992", "*",
9968 SuperscriptBox["10",
9969 RowBox[{"-", "12"}]]}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], ",",
9970 " ",
9971 RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
9972 CellChangeTimes->{{3.644766392539*^9, 3.64476653409*^9}, {3.644770263342*^9,
9973 3.644770334935*^9}, {3.6447704072200003`*^9, 3.644770517192*^9}, {
9974 3.6447705613929996`*^9, 3.6447706575480003`*^9}, 3.644770778675*^9, {
9975 3.644770814119*^9, 3.6447708305360003`*^9}, {3.6447709766029997`*^9,
9976 3.644771025705*^9}, {3.644771132549*^9, 3.644771180341*^9}, {
9977 3.644784710115*^9, 3.644784715525*^9}, {3.644787102858*^9,
9978 3.644787107297*^9}, {3.644843912435*^9, 3.644843941429*^9}, {
9979 3.644843973042*^9, 3.644844020823*^9}, {3.6448441740360003`*^9,
9980 3.644844178602*^9}, {3.6448454983380003`*^9, 3.644845500755*^9}}],
9981
9982Cell[BoxData[
9983 GraphicsBox[{{}, {{}, {},
9984 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.008333333333333333],
9985 AbsoluteThickness[1.6],
9986 LineBox[{{6.16*^19, 0.}, {6.699*^19, 0.}, {7.238*^19, 0.}, {7.777*^19,
9987 0.}, {8.316*^19, 0.}, {8.855*^19, 0.}, {9.394*^19, 0.}, {9.933*^19,
9988 0.}, {1.0472*^20, 0.}, {1.1011*^20, 0.}, {1.155*^20, 0.}}]},
9989 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.008333333333333333],
9990 AbsoluteThickness[1.6],
9991 LineBox[{{6.159620531306238*^19, 3.6453258361484946`*^-19}, {
9992 6.698587327795534*^19, 4.3111673834074957`*^-19}, {7.23755412428483*^19,
9993 5.032827982550658*^-19}, {7.776520920774125*^19,
9994 5.810307633544508*^-19}, {8.315487717263422*^19,
9995 6.643606336380632*^-19}, {8.854454513752718*^19,
9996 7.532724091103727*^-19}, {9.393421310242013*^19,
9997 8.47766089769285*^-19}, {9.932388106731309*^19,
9998 9.478416756147992*^-19}, {1.0471354903220604`*^20,
9999 1.0534991666469153`*^-18}, {1.1010321699709901`*^20,
10000 1.1647385628656341`*^-18}, {1.1549288496199197`*^20,
10001 1.2815598642709558`*^-18}}]},
10002 {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.008333333333333333],
10003 AbsoluteThickness[1.6],
10004 LineBox[{{6.1584820317034545`*^19, 1.459298780636985*^-18}, {
10005 6.697349209477507*^19, 1.7258488235377104`*^-18}, {
10006 7.236216387251559*^19, 2.0147443790169385`*^-18}, {
10007 7.775083565025611*^19, 2.3259854470746705`*^-18}, {
10008 8.313950742799663*^19, 2.6595720277109055`*^-18}, {
10009 8.852817920573715*^19, 3.0155041209256466`*^-18}, {
10010 9.391685098347767*^19, 3.393781726718891*^-18}, {9.93055227612182*^19,
10011 3.794404845090637*^-18}, {1.0469419453895873`*^20,
10012 4.217373476040887*^-18}, {1.1008286631669925`*^20,
10013 4.662687619569642*^-18}, {1.1547153809443978`*^20,
10014 5.1303472756769025`*^-18}}]},
10015 {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.008333333333333333],
10016 AbsoluteThickness[1.6],
10017 LineBox[{{6.1565842205003375`*^19, 3.2878103713787772`*^-18}, {
10018 6.695285339794117*^19, 3.888349484527491*^-18}, {
10019 7.2339864590878966`*^19, 4.539233193984828*^-18}, {
10020 7.772687578381676*^19, 5.240461499755457*^-18}, {8.311388697675455*^19,
10021 5.9920344018378216`*^-18}, {8.850089816969236*^19,
10022 6.79395190023193*^-18}, {9.388790936263015*^19,
10023 7.64621399493777*^-18}, {9.927492055556794*^19,
10024 8.548820685955351*^-18}, {1.0466193174850573`*^20,
10025 9.501771973288471*^-18}, {1.1004894294144352`*^20,
10026 1.0505067856925729`*^-17}, {1.1543595413438133`*^20,
10027 1.1558708336878516`*^-17}}]},
10028 {RGBColor[0.528488, 0.470624, 0.701351], PointSize[0.008333333333333333],
10029 AbsoluteThickness[1.6],
10030 LineBox[{{6.153926629454896*^19, 5.855941851924537*^-18}, {
10031 6.6923952095322*^19, 6.9255662308151295`*^-18}, {7.230863789609503*^19,
10032 8.084859719313319*^-18}, {7.769332369686807*^19,
10033 9.333822317419094*^-18}, {8.307800949764109*^19,
10034 1.0672454025134873`*^-17}, {8.846269529841413*^19,
10035 1.210075484245344*^-17}, {9.384738109918716*^19,
10036 1.3618724769385075`*^-17}, {9.92320668999602*^19,
10037 1.5226363805921587`*^-17}, {1.0461675270073323`*^20,
10038 1.692367195206572*^-17}, {1.1000143850150627`*^20,
10039 1.871064920781325*^-17}, {1.153861243022793*^20,
10040 2.0587295573176842`*^-17}}]},
10041 {RGBColor[0.772079, 0.431554, 0.102387], PointSize[0.008333333333333333],
10042 AbsoluteThickness[1.6],
10043 LineBox[{{6.150508602138298*^19, 9.17196292517186*^-18}, {
10044 6.6886781048254*^19, 1.0847279278222777`*^-17}, {7.226847607512501*^19,
10045 1.2663041313565396`*^-17}, {7.765017110199602*^19,
10046 1.46192490311997*^-17}, {8.303186612886703*^19,
10047 1.6715902431125705`*^-17}, {8.841356115573804*^19,
10048 1.8953001513343403`*^-17}, {9.379525618260905*^19,
10049 2.1330546277852802`*^-17}, {9.917695120948006*^19,
10050 2.3848536724653888`*^-17}, {1.0455864623635107`*^20,
10051 2.6506972853746663`*^-17}, {1.0994034126322208`*^20,
10052 2.930585466513113*^-17}, {1.1532203629009309`*^20,
10053 3.224518215880732*^-17}}]},
10054 {RGBColor[0.363898, 0.618501, 0.782349], PointSize[0.008333333333333333],
10055 AbsoluteThickness[1.6],
10056 LineBox[{{6.146329293041316*^19, 1.3246584386306218`*^-17}, {
10057 6.684133106182431*^19, 1.5666155815617464`*^-17}, {
10058 7.221936919323546*^19, 1.8288565568345852`*^-17}, {7.75974073246466*^19,
10059 2.111381364448801*^-17}, {8.297544545605776*^19,
10060 2.414190004404308*^-17}, {8.835348358746892*^19,
10061 2.7372824767015588`*^-17}, {9.373152171888006*^19,
10062 3.0806587813406475`*^-17}, {9.910955985029122*^19,
10063 3.4443189183206526`*^-17}, {1.0448759798170237`*^20,
10064 3.828262887642496*^-17}, {1.0986563611311351`*^20,
10065 4.2324906893058734`*^-17}, {1.1524367424452467`*^20,
10066 4.657002323310779*^-17}}]},
10067 {RGBColor[1, 0.75, 0], PointSize[0.008333333333333333], AbsoluteThickness[
10068 1.6], LineBox[{{6.141387666420451*^19, 1.809301780683696*^-17}, {
10069 6.678759087232241*^19, 2.1397820590615468`*^-17}, {7.21613050804403*^19,
10070 2.4979672709564303`*^-17}, {7.753501928855819*^19,
10071 2.883857416367876*^-17}, {8.290873349667609*^19,
10072 3.297452495296037*^-17}, {8.828244770479399*^19,
10073 3.738752507740921*^-17}, {9.365616191291187*^19,
10074 4.207757453702524*^-17}, {9.902987612102977*^19,
10075 4.7044673331808446`*^-17}, {1.0440359032914767`*^20,
10076 5.2288821461758824`*^-17}, {1.0977730453726557`*^20,
10077 5.781001892687641*^-17}, {1.1515101874538345`*^20,
10078 6.360826572716125*^-17}}]},
10079 {RGBColor[0.647624, 0.37816, 0.614037], PointSize[0.008333333333333333],
10080 AbsoluteThickness[1.6],
10081 LineBox[{{6.135682494879918*^19, 2.3727049545672085`*^-17}, {
10082 6.672554713181911*^19, 2.8060943439248766`*^-17}, {
10083 7.209426931483903*^19, 3.275815777899356*^-17}, {7.746299149785896*^19,
10084 3.7818692564906414`*^-17}, {8.28317136808789*^19,
10085 4.324254779698736*^-17}, {8.820043586389882*^19,
10086 4.902972347523649*^-17}, {9.356915804691874*^19,
10087 5.518021959965368*^-17}, {9.893788022993868*^19,
10088 6.169403617023894*^-17}, {1.043066024129586*^20,
10089 6.857117318699231*^-17}, {1.0967532459597852`*^20,
10090 7.581163064991386*^-17}, {1.1504404677899846`*^20,
10091 8.341540855900346*^-17}}]},
10092 {RGBColor[0.571589, 0.586483, 0.], PointSize[0.008333333333333333],
10093 AbsoluteThickness[1.6],
10094 LineBox[{{6.1292123576847745`*^19, 3.016712974693679*^-17}, {
10095 6.665518438982192*^19, 3.567734453977414*^-17}, {7.20182452027961*^19,
10096 4.1649493506862784`*^-17}, {7.738130601577028*^19,
10097 4.808357664820136*^-17}, {8.274436682874446*^19,
10098 5.4979593963789836`*^-17}, {8.810742764171864*^19,
10099 6.233754545362834*^-17}, {9.347048845469281*^19,
10100 7.015743111771679*^-17}, {9.8833549267667*^19,
10101 7.843925095605513*^-17}, {1.0419661008064117`*^20,
10102 8.718300496864346*^-17}, {1.0955967089361535`*^20,
10103 9.638869315548172*^-17}, {1.1492273170658953`*^20,
10104 1.0605631551657001`*^-16}}]},
10105 {RGBColor[0.915, 0.3325, 0.2125], PointSize[0.008333333333333333],
10106 AbsoluteThickness[1.6],
10107 LineBox[{{6.1219756387995886`*^19, 3.743447712406097*^-17}, {
10108 6.657648507194552*^19, 4.4272118336252744`*^-17}, {
10109 7.193321375589517*^19, 5.168297497940669*^-17}, {7.72899424398448*^19,
10110 5.96670470535228*^-17}, {8.264667112379444*^19,
10111 6.82243345586011*^-17}, {8.800339980774408*^19,
10112 7.735483749464163*^-17}, {9.336012849169372*^19,
10113 8.705855586164432*^-17}, {9.871685717564336*^19,
10114 9.733548965960916*^-17}, {1.0407358585959301`*^20,
10115 1.0818563888853619`*^-16}, {1.0943031454354265`*^20,
10116 1.1960900354842545`*^-16}, {1.1478704322749229`*^20,
10117 1.3160558363927683`*^-16}}]},
10118 {RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], PointSize[
10119 0.008333333333333333], AbsoluteThickness[1.6],
10120 LineBox[{{6.1139705246460215`*^19, 4.5553200480172896`*^-17}, {
10121 6.648942945552549*^19, 5.3873777255379495`*^-17}, {
10122 7.183915366459075*^19, 6.289188741294059*^-17}, {7.718887787365602*^19,
10123 7.26075309528506*^-17}, {8.253860208272128*^19,
10124 8.302070787511757*^-17}, {8.788832629178656*^19,
10125 9.413141817973232*^-17}, {9.323805050085183*^19,
10126 1.0593966186670526`*^-16}, {9.858777470991709*^19,
10127 1.184454389360281*^-16}, {1.0393749891898237`*^20,
10128 1.3164874938769966`*^-16}, {1.0928722312804763`*^20,
10129 1.4554959322172745`*^-16}, {1.146369473371129*^20,
10130 1.6014797043811266`*^-16}}]},
10131 {RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142],
10132 PointSize[0.008333333333333333], AbsoluteThickness[1.6],
10133 LineBox[{{6.105195001571795*^19, 5.455043807785963*^-17}, {
10134 6.639399564209327*^19, 6.451441653301709*^-17}, {7.173604126846859*^19,
10135 7.531369857124314*^-17}, {7.70780868948439*^19,
10136 8.694828419253851*^-17}, {8.242013252121923*^19,
10137 9.941817339689675*^-17}, {8.776217814759455*^19,
10138 1.127233661843244*^-16}, {9.310422377396987*^19,
10139 1.2686386255481923`*^-16}, {9.84462694003452*^19,
10140 1.4183966250838117`*^-16}, {1.037883150267205*^20,
10141 1.5765076604501436`*^-16}, {1.0913036065309583`*^20,
10142 1.7429717316470698`*^-16}, {1.1447240627947115`*^20,
10143 1.9177888386747545`*^-16}}]},
10144 {RGBColor[0.736782672705901, 0.358, 0.5030266573755369], PointSize[
10145 0.008333333333333333], AbsoluteThickness[1.6],
10146 LineBox[{{6.095646853022347*^19, 6.44565161496982*^-17}, {
10147 6.629015952661803*^19, 7.622990167766653*^-17}, {7.162385052301259*^19,
10148 8.899027760917521*^-17}, {7.695754151940714*^19,
10149 1.0273764394422989`*^-16}, {8.22912325158017*^19,
10150 1.174720006828249*^-16}, {8.762492351219625*^19,
10151 1.3319334782495953`*^-16}, {9.29586145085908*^19,
10152 1.499016853706419*^-16}, {9.829230550498535*^19,
10153 1.675970133198637*^-16}, {1.036259965013799*^20,
10154 1.862793316726239*^-16}, {1.0895968749777447`*^20,
10155 2.059486404289341*^-16}, {1.1429337849416902`*^20,
10156 2.2660493958877807`*^-16}}]},
10157 {RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], PointSize[
10158 0.008333333333333333], AbsoluteThickness[1.6],
10159 LineBox[{{6.08532365640551*^19, 7.53051280367753*^-17}, {
10160 6.617789476340992*^19, 8.906008032974256*^-17}, {
10161 7.1502552962764734`*^19, 1.0396814239577109`*^-16}, {
10162 7.682721116211955*^19, 1.2002931423486643`*^-16}, {
10163 8.215186936147439*^19, 1.372435958470205*^-16}, {8.74765275608292*^19,
10164 1.5561098723224*^-16}, {9.280118576018403*^19,
10165 1.751314883905224*^-16}, {9.812584395953884*^19,
10166 1.9580509932186801`*^-16}, {1.0345050215889366`*^20,
10167 2.176318200262807*^-16}, {1.0877516035824848`*^20,
10168 2.406116505037485*^-16}, {1.140998185576033*^20,
10169 2.6474459075428834`*^-16}}]},
10170 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.008333333333333333],
10171 AbsoluteThickness[1.6],
10172 LineBox[{{6.074222779638262*^19, 8.713353565905157*^-17}, {
10173 6.60571727285661*^19, 1.0304902053177364`*^-16}, {7.137211766074959*^19,
10174 1.202987376692781*^-16}, {7.668706259293307*^19,
10175 1.38882687071558*^-16}, {8.200200752511654*^19,
10176 1.5880086873861903`*^-16}, {8.731695245730002*^19,
10177 1.8005328267046213`*^-16}, {9.26318973894835*^19,
10178 2.0263992886708179`*^-16}, {9.794684232166698*^19,
10179 2.265608073284808*^-16}, {1.0326178725385046`*^20,
10180 2.5181591805465916`*^-16}, {1.0857673218603395`*^20,
10181 2.784052610456166*^-16}, {1.1389167711821742`*^20,
10182 3.0632883630134864`*^-16}}]},
10183 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.008333333333333333],
10184 AbsoluteThickness[1.6],
10185 LineBox[{{6.062341377363482*^19, 9.998279526214572*^-17}, {
10186 6.592796247882787*^19, 1.1824527770924702`*^-16}, {
10187 7.123251118402092*^19, 1.3803874670879995`*^-16}, {
10188 7.653705988921396*^19, 1.5936320226080449`*^-16}, {
10189 8.184160859440701*^19, 1.8221864436525806`*^-16}, {
10190 8.714615729960006*^19, 2.0660507302216561`*^-16}, {
10191 9.245070600479311*^19, 2.325224882315244*^-16}, {9.775525470998615*^19,
10192 2.5997088999333866`*^-16}, {1.030598034151792*^20,
10193 2.8895027830760113`*^-16}, {1.0836435212037225`*^20,
10194 3.1946065317431095`*^-16}, {1.136689008255653*^20,
10195 3.515020145934764*^-16}}]},
10196 {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.008333333333333333],
10197 AbsoluteThickness[1.6],
10198 LineBox[{{6.049676386823214*^19, 1.1389800965372433`*^-16}, {
10199 6.579023070670245*^19, 1.347021929795375*^-16}, {7.108369754517276*^19,
10200 1.5725043957817323`*^-16}, {7.637716438364307*^19,
10201 1.8154274944963158`*^-16}, {8.167063122211339*^19,
10202 2.0757912259391266`*^-16}, {8.69640980605837*^19,
10203 2.3535955901101645`*^-16}, {9.225756489905401*^19,
10204 2.648840587009428*^-16}, {9.755103173752432*^19,
10205 2.961526216636954*^-16}, {1.0284449857599463`*^20,
10206 3.291652478992634*^-16}, {1.0813796541446495`*^20,
10207 3.639219374076579*^-16}, {1.1343143225293526`*^20,
10208 4.004226901888749*^-16}}]},
10209 {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.008333333333333333],
10210 AbsoluteThickness[1.6],
10211 LineBox[{{6.036224523373644*^19, 1.2892860944371428`*^-16}, {
10212 6.564394169168838*^19, 1.524782257624161*^-16}, {
10213 7.0925638149640315`*^19, 1.7800206141322817`*^-16}, {
10214 7.620733460759226*^19, 2.0550011639614313`*^-16}, {8.14890310655442*^19,
10215 2.3497239071116675`*^-16}, {8.677072752349613*^19,
10216 2.6641888435829755`*^-16}, {9.205242398144807*^19,
10217 2.99839597337535*^-16}, {9.73341204394*^19, 3.352345296488829*^-16}, {
10218 1.0261581689735194`*^20, 3.7260368129233457`*^-16}, {
10219 1.0789751335530388`*^20, 4.1194705226789297`*^-16}, {
10220 1.1317920981325582`*^20, 4.532646425755584*^-16}}]},
10221 {RGBColor[0.528488, 0.470624, 0.701351], PointSize[0.008333333333333333],
10222 AbsoluteThickness[1.6],
10223 LineBox[{{6.0219822756254286`*^19, 1.4512866614101095`*^-16}, {
10224 6.5489057247426535`*^19, 1.7163732406583013`*^-16}, {
10225 7.0758291738598785`*^19, 2.0036826469093527`*^-16}, {
10226 7.602752622977103*^19, 2.3132148801632323`*^-16}, {
10227 8.129676072094328*^19, 2.6449699404199263`*^-16}, {
10228 8.656599521211553*^19, 2.998947827679517*^-16}, {9.183522970328778*^19,
10229 3.375148541941888*^-16}, {9.710446419446004*^19,
10230 3.7735720832071313`*^-16}, {1.0237369868563228`*^20,
10231 4.1942184514752185`*^-16}, {1.0764293317680454`*^20,
10232 4.637087646746147*^-16}, {1.1291216766797678`*^20,
10233 5.102179669019921*^-16}}]},
10234 {RGBColor[0.772079, 0.431554, 0.102387], PointSize[0.008333333333333333],
10235 AbsoluteThickness[1.6],
10236 LineBox[{{6.006945900191453*^19, 1.6255724034118358`*^-16}, {
10237 6.532553666458205*^19, 1.9224933627225302`*^-16}, {
10238 7.058161432724958*^19, 2.2443058994604667`*^-16}, {7.58376919899171*^19,
10239 2.5910100136256466`*^-16}, {8.109376965258463*^19,
10240 2.9626057052180684`*^-16}, {8.634984731525215*^19,
10241 3.3590929742377104`*^-16}, {9.160592497791967*^19,
10242 3.7804718206846505`*^-16}, {9.68620026405872*^19,
10243 4.2267422445588043`*^-16}, {1.0211808030325472`*^20,
10244 4.697904245860204*^-16}, {1.0737415796592224`*^20,
10245 5.193957824588846*^-16}, {1.1263023562858976`*^20,
10246 5.714902980744734*^-16}}]},
10247 {RGBColor[0.363898, 0.618501, 0.782349], PointSize[0.008333333333333333],
10248 AbsoluteThickness[1.6],
10249 LineBox[{{5.99111141602224*^19, 1.812787686717209*^-16}, {
10250 6.515333664924186*^19, 2.1439046876191484`*^-16}, {
10251 7.039555913826132*^19, 2.502779999973946*^-16}, {7.563778162728079*^19,
10252 2.8894136237816*^-16}, {8.088000411630023*^19,
10253 3.303805559042138*^-16}, {8.61222266053197*^19,
10254 3.7459558057554825`*^-16}, {9.136444909433917*^19,
10255 4.2158643639216744`*^-16}, {9.660667158335862*^19,
10256 4.713531233540792*^-16}, {1.0184889407237808`*^20,
10257 5.238956414612733*^-16}, {1.0709111656139755`*^20,
10258 5.792139907137484*^-16}, {1.12333339050417*^20,
10259 6.3730817111151885`*^-16}}]},
10260 {RGBColor[1, 0.75, 0], PointSize[0.008333333333333333], AbsoluteThickness[
10261 1.6], LineBox[{{5.9744745983075434`*^19, 2.0136349365120764`*^-16}, {
10262 6.497241125659453*^19, 2.381437942884378*^-16}, {
10263 7.0200076530113634`*^19, 2.780074734221966*^-16}, {
10264 7.542774180363274*^19, 3.209545310524951*^-16}, {8.065540707715183*^19,
10265 3.669849671793258*^-16}, {8.588307235067093*^19,
10266 4.1609878180269096`*^-16}, {9.111073762419004*^19,
10267 4.682959749225863*^-16}, {9.633840289770914*^19,
10268 5.235765465390227*^-16}, {1.0156606817122823`*^20,
10269 5.819404966519905*^-16}, {1.0679373344474733`*^20,
10270 6.433878252614916*^-16}, {1.1202139871826644`*^20,
10271 7.07918532367527*^-16}}]},
10272 {RGBColor[0.647624, 0.37816, 0.614037], PointSize[0.008333333333333333],
10273 AbsoluteThickness[1.6],
10274 LineBox[{{5.957030971920457*^19, 2.228879411762535*^-16}, {
10275 6.4782711819634975`*^19, 2.635998166817286*^-16}, {
10276 6.999511392006537*^19, 3.0772466378646494`*^-16}, {
10277 7.520751602049578*^19, 3.552624824904628*^-16}, {8.041991812092617*^19,
10278 4.062132727937222*^-16}, {8.563232022135657*^19,
10279 4.605770346962428*^-16}, {9.084472232178698*^19,
10280 5.183537681980244*^-16}, {9.605712442221737*^19,
10281 5.795434732990718*^-16}, {1.0126952652264777`*^20,
10282 6.441461499993769*^-16}, {1.0648192862307818`*^20,
10283 7.121617982989388*^-16}, {1.1169433072350857`*^20,
10284 7.835904181977666*^-16}}]},
10285 {RGBColor[0.571589, 0.586483, 0.], PointSize[0.008333333333333333],
10286 AbsoluteThickness[1.6],
10287 LineBox[{{5.9387758043782185`*^19, 2.4593545098518067`*^-16}, {
10288 6.458418687261313*^19, 2.9085709820419097`*^-16}, {
10289 6.978061570144407*^19, 3.395446320164153*^-16}, {7.497704453027501*^19,
10290 3.9199805242184594`*^-16}, {8.017347335910595*^19,
10291 4.482173594204917*^-16}, {8.536990218793689*^19,
10292 5.082025530123433*^-16}, {9.056633101676783*^19,
10293 5.719536331974075*^-16}, {9.576275984559877*^19,
10294 6.394705999756861*^-16}, {1.0095918867442971`*^20,
10295 7.10753453347168*^-16}, {1.0615561750326066`*^20,
10296 7.858021933118688*^-16}, {1.113520463320916*^20,
10297 8.646168198697763*^-16}}]},
10298 {RGBColor[0.915, 0.3325, 0.2125], PointSize[0.008333333333333333],
10299 AbsoluteThickness[1.6],
10300 LineBox[{{5.9197040982915236`*^19, 2.705967661732073*^-16}, {
10301 6.437678206892032*^19, 3.200229567445305*^-16}, {
10302 6.9556523154925404`*^19, 3.7359266029788254`*^-16}, {
10303 7.473626424093049*^19, 4.3130587683326384`*^-16}, {
10304 7.991600532693557*^19, 4.931626063506703*^-16}, {8.509574641294066*^19,
10305 5.591628488501013*^-16}, {9.027548749894574*^19,
10306 6.29306604331562*^-16}, {9.545522858495082*^19,
10307 7.035938727950497*^-16}, {1.0063496967095591`*^20,
10308 7.820246542405647*^-16}, {1.05814710756961*^20,
10309 8.645989486681075*^-16}, {1.1099445184296608`*^20,
10310 9.513167560776767*^-16}}]},
10311 {RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], PointSize[
10312 0.008333333333333333], AbsoluteThickness[1.6],
10313 LineBox[{{5.899810583271462*^19, 2.969706886650992*^-16}, {
10314 6.416044009307715*^19, 3.512142410165819*^-16}, {6.932277435343968*^19,
10315 4.1000515703825044`*^-16}, {7.448510861380221*^19,
10316 4.733434367301034*^-16}, {7.964744287416474*^19,
10317 5.412290800921405*^-16}, {8.480977713452727*^19,
10318 6.136620871243622*^-16}, {8.99721113948898*^19,
10319 6.906424578267677*^-16}, {9.513444565525232*^19,
10320 7.721701921993617*^-16}, {1.0029677991561485`*^20,
10321 8.582452902421367*^-16}, {1.0545911417597739`*^20,
10322 9.488677519550908*^-16}, {1.1062144843633992`*^20,
10323 1.0440375773382395`*^-15}}]},
10324 {RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142],
10325 PointSize[0.008333333333333333], AbsoluteThickness[1.6],
10326 LineBox[{{5.879089707260413*^19, 3.2516480850474375`*^-16}, {
10327 6.393510056645699*^19, 3.8455819305818847`*^-16}, {
10328 6.907930406030986*^19, 4.489306637418598*^-16}, {7.422350755416272*^19,
10329 5.182822205557619*^-16}, {7.936771104801558*^19,
10330 5.926128634998954*^-16}, {8.451191454186843*^19,
10331 6.71922592574256*^-16}, {8.96561180357213*^19,
10332 7.562114077788414*^-16}, {9.480032152957416*^19,
10333 8.454793091136585*^-16}, {9.994452502342702*^19,
10334 9.397262965787097*^-16}, {1.0508872851727989`*^20,
10335 1.0389523701739807`*^-15}, {1.1023293201113275`*^20,
10336 1.1431575298994905`*^-15}}]},
10337 {RGBColor[0.736782672705901, 0.358, 0.5030266573755369], PointSize[
10338 0.008333333333333333], AbsoluteThickness[1.6],
10339 LineBox[{{5.857535627250032*^19, 3.5529631591797214`*^-16}, {
10340 6.3700699946344096`*^19, 4.2019340862236433`*^-16}, {
10341 6.882604362018787*^19, 4.905309761642506*^-16}, {7.395138729403166*^19,
10342 5.663090185436277*^-16}, {7.907673096787544*^19,
10343 6.475275357605044*^-16}, {8.420207464171921*^19,
10344 7.341865278148689*^-16}, {8.932741831556299*^19,
10345 8.26285994706734*^-16}, {9.445276198940677*^19, 9.2382593643609*^-16}, {
10346 9.957810566325055*^19, 1.0268063530029395`*^-15}, {
10347 1.0470344933709432`*^20, 1.135227244407283*^-15}, {
10348 1.098287930109381*^20, 1.2490886106491217`*^-15}}]},
10349 {RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], PointSize[
10350 0.008333333333333333], AbsoluteThickness[1.6],
10351 LineBox[{{5.835142199346064*^19, 3.8749290636865432`*^-16}, {
10352 6.345717141788845*^19, 4.582709075475521*^-16}, {6.856292084231625*^19,
10353 5.349823938552215*^-16}, {7.366867026674405*^19,
10354 6.176273652916607*^-16}, {7.877441969117186*^19,
10355 7.062058218568726*^-16}, {8.388016911559967*^19,
10356 8.00717763550849*^-16}, {8.898591854002748*^19,
10357 9.011631903735983*^-16}, {9.409166796445529*^19,
10358 1.0075421023251172`*^-15}, {9.919741738888308*^19,
10359 1.1198544994054113`*^-15}, {1.043031668133109*^20,
10360 1.238100381614466*^-15}, {1.094089162377387*^20,
10361 1.3622797489522955`*^-15}}]},
10362 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.008333333333333333],
10363 AbsoluteThickness[1.6],
10364 LineBox[{{5.8119029681359225`*^19, 4.218937902876214*^-16}, {
10365 6.320444477847815*^19, 4.989553279198454*^-16}, {6.828985987559708*^19,
10366 5.824771142158477*^-16}, {7.3375274972716016`*^19,
10367 6.724591491756297*^-16}, {7.846069006983494*^19,
10368 7.689014327991934*^-16}, {8.354610516695387*^19,
10369 8.718039650865313*^-16}, {8.86315202640728*^19,
10370 9.811667460376541*^-16}, {9.371693536119174*^19,
10371 1.096989775652549*^-15}, {9.880235045831067*^19,
10372 1.219273053931227*^-15}, {1.038877655554296*^20,
10373 1.3480165808736836`*^-15}, {1.0897318065254854`*^20,
10374 1.4832203564799206`*^-15}}]},
10375 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.008333333333333333],
10376 AbsoluteThickness[1.6],
10377 LineBox[{{5.787811155310843*^19, 4.586508208429278*^-16}, {
10378 6.294244631400541*^19, 5.424262598375208*^-16}, {6.80067810749024*^19,
10379 6.332247895262696*^-16}, {7.307111583579939*^19,
10380 7.310464099091732*^-16}, {7.813545059669638*^19,
10381 8.35891120986236*^-16}, {8.319978535759336*^19,
10382 9.477589227574596*^-16}, {8.826412011849035*^19,
10383 1.0666498152228342`*^-15}, {9.332845487938734*^19,
10384 1.192563798382373*^-15}, {9.839278964028432*^19,
10385 1.3255008722360665`*^-15}, {1.0345712440118131`*^20,
10386 1.465461036783911*^-15}, {1.085214591620783*^20,
10387 1.6124442920259187`*^-15}}]},
10388 {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.008333333333333333],
10389 AbsoluteThickness[1.6],
10390 LineBox[{{5.762859647489794*^19, 4.97929755078773*^-16}, {
10391 6.267109866645151*^19, 5.888797369048805*^-16}, {6.771360085800508*^19,
10392 6.874542681056313*^-16}, {7.275610304955865*^19,
10393 7.936533486810282*^-16}, {7.779860524111222*^19,
10394 9.074769786310635*^-16}, {8.28411074326658*^19,
10395 1.0289251579557459`*^-15}, {8.788360962421935*^19,
10396 1.1579978866550717`*^-15}, {9.292611181577293*^19,
10397 1.2946951647290407`*^-15}, {9.796861400732649*^19,
10398 1.4390169921776594`*^-15}, {1.0301111619888007`*^20,
10399 1.5909633690009107`*^-15}, {1.0805361839043364`*^20,
10400 1.750534295198812*^-15}}]},
10401 {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.008333333333333333],
10402 AbsoluteThickness[1.6],
10403 LineBox[{{5.7370409831873044`*^19, 5.399116660270198*^-16}, {
10404 6.239032069216194*^19, 6.385299062747676*^-16}, {6.741023155245083*^19,
10405 7.454155439085523*^-16}, {7.243014241273972*^19,
10406 8.605685789283772*^-16}, {7.74500532730286*^19,
10407 9.839890113342437*^-16}, {8.246996413331751*^19,
10408 1.1156768411261467`*^-15}, {8.74898749936064*^19,
10409 1.2556320683040884`*^-15}, {9.25097858538953*^19,
10410 1.4038546928680642`*^-15}, {9.752969671418418*^19,
10411 1.560344714818087*^-15}, {1.0254960757447306`*^20,
10412 1.725102134154145*^-15}, {1.0756951843476197`*^20,
10413 1.8981269508762427`*^-15}}]},
10414 {RGBColor[0.528488, 0.470624, 0.701351], PointSize[0.008333333333333333],
10415 AbsoluteThickness[1.6],
10416 LineBox[{{5.71034733886176*^19, 5.847945260470713*^-16}, {
10417 6.210002731012163*^19, 6.916109011953568*^-16}, {
10418 6.7096581231625675`*^19, 8.073819425237383*^-16}, {
10419 7.209313515312972*^19, 9.32107650032215*^-16}, {7.708968907463375*^19,
10420 1.0657880237207872`*^-15}, {8.208624299613779*^19,
10421 1.208423063589457*^-15}, {8.708279691764184*^19,
10422 1.3600127696382202`*^-15}, {9.207935083914587*^19,
10423 1.5205571418670803`*^-15}, {9.707590476064991*^19,
10424 1.6900561802760362`*^-15}, {1.0207245868215396`*^20,
10425 1.868509884865088*^-15}, {1.07069012603658*^20,
10426 2.055918255634236*^-15}}]},
10427 {RGBColor[0.772079, 0.431554, 0.102387], PointSize[0.008333333333333333],
10428 AbsoluteThickness[1.6],
10429 LineBox[{{5.682770513974474*^19, 6.327949847458522*^-16}, {
10430 6.1800129339472404`*^19, 7.48378943678337*^-16}, {6.677255353920007*^19,
10431 8.736525758147427*^-16}, {7.1744977738927735`*^19,
10432 1.0086158811550688`*^-15}, {7.67174019386554*^19,
10433 1.1532688596993189`*^-15}, {8.168982613838306*^19,
10434 1.3076115114474885`*^-15}, {8.666225033811073*^19,
10435 1.4716438363995726`*^-15}, {9.16346745378384*^19,
10436 1.6453658345555827`*^-15}, {9.660709873756606*^19,
10437 1.8287775059155182`*^-15}, {1.0157952293729372`*^20,
10438 2.0218788504793705`*^-15}, {1.065519471370214*^20,
10439 2.2246698682471372`*^-15}}]},
10440 {RGBColor[0.363898, 0.618501, 0.782349], PointSize[0.008333333333333333],
10441 AbsoluteThickness[1.6],
10442 LineBox[{{5.6543019149830095`*^19, 6.841503684521892*^-16}, {
10443 6.149053332544023*^19, 8.091147091897864*^-16}, {
10444 6.6438047501050356`*^19, 9.445551024443066*^-16}, {
10445 7.138556167666049*^19, 1.0904715482157503`*^-15}, {
10446 7.633307585227062*^19, 1.2468640465041181`*^-15}, {
10447 8.128059002788076*^19, 1.4137325973094105`*^-15}, {
10448 8.622810420349089*^19, 1.5910772006316278`*^-15}, {
10449 9.117561837910103*^19, 1.7788978564707674`*^-15}, {
10450 9.612313255471115*^19, 1.9771945648268325`*^-15}, {
10451 1.010706467303213*^20, 2.185967325699816*^-15}, {
10452 1.0601816090593142`*^20, 2.4052161390897353`*^-15}}]},
10453 {RGBColor[1, 0.75, 0], PointSize[0.008333333333333333], AbsoluteThickness[
10454 1.6], LineBox[{{5.6249325381844754`*^19, 7.39120932468976*^-16}, {
10455 6.117114135275617*^19, 8.741259902902647*^-16}, {6.609295732366759*^19,
10456 1.0204488373899802`*^-15}, {7.1014773294579*^19,
10457 1.1780894737681318`*^-15}, {7.593658926549041*^19,
10458 1.3470478994247124`*^-15}, {8.085840523640183*^19,
10459 1.5273241143597242`*^-15}, {8.578022120731325*^19,
10460 1.7189181185731668`*^-15}, {9.070203717822466*^19,
10461 1.9218299120650414`*^-15}, {9.562385314913608*^19,
10462 2.1360594948353465`*^-15}, {1.005456691200475*^20,
10463 2.3616068668840826`*^-15}, {1.0546748509095892`*^20,
10464 2.5984720282112506`*^-15}}]},
10465 {RGBColor[0.647624, 0.37816, 0.614037], PointSize[0.008333333333333333],
10466 AbsoluteThickness[1.6],
10467 LineBox[{{5.594652951316063*^19, 7.979924023221316*^-16}, {
10468 6.084185084556218*^19, 9.437507020587819*^-16}, {6.573717217796374*^19,
10469 1.1017282604559935`*^-15}, {7.063249351036529*^19,
10470 1.2719250775137584`*^-15}, {7.552781484276685*^19,
10471 1.4543411532320853`*^-15}, {8.04231361751684*^19,
10472 1.6489764876109676`*^-15}, {8.531845750756996*^19,
10473 1.855831080650408*^-15}, {9.021377883997151*^19,
10474 2.0749049323504057`*^-15}, {9.510910017237307*^19,
10475 2.3061980427109554`*^-15}, {1.0000442150477462`*^20,
10476 2.549710411732074*^-15}, {1.0489974283717617`*^20,
10477 2.805442039413747*^-15}}]},
10478 {RGBColor[0.571589, 0.586483, 0.], PointSize[0.008333333333333333],
10479 AbsoluteThickness[1.6],
10480 LineBox[{{5.563453273810457*^19, 8.610788461137033*^-16}, {
10481 6.050255435268873*^19, 1.018360279099159*^-15}, {6.537057596727287*^19,
10482 1.188826981915734*^-15}, {7.023859758185702*^19,
10483 1.3724789545634197`*^-15}, {7.510661919644117*^19,
10484 1.569316197042227*^-15}, {7.997464081102532*^19,
10485 1.779338709352149*^-15}, {8.484266242560947*^19,
10486 2.0025464914931847`*^-15}, {8.971068404019362*^19,
10487 2.238939543465338*^-15}, {9.457870565477777*^19,
10488 2.4885178652686017`*^-15}, {9.944672726936193*^19,
10489 2.7512814569029855`*^-15}, {1.0431474888394608`*^20,
10490 3.0272303183684937`*^-15}}]},
10491 {RGBColor[0.915, 0.3325, 0.2125], PointSize[0.008333333333333333],
10492 AbsoluteThickness[1.6],
10493 LineBox[{{5.531323155593143*^19, 9.287259270444722*^-16}, {
10494 6.015313931707543*^19, 1.098363522156189*^-15}, {6.499304707821943*^19,
10495 1.2822222330257748`*^-15}, {6.983295483936343*^19,
10496 1.4803020596532316`*^-15}, {7.467286260050742*^19,
10497 1.6926030020385538`*^-15}, {7.951277036165143*^19,
10498 1.9191250601817423`*^-15}, {8.435267812279543*^19,
10499 2.1598682340828013`*^-15}, {8.919258588393942*^19,
10500 2.414832523741734*^-15}, {9.403249364508343*^19,
10501 2.684017929158525*^-15}, {9.887240140622743*^19,
10502 2.9674244503331896`*^-15}, {1.0371230916737144`*^20,
10503 3.265052087265723*^-15}}]},
10504 {RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], PointSize[
10505 0.008333333333333333], AbsoluteThickness[1.6],
10506 LineBox[{{5.498251754296641*^19, 1.0013145934151692`*^-15}, {
10507 5.979348782797598*^19, 1.184210962118659*^-15}, {6.460445811298554*^19,
10508 1.3824399605338187`*^-15}, {6.94154283979951*^19,
10509 1.5960015886606477`*^-15}, {7.422639868300467*^19,
10510 1.824895846499142*^-15}, {7.903736896801422*^19,
10511 2.069122734049316*^-15}, {8.384833925302378*^19,
10512 2.3286822513111533`*^-15}, {8.865930953803334*^19,
10513 2.6035743982846616`*^-15}, {9.34702798230429*^19,
10514 2.89379917496984*^-15}, {9.828125010805247*^19,
10515 3.1993565813666796`*^-15}, {1.0309222039306202`*^20,
10516 3.520246617475207*^-15}}]},
10517 {RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142],
10518 PointSize[0.008333333333333333], AbsoluteThickness[1.6],
10519 LineBox[{{5.464227710753253*^19, 1.079265273209325*^-15}, {
10520 5.9423476354441626`*^19, 1.2763998207689686`*^-15}, {
10521 6.420467560135072*^19, 1.4900606178246254`*^-15}, {
10522 6.898587484825982*^19, 1.7202476643763038`*^-15}, {
10523 7.376707409516891*^19, 1.9669609604239943`*^-15}, {
10524 7.854827334207801*^19, 2.2302005059677084`*^-15}, {8.33294725889871*^19,
10525 2.5099663010074372`*^-15}, {8.81106718358962*^19,
10526 2.8062583455431854`*^-15}, {9.28918710828053*^19,
10527 3.119076639574951*^-15}, {9.76730703297144*^19,
10528 3.448421183102734*^-15}, {1.0245426957662349`*^20,
10529 3.794291976126536*^-15}}]},
10530 {RGBColor[0.736782672705901, 0.358, 0.5030266573755369], PointSize[
10531 0.008333333333333333], AbsoluteThickness[1.6],
10532 LineBox[{{5.429239122612827*^19, 1.1630426520281882`*^-15}, {
10533 5.904297545841449*^19, 1.3754796614377115`*^-15}, {
10534 6.379355969070072*^19, 1.6057257614564182`*^-15}, {
10535 6.854414392298694*^19, 1.8537809520843016`*^-15}, {
10536 7.329472815527317*^19, 2.1196452333213684`*^-15}, {
10537 7.804531238755939*^19, 2.403318605167623*^-15}, {8.279589661984562*^19,
10538 2.704801067623055*^-15}, {8.754648085213184*^19,
10539 3.0240926206876636`*^-15}, {9.229706508441806*^19,
10540 3.361193264361463*^-15}, {9.704764931670429*^19,
10541 3.716102998644434*^-15}, {1.017982335489905*^20,
10542 4.088821823536601*^-15}}]},
10543 {RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], PointSize[
10544 0.008333333333333333], AbsoluteThickness[1.6],
10545 LineBox[{{5.393273515914958*^19, 1.2531611270886195`*^-15}, {
10546 5.865184948557517*^19, 1.4820588392084002`*^-15}, {
10547 6.337096381200076*^19, 1.7301455810867256`*^-15}, {
10548 6.809007813842634*^19, 1.9974213527235953`*^-15}, {
10549 7.2809192464851935`*^19, 2.2838861541190084`*^-15}, {
10550 7.752830679127753*^19, 2.5895399852729686`*^-15}, {
10551 8.224742111770311*^19, 2.9143828461854723`*^-15}, {8.69665354441287*^19,
10552 3.2584147368565186`*^-15}, {9.168564977055428*^19,
10553 3.621635657286112*^-15}, {9.640476409697988*^19,
10554 4.004045607474247*^-15}, {1.0112387842340546`*^20,
10555 4.4056445874209316`*^-15}}]},
10556 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.008333333333333333],
10557 AbsoluteThickness[1.6],
10558 LineBox[{{5.356317814425843*^19, 1.3501910467000057`*^-15}, {
10559 5.824995623188105*^19, 1.5968118800738037`*^-15}, {
10560 6.293673431950366*^19, 1.8641075138501953`*^-15}, {
10561 6.762351240712628*^19, 2.1520779480291805`*^-15}, {
10562 7.231029049474889*^19, 2.460723182610759*^-15}, {7.699706858237151*^19,
10563 2.790043217594934*^-15}, {8.168384666999412*^19,
10564 3.1400380529817013`*^-15}, {8.637062475761672*^19,
10565 3.510707688771066*^-15}, {9.105740284523935*^19,
10566 3.902052124963016*^-15}, {9.574418093286195*^19,
10567 4.314071361557563*^-15}, {1.0043095902048458`*^20,
10568 4.746765398554707*^-15}}]},
10569 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.008333333333333333],
10570 AbsoluteThickness[1.6],
10571 LineBox[{{5.3183583065281544`*^19, 1.4547658647170539`*^-15}, {
10572 5.783714658349368*^19, 1.7204879421942788`*^-15}, {
10573 6.249071010170582*^19, 2.008486121974983*^-15}, {
10574 6.7144273619917955`*^19, 2.318760404059167*^-15}, {
10575 7.179783713813009*^19, 2.651310788446826*^-15}, {7.645140065634222*^19,
10576 3.0061372751379766`*^-15}, {8.110496417455437*^19,
10577 3.383239864132593*^-15}, {8.57585276927665*^19,
10578 3.782618555430702*^-15}, {9.041209121097862*^19,
10579 4.204273349032286*^-15}, {9.506565472919077*^19,
10580 4.648204244937348*^-15}, {9.97192182474029*^19,
10581 5.114411243145895*^-15}}]},
10582 {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.008333333333333333],
10583 AbsoluteThickness[1.6],
10584 LineBox[{{5.279380609427602*^19, 1.567590363680303*^-15}, {
10585 5.741326412752517*^19, 1.8539205410462854`*^-15}, {
10586 6.2032722160774324`*^19, 2.1642544458561208`*^-15}, {
10587 6.665218019402347*^19, 2.49859207810981*^-15}, {7.127163822727262*^19,
10588 2.8569334378073542`*^-15}, {7.589109626052177*^19,
10589 3.2392785249487555`*^-15}, {8.051055429377093*^19,
10590 3.6456273395340085`*^-15}, {8.513001232702009*^19,
10591 4.075979881563109*^-15}, {8.974947036026923*^19,
10592 4.53033615103608*^-15}, {9.436892839351838*^19,
10593 5.008696147952892*^-15}, {9.898838642676754*^19,
10594 5.5110598723135635`*^-15}}]},
10595 {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.008333333333333333],
10596 AbsoluteThickness[1.6],
10597 LineBox[{{5.239369630411721*^19, 1.6894501296536986`*^-15}, {
10598 5.6978144730727465`*^19, 1.998038754898258*^-15}, {
10599 6.156259315733772*^19, 2.3324970852531424`*^-15}, {
10600 6.614704158394798*^19, 2.6928251207183424`*^-15}, {
10601 7.0731490010558235`*^19, 3.07902286129387*^-15}, {7.53159384371685*^19,
10602 3.4910903069797163`*^-15}, {7.990038686377874*^19,
10603 3.929027457775887*^-15}, {8.4484835290389*^19,
10604 4.392834313682377*^-15}, {8.906928371699925*^19,
10605 4.8825108746991935`*^-15}, {9.365373214360951*^19,
10606 5.398057140826328*^-15}, {9.823818057021977*^19,
10607 5.939473112063789*^-15}}]},
10608 {RGBColor[0.528488, 0.470624, 0.701351], PointSize[0.008333333333333333],
10609 AbsoluteThickness[1.6],
10610 LineBox[{{5.198309524864323*^19, 1.8212224973365504`*^-15}, {
10611 5.653161608289951*^19, 2.1538801691156808`*^-15}, {
10612 6.108013691715579*^19, 2.5144253103852794`*^-15}, {
10613 6.562865775141207*^19, 2.9028579211453404`*^-15}, {
10614 7.017717858566835*^19, 3.3191780013958685`*^-15}, {
10615 7.472569941992463*^19, 3.763385551136865*^-15}, {7.927422025418092*^19,
10616 4.235480570368317*^-15}, {8.38227410884372*^19,
10617 4.73546305909024*^-15}, {8.837126192269348*^19,
10618 5.26333301730264*^-15}, {9.291978275694977*^19,
10619 5.819090445005488*^-15}, {9.746830359120604*^19,
10620 6.402735342198814*^-15}}]},
10621 {RGBColor[0.772079, 0.431554, 0.102387], PointSize[0.008333333333333333],
10622 AbsoluteThickness[1.6],
10623 LineBox[{{5.156183650702426*^19, 1.963889227361212*^-15}, {
10624 5.607349720138889*^19, 2.3226058690464064`*^-15}, {
10625 6.0585157895753515`*^19, 2.711394564525573*^-15}, {
10626 6.509681859011813*^19, 3.130255313798708*^-15}, {6.960847928448276*^19,
10627 3.579188116865807*^-15}, {7.412013997884739*^19,
10628 4.058192973726875*^-15}, {7.8631800673212*^19,
10629 4.5672698843819115`*^-15}, {8.314346136757663*^19,
10630 5.106418848830926*^-15}, {8.765512206194124*^19,
10631 5.675639867073903*^-15}, {9.216678275630588*^19,
10632 6.27493293911084*^-15}, {9.66784434506705*^19,
10633 6.904298064941754*^-15}}]},
10634 {RGBColor[0.363898, 0.618501, 0.782349], PointSize[0.008333333333333333],
10635 AbsoluteThickness[1.6],
10636 LineBox[{{5.11297451886048*^19, 2.1185512306784833`*^-15}, {
10637 5.560359789260771*^19, 2.505517853907101*^-15}, {6.007745059661064*^19,
10638 2.924924792855482*^-15}, {6.4551303300613554`*^19,
10639 3.3767720475236274`*^-15}, {6.902515600461648*^19,
10640 3.8610596179115355`*^-15}, {7.3499008708619395`*^19,
10641 4.37778750401921*^-15}, {7.797286141262232*^19,
10642 4.926955705846645*^-15}, {8.244671411662524*^19,
10643 5.50856422339385*^-15}, {8.692056682062815*^19,
10644 6.1226130566608186`*^-15}, {9.139441952463107*^19,
10645 6.769102205647548*^-15}, {9.5868272228634*^19,
10646 7.448031670354046*^-15}}]},
10647 {RGBColor[1, 0.75, 0], PointSize[0.008333333333333333], AbsoluteThickness[
10648 1.6], LineBox[{{5.0686637393984496`*^19, 2.2864457199797356`*^-15}, {
10649 5.512171816595813*^19, 2.7040793210197862`*^-15}, {
10650 5.955679893793178*^19, 3.1567241221470248`*^-15}, {
10651 6.399187970990542*^19, 3.644380123361449*^-15}, {
10652 6.8426960481879065`*^19, 4.16704732466307*^-15}, {7.286204125385271*^19,
10653 4.724725726051875*^-15}, {7.729712202582635*^19,
10654 5.317415327527874*^-15}, {8.17322027978*^19,
10655 5.9451161290910624`*^-15}, {8.616728356977364*^19,
10656 6.607828130741439*^-15}, {9.060236434174729*^19,
10657 7.305551332479004*^-15}, {9.503744511372093*^19,
10658 8.038285734303756*^-15}}]}}, {}},
10659 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
10660 Axes->{True, True},
10661 AxesLabel->{
10662 FormBox["\"r\"", TraditionalForm],
10663 FormBox[
10664 "\"\\!\\(\\*SubscriptBox[\\(P\\), \\(ram\\)]\\)\"", TraditionalForm]},
10665 AxesOrigin->{4.9673928603265516`*^19, 0},
10666 DisplayFunction->Identity,
10667 Epilog->{
10668 Directive[{
10669 Thickness[Large],
10670 RGBColor[1, 0, 0]}],
10671 LineBox[
10672 NCache[{{50000000000000000000, 1.488545624999999*^-12}, {1.2*^20,
10673 1.488545624999999*^-12}}, {{5.*^19, 1.488545624999999*^-12}, {1.2*^20,
10674 1.488545624999999*^-12}}]]},
10675 Frame->{{False, False}, {False, False}},
10676 FrameLabel->{{None, None}, {None, None}},
10677 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
10678 GridLines->{None, None},
10679 GridLinesStyle->Directive[
10680 GrayLevel[0.5, 0.4]],
10681 ImageSize->{823., Automatic},
10682 Method->{},
10683 PlotRange->{{5.0686637393984496`*^19, 1.155*^20}, {
10684 0, 8.038285734303756*^-15}},
10685 PlotRangeClipping->True,
10686 PlotRangePadding->{{
10687 Scaled[0.02],
10688 Scaled[0.02]}, {
10689 Scaled[0.02],
10690 Scaled[0.05]}},
10691 Ticks->{Automatic, Automatic}]], "Output",
10692 CellChangeTimes->{
10693 3.6447665467790003`*^9, {3.644770485001*^9, 3.644770510068*^9},
10694 3.6447707125*^9, 3.644770857869*^9, {3.644771014493*^9,
10695 3.644771039223*^9}, {3.6447711461940002`*^9, 3.644771192848*^9},
10696 3.644784655795*^9, 3.644784759207*^9, {3.644787090282*^9,
10697 3.6447871092390003`*^9}, 3.644843992593*^9, 3.644844022899*^9,
10698 3.6448440767469997`*^9, 3.644844179698*^9, 3.644845502052*^9}]
10699}, Open ]],
10700
10701Cell[CellGroupData[{
10702
10703Cell[BoxData[
10704 RowBox[{"ListLinePlot", "[",
10705 RowBox[{
10706 RowBox[{"Table", "[",
10707 RowBox[{
10708 RowBox[{"Transpose", "[",
10709 RowBox[{"{",
10710 RowBox[{
10711 RowBox[{"Table", "[",
10712 RowBox[{
10713 RowBox[{"r0phys", "*",
10714 SuperscriptBox[
10715 RowBox[{"(",
10716 RowBox[{"Cos", "[",
10717 RowBox[{"\[Xi]", "/.",
10718 RowBox[{"First", "[",
10719 RowBox[{"FindRoot", "[",
10720 RowBox[{
10721 RowBox[{"\[Xi]", "+",
10722 RowBox[{
10723 FractionBox["1", "2"],
10724 RowBox[{"Sin", "[",
10725 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
10726 RowBox[{"kphys", "*", "tphys"}]}], ",", " ",
10727 RowBox[{"{",
10728 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
10729 "]"}], ")"}], "2"]}], ",",
10730 RowBox[{"{",
10731 RowBox[{
10732 "r0phys", ",", "rphys1", ",", "rphys2", ",", " ", "rphysstep"}],
10733 "}"}]}], "]"}], ",",
10734 RowBox[{"Table", "[",
10735 RowBox[{
10736 RowBox[{
10737 RowBox[{"(",
10738 RowBox[{
10739 RowBox[{"(",
10740 RowBox[{
10741 RowBox[{"(",
10742 RowBox[{"4", "/", "3"}], ")"}], "*", "\[Pi]", "*",
10743 SuperscriptBox[
10744 RowBox[{"(", "r0phys", ")"}], "3"], "*", "\[Rho]0phys"}],
10745 ")"}], "/",
10746 RowBox[{"(",
10747 RowBox[{
10748 FractionBox["4", "3"], "\[Pi]",
10749 SuperscriptBox[
10750 RowBox[{"(",
10751 RowBox[{"r0phys", "*",
10752 SuperscriptBox[
10753 RowBox[{"(",
10754 RowBox[{"Cos", "[",
10755 RowBox[{"\[Xi]", "/.",
10756 RowBox[{"First", "[",
10757 RowBox[{"FindRoot", "[",
10758 RowBox[{
10759 RowBox[{"\[Xi]", "+",
10760 RowBox[{
10761 FractionBox["1", "2"],
10762 RowBox[{"Sin", "[",
10763 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
10764 RowBox[{"kphys", "*", "tphys"}]}], ",", " ",
10765 RowBox[{"{",
10766 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
10767 "]"}], ")"}], "2"]}], ")"}], "3"]}], ")"}]}], ")"}], "*",
10768 SuperscriptBox[
10769 RowBox[{"(",
10770 RowBox[{"-",
10771 SqrtBox[
10772 RowBox[{
10773 FractionBox[
10774 RowBox[{"8", "\[Pi]"}], "3"], "Gphys", "*", "\[Rho]0phys",
10775 "*",
10776 SuperscriptBox["r0phys", "2"],
10777 RowBox[{"(",
10778 RowBox[{
10779 FractionBox["r0phys",
10780 RowBox[{"r0phys", "*",
10781 SuperscriptBox[
10782 RowBox[{"(",
10783 RowBox[{"Cos", "[",
10784 RowBox[{"\[Xi]", "/.",
10785 RowBox[{"First", "[",
10786 RowBox[{"FindRoot", "[",
10787 RowBox[{
10788 RowBox[{"\[Xi]", "+",
10789 RowBox[{
10790 FractionBox["1", "2"],
10791 RowBox[{"Sin", "[",
10792 RowBox[{"2", "*", "\[Xi]"}], "]"}]}], "-",
10793 RowBox[{"kphys", "*", "tphys"}]}], ",", " ",
10794 RowBox[{"{",
10795 RowBox[{"\[Xi]", ",", "0"}], "}"}]}], "]"}], "]"}]}],
10796 "]"}], ")"}], "2"]}]], "-", "1"}], ")"}]}]]}], ")"}],
10797 "2"]}], ",",
10798 RowBox[{"{",
10799 RowBox[{
10800 "r0phys", ",", " ", "rphys1", ",", " ", "rphys2", ",", " ",
10801 "rphysstep"}], "}"}]}], "]"}]}], " ", "}"}], "]"}], ",", " ",
10802 RowBox[{"{",
10803 RowBox[{"tphys", ",", " ", "tphys1", ",", " ",
10804 RowBox[{"5", "*", "381360279481384.188"}], ",",
10805 FractionBox[
10806 RowBox[{
10807 RowBox[{"5", "*", "381360279481384.188"}], "-", "tphys1"}], "50"]}],
10808 " ", "}"}]}], "]"}], ",", " ",
10809 RowBox[{"AxesLabel", "\[Rule]",
10810 RowBox[{"{",
10811 RowBox[{
10812 "\"\<r\>\"", ",", " ", "\"\<\!\(\*SubscriptBox[\(P\), \(ram\)]\)\>\""}],
10813 "}"}]}], ",", " ",
10814 RowBox[{"Epilog", "\[Rule]",
10815 RowBox[{"{",
10816 RowBox[{
10817 RowBox[{"Directive", "[",
10818 RowBox[{"{",
10819 RowBox[{"Thick", ",", " ", "Red"}], "}"}], "]"}], ",", " ",
10820 RowBox[{"Line", "[",
10821 RowBox[{"{",
10822 RowBox[{
10823 RowBox[{"{",
10824 RowBox[{
10825 RowBox[{"1", "*",
10826 SuperscriptBox["10", "19"]}], ",", " ",
10827 RowBox[{"1.4", "*",
10828 SuperscriptBox["10",
10829 RowBox[{"-", "12"}]]}]}], "}"}], ",",
10830 RowBox[{"{",
10831 RowBox[{
10832 RowBox[{"1.2", "*",
10833 SuperscriptBox["10", "20"]}], ",", " ",
10834 RowBox[{"1.4", "*",
10835 SuperscriptBox["10",
10836 RowBox[{"-", "12"}]]}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], ",",
10837 " ",
10838 RowBox[{"PlotRange", "\[Rule]", " ", "All"}]}], "]"}]], "Input",
10839 CellChangeTimes->{{3.644766392539*^9, 3.64476653409*^9}, {3.644770263342*^9,
10840 3.644770334935*^9}, {3.6447704072200003`*^9, 3.644770517192*^9}, {
10841 3.6447705613929996`*^9, 3.6447706575480003`*^9}, 3.644770778675*^9, {
10842 3.644770814119*^9, 3.6447708305360003`*^9}, {3.6447709766029997`*^9,
10843 3.644771025705*^9}, {3.644771132549*^9, 3.644771180341*^9}, {
10844 3.644784710115*^9, 3.644784715525*^9}, {3.644784868439*^9,
10845 3.644784918969*^9}, {3.6447850244639997`*^9, 3.6447850397019997`*^9}, {
10846 3.644785113538*^9, 3.644785179789*^9}, {3.6447852369969997`*^9,
10847 3.644785248801*^9}, {3.644785301657*^9, 3.64478531681*^9}, {
10848 3.644785357594*^9, 3.64478555558*^9}, {3.644785633946*^9,
10849 3.644785658917*^9}, {3.644785738395*^9, 3.644785763133*^9}, {
10850 3.644786054576*^9, 3.644786083888*^9}, {3.6447861411879997`*^9,
10851 3.6447861561949997`*^9}, {3.644786187531*^9, 3.644786229648*^9}, {
10852 3.644786270428*^9, 3.644786323342*^9}, {3.6447863868*^9,
10853 3.644786387407*^9}, {3.644786512087*^9, 3.6447865252320004`*^9}}],
10854
10855Cell[BoxData[
10856 GraphicsBox[{{}, {{}, {},
10857 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.002777777777777778],
10858 AbsoluteThickness[1.6], LineBox[CompressedData["
108591:eJxFyg0w1AkYx/FFK+yuXUKbVjrkKi9R0eZybe5fXup2ymyorh2zjshGbXU4
10860e61Ou6PToRfSTsrbLDcR7oT/dmWlDELa9I6curwkZYfphequmeb/e2aeeeYz
108613+crSWJotDGNRov+fz/ftEKz79/VWRC0LzPD9lJ3G+BkRfhQmSeD8uT4oZWK
108623Qximbd/4HF2BblXrDkcpkEf6+zs8hhkEJ/05oka00oy1n9qPn0Bk+rPKnhx
10863vdvgSB5R91cu3JsZb5J5m0k4zzes2WZURUZMn9gsYbGo3rNbW7A6mEU0DKj2
10864pRpXk5sf/TPKUbKIXK1B4kZUkx3B5vxhHf6DSC9l4wx8fXGEPo9vSVmQr3BM
10865OAD/PbtMur4a5id1kbwxuPb5lOnk12zKXmEOoptRcMUNoqj4PLzYRzqe8hgO
108661bcVlDM4lDm/7SROLYG71k2MKgLhY++OHI+PhkNquPzwdNgsrqI/oAhuWShQ
10867ejbCRx7ccbPvgwNydunp0zAtaDp5gmtF+eqnLMc+X1he79TSKoL9EuuktTL4
10868rWvInMIcuK6/j8y8CB/I2xeZ1AEvF9JnR43Cr+lnKoVm1pQvXnEX+bnC0oO6
1086994sIeKmHqMhKAg8/Gwr8oIA1Z1PHhwvgH0Xs3J7LsBOz5BvdQ3ig2Xfwwhv4
10870XGp7xmnbOZR/WCFelr4Ctn8xcTdhC/ygWCnfngjnbZ/nvOF3WGRd2eZ9AbZu
10871F+x1aIO7D/fYmQ/BWatjr0zOsqG8aWI6asAJtvgj26JDALdGOtfUi2EVtz68
10872RG5DFAd9J8sOaySJ7pCPWWp044z+0p8bYN1a2caYe/ChN3TDlkl4TdWZfH9r
10873W6LcoHwhOakj38d4rF3iZUv1hgVN/9oI4Z/uiY7RpPDKrOHlY0dhw3r5w/tl
10874toTxVTMf+q9NZPUHdlrzDfSESyWuVU9h9z2rOtVGdpRHXW7uVznC5b1ie5k/
10875HHPKoNu5A3bZpNoVnAIPmthb+py2I7SNtzPiWM1k4eXK2oWX0MX71+1g3oF5
10876bneN3r6GHw3Glj+1nEs5Xz0jvOUOh4XmTGlDYBsLl7OaWFjfVB9wQgXnpGwc
10877+aUUFno/yY67BjNHZL5bB+D2QtM+wUc4I0Kd7s7jUt7A8VzK9YNntTZ1m0TA
108781xRbk14dhNNWjTg8Pgl/+0p+vaUGntFw4v+8BWvFpVbnXsLJdvyGo4x5lP8D
10879MaR3+Q==
10880 "]]},
10881 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.002777777777777778],
10882 AbsoluteThickness[1.6], LineBox[CompressedData["
108831:eJwVxXk8FIgeAHBHtTGDuY+iTQ2jeErSRL/G9cs9jmEux1AiWa+ea1XruY+X
10884W17WTtPaCB0rbUStiJYPOWtbS2afEEV2UcprUe17f3w/X8MjJ4VhGmpqamH/
108858/9L5I2vqxu0UdWU/n1VngMoJlMJpxe1cZ71sE5/3AEuhQuM3M0ImGV9Y0Sw
108861xGuvGLZGkQQsIptybU+6wh1J6akC5UE9LwruTA25giNb+pi2p8R8J8sfSu+
10887FULLl1/llWwm4n5eyltJHkLHilN1mISICfSMp6ZTCL1JlDZeCREzHnCn7sIh
10888+Flj7KnWIBELSV/QNEoPwdOsq0sqbR3cfdAzct3iIRjXjte54aSDPVqPp9vc
10889nGCmwI6bkqaDdVVLWbxqJ1igEO2FrTq4Tb1REKHhDMulw/6cFR30JLBsfIOd
108904cOmyrhlK11ULrM93t9zhnXlJwq6o3XxclFzumSzCxC221xR1Oqixau18X+c
10891cQFKzfoHUbO6KNAcC8VRF2CbPlbxjfTwD5Wc+LONK2ytU74jHdZDRlzyKFvp
10892ClzLCL3nSj3s6rUd2PzRFcybLHfcHtFDteflL4dD3ODCxeRLjtokTK0uN/bs
10893cINvg8NumJmQ8DNv29wkE3eoMHRvpjuRcLgqiX483x2qnu/u/hhKQpvmoE6d
10894JXe4WsUYeplKQkrRb4oomQd8f2xt4lE5CRM5q+cz2zzg5o7J+bstJIw8dbdR
10895aiKA+rmu1QoVCV/kMj9MFwmgqbZ2Y96fJJyV04//bUUAP54socczyRjz+taK
10896+VFPaLU4vU1uRcZMx8UfXg14QvuSfJezLxkNRP0FITZe0HkbYXc0GQ8YuxUX
10897VXtBd8JOV3YhGeMC6gNbtLyhz5ok1qglY356cXqhnTcMrr47MtdDxuO5ti2t
10898Cd7wpEV18pcZMmrFtmi513nDr8ntiS0bKPiFDeH43pfeMGpfc7aaQ8GvJ0xU
10899Zz73gf9o5pcWOlDwYxwjZIvUByY6YypPhVBwz+CT/24p9oGpbOnNw0kUjN92
10900uCKxxwdmXPktbkoKjh9oDeatE8LvBE6P5Y8UVNnP7fLiC2GhX2tYf4SCF7kz
10901lI5TQlgqXHi+fpmChn80bCytF8Kyz9DiPJWKked8yJ3zQlihNn8YtqBiArPV
10902zGenL3wY+k673YuKrokr/jbhvqBelsW89ncqqto2KFMqfGGdfxSnJJeK+6Yn
10903F7Y/84WN+kKLxKtU9JotEHP0/YAwxuOHdVFxT7/2o1SZH+h9Z+DuOU3FoSJx
10904IHztB5QjmlKeJg3t98as+g75AYMze3SrIQ1PNAXVdlNFwH4xEK1lS8PgTewY
10905hVAEBlcakt4E0pAWdNn1YbEItkYqclVnaFiY/MlS9FgEHLOUso4yGnan7rTg
10906k8XAnQ+rqm2kYV+okX2GjxhMb7rfKv2FhkVGi6Hcc2Iwj7G4n/yGhmnDOd9w
10907n4hhz15mXwSJjuEu7yYyaBLYt7w24mNOxy+v7jpoK5aA9Z3JaRsPOnq+sr4u
10908LpPAwTPdb7ZH0nFKm2bWOyoBO7jxifgvOtoTWu8rDaSAH0uIy1V0DJ3jhfeG
10909SMG57TT72U90dLme+rnkshTc04KNuyfouOh2Yc52RgqeeMjyh090lPdk9GSa
10910yUC4wdROYcDAgh38eybRMhB1kwTpBxiYFdHVZtIoA1nOsixKxkCb7K0jmasy
10911CPT4LVyUwMCWTFcNO3t/CNF9EMs/z8C1UAdbSbY/hD6qSeHWM1B9G6Gwt98f
10912jp3Lzyc9ZmDX/crXSloARPrFKv6cZ6CGD/FYb0AAnGDIaiaJTKxR4IK4MgCi
10913R/gNvTuZ2D7skWM7FwDxCk57gwsTS99y9mdaBsKpQO2Bi+FM5L3ue89NDITE
10914LYujWRlM/Hc/9nE7AyF5fOjlyQom3jubdytDNwjSK5rfStuYWGF0+TpfGgTZ
10915Ry+pO4wxUT0vt0lUEQQ5xtm6pmtM/GnN4deHvwdBwUzUZtomFi7zej67wJND
109168TWhyQceCxeFhh4P0+RwPmq/1QsRC2sFLpV+A3IoM9/iMBjLwl0mtjoHNwWD
10917clHT604xC2Mn1+ekhQdD+a3ZgEt1LExJVLKN6oOhMm4wIqefhZyv1OUUtRCo
109183nc7PnaOhQs1yjttxiFw7b0iLVCLjWUd5cqLghD4C/xFsF0=
10919 "]]},
10920 {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.002777777777777778],
10921 AbsoluteThickness[1.6], LineBox[CompressedData["
109221:eJwVi3081IcfwG9m6I5z973HQg/TFWVEFO1jm/o4P0WKrSWRznnoOI5zx3HO
10923RcU8rY1fsZhMpwcPvcyQrRAWpn5kkijRpKnT5uH0yqJf++P9er/ef7zXCWJ8
10924Q/VIJFLoO/71DUMt7Wo1Ge/sLz5cXSaAIdVAXuwUGe8N+5LSdQKY1103duRR
10925MDWtrpixOwRMxZqshWAKWno12x8pDYHNE7lGTcUUtHGUtoTqQoAfID+VPETB
10926YPd+941eQhD0B+l/wjTG+fiRjvJyIag8PdJI+4zx5K08GPlHCEWtdqT2bGMk
10927dmir7nweCvXbuaqTncZY1zPHSq4Jhb4a0huP903QIkOT8IdRGGh5UwrypyZ4
109285vB7/QbCMDAsufvqdpIJ0g8b8p62hIEl82fZ1w0mGCRrlKjMw+HT7B/m9s+a
109294PWf6PX9inA4pJcdy7SlomAVe3b8fjjIFdK/Bo9RUVzUsbFqWwR883eAuEhD
10930xQ27LA7Yn4mA6nB8ETBOxXTy2pTYhQjoGrU5ttrCFEfmbhdHfXkMJr5gPRs7
10931aIo5i5b1HzYdA9KdJWF5gSnKbXi38s1EYIaTT0L7TLE5ua+3RSWCc4HhW5gG
10932NDSc5vVXPBGBdVFAjM6ShrvUvDv/8YiExgGfmkE3GiY59bZqqiLBnYbTjUdo
10933eNHQsvoGEQX9e5xtilJo+PiDdd+eVkRBcIZNZNI5GlLWdcesHo+Cl21rrwQ0
109340dA+yIwf7ikG5TJzCu7TcLmRw4r8UQzkHSusVutoaOTS/NDaPBrOypbC3hJ0
10935zB6nlpSfigZe7YxmbAsdv69YcWBoJhrqtE8nbu6l45XcGsOuwBhwsxq2LI+i
10936Y+2Zpdq432KgN+R/ghNZdFwITN6kNZPA4dK2stBLdAww9E584yuB58MNY/xb
10937dBxplu4UZUkgkV25xmqCjn4Zf2U6tUnAwLc0aIUegc2BrXuCFiWQn5tf8nwN
10938gbhnMmvCIRbWdWc87HElsIl/lN8VGQtX9ZVm1QEEbvSzV63QxILrZ5JDeQoC
10939j4oPOFwajYWeZGFRzFkC2871CS5w4+Bg48GhffUERo+Wmi77xsHkrBfH4XcC
1094079p2ONfnxkG8rdsBxgyBQzmuo91dcaAncvrvPJWBdm8pJNCXwmmN9cA9GwZm
10941pNl9T/lMChbjFozG3Qz0X3XpmrNSCpXmhG9hBAPrWmQ+7dek4HLQ4BvFKQYm
10942xhUKKnVS6Mxf7D10gYHtLrTZvx3i4fPel1RoY2Aj69FSviQenpD/8LYYYyD5
109437fLJgpp4kPDv5ywvMbBQJ8ua1cbD8vGensdmTKzQ30mp2SyDnBst5JsuTORY
10944hBh1imSw8nWd5w9fMnH73gfHXa/I4KLjpcx0GRPVORcS6M9l4CQp7hTmM7Fl
10945pGNq5yY5tFeeNuDXMvGf7TuG7orksP/ZCfeNvUy0uay/q7lSDqMfKk4YTTNR
10946abd+k9G0HKKCxO1TZBY2tBXmXrVNgMWio3o9VixsEgjEP0kSIPPeF25VfBau
10947Nj/eza5LABZ9tzpXyEK/J/Nlg7oEKPf6pCU6jYXqphsLc86JYJ/psOxznoU1
10948ZSOd0cpEaGnf4GrfzMIH3+1lebQmgvfbVUriIQvTz7MfK/UVMLzD9Je51yy0
10949bt3Ko3kqIEL+/uIAh43eWs0zUp4CFmpfOTc4sTHaWrzB53cFnJh+kXDWj41f
10950JXw1vshNAsJ6rCExlo0XBxe5+keSoFQ4oPP/mo0d/Ju3RZok+Oh8l+PH1Wx8
109510Pnwja02CX4ZuS4172Gj1t/78r6tyeDJqf1x6U82kpaI/t6kZBj01cyMGnDQ
10952tPajhKq2ZBDmFW1pXc/BNfKSwkmyEma7c2PKdnLQykuwTeWnBPUHaTVpwRx0
109533KrcJy1WAtVNPh2i4uD2zS8mf32qhHNKkY17MQddHa++ltmlgPW1oMgNP7/r
10954vV2Z6YoUaJzzvWI4xMFJ6baCl+0p4G7nMfWn7t1f/9qskaqCftHHVr8xuOik
10955R6x95K+C4Aq78Ep7LtoGp54P1qjg5bhlRY4PFwu63UrcZlSgtOA+FYu5SPj4
10956s9WuqUD2N17vk83FwOFfKeZZqXC2gBSy5TIXXx3PSGHdTwVe33wZvZOLklW9
10957TtsINdRRpsZmJ7gofKMfSXNRg5vHozUDeitxMCw0aGWwGv4Pi4m/2w==
10958 "]]},
10959 {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.002777777777777778],
10960 AbsoluteThickness[1.6], LineBox[CompressedData["
109611:eJwV0/k7FAgYwPGhlGPMaY6sbVyRSo4tipdKL6no4FG0bM5HrbRszhrM4Rrn
10962DBVlqZaiPELShHbQholNixS7ZJGVNkk50qDd/eH7fP6Cr57/D25BygQCIei/
10963/veY9c9A/lkdl9rI1cVfR8Jz48oq6aA6Ts/pv77BjQQ39gND3zUaKPceUYkf
10964iIRO1cf5qh4aKFhwVTexi4J9C73EarEGvu0Mmi0tioLWiRGe128aeOWFSdtn
10965QjQ4/DE1o6RKxFVrLifoBUaDrH3xxK3dRHST3FurI48Gmwa1QbcEInJ3JpS8
109662RQD98qZhxX1RMw2mqFk5sSA5U8GLcVzREzdzQhcsRADtzPMt7tYaqJ/3kih
10967q28sbIizq5gJ1cS1+t6yEHks3Ajdp1d4UxP7xvgtPhZnQf+7oxccxzTRecC9
10968xqDgLBQdCFR7p0vCao3ulF9UzoH2jvC4i94kXAxfdNgYfg4umsVP2+eT0ILc
109698+rU4Dmg6aYHjfeQ0GnUI1SwjwtZlPz+bDIZd71LHAi5zwV1peuu2/aTkWPu
10970a2liHAfJ09XNfyWTcbhs/HT9xThQHpFtFT0kY6LnVzmc1fEQ391x02KZjLQd
10971igLPmHiI83tLmtShYIJ3SkbQm3ho6P/g3GxDwd+rGgOcfBJg4fCC4IInBVWh
10972RE/xewJYt395cDKKgtQE7dFmfR5EOqyatztPwSzF/fVhPjyoqSda0O5QMD63
10973wi81nwfTlvSQv59S8JXTp0z1ZzwwK19zvX6SgnWMSxVzZD6EGugOZWlQkUAQ
10974N7m48KG8wGhNgAkV61UGW4kiPkzQTd2t91Bx1IjXZNXKB+OMbzI1gqgoCIit
10975aF8hgKCVNm1DAipmN8gz5bsEUMzdqXT3KhXJZqf9zHkCGJ5xsk2VUXGF7OR6
109765UYBcEJdI70HqBh8omHEblkAPmPuleafqWi3OUA8aieEAp9jEyvZNEwi+1l8
10977jBNCf6+vQf9WGiKxtuWUTAisA8E+Fe40DDM87nroixA8WkPz+OE0JHselxfu
10978TIRc+4guj2wackprrTwEidB176zGhgoaXqf650c9SgSyGd9xuZ2GF/ICJ5VW
10979J4FraUpC92saftn2y9b5vUmQzsmqu7GKjr2zIeFHMpPgcd75j2cN6WjQGXaV
1098005UEqykFpgcd6PiyueOhGyMZHFOvBRv40pHYxe2b8koGIaHs2nwcHW8rhMNz
10981RcnQHHP7z44COjbuGh4MfpUMX97fZVyto6NT8fknDhtSwO5kw8GIF3S00y2q
10982SglLgXPDzSLnWTqW3l9KtpKmQJ2X/FcduhYKTtUcOricAvNdnUvvzbWw07ZR
10983s9sxFbbu67VuOaD13y96MllmKpx5+Gf4pVNa2LSp34/xPBWqbUbKQ9O08PiB
109848U+9a0Uwdef12K4yLYxN3y8knBCB6cYpDrNVCxWjKkoXqkUQUjzr9WZUC+eO
10985Mn/MVYjg5leLuTIlBgaMc58rHNNgPFe5M4fDQIec7Zs7xWmwjqimGmzHwHRP
10986l1j1gTQISCQ72H7LQFebWmmVcTpcW2RwybEM5FtHTDSdSYehCJ17oxcZaHBI
10987RLJtSoevJ/XfS+8y0D5xxoijmQHfBplsyOhmYGtPrWXosQy4NGgW6PuegY/s
10988n1isK8uAFx5WRVtITNzcYmO4Zy4DGJ3Qp7qJicTgZbUezAR3p920wb1MPG7I
10989HpXnZoJEttelOpiJhkspletHM+Gp1aHkpCQmHp12/eGDZRZoVh5p8ipmooLw
10990vb6RMAv2G/t8Nm1motamAfmvPVkguhKwRXmIievCSvw7DLOhjfX96eeLTCx4
109919nAKorJBRRxWdkubhSQ36zC2PBt2q0aPxG9jYfQs4cNmTTHweXE67kdYeOWg
109925HqylRgaPwmPGEewMFH6mxvdVwxLYWlihYSFOqY1C89EYrCdELc/rWThmSq8
109933FEjhli/vJUlT1hovJO/ZX5QDNL+QvuYf1jo/NcJ+VFVCcweLolxUWNja4bC
10994Y9JSAt+037qja8xGwp7tg1IfCYQ7VL+dQTZOk/S/k6ZKoLJeavTYn42XX9X2
10995/VMjgUlLmW8hj42KthkXjyEJbCx/dDm8iI3adS/rP6rnwEmDjmeOD9g4JT2j
1099632aVA6UFXSTtP9jIfVQjfOqfA2P0Pud382x8/LLoJTE7B/4Fh/HN3g==
10997 "]]},
10998 {RGBColor[0.528488, 0.470624, 0.701351], PointSize[0.002777777777777778],
10999 AbsoluteThickness[1.6], LineBox[CompressedData["
110001:eJwVjHk8FIgewIc+lcwYc89kbCKVqxgdW96vtnl+Qut5JbGSig21rStXm5wz
11001jZhpBmMO15gUVrl2yXZoJ1vzso6kDT3xSEQ6lFaK9nm9P76f71/fr2VIlE+o
11002IYFACP3M/90X+Sbkdq4xFh4JZrNnM8Ahlejn3mmMdF9LcoSXANJkazzbjYj4
11003U1CtX3qZAHpK+fBPJGJ0utHbvR8FYFt/wPGPVCL66xwHR3cLIeVWopX/DSIG
11004sa25G6uE8OB+HvPxeyJmZ41d4huegbVPaowOOZPw38w4icmBM5D0tnV+JIKE
11005u5u7dKqmM9BlMPo6rIqEL05/wGGqCKxpC08mR0l4yf81dzxCBCetzHoiV5qg
110062OsnrG4TQafzptbpQBOUBvJ1jjaZYOm6+0aCygSvCzXiGFEmJOw9Xjv3wASN
11007WlurYsYyoe1b0fkUMhmTVt9a7uR2Fizizucb7iIjuUT4uLr8LMQKmzNFZ8jY
11008tp41Nb4kC1rz+04Zt5Cxsj/O98nRLDAvn46QfiLjZa2WWNCeBdFXTIJpW0xx
11009Ib2AYeqYDXq9ja8y1hSXJx2KcpVnw/JeV3ezOlPMlk1zN3/IhshnB100k6bI
11010/dXHbDxIDMHzzSwqnYK9S9K+87sjBrFgF+UPJwr+fOwUSWgvgSbio2UKbwrW
11011POMTouUSGJaHLvL/noIdyb1uZp8kYGz+7hMnm4J0xy2DGaHnYOPFtPf9lRTM
11012mAv7V1XXOTjoQH5TrKcgczjEQOYihazGoucHn1JQP2Qvda6QQgPYPl1pQEXN
11013x5bv82kyGLzTNDCygopF61aXNKbKYOk/sPciUNEueZ+F/JUMnHu6u8L2U/G/
11014MVUf2etz4EDQod9tTlKR1yCV6ENzQDT28rdJBRV/SN/v8aAkB+ojTjVXN1Dx
11015/gBp3fbeHOifWdoU2f2515e7LDPNhcUpijqnKSo2uqyO2eCRC45LVlVNk2jo
11016tk18vzk9FwKk9WWNdjSc6Oj7pvxGLghY24sTPGioem5s/GomF2o17YotYTSU
110175lmPyp3y4NGaANmcgIa8NuvxguN5YFj37GzzeRqaS4n0hYo8cPgyLiNFR0P2
110180KPw2yN54KczOL1jkIbWNyVjz1bIId1dFm84T0O+zVrJsUA5XO4yj7rDoeOJ
11019lT8Gfq2WQ4//paOizXRsLDf1lfTIYWHoyxAPXzpOXQ2Kd6Dng91RfaDxCTpG
11020+efp7Pfkg+8bn30dMjpOCGqcs2X5kHJy2Fta8/m3re6e+718+JEQ6bG7nY5U
11021oUp+xEQBD87O82nP6djiH5Y+7KWAvyhZf3u4hIFpV7nqGxIFrC1gbVJaM9Cn
110224pe+mQ4F7LG8uP6bvzNwi6XLDpmJEpKqeDZmhxnoZHuhO9NbCRU8neVAMgM3
110233ZwWD8mUcP+aF1dTxEC/YZsoZbcS5vj9jMPXGCiUuSVV01Vg3RZOtupj4K12
11024j3pLPxV4+8wsHf2TgVZKZ/J7tQp+6M8wqKAxMf6FocJ2QAUXQijz4U5MnLx3
11025DZst1NA5WfKnrTcTY7/y/6L2WzXMnrB//eI4E0nbHq9YqFSD1fzV8ZosJjbe
11026dfOse6kGL8HOJ1GVn39DyuJfeQWQQHzYz9Mz0V14j7MusQC08uCH70aYaNf0
110278uZccwG0cac6rxBYyI1/K167qBBmLpy+m7iChZYtAxkNnoVg4WDcshVY6FJY
11028W6bJKQTPRtX1+QAWHiOEv5joK4RYWN14M5GFZe8WB+VZFIHmzs81qQoWTsaK
11029ZwvDi6DVa0clv4GF3umz1w3ri2D6Yad2UTcLddxdlb9/KALzoMBC/WsWuroK
11030mqf4xbBzbEKeSWLj0GzZXJy4GGIiEs552rFRtLUqOKCnGIpmFmUSPdi43Uj5
11031ttiiBPTJuWmdoWxcduTYpa++K4GpxRanZAI2TnqtkvCvlICZtDp2z3k2Jrfc
11032VpYRNIAslwi6jo39+l1tIV4aiNTcDesZYOObfVfXZKg1oF6z77Bqjo1msaRq
11033wpgGfqsdCQjgcNDnC/f9/+GVwqvN0Xu5mzmo9j3K46aWAlv3l9fgXg7OcqJ5
11034v3SUAt9dvLM0hoMbNzmuCzDRwvEuzo5gGQfjLy73E23UgtK/YuuqGg7C/kT6
1103500At3BrasGGsjYMyP4/QKIEWJsNbHConOBhRIPna/rIW/gcjwsx0
11036 "]]},
11037 {RGBColor[0.772079, 0.431554, 0.102387], PointSize[0.002777777777777778],
11038 AbsoluteThickness[1.6], LineBox[CompressedData["
110391:eJwVxXk8FAoeAPDB5BzmPpKnfXJUFlFy9Culn6b0LHKFKIpUjpLXQ8QmlZTG
11040lGPGNTOMmUGuiJAcPbEvSnmbvLwuG8VW2OUVw9v94/v5fh8asy9MlUAghP3P
11041/08PX9fzc5I2NrvzD/lqZoF83aEG/WZt1GxbGIy/ngWPpnIlMbPaeIsaLu1l
11042X4fPNf28B5Y6GOA1OOIivg6008SUlcd1UK/D0OEPJg9sN2+Jipbq4NLeX23H
11043Anmw/+upwO7XOpjsdvVduIQHZ9vkezgGJMx4sNM59QMPilNe2UX5kdC4bsFz
11044g3U2dDqzTLv4JBygN9B+SsiGsRVuDPYACTUmIy94d2WDRl+aaqSWLj62N5X1
110456vBh/dWWLx2oi0YLrxKf+fDBzX36d2aqLqZuFC7Hifhwira2/3irLp5+4217
11046a5IPN38Nbr0/p4vTRIpBkt0NaMrPUTBs9PBK8S+336TdgJHAR3nHovQwr+rS
110474uiTG6A0VLvYLtdDH2ucO2l4E/7y1iGOPqaHNHMVsTDyJuyUngyNWE3GLkH7
11048YkDrTQiPkHncCyCjVUqSVr12DmSY/76NlkvG+WHHhyUBOVD1iWFxdJCMmYqv
11049tsaVOTAxLNUNVqfg0U/NPk6LOZDg2HlB05iC+hXxptNuuaBT+HKhfgcFGSP2
11050cgdRLhQq52ODDlLwberXEc5sLlgepH/USKbgTEFLe9auPLjfYRlSL6TguEWS
11051V4EwDzyNXIcPNFNQb9M2wbbPefAuLcxd458UjK4l8OIxH+L+ldpTN0vBI5Ju
11052uz3CfFDnFm49QKXimNYlXu2XfMiTNzWoW1FRMe4qrOYKYJ32M/O6H6h4xYHs
11053s7NEAC0nPkkCj1OxRWWoI3peAD/0a+mrX6ZijJNgdIOHEEYtTbJrpVS8MxNc
11054maEQQgxvu2ZgNxUvrzJZn6BWAISZwJQVb6jY0DLpvxxUAHyvn+Zqlqj4tr/e
110550eBuARg38qMCDGgY5Jf46DGjEBpZ1WNERxpG+jqT9U8VAje+L7DGj4akX7TV
11056FvoLYfjF2FP/H2m4sfGZLNa8CI5vIbgSb9BwilGkTM0ogoXCVZ3VtTTUngwn
11057mk4UwbWlzfb+AzRUt7VuC+EWg+GhfTVqUzR0nVsw3iQrhtrOKNNqLTqGmD/c
11058VqRRAjvWZBTtN6Nj93O+VlFECTy7UMZQc6Hj5Hxw+sZ/lMCR9/czb4XSsfUh
11059038DSwRz3N9U96fS0d9tkcvniuCyYi5BtZiOm/QOX3dKEMFKHdp0VSsd92m7
11060WtlXiqAy0iLC7wUdXbbXmSWNigAGdr9Smafjf+ry43UoYhiwOuJbxWBgbBDB
110616L2zGA5mp/T72jDQBifWkM6IYXpGiCoeDGwJ8ziXrBDDee87rZVRDFTvsrd2
11062HBUD486gjW8mAw38xeBMlYCU/W8FQcHAZPMrohwXCdglaH5f2cNAY/vZA5sS
11063JdA3sibfZ4yBmikvTxnWSCAAnMgEVSZuUdn1ymtMAlNFARcrVjNxY7uVdGhl
11064KSQv/6j03srEuUZBt8i9FMgh2XHLAUxMnEhzbE4vBVFX1aQinon+vp+0VrWV
11065go1xb6h3LhNfK4et+2ZKoTv93Yul20xsf72zvmtdGfiML3koBpkYumSZqRFS
11066Bu936/d6fWbiYT9hW15+GcRX2DotkVi4/CF91+knZaBN8rwjX8/CuabptUJN
11067KRRERVp47WZhc8foYdIOKVg8vlSmDGPhDqLrfF+CFNo3lK6Sp7GQd37zu6f1
11068UvDgt/P3iVlYuqXUzGxKCm9mX2gp21n4dyvegx6Tcjjt899U2UsWmgQr79Yd
11069LAdiE+UPz28stOv9qDEhKIdczl9jFtls/PnE/upjQ+Vglsh9X27LxqN7d93a
11070TJbB3d9Cgzy92HjuSAPR3VUGe7eeG1o4yUbiXUlDfboMXhYL9pZnsdF7N/Ve
11071SKcMogmNXR5VbIykEQwPKGWwHPLEYaGPjYvsmOdiBzlkd0/WSsfZOOUb/MHm
11072jByMTDTWeqzgIPlpvxf5thwaLhqVfDPi4NWL91h2X+TgMrGVJd3OwUtnLGwq
11073LBTwfI//NfdgDnLF35VHnFBARGUc8dtZDl7TyIqNVSjgG4l3tkzAwdWyc3kP
11074xxWQGV0587cmDs6c/8yIMK2A7570HPs6xEF6/uuPXmEV8CdqK8rP
11075 "]]},
11076 {RGBColor[0.363898, 0.618501, 0.782349], PointSize[0.002777777777777778],
11077 AbsoluteThickness[1.6], LineBox[CompressedData["
110781:eJwVxXdY0wcaAGACMiQhZP4SB8sRqFpULNrCV0X7gXUUUMAaKEMDQpmiUNSj
11079SgtoRTGlBBDQQIiBsDNkyZIwpNag8Mjx4ECOiIg2VXGkgtK7++N9XoeDCXsj
11080jI2MjCL+5/8/6Cl+RRVY4rOXZwxJc3nwwf9rr1ViS5THSjxDQvJhyeSbIs9R
11081S0xuOrhmhSYf3JMlL8JYZPQZ/KO6j1cAgabemOpDRrdrD7o9zxfA8bzZiwVZ
11082ZNxwJC9JMlMAhSsr9KpeMrq/f9s+yr8IzQ1+2waMKLjHZ77kr66LMOJpVDDt
11083TsHkpLrF46sKwTBc83xBCgUro8yc60SFQBzie9irKPh8tdm9/f8Ugus70zx3
11084PQU7Omptx6OLIOC0anqfkxUW2X2c+2qkCJKI0M1HBFZo7vsmMQOLQVROzs0W
11085W+Fb79w0iaoY1Bubp+SjVki1vedY7HAJhvrCoYdFxfLW/sjEnEsws4+e88iH
11086irudQj1WGF8G+lT75GwWFU3CLyvVRy/DupRoN6KPigPx6a12Ty6DrzlHuJ5k
11087jUVf00Oi+GJIKOjW7QZrXDTjVZitFYPQ8fDnUSnWqI1aESfcVgJ1TUuz01XW
11088GKeoHI1rLgHt9t//I9ZbIwhiEkScUnj33G1JMIuG2uGAzWF+pWD2WU7vs/U0
11089nFgr4hcJS4FInUo45kNDx0Re17ZbpbCy58vFZnE0NBRRkvkLJeBKEfXkZtFw
11090V7VX8piXBDz9n8U7yGl4Unq3azBDAv6XPBbV99JQlN4YuKFbAuGP87tBR8N/
110917fxzi4lxGSSt0cfdNKLj1vfJiVu3lkF60lfc/bZ0FAn9XujTyiC3rVAz6U7H
11092aKvMFouuMpAueBl7lE/HG0cs7+SQpKDe7cUhpdCxqlPncnabFDSiS10XRHRc
110939IY28Ve6FIYezMQsVdGRTPvtoaZXChMrdhBVt+loy4xcaWpxBV7FllzfpKfj
11094+XlhS8POK0BqeBvda8lAYpBSdDf7CtA/7mL7OTFw2bmHfQcGr4C9Z1nnuCcD
11095O9cYewSzZbAu++/v4wUMHGs4YXqDLwOPYW/WhzQGnuZt55SIZeBjI+s4K2bg
110961ZORyZM6GYRGzEVx2hgY1XHfruiTckio3cOUjTJQNikl2hPK4eTbinYXAwPj
1109733TyvRvL4cKX85HXWUxUP1s7/c3HchBn+jO8XZh4uv91TytWQK22qu2+DxOD
11098LpD1BecroJ1Nivw+jokat5QDE3crQBv8Ld2QxcRVtzcuK7aRw0NZbWuGnInE
11099rp1rNYfk8Kfe5BCjj4m5dcpfvlXI4YNrIK1Ux8Rf38c6B83KgXJSce1TEgtZ
11100a1LttVgJS/rMIlptWbjc61FIrbASVlODrXcAC5u250/P3asE933qln/zWXhn
11101neR6M68KdooXhoensPAYyeix7kgVBD4Jpc6IWFjaovL7sbMKop0bm0+pWLiX
1110232KdSamG4z9QBFZ3WHhunMmd41fD2Y6DVsV6Fu7w0cQ+qqiGQrOWJicyG4Wy
11103HiuXd9Ug97Y+2OjExlDd4rkZrIHm/AgKerHxqkXvZ8tENdA/1to4KGBjNrv7
11104WqeuBkZ4jAOhP7HxrCU7+48NtTAVH0XWi9k4Pnmt2jOjFgyNHQ0n2tjoX3mV
11105cB6uBfN/WGEW99jY4Gc8kMGrA2J7jGW+gY2DT6SDO47VAU/YdXU5m8DhsEKH
11106H2/WwcYRTqjShcBIzUS7rU09eNrFL9ziS2AmOa3c+XA9BET2qG/FEbgUEu/X
11107dNdDRP3ikMBzBNqvCqq7RVZAkuGwxVM5gX9XOrJnXRWQseWGKrmPwN9sbMtC
11108whQgOmMTbPKYwFcZmwNmsxQgvX3UPIfEwUPjvzhrGxSg5txU2tpx0OD88dOR
11109cQV0h9p/VwMcLEks9uNSlDBU8YOZWyAHqXJBya+blDDx4pbiRgoH3YYC6B4C
11110JcxsWh4UkMfBtS8TK3lCJZDSjpvqVBycJjVHYqsS6P236w/f4aDA3Gl34ZQS
11111HGi8wHk9ByVGmn0rWSpYvz91wXkyF8v0mWeeeqjAo3SobtEnXIwZODo2EacC
1111236dO/AovLr4uOxfEKlZB2LpTJq7hXNwco51P7VdBwrHhWs1PXNzj+EX/0ncq
11113OHV99X7fEi4uGxloer1cDUKLn43H2rgYdOKClrRXDf8FwnDOKg==
11114 "]]},
11115 {RGBColor[1, 0.75, 0], PointSize[0.002777777777777778], AbsoluteThickness[
11116 1.6], LineBox[CompressedData["
111171:eJwVlP8/EwgfwJ15JF/3fSsXN0TnyQldR/cpxScKj+bK6qKr9Di7PSUVpYW5
111181DqFQ6S6I7YZWzPMvmCIU1GSNPVEJ1Trq745X+4iXffD+/V+vf+BNytmzzex
11119piYmJrEf+cfGH9rkhWiJ2ynSw7YZJXDAkNe0S2CJsZF/fvqt9XmYsyLmRmCj
11120Jebwbry+ffo8nJF6D8+fsMSWRVR+AKkU3ImEsbeeVnj1XwRa3aZS0B8yEK7y
11121rNDzel1nU0kphD0U00rLrfDlYdfCbY9LYTAs0e3gsBWa0aL4v3xRBvFa9Au3
11122t8bEoojkhINl8MGRFrqQY40rCZY/328tg9xMY/RMrjXu3Hy0xWgpAtYfmnhD
11123lzX+frrVXBgpAlW0MF1uboM1LS1xF0tFEHiFk//jahsc6kkbyRsVQZ+nm2Rz
11124ig1+f80k8b2vGGLPTmk8dTa4RomOpkIxTJp2dpiP2WD64ZCH5w1iOL7rTP/g
11125YlskepNb77AkwLzDfaGOs8X3vb9opAkSkPn7vT8pssVVUU/a7VolsFw2127n
11126oC0uvjH+nEQshy7ywGfLmXbIcr/kXrW9HKJT5N6kDXbosCcyY6S2HF4a+fg0
111272w6vFVeOKwlSSFsfyrnYaYcLtM1pNI4UfvrdZmnXJ0R00RWwaDIpsEmTTcsc
11128iXivzGOwakYK84LurxEBER8k/VQ7xK6AEf6VGzZbiLjWp7xEXl4B8mrlpkMH
11129iWgxkCGxna6AfY9ODz8qIKIzz6XdKqISvp4n+IGtImLeQ+G7sopKIITHjel7
11130iNgQdCGkd7YSrh9Zf9jtJREF+Xl1ZzkyKNB9ZXbKkoQzHX5fTitlsHXUMXvW
11131jYTdj8U9E3Pk4MqyoPPWkPDXVz1HMnfI4VXkm5LbMSQUDjeHa/Vy0J2467Y6
11132nYQm+t0+KfQLILjYWqMoJuE5wdCSe3svwNrxSj+mnoRuHpRgQ/cFIH6e91vG
11133XRLaX7I48F93BfRvPRT6eoKE0djanHNcAWX5O/q2UMg4XeXn8I1RAbyOdVuv
11134LCHjmElSkTKwCrxnvB57hZMxcMW+zyWiKpheMn9P8f/I+CzGq8/bVAntsaZ/
11135WmR+7L2qoi0xSsg69zw9UUrGYN7Efvt2JWzsuTV3uJ2M70LfcZNcqmGBmT4/
11136dISM5oy2A1xhNRh9xfa6WTLGd60rHn9aDcrdJyVOn1KwcGnIK2vXGjgg2u+R
1113740dBp2T2/NFNNeD//yjtXxwKfluju8U4UQNzrNE/NpGCKYMCRm5TDdxctbjz
11138Zh4Fe2Yrn258XQNnk6gRUE3BbqpP0PdOtbBDPtNfcZ2C044OSy5F1oL70KMY
11139ynMK/uzIk8Zn1sIYpftF2hwqGigMWWxzLejXahKfu1Dx0oyLr+xtLWSkFr+P
11140DKDitoFTG/xcVRCmOiZs20ZFuWLnNC1KBdQnu+08Uqko2l/g6Z+rgkF7zpkz
1114156i4ytP1jfqyCsrZK1lm9VTMH2KuODitgvhjrvI9t6l48uguutCrDpY12vrc
11142G6NiigMrZSSuDj68mtQHEWmYqVgWn1lSBx3OQ6jy+NieVaOpt+sgd3NH94JQ
11143Gn5ZcXSqxVoNm7OrOZlcGp6iNOeEoRpYvxUNjR+j4blEjso1RQ3PJgXc7WIa
11144hl5jx/xHrQbVv7lvu1ppKKcqSlpH1cDfzuZ/dZ+G5hu5cekLNRBY6EsQT9Mw
111454fixpqzvNGB97bMs23l0NFQTSoxFGuibtaDxl9HxyfUHVid7NVDs87bYuIGO
11146kvtO5qlWWojl9rtG7KWjnbE9S79GC18Ut1U35dDRefjy+aB0LUz2ynwXKej4
11147rGeRv4NeCxfN89tOXaXjFvUoL2BSC8e/5od8eEzH5GySc52XDtgJMQaeGePj
11148L4riEnbrgFkeEn2HxcDGBWm+fJkORvq9jav9GXi373LhTaMOZLb28VXRDKxM
11149jxfsd6qHfYGEKSafgc6s5ImYbfWwPPmF4GgRA9drH0yV/FoPhCqDxRs1A51W
11150KYVuA/XQNaLPi7rFQEnLQNkMowEK6JL5Ha8ZeNOLu86B0wDRoVlibxsmys5y
11151UrMKGmBheuLiEncm+kyWrwg2NMBLdbRm7lomXgnmnAgnN4L2Ga5MimViQHbc
11152TlFEI6Q5eHQMH2Hi0s7+zoC8RgjeQGOHlTLRakrR6NnbCH8DlGDb5g==
11153 "]]},
11154 {RGBColor[0.647624, 0.37816, 0.614037], PointSize[0.002777777777777778],
11155 AbsoluteThickness[1.6], LineBox[CompressedData["
111561:eJwVxX08FAYfAHAT9cHh3u+8RFTPuUk0E20/bVc/S4xMjS2n5e2h8pLJS9bc
11157rEjWPecaKmQmwp0453Dn5dzNc636WPR2mpdYXhol9/FWKJ5nf3w/X7vwhMAo
11158fT09vaj/++fZd/lP/e2McVHnGVkUXgGEgZgX2hBjfJ1eanBIWQEsObw5UmiM
11159Ez3ynf2WlcApIBo+7zVG/szF5W1plRDy7RgpwcQEdX9aBnyurYTkA3Kb114m
11160aCIId/dwuwGCbRcdeT+Y4FOzSIku/wbUGB312NBmgrFf27YlL9yArglXL8GC
11161CUrj84N/D6qCoa4NgQwXAs76d2WNy6vgTdnAkV+OE7B6SezVa1UN5Iz6E6xK
11162Alok+F8+z6uGbSFn0+qHCbhWJ0o3GauGzzyCs9wtTfH9VtVMyP4aOEpzvNR5
11163yBR5grzFtPoaSJ9dLd0nMMWHzpaCcLoI8nseiHvumOJIUaiCmSGCutob8mAD
11164M6zuPZxcPCGC2xfSNcO7zfDb+6SuqQNiGP23/4Po02Z4pOTH8vWtYni31354
11165ptEMSz64SZnZUgsMu8UXqa/McPGSkF6RVws7Vu+8WXMwR5HSWbz1XS34Dlwz
11166zIkwx1TZ+ftJx29ClDyRTCw1R7/kqxf+8+Qm8Aq8bK88MUeX96IeJu+rAz8F
11167gZ5nRETb4Kk6dksd9FelWD/6FxGt09jWIlY9RBeO2DORiA8j7K1eX6mH+XM+
11168bG4YETfzp77MMZRAZpLMuSyDiIo/NkWv7JaAWbjNzrFiIornXNWP0iRQHJAD
11169DgoiOqxtjqQ2SsDhk9k9sVoiVs7oDrROS6DJibtfMkfEIU3RuVsODbDH+taB
11170eSIJOZl2+rsiG6DH2CXIYzsJ9eyzbpPKGoC7dJV7xpeEdtWavoDBBph8vi5C
11171FUPCq5RR50WmFFK0cccMskkYFznU+16QFAw0fQne10l4okjWmvSzFISNnJSL
11172KhIuNcVM+96Xgk25+EzvEAknmpdics0bQZxHO0tdIaHjtWgnZ/9G8ODxLnzF
11173JOODGOlHH/EbQRM3KShxI6ORZX+euLsRArkHC0cCyegkeep8liCDYZ+Oki0n
11174yTjuqGKoP5dB7C7W9Rg+Gd34Gd5RfBkssYQ1tSIyxj+0+C3hngyy6Sv1ut/J
11175+N2a8NyIeRNQDKOaPxwnYwXxuaDliyYom7vXnqZPwe0bLMbmf24Cp2ceXe22
11176FKSOsjKvaJugtbf8jp4nBb+soESXWzTDvk5CLx6m4JzPYAE5tBke30zR5qRS
11177UKTNNJ0sa4bwkpHB7nwK6nkb3Ns63gwzuT6jRCkFZaURfbfZLXDmtGzyUA8F
111781f2/sB/Et4BRjI3uyksKJr6V/5cja4HCoJzFQSMqvtavr2Yst8Bmr9m3m1hU
11179tJrJfHzwUzlIXLnropCKf6l2+C5my8HT/pZRTRgV1alKo7U/5HCX6EKczqDi
11180MsWBFE9TQPDaVfqOEioKC+LD9oYqYGx63cZkBRV3vxUuZ1QqIHEwbrNCS8Un
111813pcGN71SwOrdPva7OSp+nJ6wge3eCj8pOC4cEg0vCNnfXf6hFZjV4p1Z22k4
11182y1e5x95thcpCmucdXxpKEz70rKK2gWsWb6/pMRr+uDPrJ+9v2kCVNLn/i2wa
11183rj6T2geI2sAv/GBAwXUaPjrVoa9caIP+gI6gP1U0XP+ywvESpx2iP2GFbnxK
11184w8vex65189th3kkYEbZCw6xc46/i+tsh03rlWCWTjt0NOSGnWB1gZhJ1ctKN
11185jgnK0aq/TnVA8dK9FKeDdNRIrDybfusAh789vk88Scee8y5WM0QlNGnLzzbx
111866ZiD9nsE3yhhj4aQuySiY8WErqGgTgk9jSl5nrfpaBFfclx/VQnc8pHCzHE6
111877h7YEvvYrxMm83yuafQZSHHKbTYr7YQUnuy60SYG6iK799e96gSDeBuRnycD
11188O1QL5H5bFQi5ORLhYQYOq5O25nmrwMZ3tvlxKgMb3I5yTyeqQLyL22FRwECu
11189dVtLQZEKPBxudYVKGfh18jn38S4VaOgud3/tYeAHnPaB6GkVBBoW9Y6/ZODf
11190vPCKjQw1DM+t62MbM9FuR6pwPUcNsc/ihuJYTHx0aLnc/oQalnr7RhuQicUv
11191XjxJLFBDdidnaiGMidXzvq7znWqg1Il1u3hM7D5pKa2ZUsP/AC8a6V8=
11192 "]]},
11193 {RGBColor[0.571589, 0.586483, 0.], PointSize[0.002777777777777778],
11194 AbsoluteThickness[1.6], LineBox[CompressedData["
111951:eJwVjHs0FIgegDVeu4wx7xniokvWKmzKcXd/RvRL5dFZhKxRqFHrsc1ayqhV
111966k5MmFV2rbRlKW8xZswMw3gPIitKmVLWoufaSnvIRd32j+98f3znfDYxR4J4
11197BB0dHd4H/nFOtOTcxqWP8erU9mj28WoI2rxNFuFqhObSoULP+WpgG959IEo0
11198QjXrWS4/rgYmtYf1miqMUEgt3FozXQNltcsbHk8ZoUfpfcnLyFqIPykOoVsY
1119944E+ySMPbS18FmST7h1qjK8yzAd+CrkOi7aN5fw8Y4wbYX23OHod1Is+w1cG
11200jPGWvFIbE1gHZwa0izf1iHjNeWj13q062HU5wXqZQ8SrHOFkaGA9mPLf73QQ
11201EJE6fSt9crQexrwvfBsmI+Jm0vhc06cSuMSwKxLOETElhbJ8NkEC0U+VXTJ7
11202EwyooD/R1knAvsX3xVS0Cf50daqh4bUE5nIf0si/mKA6LjWCtKUBZFF84Nw1
11203QeeV8emXqQ0gcNXlJZBJuG+vrl+ougE8DQpyi3xJaHdyMc+LIAV97SeK/v+S
11204MJ0vlzfskMJgTcujhTYSFm7waC7PlcL59N2GdksktJCJL1nfkUJY4JRzsKsp
11205/kevmmu1VgaWtsl7MxJNsdvqh5XSGBlMLxhk1FeYorEB53hNtQyqblysejhl
11206imylYtz9jQzcdzOf6ZPIyN20RPeDRrik3L9q4UjG6FR9lz+EjfDOuoqyeScZ
11207CaIHDu+GGyH63LydH4+M7gePE4rN5dDz5ovPY06T0cBotrmHJwf7SOFuQTEZ
11208D6WxvzzSIIdzvb/F5LWSMUrO0FxZlcOcM/tYhZaMf6km2MG+CvjyYnR22wIZ
11209TbIT/XJ+VoCMUFM8RqNgv10/13dWAcyEv2V/ulCQlf2nf66rEgRjHv26uym4
11210rLq/NuS0EiY4mRPm8RQ8Jr9wo2RECZ6Vt159lkXBzDR66Hc2TVBKMdffVUbB
11211Q0ZRnTe+bQL94wfMorooWHowxbisqwkOz9RuPDZJQY5oz2Z9ejMMBix4iVco
11212+Hvq6hfPec3gpPQMLTOj4sQm/ro9Tc1w3loU1+pGRVDWPvE2VsHfotH028FU
11213jDWQZSv2qSDszdr853wqxlifIdVLVaDi8irWiKmo0LPkbzBsAcveuhZ2DRXL
11214ZKckTtwWOOX8dti5n4q2G+uG5Q0tMF3oNeMzS8VVftlQp2Er+BCy30YSaPji
11215ZGx10L5WqIq/Q0yxouGm8Ne8w/JWII5Z2uQADQdXtuvomqjhCOfQlqvhNDwR
11216f1CwjqeG0QrJLtVRGgqv+Y/0qtWwhfK/yJF8Gq6rfGf4itkGhWnbkp5KaEg5
11217mmZ5hd8Gy9M5Z98P0fAuqYMyMtAG+wLuFjFffPglDc9k2bVDp8KqfuNHdEz4
11218tbJAc6odbK2/7kY7Oq4U+tlnTrRDpkh6L8KbjkQn7mCsRQc8n19+kbSfjo+T
11219jyXd9O2AAO52nXMnPvSSxaxkQQdINGJ6yUU6npROkPZXdgDNefyTJgUd3avW
112206+Xc64CjhTYew7fp6C0cO7xs0AnaNfGBj1/RMd/nGVx36wSIb+StmjDQaS76
11221VElsJxTfWRXQHRnIFHi6jhd0AoGzQ+y4k4G+zzNCAvs6gVeRV+rNY2DfVocn
11222xLed0E++rwg/zcC8E1ueGjl0gWPavwf5xQy8drl8r99XXSCeTpjMbGWg7rUT
112237r9ld8Frf8WbK1oGXv9BmZmv7oI9iveGigUGlkSF+Vx62QVKq10WQzQmPmJy
11224k2dtusFcdMFlxoWJcVINJWlPN3w//wCXA5jIcf3xX16Z3fB7hF04NZ6JkRf7
11225ioJU3bBN802iQxYTb87sP1s+1w3lTk0ZW8uYeIYROQU2PfBx4ZqCsC4mZji2
112261zBCeiBhjV/1N5NMHF5/dtZF1APDcT+2CVeYGGsoFYvVPbDpzsPRX8xYuHPI
11227u8JpvgcKPOyfyNxYuC3V3Zlir4Glcv7yQDAL1R/lr3fjaoBLVpn+wWdhRnpQ
112287uXzGmgX6Nou5bKwTXv0wI4+Dayb9ncn17DwsZlOleuqBoT+Bf72/Sxs8vwr
11229Msa1F57KJ6M4sywU+Hqdvv11L/hZOaSEENjY8PkSI/PXXqjLShIlWLHRjcw0
11230+/5eL1DmWy6fATa6Dv6cLSf1QXKEvrQonI3B8emJLj598H/B89gO
11231 "]]},
11232 {RGBColor[0.915, 0.3325, 0.2125], PointSize[0.002777777777777778],
11233 AbsoluteThickness[1.6], LineBox[CompressedData["
112341:eJwVx3tYEoYagHH0lBWi3MHUaOVMnmNaZ3nJ09e8fU3TPFhWMye1Y3MNNUtb
11235qbnSatpTHisvQSM1r7XVDC94hRIQFAS3nNrMo9UQl9pM0ajWKrf98T6/510V
11236d2hHvDWBQIj/q7/9knO3YrVhGe5O3fdV/mAdhJrp408XE3G/TtWxbVU9OKkF
112373CZ/Io757ZuTHqyHGWFH4skMIvZ3ejG62utBJWBKQhqJGHsg2DV7aQMIIXGO
11238Mk1E6vt5rmO7GyCBrPQeXmOLm17bMmdqGmCzkZVR9aktcqY081WWBqA2JcmT
11239xLbIm29VWn3UCKazqgXvAVt8wRw/uVTUCK0xDsELdiSk7Ahzb51ohDyP5Fxt
11240CAlLb0x0UTZJYR9BrSs4RcISlmI77YIUNvQvt/tERsKnZff08l+kYHP9UOT7
11241FhK+CnD0pvg0wXC6pmja0w55b0rySXlNUBvu9HPzF3bI6YserH/cBKc4KY7Z
11242lXYY2xFBIvg2w05zF3/riB3SuzM/eJnfDFy1cwWNZY9+E8YQ0XgzvBGmmv7P
11243s8eB1We2Pd7cAj8KtG415+zx8bHYgJ+ELVAFnMTkTnvkm5JdDs62wDHyl7d9
1124439rjrsR2S11YK4QZdWaCLxkv2vq3lNa0AqdppXfPYTIKNW8ObLBqA/PZo+lF
11245N8lovDK/JJXfBpoYvSzWRMbKHBfRnvY2MAgvLdDIFBzK+x9zit0OPtmbKl66
11246UzDrlucZl2PtUC74NWgklILfmJY9XjzYDsuiCkyKeAru9eWsLfCSwRGA3JrT
11247FPSoSjygKZbBqOsTt/PXKFjJnSuotMgghFyoS5ZTMKe7/hb3YznUv4LEqAcU
11248HMu6Kf24TQ6OxiekjS8o2Lh95Pt1znfga33hbWc6FS0QUlyXdQeeSTdHWq2n
112494neBTxOGx+5AdNmEeXwbFX/cp11fG3oXVGeLinoEVDwgejjOvX0X3FM+9Jbk
11250UvHkhMf5CEYHXI6ZvF9URUWrqOYVTpkdsBBcnJ6uoOLc/bTyAmMHCDz8Hfmj
11251VKT+2+9ctKsC+llTssDXVBQz+9vkexQAhMv8NWwaGk8sizt6QQHXJ/0XiF40
11252rE4dOXW6UwGU/qnymUgaBj4PX256pYDj8stBAwdpeMQ6miv2VMJYTYCp9TwN
11253VaUESfVnSoi4+DSn9AYNEzRbav9xVQkt6UK302oa/pbh5tLSp4RVcYG6z3+h
11254oaushtKxVAV54b8lhL+joeM5xVGnABU89xKR1jvRUTeWtsOQpoK9nKDbjI10
11255XK/XX++TqEC7ZJr3+046RvnLU90nVPCBWWQeTaGjZ8DW5gfvdULJcFCR6gId
11256Vb2pKSN7OmGxetrrxi06+k5srN5Q1AmHaq/cz9PSkXPx6n8eGTrhgTA4/fA4
11257HUdV4sOPbNQQnP1s+S5rBkaf8SF6Barhe8E3Mr+VDCy4l+w0mqkGVhTyOcDA
11258EzeDq4eb1ZANM++s9zDQldpUvXZODVOu4vInRxmYu6jTud9DAzvJW4IMhQys
11259+Pog6QeBBu68mhmrkzAws0B6ZMV1DbgZxTmXDQxc6n5lh9KogQL9Frfjkwzk
11260bXf4rm1lF/whndXutWHi2kXeaTb8Logvu5oQ7MJEEj6T3xB3wQ9nPyJxA5iY
11261Q8HjpUNdsDHFXEviM7FR4CN5wuqGypgSnjmDiaU8zSe5u7qBhCHmQSETQTWb
11262lVHcDcc85grbG5koVrY6Kfu74RGr1OvaPSaORKxYx6drYSsh9P6ZaSae/JzT
11263HhGlhcbJubQviCxcQpLLC4u0sKK/dHmEGwtDPnzhs3ZAC7nyUNm/8K9/a+A6
11264MnUwWzMfy/ovCxdCAwpjd+sg5mLZu9cnWHhoVeSReZEO1Olbyx+JWVic+0b/
112658IEOPOOeB6pbWJiRvqWE49wDovBrY98OsDDo5T9NDXt7wMo7LCffzMIk69qq
11266qxU9kMixrEm1Z+MJsX54yNQDg0vKtbvd2ejQkXsugasHf3NYwqZQNvYcfiiJ
11267TNLDt8MW2/fi2Wgj+Skir04PNHV57aLTbPwjY/9+R4sevqoN502WsfFm36XZ
11268t34G+FX4YrZXxkZ6c4zFO8sAvOyKwoYhNia5KVNUagO0CbZ5iSxsZLmq46uI
11269veAS9XIwk+aAtyT7+4YieyEfKtM+XeeAC13XpHGiXvgTYFjq/A==
11270 "]]},
11271 {RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], PointSize[
11272 0.002777777777777778], AbsoluteThickness[1.6], LineBox[CompressedData["
112731:eJwV0v8/1AkewPHP9YWaGcz3kfSFW8WVwtCu7V0qb19u1vkSc3azZNEkKnEy
11274my8hKzMrU3clx6F8WbmxUa0ZgyHDzPg6zHBdbR2yu7TpyyzJRdTu/vB6PP+B
11275l01UwsEjKwiCOPJbv+tB1E1bl6zFGd2TuRmKDPLEXJuUkbUomJ4wk8bLQE9X
11276hg5RSHg5mRC49cvAshQl9t4klB/3XL68TQ6Rdjp1diYJG4elI5oLcqit5799
11277qCDhtzW7nva9lMPMh2POrrMkDPt5ak9VUBO4qwSxBdvIqClqNfjLmiCbZyyf
11278iiGjr6yxWrdOAb0jwnse5WQU7xuWb8pUAD2coBTfJ+Npd+Yar0kFHJoSHZil
11279UlB0PfWfe/yaoTKBduYTHgUdT6+OXdvYDNNvihuqcyg409SYUmvdAi7nbKeW
11280lRRMiBWprc63QBq5zjp0noJ3z2cFRf7SAl1XuMG3dpqhll624UxYK5A3KsVr
11281j5nhHGXM/kh3KwTfwI6oSjO8l+z5tw9clVDqpJtvfWSGeTzdkrxCCT818x1Z
11282LHO0kqRprKltsN1zLPqkvznmevjr+JltkDwgKOnOM0dthBczytgGbXyjfrPK
11283HBXPIkv2R7bD6nGhaeqiOX47df3wnKEd/hJL7B3hWqA0YHVMKt6FwhlR8vYT
11284FhiyRXJjpOkujKbS6nJrLDBWtoFFsDtgy6qSibFxC8yQmMxnBnZAkzeNUkqh
11285YlF5dsqx/A4Iy+ff8HWgomJSclWp7YD3Q8UHXntRsS56x1/PrFBBFXNstCKK
11286ivmWkbJre1Xg85ntGf9MKoau+qBxZ5oKnpcJmG//RcW5LakHHRQquPSDtOGG
11287gop3sqIuXXitAtetRl7IPSr+iTZ64jNuJzyI504Rs1RUP3g6fTGxE9JvCbNv
11288mtPQ+b7I1OlWJ2x+3Wp9aBsNz1NautyNnaB2JxQmvjTs/zJj080dXRB7FoO/
11289i6Hh8voRq69PdgGlS/TycDYN18+3yPT1XXDbVCemlNNwpanbL1nGLuD70eya
11290W2i4LmB/X4mTGhYu8TuO3KfhW92458YkNZTdKw6jz9FQl0MNJzeqYb/V2Hw7
11291lY7nT42woubVMBlh+494Rzq6XLE/aeuuAXGVwNGSR8eelxYCv3QNOP4s7VEL
112926BiQJV4ev6uB4e3G6MQcOhb5FrqOrtRCSiL3/YbrdJzx4f42sRas5MKSPiUd
11293Pz8bnc0s0EL7Yqub8Hs6FjyzK/If1kKUB2H44zwd71xM9ZvldIPJV3hcT2dg
11294e9wXFe/Du0HaIzLN2MlAZfrDwpTqbvA301U6+DGwUjPpEPqsG2aDaHv/G8vA
11295ZK+c8AqXHii6yv/+XC4DLZbuOPFTe2D3o+LknZUMfPw0uSqpswfGN41Z/K+d
11296gULzXtkCqRdyYmzrRI8YSMQ1HJ0O7oWt/xZ4u71hYNLS1mYs64X+F9KJCSYT
11297hzQu0jVPeiHBxZgucWbiRu3Qx7uc+4Ah5Fru9mdiyPK7OF1aHyhahd89iWNi
11298UHzHx4PaPvicUPpfyWNiHpUp/YjeD4QXMb2vmomi5wsKSkQ/VIsx90UHE5Pe
11299Jx7lSfvBd1C0uWSUibw/p8tm5vvhOV3X6r3IRLM+y6oVOACXQmmhr9gsVGX7
11300OGX8fQBcS/mz17gsPHRqTfgX4wPw4HFxgV8gCycLwxwaHHWQYTdmv3CchY6z
11301+woF6TqwibNVfyNm4eVcxfW8fh1o6gWHD9awkBzY+Ql9/SAceyVdfNfJQq+g
11302iKsm8YNg9pGxsG6chUniC1kxrYNwO53r/OkSC3Pe+JG2U4aArxIOrFrHxtzy
11303a9zw8CFYWK08etuNjcK0r5b+Xz8EZTxiZcRBNtZ2Z7icJfRw4CKWkxLYSDlx
11304bpfMQQ9TIyL3pnw2/ugYSLIJ1sPXlrr/RNey0Y305KYqXQ87wmmnqBo2Lv7B
11305x6aoRg/DFXxy2wQbd7FOxVTo9ZAyVVxz7B0bX3hGCR8v6sFq29h+9noOsiUb
11306DoXYGaA9wXa080MOyl9VUJYDDBDdKPgyIYSDvclGycNUA5guSBnWiRwMpZlM
11307PP/GAHV7jPU9BRz8tHdyhavBAAHnuLzTUg4aSiVzDUsGeKUVTtp0c7Azn5BH
113082g9DEVmZNfgjB7de3e3jHTIMuwMJ6zTCEk2UHrWRWcPwK8KJ3XY=
11309 "]]},
11310 {RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142],
11311 PointSize[0.002777777777777778], AbsoluteThickness[1.6],
11312 LineBox[CompressedData["
113131:eJwVynk4FAgfwHFlTWvMjLnntUuPHce7jkW0jvyaSf1Cr6O2pawpytWLp0PU
11314sL2LCGt12Myyjt7QsdqM3ElqMIaZmBjGhF25Nq8pKdbSknp3//g+n3++n4Qd
113153xu5XkdHJ/Kv/rbHfnL4w3B9jN/v86x29R64mO6sni7Wx+gxh4mSE81QTq3I
113167FDrI8/SpSRnuhnI6wwOlpOJWGsTwk45eB8S5486pXoSsevVjd3CwfswNdGn
11317H5JCxPGTFO8E/xbw73cad28iYnF9wftT8hZobs9vNJon4ny9x+n/7HgAFnV/
11318nl+2MkCbBFJlluQB5F47ED4YZoCfLiyXFsBDWM2TuNUVGyDJ/oPAyuaHEHWO
11319S/1ebYDR1pvkMjcJqBIypo+RSXjrt+SVqXsSgMiZFl9PEmqqlk6lm7TCT4E+
11320edYpJOz5F8+/IKQV6J5V0R82kZDiyc78rLQVvnGmbZt+TcLa0mQTz8lWmLFM
11321YHdYkbE0WMicMG+DLzlPZsvCyPhxgk7suyNt8HDDFmlKMRknZ40++e/tNrB6
11322U1J4UE1GPZnUufVVG4hm3h93J1Mw5+3a7YjN7fB+KMzTyJOCwXny1JykdohV
11323yIyXkyl4PdusYbOkHTT3Pv1dfZeCu8Youw7pScHj5xxF7WsKxoq+A4qvFCqL
113245q7mWhmipCL/Ei9PCpycL04fCzPEc8ZO2+dHpJB2pt7Xt9gQxa9CAyzNOuBl
11325LMfMWm2Ie7kmnaOxHWBr9+BtOoGK/PqYAk5DB4TdnPvfApeKp294ywfedUDB
11326RtOBw3wqmi81BtF3yUCZ/8XDPgEVHW42eA/kyWC9YfotfiIV7zfgj+wxGbhm
113271YuqRFQ8Zh7h9at1Jxx9/yzFpIaK9xYY+8yFnXBNyIk9r6SinWlAx5y0E4Ze
11328ee9b1VLRXWx+2Z3WBZR/f+0RQ6BhXGGGhBjaBTvGb9sOc2nIf3ba94C4C5KC
11329RjnefBp+nvvG1eFtF1T1UXTvCmioKCJmZPrI4TfvbXMWiTT85gOxQ2ixHIza
113304oZFIhqqlWPuzS/ksNvtWoduDQ29lspvFoACMmrUd04qabg1eenE8gUFNFsR
11331iie0NLwcOVI0PKaA12UumXsIdPSu9DfnOT4Ci4+i4yRcOkbs/ZJskfEIBJeL
11332Dtjx6fjL/pnAi0OPIJfY43VFQMfGFvK7JNtu6ExbcyQl0vFlqlRvJrUbVlfs
11333Np4R0VF8Xf/o0GA3bIo/pP+8mo5p/xx38rHpgagX3y8GKem4jugVvO1sD5SE
11334S8e6tHR84MMbv/ukB1S/LD5yJjBwYlYmq7FTwoYAy8YbXAa6vBwl2mUqAXr2
11335lzH5DNzql3nH9qkSTmL2+XQBA/eRJHVi58dQ0dIsXBAycNH6W07Npccwunk2
113367LCIgcsVEyPO2sfAEJv491X/9Wd2r/F29IK3xW43vpKB/5DuTFVc6YXkK6nm
11337VVoGuoXuCdO86YU6Vq2hCYGJh8V/qByt+0B7YWolh8vEvuCccvegPthIYE2v
113388JhIcNWWZ2T2QUCypypawEQZGg5QG/oge0nYMiRkouDsmuPoVB9Ijt36yUvE
11339xKSXde3P6SpYnB653FjNxPhsxzS37SqwDiUlWyiZOB+QFKeIU0Hok63RIi0T
11340ffd8m1tUpoIfdh8P0CWwkHcmdKxSpYLurlL+SS4LlYPvDuqs7wedbf3WEzwW
11341cg9FkX5w7AfnJl32HgELrT7Kfx4T3g+xDp+vkwhZOK578c1ZUT+UVUTNfiZi
11342oYeJv/OIrB80pj8+KalmYXCU5lr8cj+QChXtBkoWbhyz9PC3GgAP2qr4ay0L
1134387P4lBjBAAizbQu1emxsDTU16LowAJXrQs4FcdlYdUThEtk6AJNJl4538dho
11344fHWLCH8fAM5Ca7CzgI0nCAmmkZZq8ItZ2HlDyEb+lVO/dn6lhrRJs01MERvn
11345w/ny6AtqaAoONE6vZqNbsGrKr00Nc/2ZGxZ62GiUamMf/4cazHyaFg5p2fh0
113460O/nYatB+EqqHe3V46CJwDXwbMggXHT/WMHjctCG+sI+Jm8QOup868U8Dk4t
11347Rm4RyQfhT5vkq8YCDh7Rv5Xwfm0Q7K/f+S5HyMFzfvVPbztpIMJ44tRKHgfd
113482rISC6M1UCSiH46u5mBdhNl2+VUN9JLQd6iHg29dstxdNRr4P+wn5Do=
11349 "]]},
11350 {RGBColor[0.736782672705901, 0.358, 0.5030266573755369], PointSize[
11351 0.002777777777777778], AbsoluteThickness[1.6], LineBox[CompressedData["
113521:eJwVxXk8FIgeAPBRYZkZ5h6plI8oHrHNxxI/S/mxL6/VUDoWE2bta+pVyrFW
11353Bzo2LOUoUzla49qt3ViyxeuzznGNYw4zjpGjMDO1eK6PZNN774/v52sZcS4w
11354ch2BQIj8n/+fOlDNl9oYIcWOGWhRXw9rG1yCdpwwwq+SdmSs2jTAhU/rfK8I
11355jfB21qS74bkG0IR6uCp7jbCsHZ2rnjVAcFqDrf0nxvi7tc93fxEaofd3703X
11356vIwx7acpwym/RsDXraSheGM8GGA7fvZuIzw39Vtz+s0YP24l6wvHGsEBumdv
113576owxg5EdzbNvgqKT3PERSyLqOz63F8c3AfOuQu78FRHDzyU6ScRNkNZ4pCU9
11358m4j5Ss2VKHozrE0P1rzuJGJ/+By7JrwZos1Dy93Wk7CDnr96r7IZNL5j97Lc
11359SVj3VmO7mdACIdH8NG00CVN0faLPuS0gfTh10fMXEnqR+d8QiloAuwRncidI
11360qD6SHRM+3wK17/7kTW8mY0hrRHc4isHBOoqLQWRsCO6L0hOKQRSwsDcvg4yL
11361LA3P640YWFfiOPNiMrq+eyC0+LwV0h6tbN+/Rsawj7Pm+dmt8FF1ifXjZybo
11362bT+lfa5phej1hE+Wz5qgReJlvViPNtA6Xlv5stwER5ZrvpbmtEFIiMHbklET
11363TM69TZO8aQNpSurwKtsUrYONiZH72sGnhtQTyDXFWB8b/8IH7VA7frv+5xRT
11364lAS9VscttMMuE/pvhEZTNEjf+3TmQAeI3HJFR1dM0UPr1a9f3gE/VJP8+s0o
11365aHNqHF/odYJ4f0/TOmcK7qBZfaCGdgJh7Lb7rgAKSkf1CYa1neAWF/D0+BkK
11366XlWkfpnHlEAMie5wI5WC7Oknkz0XJPBE1FdaWUrBbPvY9iKpBLSuuRbDjRSc
11367zhpeojt2gVXvUaHhCAXttkyesb7VBaGRGymc9xT077nlpJruAuHqUAqPRcWw
113680kEPG/9ukGXl66XtpmKgSHyXWdENxJ28hBp/KnqLA11LKD3g+8fWhbFTVBwm
11369J1vLL/RA0uHx06SbVPzuEjf0obIH6t6IJlyKqbhGaRwl7umFxaSvQ/n1VORL
113705L+wC3phF9tGdUtNRZ1yX8Q4QQqCXzX+dctUnB34V873HCkUe//cNkmn4fuz
11371GsHFb6TwcvCUF9WJhsvCqsn6+1JgR9nXwgEaag71GBzulkKAwcynJ0/SUCJy
1137263bRk0F6fsWjnOs0zLu+7HraWQatu89b1f9Iw4iVDX4zAhkQOnbnv3lBQ3M9
11373PqGxUAZuJxYZrEEatuVRQ14rZBCzVJOxd4mG/A5KaJCRHCp++NbgDJWOc6lh
1137469mectBZ7km850DHmJeEgztj5WD1/P1y83466prnPFMfyyHU/0XUbCQduR4c
113751Z5XchBOXNaZX6Xj4/1iqttGBcgTPCN8C+k4ry2fT+UqgETVU5+vo6PjJnW8
11376bYoCfMubDhWo6Bgxxisxa1BAksf1rvZ5Ol5z5cQefaeAOoWPz6IJA59YHXs7
113776dQHSwLDP7b+jYEFRd0GLYI+cCR0fPaPLxiYW5XTNifqA0FuWkUcn4FXjzxy
11378ODfcB8X2B3aKEhkYlkHdAywlvGwiF3XnMZBztEN3jKsEs+O9G1eeMXCxWuYp
11379TlNC4Gxm9vY+BpYV27kni5WQfiOQyP0PAw/a9KnTCSpo3cS4fpHERJ17j6XW
11380XQWEKuVfZTuZeGvCjJzzrQrc/y6MlSMTR7c+LcioVkHsyLGZD2FM5M88VPTP
11381qqAixvyftpeZ2HZw+Ml5+37QGQ+PHr7PRA4KHIMF/WBVVHAsqYaJlyS+QXfK
11382+oHnckL2WMbEwsmYbVsm+uFe9za//mkmdmYvZC5ZDoCc/6ppnTELtfKmsi1h
11383A0B6X+y+y4aFq6Wvwu8WDoBvZuTT4/tY+IF4qCnk5QAk2+xwuMFj4dwGRnv0
113845kH49wttaWUCCwcyraOHggdhKfCRxXAuC6sqbjZn5g2Co+600LCahcnhbrW5
113856kEQJDpQOL0s3FvmcfjPTUNQwpxN4b1l4ezlrDtZIUMw8rhSL82QjZla54Tv
11386C4bAbN+FhBorNtpN2elLRoYgcICzMObJxsq4KOcT29SQfnbpNCmEjQceGBC9
11387I9TQtuHZhEs8G4Xc6RtxJWrQy4sP5d9h4+r97WUrU2r4L5216Zk=
11388 "]]},
11389 {RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], PointSize[
11390 0.002777777777777778], AbsoluteThickness[1.6], LineBox[CompressedData["
113911:eJwVxXk8FIgeAHAlzxjG3DMl0Sg+RFJiix9Rv1pNbGrZKKEnehKGye5K0qqk
11392eLRKWcZrEYm2Rna7xPaMc8YxM+ZgXPOiVWlZx3So6e3uH9/Pl/PPxL3Riw0M
11393DKL/8veC7fK2/c8JGDw545vnJYJbc5+zrVeYoO+6xzs5V0TwS1njkbEgEzy9
11394PjkmZVIEzbtdH97MNUHy7LKii9taoEdfTTjWYoJ/8OpGIgUtMFhrFery0QTp
11395dzZ5vNO1wETolVvzrkSsvXW3JjCwFeaNiQsP44h4LorlcrS2FRbdz+CmVxBR
11396OHhMjMZtQDqsK/YdJOIKWn2qNqoNLGhxk0Z0U5z8x0svr/+2gd1TraeYa4qr
11397HpuzD1i3g2vCV7l5maZY5LjayONUO2yx7Bra+9gUIw44EDTD7eAv9l3LnjXF
11398tJ1WKz29OyDk2wfpgw5m+JtuccDB6x0Qbbe25/ohM6yIVOf5LOqEZEW51eEf
11399zLDkQsnz8ahOOJW5NNFeZoZLk3bv4bZ3Qo5L3q+vCSTsZs3JeI5iuDZiSKnz
11400IaHqRNaRkEtiuJGbGpnyLQnXlprQFr0Rg9BjWrhZSMLh9JOyo2ESaHxxeNGn
11401CRKOWI5WFookIL6q2dNsbY5rTqzP/86xC1QYWJ61zxylhfx/O1/pgrHZ1llu
11402vjl2Jlb+KNB3wfSPntvI7eZIIrR3SI50w8cv6i73fTLHG+H9Rk/k3UDQ241f
11403cyfjZf7AvnjvHmDWCjaGJZBRuUPcNFrTAzahtHMrq8h4uL/Gg760F5yNs5Xj
11404w2T0s0+TGGf1QqnmU4GCSMHT7p5JjfO9cKNuc8N9OwqmfKdjWmyQQk328bGi
11405rRSc2dGqdzsqBWHEXdO0cApenDTj3SuXwn33V64HT1DQL7HrWP6gFBpJtmFb
11406rlLQWW4438WQgWg84iznHgV9GPVGcV/IoLOh+LZhDwXT3TRlsdkykBYoFc9f
11407UlDultrR0SwDVSxF325ExQjmpdRsvQyGfHbZ1nCoaKuw+qV6kxyesbMCcr2o
11408aJxsm+ZwXA4vp56mJIRS0Xy6QkIUymG69UNpYAoVt+4qrvJ/LQedwL1tw/dU
11409FGQRzKbt++AjP2mK8RMVyWVTH2ai+2Dxrtustx1U7Cn2/zq4og8INhPeA+NU
11410vMm3SVv2vz4wf8850mBAwypHHtHbWgFMaVh+qSUNG5rdVosOKmD5zWsPMjbR
114110GYzv6NaoADOKfnooSAa/ifP/u3UoALsg0kE5NHQSRQsLFyuBGcnPxe7XBqS
114121QtzggNK2Gh4JoRQTUOCmN28RKAED03j6VciGjoIblt0DynBt+5dddcoDXkB
11413j/S6FSr4PNtVducDDZ8Ne8VlRKggICLh/SU2HTMDPKJiy1QQ5H6Lw3elo6/g
11414zvP6MRXsJ43vDN5Nx43i4tlwOzVEjlslfxZHR3/1pwtHY9UQ0xBavOw8HS+I
11415NLWq22qIL7jS/KGcjto855CKP9TAj+19NdxEx+TNC3nSjf2Q6kOkP9XQcbvI
11416KzA8tR8y2Ns9y9/QcY3T+xL/pn7ImsqIOktjoPtxp+QSwwHIbX2cE+PMwGMl
11417ajl35wAUCHT1flwGysoWGvfnD8APfJehNTEMDDlf6CpRDsB1btwSUiYDTfyr
11418XQWWGqjkVDlNlzLwxfSGpu4oDdS+0wbJHjFwJtmtL6JWA/d6l6fXKxm4XHk3
11419ee+cBh5WfVVZOMNAPqtcUOk5CE3p33d/Q2LiO3ezPaFnB6E1qEsX6sDEs+5T
11420+fHdgyBxNLaC7UxMYvqFPmMNgWzx1h1Wh5gY17fspweRQ6AeOJlgkM7Ey7yo
11421nN9rhmBE+ODqsyImjr9ePX9GNwTj52ebWn5mYqhf+MQJn2F4Fb52okrKxIVM
11422crQ8Zxhm3P5FvvCaie2CTfEX1cPw1qziszgCCx8VDvy/fNUI6MeGIwJWs1AR
11423P2tpyRsBw4al2et8WGhpe6ZF92QEiAVfCqlhLOQ15LxZRxwFSmxe/9w3LLRd
11424b1Yv3jcKLJ9OA9VlFv52bslCa+UorGAvcXh4l4Xdj45LOPOjsGrKe0+xhIVJ
11425MXfoiRwtOLSmpp6cYGF+xEiW3k8L6wQ/l4UbsnGbH3fLE54W3PnTnT7WbMxZ
11426OQu1RVoA7ppZG082Rr9QZoifamErJ9rCaB8bB67rjC1eauFPPnPrmg==
11427 "]]},
11428 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.002777777777777778],
11429 AbsoluteThickness[1.6], LineBox[CompressedData["
114301:eJwVzH881IcfwPH7msqdcz8/96lviMpqIi3ZKd6+yHvGIlaSTV/SlOTX4uv6
11431QRImcrt8Efkx1ZJYtG8qohrW/Lq7cDjX+ZE7N4nTRtkVw7bvH6/H87/X2kMx
11432ew7rUSiUw3/3f/+4lO0tLDXA5Ce2n2o3t8F7/Hq9GrkBrjgf9I19fhvQ+9V1
11433CjoV67RFkZF/tgEhoEUtulFROjM+nhneDibktnXrE6i4o/DjPy/2tYNFbaDC
11434o4aK9NG7NUkuHbDZP00YPUHFZVJbPf/qDvhIV+WaZ07DY/t/esUzFoNTvlxX
11435v5+GZmmH4n/MFIM7f+nWiIiGVnu4hT5zYtjdvyFkWSsNM5v7AjrCJeAv8CGt
11436Fmm4o6f8ntWgBILIkxJfO0Pck5ZZJfCWQljt1WRBhCFmKxJdvm+SQox/x0cl
114373xmiozT5q1a7p3BCNzPZrDREh0OXQFL5FM7mr746zqLj+cKGsgdmnZDBd9tn
114385EHHDbHTFaL8Tsjuj6BtO0tHuym+pzejCy4L8hoDaul4dIXo69n0LrhGPv5P
114390is6UkbnbXZSuqGydsyyzMII37Lsw5OcuuGOP2OkI9AIC7ITZmwSuqFex8/7
11440LccIpw+2t+2t74af8oM9eWIjlJ8znZp62w1ifsaSwz8YGPfmdNA8XwY9/f+7
11441e3A7A9vvq9YkCmQwIFAeTY9hYGX77s2xtTLQkHprqsoZ6Grdkjmkk4G2dlOv
11442bJiB6So3u4f2PfDGf2/GW4KJKWNia8apHljQJTiZejGR5vhFnLyhB/QLyl7v
11443TGXip+qZFezFHqDbP715tIGJts/+O9nk3AuE4vcDohkm9pk5GI+l9ILIkUn9
11444gmCh/oPJwjOtvZCTdV0ztYWFc1evH7lA64OCQfsfz+5i4ZGB0HOGPn1QbCW9
11445zAlj4e1Qm0lKXh9cSTgYdyOFhdnOlGvHlH1wXTLrvb2UhasjBm54mMnhpnHm
11446B5J6FvqNP3pXdFgOtyJM3wuSs9D13s3CkCo5/PDwzvD0NAulsqKMkjdyuGfo
11447/iCVzkatc37LLsd+eBA4kEN+wMa2pULfmNR+eHQrOqrSjY0+jHLLFdJ+aPpD
11448zwOC2XgyusGXy1PAz7sK1nWdZqOfmaIlN0gB7cVWiyH5bJSbL2RkVChAqm1U
11449zN5hIxFnWTTzWgEyR7+a80/Z2MgLnut0egbyrJfC1RNs9KV+W26e+QyUg4lh
114501focPOGtufai7xkMW7F3uphz0GN0q9Z8rRLUCTdMeh05+HNbRkpXlBLGJDve
11451Ht7PwYnF8bDXDUqYMO6UvYvlYGeaT3GmwQD8GnGoKkvEQesDjSaX/Afg9UNd
11452+prvOeidZj9F3BgAnWFWyJ0WDv5zsY5KnR2A+UAzQDUHha0u8cfdBmHp1l1S
11453scDBCpXMZnfuIOgtfDITvoqLcbsi+Fc0g7Dca0iysI2LmuVGwlC7IaCVfFV+
114540YeLbG7dltKvh4A5pX9uXQQXH8eEr/VSDAEXCgPvp3PR0tQiJNpyGFYKN/M9
11455vuPiv4zHf9VPHAbjoWbW4GMu6h+rETO7hsHM2l8bpeRiODV9VrTuOaxPnGyh
11456/M7FpLmQyBTBc9goTbqayyLQwcHddlL8HKxNuAkbrAksldi6t5qNwIeRN/fV
11457f0JgdfXGCjJ+BOweOX7o9SWBoSqLgEHxCGynd9NGkgjUbOVZXWCpAA6Ejh0v
11458IlBrbCJTOarApepdo34tge42G0uPh6kAF4RFBTIC547ycyBXBZ5ea+M3vSJQ
11459J/Gsdm1UgXfJfZ/HBjzcsz/kt2StCj6b8tzka8HDRdqZgPmVatgHz/U1zjzU
11460Gy95WY1q+FwYOxIfyMMwbdOV4uNq+PfQ8gaDEzzkrJo486RUDSHWxXnFOTwk
11461onip70vVcCRxS4zNbR4GTn78Q/OcGo5Jn3g2d/BwWfZpvcsbRyHaJMDCb+zv
11462f9DdxIp9oxAbObX0gkJigN+06ZvUURA8SlaeMiGRFbf1xYmaUThN592jbyeR
114630iCQ89WjkHSgUnRlL4nBlk3aLSwNpFY5hdvGkPiyycjyS2cNnF+QubVcIHEm
11464Ofib7mgNZHkdWRNQTqJb+P1VJ0s1cLFk/t1kM4njp5iSzzs1kDsl6j0zTKKm
11465JqosfkkDBbD+NmuORFeiu0xi8wsUC+syrhMrUf4tXxoY/Av8BXj170U=
11466 "]]},
11467 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.002777777777777778],
11468 AbsoluteThickness[1.6], LineBox[CompressedData["
114691:eJwVk3k8FIgewG1TdhjmnrHZSlM2ebQka8mPbH6OyNilWbKWtKl1EylExcuT
11470dGBd1fPW2URs08sVL8p938fIMcyMIUWLinW0vT++n+9f3z+/nJMBDp6b5OTk
11471PD/xfxuVwmZLByKqcIt95ltbITM3Zqwmjojh0tPWm460ASG5pdy4mohmnUts
114727cY2+PUKLbn0HRG9Sc6Dvpbt0B7g7LdfWwE/Zty+VtfQDnpu/7F6eFIB18Mz
114739x2w7oC0o1McjQwFdCu+Ulve0gFrB/etZXUqoJb+QVsetxM8NEMGtskroqtS
11474Ux2xtxMaVCofpYEiRtxlpXtpd4GW/Kbr9GBFXBMKLIcDuuD2krXnjQeK+Mdz
11475Q/+B/3bBu8lbh4giRUx3KCC7LXeBS/fA1hg2CR8nyO8NMumG6urtS+tHSfgh
11476wO4pJaYb1ItPdVyIIWH4WlS9UXM3XLtXyF+sIKGJ3t0j85QemItfiPZ/S8Jt
11477tGxLXacecAwz+nlmjxJaZiRXrWX2QPmZy9+e+lkJM1oCCo/JemD7j4208WQl
114783JFnwDDU7YVoJL8+3qKErXunF/PDekGmx2vok1PGOt4/7bJqe+Eo597v9t8q
1147945QWaacGuQ8EFHF4i58yGhZe9DE83gfsDU2eRa4y1vYO6fTn9kHE60CdmmFl
11480jMxT81t/2wei4TIFYxoZfXf+sFtg0g8WzRviEisyRqGfw9v4figos3imG0VG
11481GS3kr6dD/UDJT0gvfELGoDjPL2kaAxDyW+/ZPbNk1OV/V7JwbgCE0ap2WRwK
114827g4iNrnXD4BpkIfGNmcKWosrHJ1Zg5Djzv8s7SYFb2/wnEc8B4HInX9Jq6cg
11483p3akf7Z0EPzAoDRhlYJ/6nLbYolD4JVi2kTYSkWpVYFxkcsQ3FU6+c13+lSk
11484EP/c7V40BB0xV7Oj7Kl4JmjX1XtyQpBb5VOqvKn4PsbU3fOYEA6cbbu4cpWK
11485lYcsHlfwheA5Mz9jkEXF0lyDqIx1IaSfYDiFVFGx9TG9drPjMLQMGtQJBqlo
114865i28vMofhnWuy/75hU99S3xZ5Mdh0GmIzNQm0zC9b8+Z6z++hJMmWSRvTRom
11487/KvolnrxS/jtSd2F+0jD/4l37D8iPwKNWtNSiTsNSTPhtituI7CSTXLcFUHD
114880rTnY/rlI6CtqlPjnkrDU/MLr1Zpo+CW6LDv3wIahr4lB3J9RyGRGHpnuI2G
11489SXdY/tqNo1B7KePzL6ZpqDgnL03ZNQbv31eF8Ah0vP5qsi8+agz2+osmknbQ
114900f/2AxPSyzH4SUqw7zKio8u4i5qK4TjccNWoUubR8ffB92HFKeNQ02ujaRtI
11491x01hkXbdi+OwYOOfGnedjp0eH9oOaYrgqxeJhIZ8Ohb+lPfHiLMInIxKAgkv
114926GhQ0MStjhNB/KOhUbNROqKdR4GsXARVGms2Uct03GIR8II3I4K5TLXySgYD
11493eYkLqQqqE8Bhm3+18jXj0x+zGgTbCXC8cTrJwIaB1RrHzx2+OAGxm+M/Bnsy
11494sCMILjUWTUB5RJGv4DIDE6kpFknjEzC70CWcu8vAccIvTdm0SdjuvWSpXcbA
11495Jtv8z1fMJ+H7CZUnXj0MNJt2I6SETkK0szHn/hsGegsTKkMfTEJJp9tNCZGJ
11496O9V0dTNHJkFmGb3KUWfi2QprDxJVDKrP8n51P8REV/4A95m5GI5+09x/z4WJ
11497Y7PC5dLzYrj08PXh4XNM3IhxcH9XKAbBbuojlUQmlgeaRYeJxCC5c2A77yET
11498tzzO8TBnSYBNd4pPamTiktXFdQcbCRy5Fv6hc5KJ5/VaePxLEoiQyzylvMHE
11499jKAb3uYlEig+/7zbZisLf9jSYKw+KwHRnMQ0Tp+F998EN9twpMA4TXxYb8/C
115005H+kMcqcpGAxqrWV4MNC1SodVa+bUrhwzD7WLJaFRtkmoyfqpVDQenYxMouF
11501iyM1rplrUhg9nHqisoqFVr4V6Rz9KaA8rWhfHmQhfK+R+MpnCg7vHz1osMjC
115026jhFy5WcKQjhy/GDyWwUs34psxuZgvtq6iyBJhtvfdCVypgyEKZaRc8hG9/t
11503C+lstJOBEtlnXusEGyfLtUPfxMrA9OpNV68INvqnuwida2QQtCZozk9l45W2
115049WWFv2SQE9xvIBGwkctj98vpT8PAq+UcTjsb8/Ry/Uz8p+Fv3PjulQ==
11505 "]]},
11506 {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.002777777777777778],
11507 AbsoluteThickness[1.6], LineBox[CompressedData["
115081:eJwVxXk8FIgeAHBsaYy5D9piWyQ78SqU5eMnR7+icpWeUjkim327K6FJj9Yx
11509SyhXNkd5rMUmZ+X14tXuhCGWypVjYswwZkwzWG8dMdR774/v52sUfPF4qJaG
11510hkbo//z/osWU4FANAq63Le1vKeqBMpf1gS9sCMjNz1tMlPdAdVaUq+obAjqf
11511iD83bdULj0YVTfWlBIxde5C0+H0v/JsTZBE1RMAPWeZ+97t6oZk7WGxD1kEV
11512ZU76yad90NnqTl910UHrq2rTjRf6oIfWyvs1RgdHXnkb1D7ug2F/u6WEOh0c
11513os69UG/oh/Gq+jCU6iDC4BfzJ/pBtmz6dtMWImqd0HbMqOiHWSzy6PIiIvlk
11514PLFnqR8WcxjPM5OJyDvofKPJbQDWRalWx58S0Webe/PhuwOwweJjOXueiNel
11515JTUJswNAunpZf2SHLjJvg0eAyxtgtivTis7q4toe47KJvDewlRm8FnhLF10a
11516vevIqjdgHDQcbtKhi4qdHeHjzoPAqfWUyNZ1cSE1VXqyYBAsVwU+VdYkxL4c
115176pW5QbB1tW//7msSftSWzoHrEDj9+NDWsoSELLP45PslQ+AqMateGCBhulVI
11518z7P3Q+C1q9iwkUjG05zsHu7xYfCNZWXHOpExQ1c7ZahmGAI60rUcuWQ0GRH8
11519Ido0AqFszctaNWRU53TTMkJG4NvgK/I2CRldbAxlEv4IRNfP+KXpU3C+7V8R
11520YwZCiF0L6Xb3oOCiU+GD+L8LgXdYuJ/Go6DjPUFFx7AQ0vO8H/Y3UpC4Yuvd
11521+OVbuDXZbpI/S0GqzVK9Z/5bKNzjkHd6OxVzAtYEN5bfQum1BsJnp6noH3k0
115226+KpUaj8nRMryaLitUuTlNWmUajX/2mmvI2KxLOCA+YGY/DkvF5QmJqKKsvZ
11523v3wSPwbjpw4pbm+modWfQS8TJ8YgJD7x5yvWNOwtMTC+d0gE8opnZ/w8afjy
11524SyOLqGoR/K17mWX/NQ0dnoYrp2jjMPsfq1cGP9BwnrMx6CN3HCI/Db/+oZiG
11525yzxpGn9sHJYc7zuJm2jYcD5lb66xGK5+JV1pHqCh6fpvHwp9xbB+c1tD2RwN
115267XSLTBbSxZDYcPrbZCId/8w0LCvli2GD8LbpBVM6RqYeuPbzghhSNXpFbk50
11527TFsmP1riSIBkRirYeYaOJ0fjnIsDJZDt4XqMxKVjn022eeFtCTCjk4iz2XQk
11528bXKLkHdJIP/Or62vq+kody+npmlNwNbm93EP2+l4nlCh873dBBTLrW1yJXSs
11529tjsS0B4xAcaUi3PRa3S8Ls4lB1dOwC97qyp99Rm4eT1R/5h4AnaemTpna8VA
11530vyxWXO7mSahN/HzrFg8GeuUfteccmwTLyjMD6gsMXGWZ/ZWRPgmPX+VljCUx
115310IFwr9OzdRLsFnsP8f/BQLtLXQWitUl4tpWsUdrIwGmvH1uabaTg5OLWlNTP
11532QOdyTdf3EVIQhPEiz88y8HA4c0dStRRcs34zP6TDRGpdZ2CgTApdj1ekZtuZ
11533GBmyfSHLaAq8RvcW6zgyMS7TZJLpPwX9WhEnlX5MtN/9wkJZMAW+nGray2gm
11534Pj1I7WW/mQKhl6yzLouJwl7161y6DAK4RrzsKibe6b/JCfWUgaToLES2MdHs
11535aMtY2g0ZhLbmL/qImXjQtkil2SkDhaKvbp+aiTvvbvF9qS2H72iUMH09FpZF
11536OWxRoRz+sDlstLKHhaLmDXYBPDlE+/8gFB5l4evkiEcmLXJ4z+PnPvuKhSf4
11537CSmgOQ1xVavuxYksvBW+73Gl0zR87NmnnVDEwuu5mfvDEqaBtxzBP/eEhSa7
11538bhrHPp+GTZ/VxBzoY2H0/l3nJBoKSEe5pekMC+MF0at3nBVA+cZYqU1g447n
11539gbP3khRwK8e/fNqYjZGWc0AQKECvscD/dwc2xmw2kT3d+A4KRf16NafYuPuy
11540WtHi+g4MN1J7MqLYWOwa42aY/g5KzY+kXcxkY0VWoWZX9zvYfjzZ5dh9NnI9
11541AtndVCVUxjxXWwnYOJjQyfvcRwkWJep/ssbZuMgZdu/IU8KDNpvwpRU28t1u
11542RLQKlWCtumQ2zNJD77GJWfo2FTxh1IqbdushVy560RCiAnu76cK7R/TQ4UK8
11543urJSBfxAE59roXrIPytIm59RgUtKACkwQQ+JHbWRGdYz8F88avKj
11544 "]]},
11545 {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.002777777777777778],
11546 AbsoluteThickness[1.6], LineBox[CompressedData["
115471:eJwVy308FIYfwPF4Zdw593zasNcot15lpjZZ8l0P+pbzENISYS2qiY3k2ro8
115489ZuHnrxoItcSt2ueUyI5D4W7PFSeJudQLoe7E+7BypB++vX74/P6/PW2CY32
11549O2q4YsWKox/6/91WHVVKSoxRZLqpNL33GfhdkZEkI8aIN5statb1QwjFw1FM
11550N8FhfsCRv5L7IfxSY1CLmwnGzrxLPSjvB66xQ3JzvAl+nF+RJHOWQlLyn2VN
11551d02wvSJir+VVKVx8z+h7qDLBBEvHJfZrKeTEpS0+sCTgdjUhYd53AATzC9YP
11552fAloTJsZyLwzALdiIzmNqQTs5A+b6MgyqNWNRDfUE7A0UUpnRctAHOmbW68j
115534B/iF28MemXQpRY/rLMlYuoR/e2ajYMwGLZJJQokYvwR6o4N2YMw/rLYTJRB
11554xNNiKI+ZHwRdkMWmWgkRYxJPaXhBQ/BWlh58f4GIGfx6Y/fmITD67n1yjb0p
11555FlJJb+XsYaD2xpTfCzXFx6rjj1zSh8HSa6KvOtcU/7HoP3bo9TCs7fB/W9Vp
11556irYVHgr3oOfwFT62qTIgYciNrq+XJM/h22YX97tOJCycDv4+1v4FcOD2icpI
11557Es7nLvxQlfsC9oms+XcEJHQXClxEhiPwveOVpttSEt4i7temRI1ARKWRuoJo
11558hoy/WbyPn4/AqS9Okyu2meHZubHnJzlyOFsytekW1wyXfm00z74vh0u2ISHl
11559pWaYECBcF89+CVcFPSllcjMk5GYz7XJegtDK9VYpg4zd1x5H9hqOQgX/3rMS
11560DhmtV/nURbmMgoi5dqk4gYxcyfDJE9xRkFy+trq4ioxP8n/iSytGoZtE8ihS
11561k5FdunJ9vnoUhs4nxhRaUfDcmHDtExsFKFfO8v/aS8FpD7ffA4MVoD8b1nwz
11562jYIeY7PHvHIVsPROqhY2ULC5RFgi7FPARzwORain4Mb8QP9g8hhcOBNyvZdO
11563xTKx+QmexxhkiMwdfO2pyDYfnltMG4Psf3vEPW5UFPJvqkckY3DN8YK/TygV
115647Txid7ENxqHgpOtUdzwVK9e7U3q3jkNh5VKCdy4VHbewd8njx6FMe4/WfZeK
11565XaeN1T4N41D5RVThnk4qhql0b2zfjkNNxFrnLhUVl3+TR4U4T0BDyWinlwEN
11566872ffbd4egJaVNd+6LSk4Ub37qIF0QS02e574+lEw8mTPUeCFiegM5R0/qkv
11567DdOeDmTYbFHC34JWS89IGrrum7D1jFOCTJ5450kqDecJC58PNiphxGrzTg8B
11568DYU6Wk7HshLGDs4OPK6nYfTKr6Ktdqhgkl8W4S6l4WpOQM2zZBVoBsKWO3Qf
11569fH3Kj9o2FbxmfprFIdKxObg29SeiGhb8BtgdtnQssNdTvL3VsHw5s85tGx1D
115707R0+upKlhpU9nD3tgXTcGMwNd5GpgWBmqNjNpaNFfZOTm9UkUDwbuG0ZdFzY
11571TYu5f3gSmBe4JrtL6Sg3PL7qQvEkWLTb57VK6NiqaVvXpJkEayO1wy45HauN
115727UoCHF8Be6dA8miBjqW+OVn7416B3X8CDyCDgZc7jF7ViF/Bhib6tMSegTei
1157348t5xClw+u/TxJ0cBl7ftTgk8JsCcEmlS0IZmOcRz7W7PgU7eFuLXBMYWJJo
11574FPfJxBS41c47i3MZWK3I1kTYT4PXXGXXjioGtseu7/zs12nw+zricEsnA4cc
1157528w3t0zDgZg1c9vVDHxnG95VbToDIXdenG82YKI5UvVZ/jMQpsmx2m7FRKes
11576h4nSP2cg3M6nssmJiYcosbw4zQxEHTfBbXuZeLHBfjTFWQOxxS2yh5FMfHJV
11577WzWbqgGe8kzk1jQmvhbUzLb0aSBpjeP7BwImWg3/ljf3mRZSDmuyvm1g4nFX
11578/+r0n7VwsaDo8wdSJpYNOTida9BC5sihetAzUV9AYSsJOsix/MS7kcjCLTlz
11579SUUBOrge2KdwYbPwTJ1i99NiHQhyL51q2MbCUVI/b9+8DoqkSHA5yMIbbsfS
11580C9booZyxnFfPZaGXQElr99TD3b21G7ZkfvDU8D3WXD3UZp54VFfKwtV8zdby
11581PD00dq0LcH7EwrBvflH92KoHsen4tEjOQgutAfpr9dDunpe0eZGF+xsvH/hl
115821Sx0ndvPEDHMkSJcbdOxfRb6WsnF33xpjj4FtQLPiFn4H5U6A7k=
11583 "]]},
11584 {RGBColor[0.528488, 0.470624, 0.701351], PointSize[0.002777777777777778],
11585 AbsoluteThickness[1.6], LineBox[CompressedData["
115861:eJwVyXk8FAgbwPGJxlzMPbS0pZelg5V0OB6tfT21pdpxpI2IHCGkKWyHSujQ
11587Ma+yOUoHybuoVNhkWZ3rzPKxZYwjM5jBMGbMkAjvvn/8Pt8/fsuCYjxDdQgE
11588Qug//V/RZruM9dtIeOZGrYthTjvYNNvahJwm4ew8wdFTTwTnvFfXXS0loXlY
11589h+kJgQi6u77dVyMn4eRf7hNp3SJYG2I9PWJCxtOOYc/S3TrgkmJVurE7GX8t
11590WByWXNEB0sMrrbakkDGRK1gYaCkGh+nlb+MqyEhPCfnPikwxpJ2x3HtvhIxu
11591E5OkXlInyMkWn1pMKfhd+PKDycc6YWOaedrcTgo2dk295Ix0wnUjsxVWqRSk
11592e4XrXg3ogpHby175VFNwviF+zUxbF7hamO45r6ZgHprzPbd2w42HS7Rl31Bx
11593vuaQT0ZNN6jXfn1F6kPFOfDzqF3fA1uqTCyYQipm/y5bP/CoB+64Gtc4v6Ki
115941olJVVl+hMmGRbsjJ6k4XS1qkOd+hB2eRuqslTTsMr0L++m9kN/Bu/jnXhoK
11595g+9R+dt7YSaQa6a9RkOeZTz/0cVe8BpkVy2rpeGRyEW0lPpeKIphefNnaPhw
115969UXnFrIEFnxiKBNs9LEyvlF2bYsEdp+iny8K1sc85y69pgsSKCEamIoy9THw
11597bNWtE/US0LtCe05s0kf1jqjiXKoU/LlUTzuCAfpnKmw2bpdC2U2yInCtAV7f
1159857jKQygFmhkpRRhugE8f7L4lbpFCUBHx66ocAyw8uvmcmNMHz20X/jbUYoBH
115993urK3H/qA+ZzHb4RkY7M9LQq55t9EOayYBAd6HheMkLJ/dgHf9TOJx6OpmPL
1160040XNx837gcef++puLh0nCVxKY0Q/RH348vTdezqOt/ZUXi3ph9f+M9tmKAx8
11601Y3asr3miH4wHPvcv38jAyElpUhIMgCBq6uSuwwxUbF2c/SB5AOo0k4YpBQz8
11602fsk3FjsaB2DpiYmSJ2IGHjkyuyKEIwOnBcfzY0hMjNt6P1+9RwYy/Hzo3DIm
11603+t5dnDGRL4NrF44633Jiot7R4LkYpQycmz5RyryZeLflWHegvRyGGD9/aIhh
11604orYwwK4uSQ6/eE3mSVKZ6LiQRyh4JweXzLiYqXtM/O5jtuv0okFQiLVOjD+Y
11605aOeknH0TMgiZS2LJFiIm9hmxbfSeDMK/gzR/wzgTk+KI7dWzg6C8fzjXS5+F
11606g151Ewq3IcgeUkcfsGDhhlLfS2lZQ7DJWuB4xoWFrulVmcWyIVAdUull+f7z
11607taPGzuuGIacspu1RLAtn3yu5m1KG4Ycp5Z23Qhbet685+7ptGDROB6O6fmUh
11608d3FAdIWZAm6fHrXXvGJhWGJzo1msAtxeRxGp3Sy8HGqQS3yrgAm9kVbTTyxM
11609bTQZ9TccgVy3yNsbWGzc8/RziVX4COwQDh/4cRUbicb/HRJUjsBUa8SG0E1s
11610TNUxv2FtMAr5vCHdhAA2tkYeehkQOAp8n/CWa8fYyNp1OYBcNgozOfKcwnQ2
11611Ml/+HGtJVkJB7/6IFw/ZOPlgDaHaTwme5rJ17bVsLPyqWqf+iRJmw0J1lBI2
116122pOMEraRxqCwuL954Rc2Xo5ziUL/Mdg5FnzTxJCDbSEObaWlY0Cw6wtbs5qD
11613scOJou1EFRTHB63d6sZBubRJZ2a1Cn6qlBACQzj4583E8H4/FejMBb6LP8VB
11614Ni+HQklVwaPve7OvZHGw/selsvByFficDdif/5SDyi3UOV2pCoj1PWt+b+Lg
11615cV1/DzFdDY/19863yjgYd8qoV+GkBj/37sZBAhfbnzsU2UeogfSLX9a8MReL
11616yl+XvMhQQ2l7Z4jhOi7KBeWq5Ddq2Guyx9aaz0Whkh6dNK4GaoB41jWCi7mr
11617WsyrTMehPM+nwTeZi/9a8dnIlj8O+2SiDMEtLlLkqZslJ8dBf+Xu4AvPuBgc
11618mvS46cE4VES329xp5aJpvtRb0zkOwU92fSlXcNHjXtF6b5oGGBPv65qIPBwM
11619EnuOO2qg0t77et9SHiqlgqKGAxrYn/D3vmkHHvqbCZx7bmiA9cLrW9ZOHjqY
11620i2jWjRqo1m2btjzIw5MDBbxnMxoI/8GzduMFHtqGdfsmWGmBe6k13TuPhx6F
11621JzoT/LVQ0+weGFXFw47iM5kVQi1Esluskj/w8N3BMaHNCy38DyHM8Kw=
11622 "]]},
11623 {RGBColor[0.772079, 0.431554, 0.102387], PointSize[0.002777777777777778],
11624 AbsoluteThickness[1.6], LineBox[CompressedData["
116251:eJwVxXk8FIgeAPDJEmYwt5sxNkVKq6hn3m9trR9SjCNtsoyMisizUTPyDDm6
116263iZila3eB5GKjpUrS7WkaVvloTa5b2MODGaGjlf73h/fz5fNTwg6oEUgEA78
11627z/8/o6VOyZGsxL225bx97AFwbr/0pt9cF8Xbxu4uFg9AfwFn41quLpZaR+4o
11628ZQ1CdthgTnKGLlIabZwPlQyCk90JqbhWF9UUdtRO2yHombH1ZE7rYupq/oj3
116299SHIqH9aEmWhh8fejd/kOQzD2vSYj9VcPfzv2Yrm3LvD8NqbFELI1MMVitc5
116308eYjIKLcreHW6eGLeQ3fhjcCa3oDyP+e1sOQ7xrD910bgc7SxVi5hT7eNLNM
11631Wy8ZgZTYi2I3f31s+Dur7fS6Ufhyk5vtmUx9zG1u3ZCQOAovP/SL3tTpo/3V
11632lS3jD0ZB0JbWu0qqj6f6ZMLJz6Ngk8N2TbIkYpkwIfio9xg8392W1+JPxFNJ
11633P32XlzsGSdbRCnIWER079qa5vR0DS4n+dl49EXNPP25PYI+D+N7tsttSIrYU
11634P3XfFDcOCcn+n99bkrDa+HBPVt04mG1bCPUJICFfcb8wkjABrfqF9ZeySNhr
11635c/n4i50TcLh7C22qnoTkWnZW26UJYF7pi3eRkZBU4XPfZ2ICHkeJnmdaGWCH
11636hqob5jwJMets7LoCDNC/IiXjQ9ok0NStJ1jZBviv2iy2/ctJaHp4YCC+wQCL
116372esloxZTcOCU3t+aZQbInxF028dNgZF/VQHR2hA/mkSOf/x1Ch6YcOdCAg2R
11638Wyo345EkEDmi3HEj2xD3nzUW+IZJgHSroELdYIibO0eXnt2RQO2RzVooN8S+
11639Y37FnZ8lwOP0hudbGyEnZe/hg0HToPtFauNIoBHuGtSJOHt9GqrbrZkbThrh
11640t8VBQrd30xD6U8sPogdGqHj8TZ3ATwra4ftftMuNcM83L023XZPCHTtde3MW
11641GbOsPpQWLUlhz+ytrJggMh4JfR4g8pMBocF3uP4kGZ01W+zmymRQmT7H0Wkk
11642422lF2v2vQx2bc+/uEtBRrmPxj0lSA5pZ8zfdZIpqFzhlV1QKYdXCvnqZAcK
116433jPdPOf2hQLsAx8Gszwo6HpenB4fpgBR3flMcRgFU/lLrk71Cugy2/dLvICC
116445wt/p6ZSZmB1mvMQI4+C36/h0PfEzcA/x7QMmm9RcN7El/NYPAOdXq/dop5Q
116450Dv606la21lYVXU9mjhIwYPMwHeb02fhOFlYWK2hoLstXvAamIWOpO1PQihU
11646HM7p4Y67zcGXb83mPztQcUsIaaNh0RwIQW59w4OKwoxhTptmDl6UNPtyw6lY
11647pV3pou2oBLbO+RS1gIpaybVDilAlCA5F3LyaR8Ua81wLyx+V8MfLr954VFLx
11648T4Wb/EKTElgbtbTlT6gYMFvrx1Uo4ejFV875g1RczyJ4BFrNw/P35RFuS1SM
11649S7dov8ydB6sIQc4IhYYksu7U2hPzkPjEu+n0WhoadrQWrLg/D8/WmEmdkIZH
11650mrmvrSfmwfKczPhNOA039FXeyDRegCPKJhQJaRi8psdwvc8CPA3OSVx1gYaS
11651slcrrVMXwLyRV9JeScMu/5L83fcWIMHqq47ENhpaOH5d/WpsAdoyVnw0G6Lh
11652766V/CLjRTCd6nZoWaLh2wRJRdmORYjfUb4nhkpHn16VSJ22CK13j50kO9LR
11653NLFbklOzCCZ075p6pCNyTkwcnl6EOKHpaDiPjlPOn5LyrVTwW7/USCeZjv0h
11654vhc/BamAubUJbl+go/O92J3VZ1QQW34udlcVHcdc9hZUPlLBIz1e0fs2OhJl
11655Jv+QqVRAj98gLh2i4+mOiv4fHNUQ00VQbV+mI29MZ+BrvhoeunazlVQGlti5
11656JgT+rAbq5TL/S44M9C1yKazqVMPBT0dF7p4M9ONoc331NNDE96qa5DGwmlT+
1165786atGqA8M+k9l8zARANGcmSyBvY7Sle65DOwAoKlf/6igcbcX136qxjodHX/
11658TJ5UA0aqH/mZTxlo7uiZnW+7BFEh4XkOwwwMl6rv9H2/BA3NTo86lxlo2iOI
11659PVS4BAZsgkJIY6K96lmj+3+WIPJklxlrHROvbJVeCdVfhnrpNW+xJxOjm/so
11660Dz2Wgcg9eiw+gokV0VdND6YtQ8R9zzLGcSbCt041uxuX4S8PWOUh
11661 "]]},
11662 {RGBColor[0.363898, 0.618501, 0.782349], PointSize[0.002777777777777778],
11663 AbsoluteThickness[1.6], LineBox[CompressedData["
116641:eJwVzH08FIYfwHGHOO6ce/JQkd9MkpUmWsNXI9/kYVYkXD+idVilKF2RiEjh
11665hd+0EjUKvZJslVJ5LHP3w3bIqlshOk44T3fuuDtHtv3xeb3/+3z2fWxApKaG
11666hkbkP/2rYlesuCBZB02DMrx1//8BrtpeF8ru62BEe1FNKk0Ijiva3gYO6aBH
11667/JrYsjAhvBqc7a5l6uKzIPq5mCohnKhf02a8UxdfnOAMDSiEQL3i03w6URfj
116682nYWqXYMwf3YU7Vv7+niL4FZ5Y0/DYGfT1m104AuXljlTLARDcGkVVd5MZWI
11669k6b7alwchyFnWVWs3k5E1a7xJ4qMYVjfu7YglEPEwuejlFDBMLQ/9s9qukNE
11670bvTe+h9sRBCdn5y6ppeIeV6b68yTRLDi8N3T58h6qDqQQkrqEkEFvjn2YZse
11671Sh85PUy1HAEPC0KU+3E9PL+NXWV3egSEqg1hZeV6+IzwaT6DPwKpr0MCtQR6
11672mLCkU5hu+REs7mf4son6+If9uWzbxI/QlPVgO89ZH9tKonoSX36EUHa/k/VR
11673ffTEpiPHbUZhYRvR/mKpPsZbprNoaaNQtNLRZqxHH9c5PStm9Y7C1/JwC29t
11674EnIuhW7ycRwDQVeOcdVXJIygxpkM540B5+5TA9IhEopezgZYiceAmTGsHXOd
11675hLMdIqGB5zjU7Ddc5HeSsFK9g1taNg7+Ti6yjRpknIo0Xni3PA4SRrQ4bzMZ
11676W4lB6Y1hYsibLhDOsMnoKdKO2Nkoho0dzW93F5Jxr9Lyf2dWTwC/XNz9sIOM
11677EnzACEqagMMpxm30RTJu/b1a/K5vAvRY25vj7QxQ45KpkY7rJNxxOFb7OsIA
11678k1NkBb0lk+BJKa7ectkA439xZQcTpmBkjFd+lWeAZCPFpbPsKUhvlRYrFAbo
11679XmtB8GmfAssS84IQWwrS8p7yn2+YhpYE76y6UAqeKm2eeP/jNITv4aSuyqfg
116804XHH/RWKafi08dbppBYKLh9ZZcXYPwM/EzuP9csouGFdrKstbwZchpWRrtaG
11681yMld+eaksQR6m6zCSkIM8ebnDrWVPhJIvLY7cDnbEE2CtJ9/eU4CJvFnfSOa
11682DFFolTtLfiyBJ36V21tmDHEyv3OX67gEbJliMxqNir6FPEHLGimcIaRec7el
116834owz52JxoBQ6po2YJzyo+OFM/4G2bCmY9t/LLwul4vpgdaRXixSiO9xJrzhU
11684rO3uuWyulMLTJ39lauVTMU0UPuG5aRZ0Ko5qOlZS8e6V2zHcqFnY+6NWCruF
11685imbDZSZXS2bhdkqR6qdeKnbygycbBLMgP7KJw5NR8X0AV7zFUAYeLJ5kjkzD
11686TZwxuraXDC57/jfG2pqGXAcu2zpNBkMO0tGgb2j4JC/4w416Gdh/dvHgxRAa
11687TlwouxAtl0EaxXzw6XEaslfeDsy0k8NLdc2+sWwaOniH+6l+kIPFuJfAtIKG
11688gUY9sS/K5RArGPD3bqLhw+SFhr4BOTS3nuxMFNAw+nyfve+qOTB4qO9dNUPD
11689yM9P9lCC5iCs5Ca3l0jH8ghusXXBHFTnfOVGsqSjuzM/t6BrDtQJ/AYXFzpa
11690PMipCiDNg2/U91tjAun47W+a0iiveSjeo6y5cZSOvDj7A90X5mHcLc+uM5OO
116912Q0m6pzWeXCys6paKqVjbllt8w2CAi6trl9rV0fH8bWkaoKbAv4i7r61/086
11692Fu0wba1PUcC6+RGz/Ak6phPea7U3KeDUcNK159oMbGWxjq1fUgDvJY0pMWeg
1169333e5moOgBGbznfz/bGXgxsGEF2NnlcC+50ry381AX7JZpWeTEh5de5WZdoiB
11694jW9O1SmXlKCZeUiz5jwDOS5Z8k/bVBAQv5w8dJ2BCa57WKxUFdyKuKKi1zKQ
116953/d6VPc3FUj8vuB4dDHwsDHlpr72Ari5tEjiRxnoP/Up7YDnAuTbBMdUaDAx
11696JeJOLjlrAQaMpkZfr2QiMU63lcRfADut9IMrHJjYsdrCMtxQDckS08Et3zJR
11697dHC6SmePGvjvf90XFcnEAC9OmGahGsz+QMHVFCZqdDxyCuhTw5Fnvf5thUyU
11698jdz9Zt5iEepvx3UqHjDRozQ4dpq9CPqXdbxtfv/nL29sd65aBFbqDW7IMBMf
11699f3zn2zezCJVHN7tlLTKx/+Svyu4tS6Dc195QZ2SE35U6d5ueXYK/AW0p+Eo=
11700
11701 "]]},
11702 {RGBColor[1, 0.75, 0], PointSize[0.002777777777777778], AbsoluteThickness[
11703 1.6], LineBox[CompressedData["
117041:eJwVynk4FAgfwPFhmTEzjjlo5cqgRM6UVvubcvyWLImhN0eexZJjsoQa2nXE
11705u+pNaV5tHqRRltKSJYS8khyddu2iciSbcYVcM44ZzO77x/f5/PNlhcRwwuQJ
11706BELYP/3f6vBDzRQVIjrnp5gGUITAzjcsjjlAxA83QuvPhwrh+YvNzN4YItaJ
11707Y4OSW4RwdL2fa3eLiDU3f94O2mPwl3mdp+DPf37BOrGdNwbR3/D3fqZAQuf5
117087xU0+sZAwudqRewl4Z8/sfQsbcYh84mz7NUJEuZfmvVm5IwDQ8QSWueRMO/N
11709+9JHC+Mg2L7xLPc5CTtPrzL3cCbA9Njbe1IJCQ3D9wniaibgwYWanCAzJXxQ
11710XohnNSbB8WE2ryNQCXlOO0luiZPw23TkcdMrSvidxcCYcHAS/HW/crjyWAlz
11711T94fcbGfggkP/R2iBSUc36haiS+dgvg0KcXPkIxJH/pMI6kfQVb9eq7Zh4w2
11712WqyzxnEfIWu0utcgk4x6pTljlf0f4XONy43n68nonmEaLXOYhp+dIwQzk2Qs
11713qp2kbS2fBstEpwwvLQoa2XV1S9VnoOmuXsQDNwoO0t5W3EmdAZfBNXftZAp2
11714fUku1ZmegV7lPuu0SgoONQY1+h+bhaADVVvG3lPQNmt4Krh9FmZisqSudCrW
11715/5puu3v3J0i8dWKk0pGKwcaHi17e/AQKPQ4dzAQqeiyyjSxoc8BX0P0lsZSK
11716XNrRDr+0OdCxXc1+95qKDedy0j0W5qAsvCfeUUkZtQ2l5pnW87Anv9L3jp0y
11717rlo8LnseNQ+tL/7DVuYqY2BoXvWpknk4vB5qcKpQGU+2ZRxKGZ6HfnN70usu
11718ZaS6p0fPaS5A2DfaM/tlyui+eVW/w3sBFvjL3UVWKqg/0BAsy16A5Cd/1CmE
11719qCD//byV4MUCkEUVBZFXVTBHFbJvERfh2vYLqb+1q6BteEES2WkRWMe+DbVZ
11720VsG4KepSX+oi3LtwwDXPWBWdr/ElxOZF2P9wq8WGryqWRe3kF0oWoXNaxAi5
11721qIr1kT01uV8sAUe3e6WzSRU5Of8NE59ZgmGP8qFds6p4WRhS2lC3BFFpma18
11722PTX0D3KJHxEtwXJ18G3xETVsVTz4+8k9IkgfhSz/c2r4rNe1MTBBBKoamrEt
1172399XwRFe4dU2tCAqcl3yMhGpYMJe3L1osAiZMFLZTaBjx5buXWbZi6O/1UeMZ
117240rCnas8n1UQxFEU/OWcCNOw+UiRYbhRDGNFKNOhDwyhN3XeO62IwK7pxIjua
11725hnxK5d2lA8uwuI/ab59Jw+AdHAVy+jI0dCe6LQlo2Mklz6Z3LENK5HhzaT0N
117262wZ6vg0mrwDK+1j5dtPQL746ouTwClCutxZTpmj4095iqVvOCnTbWGo0y9HR
11727l3Vbx/fNCuS+Kjwfo0XHFtvml890VuF4GEXCsqHjw9MTSoKQVTDY5J3sdaOj
11728x7BR75uyVZjMHRvODKVjSuxp8zNzq1Bp6e1ll0zHr8z61ZNs1yDh2eO26Wt0
11729LKF7XhxJXoP9wRa2gko63tIfuFzRsQYEyfUyz6d0tPTjbXunIoHOHLL2ZyN0
117309G8yPhj3Lwlc2sW7XLdKRwOX6RlukQQ47UJZOJ2BqeutO19MSkAzkBOnZcpA
117313mD54qXdUngvbhG+cmTg2mjZ17U/SKE02/xYagADjbY0Wtk/lQLX+Ppz6wQG
11732jp0aKrFirIP1YyUQXmKg+wrjzo+B67Die6Yyt5SBjreP7zt4dx2aF0b1XR8x
117338ElK49FA8TpkXPS6Kn3NQFGaifyIwwa4GrYoVs4xsKyiAp5mb4Da/8wSg5SY
11734SJd3UmQObUCfT8FHBouJ8udmAtpMNuH6LCmww46J6SZ37d/yNiE48/TvPA4T
1173570kTa7w6N8F426iDKZeJ3JWAWksNGczWe9YOZTCxTYfjFBcqgxrPRzuuFDLx
11736PjcgaGutDJKmduU71DFx22LTjwx5Avtgej5V1MVEqzbv4q9NCWxFbVLK7XEm
11737qpiIFes4BParmoR5XxkTqwxvVnl9T2DnuH8IoWqqo1mNT7F+CYHtO3akr9lK
11738HaPeMAZZXQS2XkqzS6yrOv7AH/A/ukxgC7fsemgQoo7+w+Wspm1y7F9+zTPr
11739O6uO8q2Zlt6ucuzYQ8Si81fVMekL7r914+XYtn/F0/dXqGMD+ulr3ZBj/w1x
11740nush
11741 "]]},
11742 {RGBColor[0.647624, 0.37816, 0.614037], PointSize[0.002777777777777778],
11743 AbsoluteThickness[1.6], LineBox[CompressedData["
117441:eJwVyXk81AkfwPExw5yYWx6VQjyJVdqw+P6w+fYUTw+FUiRPUyjakKNNjq1c
11745I3ZVrpRNotA+i5JSJvskCeUo0SFnHlcYMZhx7T5/fF7vPz46okAXHzKJRPL5
11746q/97rNTGtSxdBdft7Rh7Th6CPEZoD/O5CiYnZ862nBiCj6KiH47MqGB9f4Ss
117478eMQCKu6FBIDKlZ6nh184DAMTkJB4gp3KmZOF79KezgMCScchMEJVLT+ffa2
11748aP0I/FEXndfwgIpliX7hOldGQL62fOO6ISoun1d818ochW8jhquiNGlIzy2d
11749CI4aheNvtB07dtBQ2inOpkyOQoGxW8em0zS8ZRVvGe/zBbrixEeSimhoVFnw
11750Uv7hC2h2P5nsf0/DqH1Drgd3j8Hu76ajCSYdczWdmu+9GIOki4aqmVZ0zJK3
117512yjsxqFm5OAVqT8dPefP5Zk+GodF+zQDx6t0nFjtoti/ZQLMc+rv3Wyk4+5D
11752+I+QkgkInFmyW5yn47M+45onQikUOm9p2mvMwJ36Dl7gJoW+wmOepQcYuHEu
11753PHjzZSmsJF8fYqQwMN6zYjn3tRTcPNvCDksYaO1MoyfyJiGlnEGRjDHQ+82x
11754pEGXSahTs03V0Gbi4OCn+OrLk0DyC10d5MTED8mHF9lvJ8Hyj6Li+mgmmj9V
11755jL3T+Aon/9ZtoVfCxLmEm/u09n+FOycFtZHdTFzb5UW0Xf0KA40OLu1sFlY8
11756M7xG7f4K2vox3RvtWFhqTQsr050C9+jy4+IgFvLtZ+rafKcgtWNY3pfLwr4P
11757M2lBd6agYdOaBGhlIZPC6IyVTgElyU2QoaSKBY+Nc7jm0wD94hsTpqr4m7Lo
11758nUbkNIRBtYmDSBWFXYUpaU+noSR9+nHeJVXs264kSWLIYGjc0GHhqSrqbA3w
11759le+Sgc4O7/Y9U6r47OX/xD1ZMvC4kXa4RE8N6wdD/m7XK4M0Rb2U7qaGlpd5
11760tpobZuCV63KUKFYNhc1PW46GzAD1P1tYVeVq6Ho1ttNUMgO2VP8s4YAakufc
11761RSG0WfjR+7p+oFAdVw6A6BuXWbj7sO3ui23qmCz6ttM7ZxZGuUw73XB1DAiy
11762bmEOz8K6ANtXZ26p4wP1PTYmZnPg9SzU4227Op4gfjJoODsHmauLB01obIxd
11763qErsapqDlvDu0EQLNlJ2snwCVsmB0SIg9/mxcdoo4HGQvxy2Gjr+Yp3Fxm3X
11764Oi+MP5RD5LmYVekv2Ci75t3+maaA+x/Li8bn2KhpMp3t6q6AU1phK/MFHMx3
11765zn5vdVsBgjp2X4sxBzOUXC5lzyqgNKS4cBE5OGm/svbkjnn419ptgRu8OFim
11766MRNcc2UeRl52m7mHcbD1dF9W8ug8xJ+OWDifwsFTP/RYNhELoGcgrCkt4OCh
11767yQm3xNQFqH5dIv4k4eBrFe7Io/4FOBDjuIvZzsFLxfZyH4tFkBsNaFiMc7Cq
11768O+Gc+MIipL+L+XSYysUDBZ/i9HsWYXOcVn6qNhe95pFiZbYETab3/SXmXGzt
11769lSieJy1BQJez6YgTF6/u23H8Zc8S0C+MzGr4cbHZ+7O7o8Uy5FvEPbGP4WLk
117707EWJ3c/L8P3nNXFBmVyMXrM7p2RgGbpSH/0zp4SLstHUM43aJCKC2MNrqOOi
11771L+ecz7wjiVgxMvFuppuLlMUzyX6nSMS9jKTrenNcfF8WLWXnk4hd9vq+uzg8
11772HDBJujjdQiLGJqqNo9bzcHXor4HCJRIhvuYxVWTHw9Szj5NOGikRBg6yyvZ9
11773PNzs3tvH2q9E1Mh++YkSzEOqjP1jb7wS4Z23YfsmMQ9XeG53nCpXIhacatW8
11774bvDQXZyw//t+JSJr3rtNXMnD9piWgkYumTArVGRXtPIw3EZ34yU7MvHaLf1Q
11775/zAPXWsjZWmBZOKE0qb1HDIfjwh65t78SiZYvzeMgxYfbxnttHRuIhO3PXzu
11776H9vMRwPWfyuoS2QCaaTIDEc+Nt21CVZ8QyF672VvrRHx8Tfd2qMbDlKIqH+b
11777MaQRfKz3cMvJ+JlCaKm1NK+6zEdVzy/qttUU4kGlf4bDHT6K9VIkelIK4eqr
117784hVew0frcvMi1FEmpLxcvZsf+aitNtx6w0WZSK62Gmme+uub5FtYxyoThsff
11779li6wBHh+xdEPnApl4rlm0CnDdQIk1W95pDukTIhqmTZ7QYBPtjI7grRUiD8B
117805kHkIw==
11781 "]]},
11782 {RGBColor[0.571589, 0.586483, 0.], PointSize[0.002777777777777778],
11783 AbsoluteThickness[1.6], LineBox[CompressedData["
117841:eJwVx3s41PkewPG5zzBm5jczYpPmkMSeIxHzKL7f57HOJ6yZ3Jo8lLussrXr
11785cuSSWtqcRrJMDZJlHEwnlxJPJrdWVmVPsrVbso7TCe2GNsZ9MC5nzx/v5/W8
11786LaO/DIylkEik2D/6vx92qyNdTelwxjct8erIB5SUt6xO86TDF6tLwq+jp9Dy
11787hOR3TQodthAJWcrfptBZT5XDYg0dEgreanpPTCNqzVyK00s6fJ4WcM9cO43k
11788ZM+ORCoD7Prasq+maBE3opR0Zy8Dci+am9ita5Gy88OB6SgGPH2FXOc9ZtBW
11789M/c8OwUDblUc9x29OINUqVefxz9gwIkyhVdk/wzaOfBuS62WAStP71knCGdR
117903V7Xo+MiJoQ4DU8QR2aRQ2F+pbUvE5Q/6gs9/jGLWqZGfos5y4Smiq0i+uQs
11791cpM4/6WqgQkl1c6FwY5z6MHNiwkjw0yIfC0dRxlzyJMx3CJis0AnibZq7plD
11792T2Ps9aGuLPhM+zdo5cyjgO5s97ITLGjtveDjFzyPBkUDOUPXWPDLS4U4tXoe
11793hWba9pn+wIIXJt/SHbTzaGzoDBGkY4Eqv7o93W0Bxbk8O6zcZQBe+2/KZPIF
11794NKXcUfbzYQP4YWvdi66BBZQ8lzJC5BiA2Z5al06rRbTs9y9rv7sG4J2uzvo0
11795aRGdu2X+ef5bA/Bbrrgd172IqOyEO30CQ7BtKOo24S+h3OM9iwYehjCozG0L
11796ilpCvMcmbt6JhhDenFFs07yElFbxWX+vNIQntBPBuVQdMsu+/+jhM0PYyJNt
11797njmsQ6r/EmzqpiFs8cZ5m//UIWt0zP8TezYs7bNaE+p1qL70XtFXYWy4G84I
11798bPNdRg46w+H7l9ng1/busrZqGWlk4RZrHWxo8X7YoNEtI7fmpljX39nA4Kia
11799uAdXUDePXp9mZgQWjNQyXdUK8jwVPKP51AhMnKXxiSsr6OmTevFimhG8LhaJ
11800Mv1XUaDtZobTTSPItJ/WmN5cRYM5gQ8SB41At9ruDCQ9Cnurpt9hcADWLpSQ
11801Q/RozH3FZ1rMgfS90jd+zXp0vEJaaBfLgS/KCaM9RmtoWq8aiFdywAv/vF31
118022RpKDpk3q+3hgJ6vMK7sXkMrGs/I8TkOZG47OOO4fR2dM76utt7BhbEQRpMs
11803fR3RkqbexwRw4aP+ziDWq3V06Zm7Q1XWH5+SMCp12kC83cqUkUYuUAItA3Yo
11804NlDRpfF20RsuaGKeqeXaDWQ24UoK4/LAty7jzVe+m6jywDcHyjAP2qytNpi3
11805N5F19eiloZM80Mf/mkUwSbieJH5u+i0P5K/FKbEuJOwYLt8S1MeD8+/p/6Ec
11806J2FNx/AR5SoPJhSylolrJFxx2dR/0piApheWZNMnJBzl1p0ktyNgqvFUV76e
11807hHe+jy+yAQIUu/bNSHeT8btrxq2PjxJQ55J9VRZBxrVe3/07NpkAm7fetTUK
11808Mj65FLdOyyOA+LjAET8k4z1qvkVNFQHRBjI7kY6MZw91ePy1nQDbCyWlXn+m
118094LuU2NixnwiQlYakt4VRcGoTV549ScC49/W+ZAUFu0a21lmQ+TB5JaTw9CMK
11810XudG93d9xIeQ1JLe7hUK7rrPngl34IPr0qHEw/ZUfP5ki2DDiw9ZvIJ8xxgq
11811PrAtQlwewQf7Hm/zoGtUzHrCCkapfJDys7f39FNxX1pzxvA3fBhYcVGkUWk4
118123ya0POMGH15knko9vZ+G/V/RH2z9jg9O1y2fd35Jw8KcxrHWAT6QA2Vlkhs0
11813/MophB48xQfnGvrQjtc0XDpGsdXRBPCyUJzrYUzHRxUNPsXmApg2/bW+TkLH
11814IvegU2JnAcTt539y9Gs6Hp3eLHgpEUDAYqe3rIOOa8prm5NjBFAuGf++aJ6O
1181546SHBgRnBBCKChv/ZMfAH+vXdE1XBHC59x537hgDf6i9YRZQJwCrqbARowoG
11816bgz2xzPdAhDdOr8zYZCBk5irEQVDApAzdw1v4zOxWFN93n5WADFrXjRCwsS6
11817YwfV/Swh3MmbUElzmLhdqOs9aSGE0Bbm7Z+6mPjs95Xv2fuEkJmutletMrF7
11818og+n3k8I1F+6LVvELEy1WNjjEycE7fPQi8JEFn70Y3ng5DkhHDl2OqK9gYXl
11819Z71S5MVCsLjCraudYGGJ3WyJzW0h+B+xjhvdaYC5w9fbHz8SwkJne3FUlAH+
11820H4zSwQ0=
11821 "]]},
11822 {RGBColor[0.915, 0.3325, 0.2125], PointSize[0.002777777777777778],
11823 AbsoluteThickness[1.6], LineBox[CompressedData["
118241:eJwVy3s81fcfwPFznHO+536cc4zcFllFVCZpk8+Hmnc9inL6NbcttUOFfm7h
11825rDBsZR3RxfArobBZxFHmFhNRrDLCL84omWgbEeWcI87BOdv+eD2ef71WBUXt
11826P6pHIpGO/tO/2r7wlIgyqbDsTVwUxM6iT5tHWgJbqPDLVE72pXuzKCkvli2Z
11827pkJDrVHdI74ClZyk+0nNaDBVeVpRLlagHu/8H67spoHf8JAnqlIgtYP9TPlJ
11828GqiR1b1EPSWy0m9zbr5Og75un/3h3krk+dr3TE8fDaazTuhYpUr0Zcdk7yiZ
11829gI1p3z7y1yhRQUmyucqegLqqr2/6eKnQwxRhKHGIgDhO6C1ysQq9FZfUGJ8n
118304Fgu7gxYUCFT160620YCLviTqCFec8jdrNsDTxCwuPsnf8vrcyh8IfCyyIgO
11831VyL2dpxdmkOX5XOjgUCH4LYBnyLvd6ilOm2DJIYOsZ4ibfDNd2gi4/14aREd
11832btNq7z8n5pEwoqr9SjcdPlTQismB88jFYwdftkSHcf6OQvmdeXTE+umBZlsG
11833DARG1/uvWEAXqRGlPf4MmP8jfSo9dgHVj5KUo1IGHMzLdAnvXUAv7v7PVVXL
11834AOWpM6VLG9SIddUmnXjJgIb8YHt0Xo0c45vkxgImtI5v7rOdUqMA332r7NyY
11835QAl+m/XIQ4Okjn+E4wgmxBjlRhrKNKiSH9cgymfCavXGYAFnEQ1Os6lBHUxg
118368qrjmyIWkV5noUgyzwQbH6syo95FZHfDMV+6hgXfdH+tsnBcQt5nHv515VMW
11837GCb8emDw8hJKDjqwSXaKBQN+eiNui0uo1O1NUnMlC/pDrJN9xcuo1zylo2eY
11838BQblzs7mD5aRRm1kOMZmw5crnfmZ67Xog4FyscqZDWt+WUOpy9aiPbWuFUQo
11839G1gFOsHZRS06kflk3vgyG0zKHiDWER0qjAx2t2tnQ8xfCSkuj3XokafmIlaw
11840YdmWp7xgRsIKm4vPRJYcGPrKp1q+j4TNCKu1QV4ckB/N1kmkJAwv66IliRyY
11841nXj4LKyJhCNbdzdLyzmwmqZ0b1SQcM61YUbuIAfiGt9zEa8j49aEaG8ZwYWX
11842jA2tB8VkPOlHK2rezIWwty591TlkbOCUO9UTxAVB9HbJFz1kjIQbPhr7jgt9
118436bj4MF0PB79pPa26y4Wb+ENxi5sezujy7iamuVCaZiKLidPDDWUTJiZmPLgX
11844qU5JqtLDY9LEo3a7eTDzumdyZFIPs4/wq/BJHrhRr43krqbgzdt/XBJd58GN
11845WnGQ7BAFH1r58a6gPh7YaU1j38ul4NTFzmwJWR8ev+gUyPso+KfBL0ak9vqQ
11846HhDrOs2j4qd1Stvcg/rw32iBOsCDiinZqSdk5/TB36Jk+2opFa8/bna/+Wd9
11847CA92MHa/T8U+eyu5veP6cHVnTeLPWip2u/T9+lkWH6Zb7KJSXWi4PyVsv2YV
11848H/Y8yXtTEUfDx2Kc4ijOfHicRNKuu03Dy2LdNc4+PkTdD8jTKmk4S9TRZhjC
11849h3VFle22mwhs7Zr9amUyH3RG6sRbxwl8Z/1BfZtLfHi31rktrZLA+8ysnRwq
11850+LDcE5XTNEPgP5mzn29t++cXXlPv3EjH8QuN37g/40P8dOsrm0g65o1/W7Jn
11851lg/PA4dCgm7RcbHcq8uHIQDvqNexyhk6/qjdWHHIQgAaQxX3uT0Dd1WPrQjd
11852IoBSH4WTeTQDB35fgaP3CiBh4/hUTTUDz2WcOJxwRACSoif2xSoGTk/elpby
11853lQBiZbXkyS1MbBHBqjyfJYA80YXAs/FMXHOgv/9SmQDGzgeIkpuYeJdHgaag
11854VQDbDlt1duqYePjjUMsbAwK48+T3/uPuLBxtvWln1YwA/IYywyNSWZgwWgpr
11855pAmBneSSda+ThfOpDzLbzIUwWD+0I4LPxvbKjPouRyF0nItJPe7Dxu2jnw3L
11856PYTQtaDz7cxj4896P6CMBArhrTalNukFG0/fnbaZiBOCU4G2MHUtB5++We81
11857myGE736LMnkVzsErrp6SaEqEQNwYsPyhhoNl6Z55lLtCKBRuuV2t4eBt8Yat
11858HLkQ9hide2r6CRfLQ0b+NHwtBNOa39KfpXHxMd8ytgXFAFivjH+d/T8XayHW
11859wcbUAPQb/pMjNuXhbEfs5+BgADaWpxRrD/OwtRU9aesuAwhbVToEFTz8NzcN
11860xNE=
11861 "]]},
11862 {RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], PointSize[
11863 0.002777777777777778], AbsoluteThickness[1.6], LineBox[CompressedData["
118641:eJwVjWs8lIkegIe5muv7jlKiyIpQk6Rj1fsnu3+3qVgcUSubdQ3lxK4kWkrk
11865Uo5L0WrsyYqKMqzLKpGsrXUc2ymxTUfRqEiSdb/NbOfD83t+z6dn7ddRnsGa
11866NBot+CP/9wgfDc/RGaj8ithmbDNFXU5tUX5tycChzDHL7y9MUb607eU2+xnY
11867oBMifDU9RQnj68P5GQwMo33ziOE7TbVPbJYM1DNw2EU3ca5xmko4dGO8TsnA
118683R+8hW36M5TVm/V1GQQTc6bNUgOSZqjhA6VxXwETZV+eH+wenKF+UBhQ1uFM
11869zDIoNFstnaX2/L1IzSlgotdnVt7b5LMUv0unra+NiUttgaEbVsxRbc65qTUf
11870mBhduuHAxIk56lirQJq2moUPlFn22W/mKMvt6QI/KQunklOYNI956nUt47+W
11871R1nI+k67xvH2PCWTJOUzS1k4oLB1PGCyQHldXfBRPGRhyfmZZvfcBYprdFSv
11872aomFm6p2GSxTL1B3i/58fsqcjeWmtiE3Ihepo8sPl/j6sHFU1ZSn92yRkmQP
11873B29MYSNn6x/l/tIlapATbKZZzUZ6R0ZJ7K0lquhk/7uePjZ23+k+FWihojwW
11874v5RXcDmYTdTvXCdTUZzY3pgkGw4K70nmb4vUVPOYp413EAdjHtllm55SU98e
118757Jo3y+FgpcNrbtiMmrJQujar7nDwZVpuvd3faPDSrz358VsOehcvKbYcoUFh
11876zw7Hqyu0kAqqjc6rpIH7F02cRNTCjKf1ifuHaMDssOn0OKKFUhVjMcdYA5o+
11877/ynbpFjr46941DJAA6LvSLwWOrSQ2JPiua1YA8xsrus8nPnY6XXmN59pQL98
11878naLUmIuJEVaxWbqacMH8suyYBxf9l+atn/howu5S/QC3E1y8YicKPXNBE+hr
11879Co0/qeCi36YoftkTTbhVoD0008vF5N9XrZMsp8M/yOyKTgYPxQbiakNvOphm
11880cqMub+ahYI23PPE8HfoYqVax/jxM6FQaOfbQIf+ExrQ0k4fu5s2coysYIJ1N
11881aDT4mYeFNoMB2nsZoBE9mzA5yEOnSW/JqiIGNIzE7PiN5GPwAe3DmX0MOBw8
11882Ri+24+PQcf21oYZMWPci/H50BB/7nY443whkwjPf1xnOhXx0aSUH9pczIfdR
11883gJt+Ox91RpZG40aY4LKrjxwf56P7L1sPqzaxQN3u+6R9jQBVuxoD3n/Dgjr7
118847sLvdwqQPH3mgcstFkQ2uvtFxQkwL/LHEgGNDUZb/m2AVwSYTud+oJzY8LTS
11885SbnykQD7XZvkPVlsyDa5VzaqEuAN+1uDisdscPoXhN+zEOLLQXqWqx4HFnUb
11886Nxb4CjHD9mKZUSAHfsqzHo84LcSLEG8dUsGBgwJ57Y4aIa4cL9u6bJIDhmkW
11887cctfCFHtZXB9A2hBL618+1ueCD1ClDlVqVpwNt5I3fypCHXXT7y79FALcFJ2
11888Ly9YhDsvut2eXMWF+UO6qWG5InzdOLVYH8yF6jf5rtAiwuH0oWqlnAuhAYRA
11889/E6EQVqmivhFLmSPOobF8Al0+rT62wQXHoRfp3f0GRFYpJOWMpTPA8fQVgsX
11890WwL3ll5ltQzwYK3xd2dr3Ak8PrB8US3hw2I/NaYfQiDR1RVUkcCHXtn8F2kJ
11891BOqFP97R2sGHmn0/14znEniu7pN/OugK4NyK2GV+1wgMlLd4bggTwMHuLbG/
11892thAo31d+JrlBAJgz3mvZQ2BkrWKzA1sIhm5VtkXvCDx9Z69bhI8QFriHiph0
11893EpfFGj9Xlwuh5775UpQuieLn2wZUs0KoThnyV2wiMXnqkk+YVARnHcruohOJ
11894bk1SB+qSCMJUgUZVfiQWWGFx/HsRfH57bYpuDIkmldiQY0jAmrgXr06lk1ir
11895I9irJyVg3lrm/P4HEid8j1srYgh4Mr7vmm89iWPR2a5dMgLkN1fy2jpJ/DHI
11896tXDmPgGZET2RG5UkCiTXDPf8SUDo+vyugjkSTX+/+XJYn4TPXnlYahJiVDnv
11897e17jTMLqElFupIkYswortKujSZjz/89EDyXGB3dLTg7KSOjWy/R28BJj6117
11898i92/kVD1h0tDxUExxhSeFIxMkpBxnqWrkyTGp84RZs2GYgjx/CU+6YIYR7vm
11899Tvy6SwwOopP/e1spxpaNEiHjmBj0O+3tvNvE6BbE6Y29Ioa/ANBJrQs=
11900 "]]},
11901 {RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142],
11902 PointSize[0.002777777777777778], AbsoluteThickness[1.6],
11903 LineBox[CompressedData["
119041:eJwVx3k41YkawPHD2fffWZxki2ixtDiKGX4vRu9cZamJm3RlaUSWupZisjwZ
11905CiUmJa4oa9LkIl3LQxoUY7mY1B1xpjrTObdmCpMGNXIcd+4f3+fzfM2+jPEJ
1190606VQKGF/9n/vXW+qzTxGxbR36/07lhbJwjN2/pwrVAy9lJ9wPfYjefRwC+tC
11907LxW7m8J8Cl59JBEd2iWzVMzZc+O3rMAl0tCiPbLYkIZD0T4eaT8ukb9TnQyM
119083WmYy4gKS92tIYfUnUOV8TSsWzPjcmpAQ1Y+cE5ZX0ZD37afJs/sWCaTqrut
119096wZpGDSy3S6/a5n84rTb0y0LNJw+tORZQWrJDaG9uc2mdFSfsLFo6dCSK25/
11910gU+96OjLGLw7+ukKOb52YObeV3R0lo2JZ9pXyAZdjzK3ajru9KmSnjWmQKbq
1191137v7R+nYNHFxpTSIAoH3vVc8P9LRy8TBQ15BgW1VPzQ+XMfATeaX5j1UFOBm
119127A3Zt5eBbr9UaV9a6ID60GNCkcrAS1GREdQIHej4bF9P0E0GGte/tK2u04FL
11913Zk/i1I8ZqGhYFdD3VgcidQ6sjVhh4LOYFXXkNl1wfaF4NG3FROns1eH8JF3Q
119147zl4Os6PidlbZqWOXbrwtuK53ft0Jso3L3aG0anQ/3XIf5PrmWg03dYr8aJC
11915WYjq8soEE10jbWywgAqJroc/P0Nj4eUav7n3Cip4m75aYG1loVWlvYGNOQ0s
11916KBE38gJYqAkYrlBH00CjfO0nzmYhc3xVtnELDR53RTP/cYeFnsLVI5NaGtSV
11917z7QZPmdhH/NhvP4uOmSkxURUsNmY0UWenCygw4Hgd/rrtrMxwT74mZGSDrYu
11918xwe/DWFjxVGHKpUVA1hrFpI257KR+WXf91ZfMeBnbaLVv9rYWCtjey48YEDb
119198z8UDmo2ns7R3eImYsKF75LPdwo4WHSvKV4UzITwMo3TZ44cfNUok4XWMwFO
11920nZruC+Ng4iHb1Q4aJugFUa55XOTg1kc6qXmeLJiGDO8fOjko1z3rHF7Kgl5j
11921mtb3Vw5GvHsQ0jPFgtLlzIYJCReV5S2qMpIN8c+YwYEuXMznB/Zq89jgce+c
11922UBXFxVjHDvoLJRvMrnG7w4u4WLR+5Mbncg4spubFTvVwcXqssNYmkwMPDwrN
11923Yme4eI6UsoomOHCTvDg2r89Dn/CdA+k2XEgzkmQkIQ+D9sh/ffs1F/w0l+Xa
11924GB5e/zB25OcfubD5qUydUcpDo+AN7r7WPKB3Fhcw+3k4kSnP2pnOg2elBpj7
11925Ow+/j56z6H7Cg+aUq/OECR+XiCjzjs18OB9gUlO4i4/hCUXp9ll8CHWq2GeQ
11926wMeV4pMu25/zwdFwLaO8go8/pRCBrfYCEC9Vt5oP83HWOEjRfkEArxXrjtz8
11927wEfXtENtLq8F0NNRu2qTuQAHyw3m3XcIobjEcqBptwDz087lP7omhJjkupP2
11928yQLMM2nIVf4hBPe/bbK8WyPAUGc84WBFgIlj46TLmACNvXk+rv4EvF9tm9Or
11929EWCMU2NwThYBI4t3HHdtFOIR9qZrei0EXJ/cNjXiK8T3rZkclZqA1PbWUp80
11930Ia7F9tq3YhH4XvnE68ktIc7d7j/h7CYC66QOTcC4EP2Wb8eNxokg3abMb5ZC
119314EHLhLLyShEcM1I23JERuLxNutQ0JgJ/nikzwYZAN9Nvsum6YkBNSLCDG4Gr
11932p1Q7SuRi2Dpd2ba4n8CCQvHW2FAxGD1VCTuPEXhrjbFX9mUxMIfNI06dJjD4
11933nG6xsk8Mc3cPd7teIbD+0X1J0gcxKOtq9KmNBF5ZCuzytZTAUOmr2L5eAjfS
11934/lMSEyCB1vMbBrMVBHpPW9wYzpNAVUqEmccsgcLmL15EdUvgm+hvk3gMEf49
11935YL+Xx5wEkgLejI0aijBR9ckvUeulEOZpbXXRVoSiXQtNwweksNfpaIavuwjx
11936Qu4/Y/KkQFrXK/QCRWjWoh337ZHCRsPf5BPxIizs8LRNWpCClLvlfMlZEdaU
11937H7+rtNQDylKM+mCZCPccTkzIDtKDqTe3ndY0i7CK9dfg2AI9eKJ4V/BiUIRn
11938cnlJJQN68GBIPl2tFCFztvw+XasHDR3HMXxBhHZ2AvKOnQxKbjVf3cgV48y+
11939/S/LI2WQVbIw/8ZUjO7+Kd+NlssgLsfeu97+z3dM7ncel8H/AHOopW4=
11940 "]]},
11941 {RGBColor[0.736782672705901, 0.358, 0.5030266573755369], PointSize[
11942 0.002777777777777778], AbsoluteThickness[1.6], LineBox[CompressedData["
119431:eJwVyX881IcfwPHjPvfL/frcHccdatmQPSSWqK/efvVORZKayJgf4fxqrL4j
11944SiE/blZJUVPScJFUo5RbJLRKM6TJr/T9EjWdUpnfXLb98Xo8/3gtC47ZHqpJ
11945oVBC/+lfF1bWMKrbNFFw2k/oxqWAf9Fn050zmig/HuKQ7kWBeuHJV5NGVIwd
11946oaQGFlJgadriU7E7FetLrPr6/6RAymT0fdt4Ku5vmNo4Z6UBL8L6qn2KqFhm
11947v61FeVAD1vdsVCS0UNFpiX2IXrMGKDbfPHV2koqbAxqEEm1NoNUaHaldSmCT
11948RnfX7UBNkJmf2Nu/mcDztNRK9VVNaD6vDlLvI/BdZOOFwXlNMONHeS4pJPCq
11949VZ4izJUKWck9jg7NBHbvUtcfzafCmw8bLAPHCYwcmh3b8ZoK7rtvLE0xoOHe
11950tizrurUEXOv8hF/sQsMRaWX2/SwC+C7HPzbF0rClOYIS20/AtzXzb4fO0pDf
11951U5NRa0GDJ8sjnhP3afh401mjSyk0WHW263fjdzRUSwWdq5/SIJeNdS4SOp7a
11952anAuxIwOUwerKmTr6XhyqDbe+hAdvMeWnJPvoSO1713ExT/ooAw4mlV+ho4v
11953rZTf1pgxQNIxm/BbIx2tR7WzI5MZcMBZFjE6+s+n0ZvquxnQf6PThyNmoE7q
11954D1rVK5kAxs6bVjgy8HLAxXBXORMKT/9suzWSgVcLd/SnDDKBwjQ0jclloMjh
11955dKivHQuCErLEJ+oZOO24h+jMY0GTappWNcLAjYoe5dh7FnzqFzrZIWTifHhP
119566uUtWpDW+mR4fB0TjbOjgxnlWvDK3rFTJGPiTXGeN43Oho2VV+9Z5zCxZtEz
11957WLGbDZeW6d/wqmWimWtJ6nAjG1in5MVxL5lITMmV9z/hQBQxlXOGz0IXKpXY
11958lMyB37/bnaJcy0JiryA0aoADK/58HNu7m4UmztXPVjpx4biPfeDcMRbe2Tcq
11959yyvmwvtHFR76ShbepNewCggeeNpJHNa9YKHZvLhxvYwH169kWPhztJDhyT5+
119609DceiJZMGB6y0UIPZm5snAUfvssO4l4I1ELKsqpwjVN86KK0L9zN0sKl54Lj
11961VszwwXbvujcD1Vroa9e5RW1Bwo9D5c80/q+FfbucIqyDSZj7UrfFiMVGbvl+
11962si6PhK8epN1ev4qNs8sTnXMfkVBnO14e4s/G870bFuvUJBiWB+SnZ7JRffuZ
11963i80XAjgsbZWXVrGR0WonocgEMPDDf/Y/fMbGP/hhcdICATipy2QjNA56HPH9
11964Or1DAMXf6HizLDmYaSrpcGQIgRhIdfncl4MxC0VtW0AIoZ7vV7ulcVCoObmz
11965fJ8QHjT5G0df42DUGmHkzstCMLVu0T7Ww8HkC7OMLweFIL+4hrimyUVX2wrL
11966Yj0RqMSlf7WZc7Fp0WTYcZsI3OSioXc7uTg7E21kKRfBldnkJ2QKF18ZJY3G
11967NIiAGzXWaFXBxawkbwfKrAhi+r+q2v6Ui33MBcNBK2147P7op32LXBz7NTJT
11968GKUNVndtTuSa8fBWVcmBXIU2nLRUHL65g4fW7aVzYf/ThokiQUxXEg+DDP9L
11969ZOnpgJfo8NfTZTz0LGDnq7frwK20N+56T3g47rZH2XhMB3SndsHaBR66mecH
11970dzXrQILsobmvCR+9IPuMHSGGvh5rgwPb+Cg97OH9wUEMdq7F7IJEPuZ/6C2a
11971PiCGglr+fJ2Cj625FvFblWL4aJ6ket7Gx1vh7t2TE2IIKFT1fpzh4649Nk1v
11972rXRhgHFlOFtAYlXxa1ubGF3IaQj2+8mExDtM2Zr2K7rglCDprLQj8ciFa/eU
11973Kl0Yt3rs1riNxNmwht7x5XpQosq41xFKonlAQWKSTA92lIDdi0QSDeTOpT6l
11974ekD4TVwfzybxl8Hrfmkv9aBau+Jz6kUSBdFvz1OMJRDaGlQsuk2ioel4RGuI
11975BMQZetLP2kl8LmxsUCkk8MC+Pcd6mET/lb7FPi8lED+dztowS2LWwTs8XRMp
11976mFauS/HiCfDQnIpmIpNCT/hfM6GfClCn/EVm+iUpfL/scmzcGgGGyxW5q1VS
11977WNsXOJLhLsDEHy3Nbcz1QXVSN/BMsAChN2Nr5jf6cM6trbssXoDVrmXzy6v0
11978wY1I91AeFeDrNzmr9Cf0YaHO7mFzkQDb7rpM+dsawN9Yy56b
11979 "]]},
11980 {RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], PointSize[
11981 0.002777777777777778], AbsoluteThickness[1.6], LineBox[CompressedData["
119821:eJwVkXk81AkfgJnbnL8ZjGMwMwjZLqxj8Y3Mt3wIbSrVkilRusSW27jqVa9G
119830uHY3g5SOWJTUXljSTmzyJpty1E2SVpHoSL19v7xfJ7P8/cjDdrvG0JSU1ML
11984+cb/HRslE6eakfBupuEtdRYFBMazXpZrSDjXtWWJVQgFStqvxz2OJqF/4eq2
11985hXUUkMXuLIq7SMJO2nD6qIgKvaZGKuMWEm79tHRfVAwVIjv/ILdNkpBIMPu5
11986tYcKnIRjVgf0yThwvDVv2IYGV8zd5CIZGZusDF62n6SBS/dHZcMeMrYGi9Yq
119873tHgSeKv1XtOk/GlefPzaV86hFvueK1ZQ0aLeONT9rfooKEyEN4bImNioGWo
11988m5ABBSndsmAuBce7BuTCWAY4LU6PYNtTMKHHLe5mLwO6n7heuCWn4JJd627r
11989rdCAvYc/PAo4SsEpJV/H44oGUJeVz1IqKNjpqshbwWbC+WfBFmV/fevD2cvJ
11990B5hgd0Tkt4FExalNW2jHnzKhw/rxoXlLKi6o6Zp44caC0P6jFZfXUTGm4v38
11991l1IWqKW7DHgnUHHMtmHxkDYb8mxn2DOFVIz0dE0+ncwG6xfXHM+3U9FwfPc0
11992+y0b2pTbQ1fNUPGZiSzDZxMHtjvoZ48Z0bDudbP75occ+Px3Z0O2Ow3/C59N
11993F9tw4Uzmkcnl4TR8ZNxn2prPhSVOy8XDuTT8krPHfRmfB42vprwy62m4/txV
11994pTyFB/KTpXH2b2hYbZ01tfEdDz5CUNGAgI7Gi07/xrYmIGtEV3XEiY4TaXZC
119953z0ELDzTQV4WTEdV8dIvc4UE3HdNs3qipOP900nRzAEC/N86y5Mr6Vjtbpaq
119960OPDVM57pUU/HR/cNzHasJ4PSllJdSeNgb3UmNVZmXxYML71dcxSBqrxTZjW
11997bXyo/UVHKN3EwO9fmv5kTxeA36rfZS3JDIxMUjjlywQwPnk4IqKYgQ8HF5Xv
11998TxbA0XNOF/QeM1DCtblRUCMAqce7R/WzDExXP+HuOCeAu1NFs7tMNJBWIwuz
11999+0ETfC/KLQReGqh09THLidaE0dVCv+qDGrhA+ev+gCpN+Lb/UNA5Day7sNMz
12000bVoTDC4dqmA2amBcfFSVlq0WVPo4DtwY00Abce9NeqQW+MxOsP11mEg6lusm
12001r9SC4ctXHcmuTPyztjRINKMFSWsDQ0tDmdhQra3lbK8NuvNa2euymFiXqPKr
12002j9GGiqK2hrm735o5ZllarQ2e61MnLw0ysTMw4MSnz9ow+NVB7MVi4USc9Mg1
12003FyHEl457Tdmw0FQOvAepQtDaeCXuPwEsDGRdt3BtFEIZaUsR/ouFJUmx3RKm
12004Dqws11S9LWMh6V4eb4ePDvRvbiWfUbFwVx3RxzulA9HUFCv4ysKnyn4noyc6
12005wKuwlw+Zs3GnlLwoy1AXigLGlBk/snFKkVgWul0XVjAuV9vGsvFEwY91hcW6
120068PSm/+u+fDY6ZcYGr5zQhZ/lAmFaKxs/yj7ledrrAYvVIlvyno21dR1bbyXq
12007QWFVUoRKxMFs6vyd1EY9gCC7C4nIwYOClIJKrj70cP55ZLaPg3uH/Q29N+pD
120082N1Ls7+f4WDU4YyFHhf1gR7yk0V0LQcTRrSbikf04SLB9xMPczBXOD0dZiMC
12009h3tNh5p4XHzA+q4qVyGCrp2JFfsduDjXfJtu3iyC3Zq2AzrbuOjic/aNnqYB
12010kH8bZdf9m4s5Z3sCIwIN4OzuAsfQG1z8en1H8OISA/heuDmUeMbFvcd95rxn
12011DKC9npd9h8zDNzYZJt1uhrBjX2PD1kU8DM837ruXaQhfdBWTjA085P3JtWD1
12012GULOAxtxhYKHt/9YS6m1NIJl4W+8Nl/h4e5fRiN6YoygWZQfp97BQzuL3vC1
12013TUawrWljUfEHHqonmqhbC8Wg+IE+akEQ2H+23jg6RAwemYPqClMCVSlVPZJK
12014MQiHanS7HAgc0lHPyCFJYNAxb+kCbwL/8X38odNSAuUnDq6K3Ubgx0mfUud1
12015Eoh/tWZLeySBrOmoq0/jJeDu/N1BaTqBZgGeb0sKJaB1knYs8jyBMvOW2LJ2
12016CTwffpHfcoPAML/3awZnJHANau4YNhGYP9Ic5iGRQuyp3I6IZwR2PfdQDXpI
12017YeXIgVcPxwnkOUellR+QAt9lzbwehY8b5ryTrp2Twv8A4gSUuA==
12018 "]]},
12019 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.002777777777777778],
12020 AbsoluteThickness[1.6], LineBox[CompressedData["
120211:eJwVx308FAgawHEzZsa8z3ifGcyYMaSLJUJsjziP1/bSere7ukWi1rsoLw1q
120222k0vVkvyLtLa7YhSohd5OeWWsogSOclc3pbd2rwMbm/vj9/n+/mJw+J8Iogq
12023KioRf/Z/b3zwLXc8QkAfu6MGKkE0qDHLTg8sJeBwd9kp2k80uBR+PTi+k4DR
12024JtK/qgMdzpSM2eXMElArmOWre4MOxweoOtVcIo6FBLXomTAgnmr7+107Ijbs
12025ICcKyxgQvjt8cGg/EatfaWaJNJkQmJLXuHCKiGVB8inhWSZ41T/IJdcT8f7V
12026gGJ9Egtgei5a+IyIS/88U8OTscBSj7fHbp2I9s2GJM01Fhj5uG7dJ1HFolRe
12027CyOZDTo5iWqHPFWRw0lsJ75jA629UpEdr4olKeYGq3Ec2Fzu6yq5pIo7G72e
12028zi9y4FdzZVVTmyquvJqejbXjwpsDW7L6FKo4+cmwztujXBgp9duvYJJwsGY5
12029ZqKFC/8azN71X+s/X+Gx5Kfkwn1ag0D3cxKOcfpKvHapQ4PT+KrFCRK+k2TF
12030P5Spw5WjtOceP5KQLoqIb+pQh8LrtrdDfyahLSm9xISsATmK8Py0FRLGDnYs
120318jw1IEP/QkK+kIz1OfYxZ85rQJxvm3edKxk3t05ppw9qQNiZefPuaDIGNt2b
12032mdPVhIAOHnMin4yNxo8UoyGa4LnqOrd8l4zibALLo0YTdlkk9XCmyFjaHbPf
12033Zl4TLA5e/t6URkHxe/rLKistkJQ/kTtbUvAWbTTzfJoWaD9Thn0WSEEf2gvv
120341U4toDJMnZNkFFz+Tc1riqENG87+onNXKVjRFRW7x18blo6d2Kzpo+AXMuV9
1203560ptmGpoGHvwnoJbJA9sSme1Yfg/460jAjVcv974InuHDvQY0IuWnNXwhXT4
120366ttMHbjnZ5dCPaSGnSf/Ut7XqwPXzx7wE+epYWtvY5slTxeqOy9YOdxRwzsb
12037kXStCF24uNbG9Z1Qww6dfVkpN3XhtOXC4ldkKg7xDxkGqfAgPZL/RG5GxXVy
1203801zLXh7EVrj9o9yXitIx838XlfMgdDgppzmNimHFo5srCzzwY1ZF9ldRscap
120392W1kFx88XJ66zvRQceHnrlbr83z4OG3diPArFdGLGMid4MNHN0yJAl0aNtYl
12040CKMtBCCe8Z+0cqShaFWd654tAC3RybY9ETQsNXuzrWpIAGoBjWUHztFQ6qVI
12041SDPRA+W5V2nHm2jYso83NZiqB4td9ODClzTc65SRce2JHrxW2tk1EOi4zFN3
12042Jkj04dn2CO0eUzrWvxyxeJ6iD4+jvns/6U3Hw6eeeJj16cPdyocDayl0dOB/
12043OKsiMYD6kYUGjQo60gv/tuZ7zAAuswS527rpuLg+kmfSbwAF6B6NC3Qc8Lrg
12044c8xECN+kH/EK0WRg/4kMR0+ZENJuVpmmODBw4EqRX/GIEGJmn1K+DWXg63pF
12045QZSFCL403JiuPc3AlcvhfzSfFoFv4Nau9gYGCo9rFMinROCWG1A1OsJAU3Hq
12046j1FCQ3DoPpn5bpOBjscIFU/3GIL5RmMIw5iJky7VW46kGoKh9cTH0k+YSJN/
120477hZcawiahxkCSGJi605z5fFhQ6BU7Vz1L2HiUqiuy5SqGNaeR4zEdjCx9g++
12048+GsrMSyw8299M8PEt+o2BYdCxTDp2v7dZQ4LrxVFlZ3LE8NQxi/xrbYs/C3/
12049lv3SQzE8ahJ4D4awsEuVH31hSQytc+7m83IW8mcuWieJJFAnTmaQ6lj4u9O2
12050vAJvCVQGVc/qD7HQhz2a/SFTAvnf9j+2UbJw575KamGjBL5+tHF1r5iNVygy
12051acprCaRubpVHerCxcHvy8EUNI4jeERiWFcdG5oBc74OLEfz9K7lTcSEbGYq6
120525fxkI/CpviG8+YCN52N+OZhYawSuoxMbP02z8eJht+i8USOw5zLH3jA4aDB+
12053h7LIkIKZu33rhhUHLTudbc86SkEkO3hJ+zMO9upPKyMTpKBxOz/5o2wOzs5X
12054+MlrpEBeaPd1/4GDuRaJLpPPpbAqWdz+ZT8H770NeZzOMIb5YD1u6jIHD2iF
12055TQbsNoY4D+lKD5uLVbdluQlJxjD7xuGgv4SLfr1NA721xhCW+enwaxsuFvsT
12056rkWMG8O4IApjPbkY7Bepu1vdBAKaZU3KL7j4/WMFP8jNBP4HxBebFA==
12057 "]]},
12058 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.002777777777777778],
12059 AbsoluteThickness[1.6], LineBox[CompressedData["
120601:eJwVjHs8FAYcwN37jrvjnNed1x3nOMdKmmz8bOV3JUp1kyQRm2ohQrvk1WhC
12061TLURpRdKiPIKSZH14BKKkSSFHkRbIaFa++P7+X6+/3yFAaHyQKKKikrgF/53
120627aKohbo1Khjr3mETjRqwbbe1d3K/CgbrXi8vTdcAndqniR8IBCxUau1K7NGA
12063m7OZpTvMCWgZ1Bk6L+RAJLj2PFpFwA9Tk6V6IRww3fdJZXU4ATWD46W9tRx4
12064cKPC8tpRAga1hb38lqIJCZRtHgsaCKjHbxn+Xq4JNi76caefEZAtTxaMntKE
12065wdT2Qg6diOt2lx23m9CEjLbEzgRrIvYlOniKgQtOGvZz7+RELIldsLYujQvj
120668teiwD1EbA1ITXnTz4XczNPuf58goq3tKmKLtRa49XrsWdFMxOcTkVdk8Vow
12067y2fk1b4k4pNMckVgpxYUbW5QStgkNLeYe2kh0gav07umjtmSsOqsl1+GQhto
12068Q2bGzI0kTGcbaucoteGyWZ9LbBwJKwJcVJcLdCBw++/hE/kkNMjrc8rarQNa
12069Jcty/VpI2H33QUWKUgeax6dvdkyQsOuZ7VaBiS6ELyx5s1SLjKLhWS/vKF0Q
12070RvjxKr8hY0WHxcElnbrQWc11FvmRMeN8w3yNRA/2zdwOztxPxtqgutJHCXqw
12071wCEmi1pMRku+wcm8fj0YiF3YqGgn4/PKkTbmEh6kNw6/ejlJxgl7HeAf4YEj
12072KYfrzafg90WlY63jPBiTrQbldxTsIl94aOTKh2PJhG2OgRRsdOPQdAr5sFJZ
12073fag0lYKvYx9HXCLrwwxrxxWjSxQMPK4hmAjQh8K1RsMZ3RQUFxSrtTfpg+cf
1207491mEOQouzC6x+0FoAJS/k5aEC6h4QME9s/dXA6jSc/AfklFRsuyZq+yZAfy4
120756U2qRxAVOTO6iyudDUHzZH7VzUNUdM6p8vnrrCE0DW4YsLtMxVtmtX/toRtB
12076mCmTfv4RFdNOmAR3BBmB8dZGGx6Bhjkqk3JluxG0n4/clCqm4bS7VdTPi40h
12077bszitzk3GmYlKweKc4zB+qvHZcG7aHiwtDMx47Mx9Icd7n2cRcMBX+MqNVsB
12078HKyUEddcpWG+D2P5ma0C+Hb6g7TxKQ3pHecUyccE8Mq+bL0NjY56de9dmu4J
12079IDs6ID7Pio7NuvN1biQhrLimU8SV05H/urLV3F4I0yrK+/sVdNSxM45eHyKE
12080s87x81O5dKyeAmVXnhA8kmzF227QccZSo/5srxBILS/W9L6g41B3pusdtglU
12081qOVGrWQxMHz6XpSjzAT83dfmX1nEwHNp9S7EGBPQOExuk3oxMDZ7Uw2v0gSu
12082P6idzo1l4Dzv4s2EURPYqRMiYOcz0JBzOQJMTMFwo9A1/g4Dh2PDmlZ6m8Ld
12083490R/4wzUL5loKzwiCnEDKSc8Oeqom/tZ4cNSlOQCp1u37dXRa2kru1eZBH0
12084/fj2H2dfVdzV4vN1CYgg5dw5fnXil07IPrNGIQL7V94oLlJF7fIDpbJyEbyQ
12085qu88ek8Vt6y33Jg+JoKsnc1H6ZOquDp0X4FYbAayckVTFE8Nhz+lZHD8zWDy
12086nXRs1EkN+eQVfPdcM8i3G9Ty+UkN38fVYH+PGcij/nRqS1HD6NBH7KtcMRCu
12087umx3uqiGBd0Ve8bXiOHSp/nDF7vUMLQcEsLSxOC3tLxeMPvlT4yRylrEwN4f
12088OHLYmImzLSGRQVRzaLjFUyfJmFhD5W4ecjaHYMY9+8gdTOTWBY1c+NUc9Fcl
12089BIxkMFH/qYJ157o5tP5ul+ZZzcTWuCXdiz+Zw97O0erbfUzUOFLs+M7RAiRa
12090p57Yq7BQVb/TmRRjAb2ePzCKzVh4ilcy+lO9BRzIodnqu7HwSbq9jd6cBdj1
120911/ukhbHwliJK19BBAiNGYUkfM1no2hNyIiJaAn/6iy7trGfhLxe0m/WvSsC5
12092oPfhk0EWrnoflqz9UQJvn6eR1lHZ2FwTP77FyRLOSJZa35CycWh86duP8Zaw
12093NnjK03YdG0/m1GS9brKEz2VF+wp+YSOtfrDPiiyFsn83F2vnspEjb7h2bbkU
12094Ni/W7EpqYuN139XL8lKkwFTc+vj+ORt5Tw8F9tyVQn3dXvOfmerIeXjAwlfD
12095CnbMf7Wuz0Ydq5YvOmjnYQW874b2um1QxxnJofQt2VbwHydFnAs=
12096 "]]},
12097 {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.002777777777777778],
12098 AbsoluteThickness[1.6], LineBox[CompressedData["
120991:eJwVx3k81AkfwPGfuU+xcoSYcc4ww5gUT813Yn1XlKPEimc8RbJ23ZkOx7o7
121001NixluXpUXQIKUmJ7ZS0ay2tbAdPsTysSCpH0ePa3T8+r/frww+L89tDIghi
12101z1/9rccTsp/Ji2U3qoNC0YO6YLDFk3xHm8DC/bELx8/pgqomvy96LYFRb0o5
12102ulQ9IDg9jUZBBH5T8lKVGKEHymjTgvZUAkn7fL6ubNOD0Y6I6KRyAn/OftRX
12103Z6sPCnGtu6CVwN7W+Fq1Wh+68t7znr0kUO4seus2ow/4RjZ/iK2BE33k8s4g
12104A2jyyXniaK+B4w2zzaJmAxBd/uXykJ8GyprpfqHWq6B8hc6xgv0a+HRhzfYo
121059SpYGR8c7npCAx9EpbZunlsFR7tOy9/d1kCCO1ixHGoIC5Ixg7JBDcwdCJ3N
121067TCE+G8l095UEu4ZWWoaczKC4ckDnQsCEuaZNL0yOWcEO/zuVtZ4kZCSm6cS
12107ahtDRz0tKziehJ2W6aeY6cbgouOjYBaScGhGxbs7YQzXEovWNTWS0P3D9U82
12108h6wGweMXWl88J+G0cFF5oXM1lDpajOsu//XqnZsG5CagVRT1oNWMjD6C/tzx
12109OhPIeV9fluhOxtGpg7IOc1OYC/h/ktlXZHz21n5nVrEpRF939X+UR8ZctcZH
12110Go0HA3q5dhlXyLjVJSm50YUH/ge6GPZPyChjLV/tTuFB2zP9ob45Mm6bKKjY
121110cgDmfPO2ypjCqrGHH09p3lQV3K+eIMLBaeXhuvO2fPB4uNEwqvdFEwXn23/
12112KpoPJUFrvf59hILSfXGl/6nmA+dGqpVHDQU5Tz2tnF7yIcOwlZh9SEHNrdJI
12113sDSDmWT284opCjoPCcJqd5tB5HO/Bn89Kh5Vi1ceO2MGLzacUJPXU5EIcEnr
12114GjSDraWDX9aHULFsTWh5Jt8cWhcEGJpJxQjb/OSToebgHBJvolVBxc9lnRyL
12115M+Zw8Xbj3J02KsZGGATqDpkDz2S5O+Y1FauqE4ISLCygMM39krEWDbm0Xh3n
12116CAtg/J535Jc1NCxN8Tn8ZZUFpG58EpocSENfVncdddwC3pUZy4QpNBTU7/6O
12117Y2cJ4US4Xs8pGtolku3SEiyhZ1fNu8MtNPT3vpIR3GAJXvem2teO0PCSS8zx
121180x8toZm/vmKYSUczbyef7XIrcMzKTP9OTMfWvSt+jsu2gqr/tQV9uo2Ox6+8
12119n//QZgXGblqOk0o6pjJfjYxqWkP+2UDN8hI65ie/zv0swBoolLJRn1t0fEhZ
12120HOaUWsPB8JGWxd/p6FxlNCcfsobXreKTF8kMbAn3uP/cRgC7LPcd+Kc1A1PW
12121Z7sP7RXA40O3trG2MHC7sCMz4KYAPEbIoh9iGahwMN8npQjhlvsWWmQBAw/7
12122HeUlewtBUlkwoHedgb2q+WxRsRDO0f9740EvAwMGUss8B4VgEMkvUi4ycNaL
12123k/jI1gZUbZFx5nwm3u2uXrq/3wYIYZ1nNzKxNiHgU36LDShzZ80zI5n4o3CF
12124fIxrC6Nj8iV7FRNp808njYJtQbH5cE//ZSbG/nEx5IfzttB1obM+7zcmzo/m
12125Z96btgVk6+bJZpl4jZod4ugqgqYoxRfjhixUbcie1FaLQNRx1vWEnIVFx76F
121264D4RlIvGjTzDWHhn6pIrVySGlXnSD7OHWKij7Fm0SRHD0YmkrvPVLFRrau+9
121272i6GBe97FwI6Wbi2JfDUeUM7iK9lHKJMsnD+m4tZlCg7GNbcuvPqSjaOKleY
12128dt60gx1xxf8Ic2YjTZmRSHDtoePXfh1tBRtRtZx+6l/24CKxenM3nY31t1VY
12129WWcP1/Jj2mLPstGUUrgrT0MCgslrZ1b/xMb5htHkBRsJlG5bSO14xcYYJU6W
12130+0tAq94tMEWTgzEbK+8np0kg55PjDjZSDpL0tadyqyQwt7eb3RvAQfF8ZurD
12131bglE/7Zq5EgSB1+PfwzzWJTAwJrQ5nUnObhx7GDFrLUD+BdWnfijmYOW00tu
12132L/wcoG3mrbJwmIMnmSr5h68dQBbg5OvG4GKNiFf0WbUD1DWkCadsueiluLmp
12133/bEDWOj9SD7ty8XMkpDPcwgplOzn9vsmcnHTIO1eokgKnGf+TUvfc7FqXeOR
12134kh1SyHAqLbh0g4uFJbEXpnKkMFM8FK3o56I+XSzMuiKFPwFPyKJg
12135 "]]},
12136 {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.002777777777777778],
12137 AbsoluteThickness[1.6], LineBox[CompressedData["
121381:eJwVyXlUE4YdwPFchByoUzSxAiEhEI6ACSSQVPoDbH5yFB4TqUhB5JLzxerA
12139AQqiYhpE7B4R9WlIKopQwHlgTVEmoxHRwUSdghK6bOEUQUUyKpbHwtY/vu/z
12140x5eXsXdbFolAIGT9v9/MuHZKNS6yKYSt4vKbe53hYsj25YpCm+LXCwuyplln
12141sDxmH+S12xQHtn2Ibd/nAq6pw/NdizbFRaNv94TVBXbN6vbuCllWHHyrPe1f
12142xAH94dTppaPLCtKLsG7tIgf+ucotq65nWRFSyvk974grrNhqndVRCHju3Se6
12143DDIX/M7F+ykFBBw5FBaqiOBCjOVWfnAkAStnSJqb1VxQerGaGfkErJCla248
121445UL1vuIJUzUBh9KTw4DFgyu3h9xarhLwcP6cPnEnD/oIm9JKnhBQHcdvJTXw
12145YDqyTh8xR0Aza2538DQP6JqlYZYjEU91JD0mBbiBtyll/aSUiOc/S5tMPOgG
12146kbyu7YYEIi7riFeh2w1y8ri1qhIi3v45xK3NgQ+VbUefxmuJ2PuRHf5DAh+a
12147fh1dwb9LxMD5k+vxIh8ebMZoq5mIc/3685lv+DBR1XjcuExEB/UXvavl7mD3
12148jPqghkfCQ86138eq3MF9Qy45TUHCLZpi6YZ/uANm9IaJski4e3xh736OB2S2
12149+pTb1CQ0r1ublKL0gGPW6r/0N5Ow0eORdaDDAy5tevtR10fCfkfupp/pArhX
12150ERukfEPCGMsq8b6vBDDSd70weCUZvarrBmpbBEB0XN3GEJNx69puz/BFAXCT
12151C96Z4shoKlV7V0Z7QmjDc2FLIRnvGCdMCXpPSJ2R5pWcIePrCYvcMOsJ5ZKz
12152TRHtZCydKg6/9LkXfFe6MMYykTG5t5XEOesFnd2JvMlFMtYdP7DHa9oLzMyO
12153XQZnCvoJxtXGEG9YinfSqUIoyL40Hfu61hucdWWm+DQKJi2d7Lnw2huCx80s
12154fgUFf5H+fXo81AeSfUO/tDZQcDK68a+3z/rAwf31GmMPBcWbnTY7vfMB7V3i
12155k5pXFHy51q/AIVwIdyiZDml0O3z6YDju5HdCMMXcjxIJ7dBlh7tFuyCEj6c9
12156Km0xdviwh+4ij/OF9Wb1/f6v7fDBmmra7iu+IPOYIupr7JAX0nyJQ/WDhD1R
12157ocqbdjgQkT6Tk+4HRYbWsuABOzSLfhwN7fSDM/9ldjA+2CF8aDre9MlGMGzZ
12158s2BiU3FeKzHXFW2EgW8fS1s+pSKRs9PiOrAR5gdFBSXJVMw9zD0VECACR47m
12159esQhKnp0HbE+rxGBJNv6hnWBimAuI1Lei2DbtXifyZ+o+EJ5InXEUwwFH27l
12160GEapKEu6vI6WKAZNCKtRRbHH3iAHftFxMbSpi0fjBfZ4lHSvUnhHDE8fD7ny
12161I+0xv7NH4TUthvesTSnWPHs8kMPeoXTyh1WpdVpjtT12ENqNCzH+sPH7pZc1
12162V+3Rs+rysb5yf4idTVmX9uS3b9GN3/CHPbKubaI5ezyUk7cifMwfvj3MrbGt
12163oWFeZ9jgu3UB8OeHR/v7pTRUkbLn/xUZAI9WjTH0CTTsCTLls8oCYGYHRipL
12164aPhpklZ+5noAMOsbvwnW0nBQ2ZKSPBYAPlPUbsZdGtZ/TR3OZUvgC3EuYdhM
12165w9OpbVc7oyWQV9ILLcs0NIS2Dn11RAJVP/mUlvDouLxyLgkMEmimnbwdoaBj
12166af830txpCfxt69tfWFl0dC7NzRp2lcKrc7GSSTUd37PPv63dLgX7kev7DM10
12167nGhg95+uloLAe/U1VR8dHV3HyWajFLb8oWAm/g0ds6psGuVHKWTdee7FX8nA
12168kdHsYoUoEFTEwGyriIEaocut9OxAuBx1tsEYx8C8TF7kQ30gdGsWLDWFDFSe
12169KJTsHwyEMVMiJ+0MA3X1jkW5K4KA5NaRLGpnoLWR+LvLW4LALd/pvG2IgX/U
12170AtGzPAg23yx70b/IQN/yh1FzPwZB+qLZUe/MRHrchdek90Fw5PPQOGUIE9mO
12171PZZkbxnUn6j/U3AaE6Pvy0VLGTLoekZ8xKhg4o3diwNjOhn8e0MmfbiBibJ5
12172+rM1L2Vgy7gf3tLDxIWCHEHVajm4XPFQlbxi4rBlzbPwGDnAf9TGCLoDzoDD
12173YHSlHHYGT9lYQgf0OREvOndPDmXHoj6bjHFATc+URWiTw/8AQPepkg==
12174 "]]},
12175 {RGBColor[0.528488, 0.470624, 0.701351], PointSize[0.002777777777777778],
12176 AbsoluteThickness[1.6], LineBox[CompressedData["
121771:eJwVjHs81Ikaxmd+c59i+rTJLaIZ4zLDGHfGO0bzuiyWUBut5WBJsZKSVWld
12178TlGu6zBrSyVySUsXuy4pltocKuzmsspSoqSkaLUrxnH+eD7PH9/n++iH7fOL
12179IEgkUsRq/t+lKf4P0yKX5CljiTwiiwvpY8Jf9SqX5Nq6D2rfjXMhQkpvbJ1c
12180km+b9NtRIeGB+9mx6iCDZbmaNUtbp4gHgqWm04tfLcsTVN4qA2Z5oPJFQXbx
12181xWV5fCyDHOhhAG+bo4/ZTCzLlTt99HUqDeChhktcP1cp53Z3hlQQfGhI1A2L
12182D1fKR+7E3XwXwofiwQ/+68qVcit3D1uilQ9HrH9zqRtXyvW2b+8b3GQIwYU1
12183tl5bVuTlU7kZ+44agmw+3Xg6dEV+g7YYdH/EELh+X2pnXliR77lctG0GjIB+
12184zUaF/3RF/vNwaNjv543gPSNzJXQdCQvygwuOEMYQ0Xjwb3NzEq7ty3oyFWEM
12185Q5Gh71Z8SMgpfuml1W0M7hu9p3v2kfDGVOIQR2QCzb86PDubR8KldpuUrkIT
12186ECQYjsRcIeFdLt/N7aMJlPA2DEh6SShSdRWeDBOAaj+phz1LQpNUhSivWwDf
12187ps/cHVYlY9dRdd9ASyG8tXjUVm1GxjlSV/6LEiGEjd9tSvQmY7PK5Tf2DFN4
12188+F39NddYMmqW39q7Ld4U0Lm0Ri2XjGvaSTTBqCk0vM0un6glY+7ug7e6PMzA
12189sDSppP4BGRsUGoXCJjMo9oksSpshY4L3TKY/XwTsFb9cXxUCf8mdOyMtEsGR
12190OqcMPVMC+wWFzw8R5vD6S2HKrBeBxdvdcq86mEOwimZSawyB59rXu3gdMIfe
12191m7T4nGwC38cvsD1+NAdZzNzeoB9X91FzY5cmzeG69li44D6BaWX0O9GbxcC9
12192dy9o8RWBt/QsG/MCxVB4uGlH1xoKOj9LbFYrFAPdpMK7WEBB1en+7uUeMSQO
12193f+e225OCImuPV25sC5jKPCaziaag4s6Q1nsXC9hlF21Py6KgS3FyIJFmAfde
121947LTor6Gg21VJVXyrBTh+j4Lybgrmr11PdfloAXWuYl78NAW31JLikuwsYfOC
12195jo4zm4pEAeMV55Al5FewN64zoaK4hZ/A/MkSiB0fVMc+pWKVUbBq+JwlHKBO
12196MOr2UPHrR7UNm8VWMFHfR0o+ScXkPrVYaZwVfB5+6x/PS1QcYCus2q5YQef6
12197mjmtrlV+0oxdNmsFdh2KVy+nVn2vsTfPRdZQsz99oolJw2r/6vGcOGvQ1o/7
12198M8OIhhbnT04qrllDdl/Q4OfuNGSJ0j+Q561B+e2nvQZRNDSgFGn0WtnAPpHN
12199f99n0LBQu81decgGnoxuab9dRUOvb8iZec024JfLuVHQSUNPzaDBtCUbuA1L
1220010Nf0PCMssfyDydbsJqZumzOoKOt0a7SvHRbqCwZuLjCp6OmYln7UqctqHt1
12201nO1xpaO3e3Mlb60dZH6sU5yNpGO3NEdG+NrBYs2ZvJgTdMxOSnrprLCD6F2Z
12202mZJKOl74O/nCs8d28CcrIZV9l47LLaejXujbg3dz6OHhSTrW3O6VfhZlD21R
122033geqaQws5ejw1K7Yg1hDEpNowMAn59M0nBbsoazTMMLVhYGxB0mb7oEDfJK4
12204IVgtgoGf5SjMmo87wHE+eefEvxm4Zxq3sXocYGFgxqf+IgNHstaktmyUwO7j
12205j9zT7jDwh/3Tv/SGSGDYqtPZd4KB58485bhekoDHRL2DHpWJ86x3X+vOS6Dl
12206P6WWs1wm5t/UeBwAjmAqzxG2ypl4oD5g518ZjnBuLskgJ5yJVW+ujs//7gic
12207skjdoHQmmsXqJ2/XBUj19VcXlDNxQVzDV98LMEeSrVvsYOIGB88xSQNA+FUh
12208q2ucid+coFZ1EFIYCNEkigkW8tQHky/7SMGVQ/8YuYWFmq/bwhdKpNDYOjdv
12209vZWFu2kdAeXTUjCOHXtNDWPhfNhI0HU7Jzitc3/yYSoLB6mcOG6GE6x50DRa
12210doGFi9OBBQsDTpB8tGJofzsLG0+NPi1aL4M3goI+2dPV/62b0kIdZBDy+FgX
12211h8zG89rPjYPDZPDbqeiOUT02uqk7DmedksFWh4CWWhkbtax186evy6D+Jf50
122129F9s/CQh2/vwYxkY/CCu9Uxho2DoxAYJ1RkU7rqVWqVsjP9CZVxo6gz/A18S
12213pmM=
12214 "]]},
12215 {RGBColor[0.772079, 0.431554, 0.102387], PointSize[0.002777777777777778],
12216 AbsoluteThickness[1.6], LineBox[CompressedData["
122171:eJwVxX081IcfAPB7vhPJQ0hND8TMmXPn4Q73Oc73c04xLWvDXU+eilQqDytX
122181ChFyqRMiErlx24p5anO0vMNrVMZSyNhRR5q/a48nf1+f7xf72UR8cHRFBKJ
12219FP0//9+wNDORvXeSkJO3/NdVw4aiu8Z6aXWThIFrRtaGIEf4YqiopP39JLGt
12220SOZ3ttURaufZ8eycpohU/oj9ZMCXQLhV398TO0UQLCFvS+uX8FjmKW8rnyJu
12221zJVGvPvKCdbvvzu2tHeKeCk1bDj+2AmGLwRlJC6aJlS1P7pL1nBgd0vngoff
12222TRNSmeZP4y4O0N9FKBflTRO+hYPtKRxnOGE+Io5vmyYaSm8HfNrlDEuF33fc
12223Zs0Qh25Nh5DrnEEZTo4zxxmieir/48kpZ/DMzJ6NTZsheKuzHWp9uPDwZ7N8
12224VeMMMae5Zzz8EBe+bS+1N9bOEF4BeSsLW7nQ9/ELVRRXR6jHzvHXmvIg3ura
122256vqtOuLnX4zrK2U8mPEVDepX6IiBzL9aMs7xICvmYcqGVzpin0IvYWiIBxbH
12226gufVLJ4l4o7kKZ+7uEB5Tfd5hmyWuHxljyJ0nwvwujYJZCdnia8/NHVvfOAC
12227v+rGW5WPZwnp6gjNB2NXsMtTVZMYJCx8GBk2f50rjJRTFJU2JBTJ7iT+WuEK
12228NXVSyRoxCQnGARvtB1dI+e3oPN16Eha1FkfXi91A/ELTdWkvCVcozb0Yx92A
12229OW5evvo0CddVjJ7v6XaDR5S126fqSHhbtbwM2e6Qb3ZWcOEZCTNH6jluKe4g
12230tx+krPqHhAX8quAranew9mK3fTIi42zRFKvBkg+vv9pRcM6JjI8WVgYHbuHD
122315Y3XwwMDyThcU8uJu8GH5IRJtjaWjJGbl5WZzRWA8JC3tjSTjB5uQ+cDNgiA
12232Wphxa8UFMm60Mvaae1UA6ip11j+3ydi/5FS0jO4BuU2G35b0klEl3GPjEuYB
12233IZpvlkh1ZPyQ0JhYoPQAq/6f3owvomD6vbCwTIon9Gtf1Jz2oOAmboiGEuoJ
12234lXo2qRhCwaq6q916v3jCzs9i/EcTKSgK3aoopnmBgKM0+SmPgk6mGcpGuRfo
12235xO+7xdUUTH49sSuqxgvureFfGm6joGVnW0uhvhCObt678+QwBfX7ZutkUUII
12236Tmn28taj4iZGLv+SSgiWOQzGGzsqGkpSV6ZZAPSUBjzOQyouOPPbeN9OgItX
12237c08LI6i4yzjJob0VYNu9Z1GDaVS0Ld33MdBeBC6dCzm5JVTkS/tDvskQweTQ
12238hgmPG1Qs1vtPwECvCJpnyu+86qSifLClnSLyhkyjoZwcLRWTXgSOVBV5Q5AN
12239J5Q/n4avR9lFvRPeMN890foll4Zrc1y3f+3oA8/9G95mraJhrPMPoVq5D5yT
1224062pdt9HwYm+qQV+2D8RsJw78lUVDkzMOWaY3fYBz4HDA4QoaVsYc1GS99QHt
12241iTYz3n0abvI53ie1EsPNiya9z1/RMMzWX7UySAzpDSGVB8l0TLaoDj+RJoYV
12242rcWJnCV0VJk/+H3ZFTEY9bwUdQnpyLXJYWr7xPDHOzu9dBkdNUKKnpGZL5TQ
12243tj5x3E3H0ki7p/FSX4iyuFLScZKOpwomYsxSfIHtoN28v4aOjZ2KBySlL7wT
12244evEcNHQ0+lw5xu31hfpV+6efjNLxyA85LytMCUiNuHd/nwEDPYY/K4mWEiBJ
12245mvPj5w4MNAyXW8coCDA4vEqukTLQpN9/Z/VlAtpP59sqohkoSRw4IuonoFDZ
12246NbY8nYHFxtytJpYIG28tbnxUxsDlN9kLHIMQ7J5EZuxuYuAfCc9ystMRRgYq
12247gqy7GVgncGpzbkCo+TSyoHWCgS1z3DsWjSGk6Lu8SrJgInXobUWgrQTEi3cr
12248l7gxMaYjWHJHLgEmV/W9OpiJM79vrkrLk8AjguKbsIOJNzrYzw+oJZD/ndTA
122496hgTLw2deaom+YE89mjH/Som3tRvLggR+IH1Xk3ZDjUTSZ55y9k7/OD1MfO4
12250hX8zMTnJRIEVfnD5rNztLo2F85rERed7/SD5WtnsNmsWdpguPehvKQXhgwG1
12251hQ8LW5KVApdgKVD/dMhvXsfC8cE31yOzpaB+G78+TsFCYdSz6a67UsidvWZv
12252VsjC66Pxc0/ppBBiMvm+qZaFskMNfxcI/MHK1lsV85SFbuyr2T27/OFfpJK/
12253ew==
12254 "]]},
12255 {RGBColor[0.363898, 0.618501, 0.782349], PointSize[0.002777777777777778],
12256 AbsoluteThickness[1.6], LineBox[CompressedData["
122571:eJwVxXk4FHgfAPC5I8eyG15HLC/KPnZj3ccXM7+vMYxhnLFbtiR0q4fVdChH
12258obwir3iLmMS7JTYSVraSI8es5lWoLaF1ZEXpzTEG8+77x+f5GEceCtxNo1Ao
12259u//y/0PlysHj+5aITpUK5VK9LaiLLfP+dW2JdLR/ltb1hR10cP37BC+WyKmM
12260S2OSw3aQ9O6wJk1DRjjzJcalUjuwv/hPYT1XRpiqli7Eyh5mHRou7D0pIwMS
12261Z+v6HHuoGHrRa1gnI9UOErpszh4iUlfUnv4pIxd9R2pVgh1Ax8JIkG68TBJU
12262Et1m6x3gSS87yyVsmRyMz6ko1XOE9PionvfZyyQy3XLa5JQjuOulr7/evkyi
12263ka+aMOYIiw9ueIetLJMDle+UC3yc4OfdkgxVGzk53awxllHjBDEq7x8/3CMn
12264lxMbLvvoOoNRjea6hFI5efRq5OtXyc4wGGrLtRiUkz+ns4ph2hlyVkLPDKmt
12265EP3ye1MHQ1yAd03Ulosr5HulA5/HPXQBCq+Izj2+Qq5oiXXYlq7QOHOfs1yz
12266QiYkW2Wjha4QlzeaXP12hcA3uQ2BLIDNToyWSKNVku8kCMyLBxh5bU7RCV0l
12267itnzXWV/ABSmebv3ZK2SfX6CjWlBbiD8an/SqdZVMrQ1V2Db5gbK0uxfbZZX
12268yVaVsO/q7NyhJaFmZdJqjfweKyaMn9xBpP/MpShmjdg11jMuqnmAdcvCMeHV
12269NbKm8bo/08sDpqJ1mxj9a6T3Pjd/KtkDxKquskYVBbnW8oFT0+wB4bURjgc4
12270CnJM99XrkUUP0AxLTjQWKUhIh9KeozZs6Fotq+//WUFsOn8cTTzEhpSyjvnM
12271CQXRNjLnDVeyofh6vF6JOgUV3drF1W/ZIFpkOsssKDjZwxsZN+NAiE9BeJAn
12272BZ8bN2ue2cUB6+LNoqodFJRI4qyzxBxQ+/BL4boTFHwsiXaXD3NgisNv3FlA
12273wRbjqy59hgTa818N3qulYGuPtrlmBAHx2wOLWr0U7OyWrjUUEzjpotCOm6Jg
12274n6GkvWOIQHh2jn03g4rDj5WOgyGC3ahxqOmXVJxtP2to8AOCpu2dhCQXKtJ0
12275ubcjSxFmzmL+81Aq6rVwrTTfIHS/6K/79ggVv72fcXWTqSdUWMY8y/oHFUM1
12276VOXl0Z6QcmrpvxM/UVHUIPXMuuEJEX2ZX7DbqFh+ZyDp93ee4Gymb3NlmIp9
12277DMOKHCsuaB+9FTi/TEVGZcW96ngufOyGI/7aNHSsiHtg+wsXejc+yb1hTcMj
12278C8drTNa4cDNuRw1dQMOaK525R4kXnG2dk26PpeF8fugO+0wviNRO/dCQSkOX
12279cbON2554gdueDRqfl9AwLdO+c0qLB3rN5Vv2N9FwICVj5/A2HiyoO/h39NPQ
122807D/6U67XedC3s/Pgl3M0TIr/EEF7x4PquvDsY6p0fL6f1brF1hvOrZuueraJ
12281jvZN27XaT3hD9HcnfvuG0LFo20LIo3ZvIFVqMxkRdFwOkqZt+swHjCglqn+I
122826BhdOi3+FOYD8kArS8in4yCbV2VR5gOD5S38gtt05DlOVHTM+MCdpcB9cz10
12283fJjant3jyIcL/LFz/Ek6uptORDmm8WHf1YSb5TQGNuvyLNSkfPCaY3UrNjKQ
12284RE2/9Dbwhb9j4VS4EwM76dITs7G+oLhkoVwXzMDgpXkV+V1feDnVtFk9joFT
122857O2Zh+gCaHD15cWeZ+DxEeY8P0AAeReGYh5VMFDn2Xu/nBIBHHpzMN3gEQMr
12286DfQLXGcFwLej/PvHIQYKmtJ/E4IfbMrI7ZAuMfDTLbuPkiw/oL80mfhqAxMv
12287fzJl1rzyg+Gv65hntjDRNzeEtWrpD82nPc2GfZg4n/J4/vZJfyh8OoBO0Uy8
122881XXsqaTXH+LNY6PykplYW9vgv1lDCEKRLHWmiIkalX2Whk5CsJScK/NqZOKc
12289QJ3KixSCkpFBq/gpE4Ou7JWUnxfC2OGqN/JZJrrmTWY73BXCwzY3Wuh6Fort
12290zvBWXwuhSEdqfNuMhedSiGxBKQCO7t3JXs9m4aLIRGxqEwDBv37cEbWNhaP6
12291Jh5ntweAlUba6fuJLAyK5QzoZwSA6i6t0r/lsZDzQ+qu8doAeHu34sGRahbe
12292pYxPvhkKgDYlx2FJFwtv+sbs2qAcCKXfd62Zj7PQhKwfENkGwv8AjV/Thw==
12293
12294 "]]},
12295 {RGBColor[1, 0.75, 0], PointSize[0.002777777777777778], AbsoluteThickness[
12296 1.6], LineBox[CompressedData["
122971:eJwVxXk81HkfAPDfHMWQtaEXlmiTbErOklmfDN/vzDjSYMwwrjYl5RorHUyu
12298LULJWEdSaTfU1GbX2FY5eorKQytRtlCpbUoiNmTGjGP2ef54v95fRwoDosgE
12299QUT9z///x5L+fmqjHK0OTBt6EMkAesal21XfydEB8WBr9jUGZPfrlQf+KEe9
12300FV0G7+QMeGSfkbjknhzZ7+c+G3F3h69OjHk2zMhRubGQVlTgDlFvg76OtlIg
12301zVPmv7wccIc6uKc0FChQSs/ulu61HqAqs3vcka9AytdbYXeyBzA/nbua0qJA
12302qbdrbSrbPEDsRTtqPaFAS+KkBUeWI3h+8UDoc/NZVDLsFa7+DoHl/N+OJ/1n
12303kY3toXNrpQgSeduXwdFZ1Ml08ZkiYWj+tent+PVZlGgt3hfJxbBE0+pW5fAs
12304Mn0pUhysweC3s7iUY6RE3eHzn21nMZxtUscT3kqUc215ZIEPE4b141hSkRIx
12305O5u3Fl5ggl18v1lkrRJ9cV2Vv+kzE0TtWKH3SokG47pZmV4saDeXPrr7pQrV
12306Tm9OEl5gwfKUlZJkDxXK9XTSochZEPo4L9MyWYXiY9sNv/Vlw6X18uCnNSoU
12307EDZeZFjDhsljkfbHn6kQw+SKqHyBDa5D3bQttDnkIlH23eJ7Qo7zt29G6HOI
12308Tnl1/nidJ/SKLzediZtDWzYIns5oeYHpqH6xd+UccrPYm665xwv2oMzYuUdz
12309iD+iXXa71Quk5z6ia6R5FC/CK03MvGF+Jtg03HEeFbxYbmAi8gY25/5nnah5
12310VK+dnHq73xuKJPYP/1M2j2SasX6azj7wglRZI+yYR1/2yUtnSn3AKlQrfZVq
12311HnnFG/ocn/GBpOsH+b3rF1BeX5fwFm8btOjINv4QvoD6aIbU8oZtoBHN0XAs
12312XECrdeQahka+EHCn+ZXszgI6MLRPRE/1hfPG39wsmVpAXWlJEeSXvvA+qUTM
12313XLOINo/pShMY28Ghi9gn5y2iirUe+zOqt0OaZbz75eOLSNuOVuNE48B/0weM
12314gxsXUY5GFOtUAgf0+plTmmOLiFrLCzrZx4Fw+/oHjaZqhMXjsadX+oEk36wq
12315ZrsaaUhVMrq/H0zJ8kUmmWr0eMvjYrtsPwBQcLukalRplSw63OgHuWW7NqTJ
123161Cgh7XWF3oQffFBEk09rEdidbji1uNofCtdUJggtCLwiwigLgv3Byb9vkO1K
123174KkRGbu7wB8G0rTYq3gE7hlMYUnv+kPGVcbvs/EE/s1x8Miw0h/WPDto3ptD
123184OJp6li8XQA8oNSeuHKBwIe/UonZ0QEgtJMpsm4SOFrSmLC/MgAMwo13h/QS
12319mH8eHZv8KwCa8jg9DqMERsrTva06XNjRkO2qTSFh15YG/lsmF6iyZonMhISd
12320hi/oC9K5cFV3yqDFiYQ3HuJqrrrBBY7rN1klviRsL+x1cvnEhc97I8bj9pDw
12321pm7jM9XrAqGitETAzCBhl5INmyJ3BYJb24P7K8tJ2KOVRks6HwjvJggHeR0J
12322e/GkBn3PAiHfxLmyu5OEw/0sgnP1eGDrGa91+Q0JJ9bveHLKlwd/JVcdzJgj
123234WOiPTnvc3mQ+vPAmyADMq76xfn7H+/xwLxbl2NnQ8ZtHk+KCwk+3FcxmzVZ
12324ZPyW4TIx5MqHGKsjVn9HkLHGpX2ZmSl80A2sL248RMYOSbu9kxv48EfmiLpI
12325TMaCmnXbmqb5EFJrFhdzhYzz3BqzA+yDgBgM7PdoI+Mmhr7CVRgENUtPYJPn
12326ZPxJ4vxTSm0QeDu21k1Pk/G6w2uzND8GwacdCtOuZRS889dXZz5YB0PpSZu8
12327aksKrvLZNWoaEwz0xl0zR7ZS8ChHmnTxSjC8fndmJy+Igm2bOx1SPwRDtl7P
12328Q5tECj5ccM26ep0ArN2W0pfmUXBHuyBkVYwAemJdLw39TMErontbJ64K4EB5
12329kt6NJgqOTdDfqftRACb3JemFTyi45YX5lh9sQuDO5NBo9EcKNq2Xs9jCEIgy
12330WxHEWELFaROnCyKkIaDt43PXyIyKnxdRlnVMh0DdoSzbyc1U7HbOpe3o5lDg
12331Vd8428mh4lodel1RSijM9YxrXNxLxQbD1KeTLaHw04JFcmoWFWdbVjhWE2HA
12332sg55HVBBxVN/KjskOAzG+OJt63+n4tgBizJ1bhiIj7bfpHRR8Qdfo7OSh2Hw
12333L67q2Lc=
12334 "]]},
12335 {RGBColor[0.647624, 0.37816, 0.614037], PointSize[0.002777777777777778],
12336 AbsoluteThickness[1.6], LineBox[CompressedData["
123371:eJwVyms4lHkfwPF7RpJHoXmU1CJtDqlEKqTfZfnfhKgxM8w4NWPGHJTFJhQ5
12338FGt3FZFVQyKJdkk5baWWxyHEmGo3nkrklCR1bQ5zMGbM7r74Xp83XzN2NIVL
12339xDCM+0//Gpi2UN/yaB4xdTTrwxx9oLfw4tW5qXnU6Dvyfch9H3BusM6wMFhA
12340rsP/P3/CwRdq+jojg75ZQPNNMx3lD3zB5D3LPydyAb2fMLb5sv8w5KqXoF24
12341gFYEf9tLbzkMBKMrFtLHC4huOigcdDsCJ3bv1rOeXUBTtuGFp54cgXeHxLJQ
12342Ywl61q35XmhJBn+uYDTPS4JExoIN6cfJ0J2i0dMZJ0HBG19PKO6SwVFYUrdY
12343JkE/NTM8MQkZquqcinY+lSAfrSn3/P1+sEnUfy5MIUE1svShhjQ/uPAu+niB
12344hRTdztm1mt3tB8uq/9B6KFJ0oG+6/5ouBaINKw+oUqToWG39Pn4ABcZsXc3t
12345qqXI1jnLrqWEAhTvoTXcl1KUHxnTeWOKAh2cBKlQQ4Yu4dw5Azsq7E0mjfTt
12346kiGLDsEDgyQqVF6u6cZCZIjxIdHwRicVNtR61u75UYaMG6/qNevT4KeeCaGg
12347UYYyLETXuSE0UIynnC0elaFzLtqiq7/QIFJpdOz5ajkyVPvnMCU0GF73G2WF
12348kxz5cOs+1rr5w5FdZGdHrhzpn9g0ejHXH1o9Z76OzJOjePOfo5Rv/WE3O3P1
123499WY5+i5102XpzgAoTzKTvJiWI920uoCU5AAwKPh9WGv9InK3DKjNFwdA5h16
12350l7PbIiLFaZfvM6GDrHvuTnTUIjodIbLhR9MhYiz7SnnRIopbUUw1b6PDoMIq
123517WXXP79H0trv/suAQwaPBTrzi8jbJkLgzWNA806mn4upAq1v5jLqmhhgc1Dh
12352FHtIgZLnYsYq1gTCdVbBllsJCpT0NEvDih0IaxNtdd6UK9BGv4YWh/uBkJ4v
12353mtd9rkBHEj+SBlYHwcJt3pCbUoG2eNtiGCcIuF2EznirJZTdmpH5oCkIXo4U
1235411TRllDu8FTFsn4weC46XH6btoRsygKP/ikIhoekFymkmiXE0Rm8a98WDNt3
12355RPE9Xi+hvV9FFG3ZGALF7trkRE0luvlipUlpbAjoMm863rFTogq7hv2/ikMg
123569ZSL2XioEnnti/ryjVUozOYNaq/PUqLUMQcXXnoosKvj5rzuKRHFXt/SaCQU
12357+h/rv0keV6Lm7bJbgc5Hwf1tdUedrgp19n5qsxQehXsyj9uT+1XomP7syXTJ
12358UbBaO/6zEV+FSpUabZFUJhRaJyf75qtQ0kXzyok6JujgG3hn/6dCJ95Zk06u
12359YsGZ0IbDv82o0ClarzE4suBz/GGHacNlJDKclfgIWMDMnTY1xpcRz6a0qFzI
12360gue/Zqzyi1lGFGG/jmsPC9w6TGczipdRln+el7mCBQ1DD18/eLKMSLwBKnl7
12361GGyV+rd/WlhGEz3XrdtDwuCy3mzVZjM1ws7OixNzwkBr24V8mq8aRZ0XQ2Jr
12362GJx2szzz42k1Mp+2SWydC4OPwe3hv1eokU2RYbqvORtC4kJ9v/yhRqklPzDM
12363GGwQ58j3bl1Wo83SFIXzeTaY9nvp7ViH4bplKsG1Fja8Yl3R8NiO4e6lGjfd
1236459iQ9/mdjOmK4b1fcqv3WHDAK3H3p9N0DL9RUJF6LIgDRK200fxvMbw923Xz
12365VA4HHuWL+2vSMXzn6/Dsqg4OxG7e1NNdiOGfE/S6G+Uc2FEjaB67i+GSCFex
12366pk04TDrdq1vqxHD8rqL0GiccSro0KtcNYfjUQWeXM4XhEED1K9o1h+ED9hrV
12367Zc/CQW+0JMdrFQHXj6VMrFnJhSeRn85xTAj4Vc1tH1oPcCFt0SkheQ8BPzmT
123682fQwlgtOmT8cv+JNwC9tjaQvVXFhjjTArGMRcHXtq7Zz41yoLt1CE8UT8Ee5
12369fXLyRh5wdsR4Tl4g4F0dB5VcCg++amo+oL5BwI29vfvasngw4K5jZ9REwFu+
123707heEd/Ag+0+Guf0zAl5PnvzDV8kDD2alke8kAf/rebJWyl4+qGfm1/CXCHj8
12371zWvakig+3D/lSjy7loj7ifBX9b/wIUbzorTIkojHucfG3h/nw7ZLQx8bgYhP
12372kra9IRoLYNzEeuQplYiX2fP0CugCKKpOePEhgojfuWWtH3VJAFTHzm5iGhFf
12373GR0/nC0WwN8iJfkm
12374 "]]},
12375 {RGBColor[0.571589, 0.586483, 0.], PointSize[0.002777777777777778],
12376 AbsoluteThickness[1.6], LineBox[CompressedData["
123771:eJwVjHk4FAgfgB0djCvsrKxUhnYjkZvya9b3QyubKy3Z5BxnxgzjSBJFZWdD
12378kuTILlHRl+QhKtYqV5mnz9gtJPvxrVAkc5/ma/94n/d5/3lNIpMDKCpKSkqU
12379z/zjMYecvZ2qq3gzN9N727UfYR0llPCn+Sr+XaVW4K5/DBzKXCdXfVfx7TTt
12380Rk7JMYh5atSknb6K17xar7G0Q+EaR3JyV/Uq6k4N02yKQmHIZNLru75V9Cp/
12381ZN6kfRzEfl2GlIVVJGee63MqOQ4WuRWLedocFOaZ7ZvUC4OQloyuG/YcTGqr
12382uXK5PAyY0z8UPg7hoP954dw9rXB4ouV4dDyXg8Oemim1fuGw7Eo05zdy0MRI
12383i/pVWThsPcET6bI4GKwqmdg2Hg6+VWNDVtzPPwW7vWVLBOQ+f1DhbcjFWJ0K
123845ecREdAqvhwXR+biPjuvbuqtCJjdSXcuoHBxOeHdQs1yBOgF+6nVMbmY35Gc
12385H2QfCXjBerynlYsi4lxx1alIYHRo337zmosHCz01Ep5GQsPccoZIzsXTm8oE
12386fRpR8OoL1gGiGQ9/bmb5NwZGwUb3uwa2B3l4MoS75YsbUeCcypz3ofHwkPH6
12387YM2FKIivS3iYWM5DAVdFtdg2GipHvS5cfMLDC9NLxtWno+G5knlQwywPxVN9
12388t+2Go0FqrfZNnxof3Vby648QKWAZNi+YtuJjEtFOWyWSAqFFAwPSQD5m+bIW
12389nFsoUNTdUL75FB9jaw7bSWQU+G0pP8bhVz7uUfQve3jHwCejaMeAQT5OMMw2
12390b6mMARNv3JC8zMfINeqD7MUYCMgivWLqC3CwquFJrEssnL2j3HjbRYB6h4Yc
123913xbGQtv4f9P6wwToovd6+9vJWPh7Y6/HbIEA938YzYq1jAOiUy1R0SxA0nin
12392e3ZOHHjG5MwZsQX4bpyZYzQaBxlXQ9udRQIsWD6408MsHm4/cy04slWIhC8F
12393buKMeJjgGh1JcRdicsClF04j8UAwlZoVJwjxXt2mfiWTBNgbMMlrLhHi+IZc
12394q8D0BEjM63o21CFEds6bjbYjCVB9v6JsbkqIbQRT/0pSIrD+yohWURUhtekH
12395wqWTibCmHWS/zVyE2sfT7QijiWC933Gdq68IL+44O6JrfgLCk4h/BKeJcE4p
1239668/6vBNwuZpXn1YlQpNPoT69kyeg78VYaunvIgTubqdY+yTgSB5gy7wI9xHe
12397F1cUJYGpRan+iJYYDRxKgwMXkyDwKP1/C3ZiHEn9+nKlOxUKLvq1rQ8RY9RA
12398o0viL1ToeGh9jpQrxmlL/YABGRXm32kfJjeK0fZW4mTz0WTY/OVH0rERMVIc
123997rONHiaDlweLk8kRY08izZhJoEEW427f1c0SfDSQU8hyoUFTPbP0wX4J1u86
12400t/tIPA3esBMiX0ZL8EzlaXXSdRpoqhy0XfpJgt/pU43th2kANuYq6q0SVC4P
12401jGeKaUANV2PveC3BuySb5W8s6FBbPP/rv+QSdOtSvaP+Ix3+0zNADzOV4vDR
12402keo9P9NB+WODW7aXFN3WMYequ+lga1ygez1Zirc6yZY+K3SI/D56pv2qFFUy
124033g+6m6TAlVPYyn4sxQNkZlXu4RR41kTKW5mR4mld0i3l8ynAn1D211STYcPy
12404vfeDnSnwtfrMdnMrGT4cs4kZ+5ACQc69nzwCZdj9tMnQbFsqXIyt7Y3MkuH9
12405bsP1jwJSoas8p+TMLzIs/z1n59XzqfC+PzS8ekCGcS8nzrU/SoWv+K57upZk
12406aDlvYWC0kgreZluUXunJcUYtZbbflAHZh6UvOc5yzLdvmWsPZsC/z07W6oTJ
124070SBhdvuHSwyYbu1KtiyQY+UdjTLKUwbozFSQvZrlqMm1IO8QM+DbTZk6MaNy
12408TPT8lmRhnQZ0ctBfZ4VyfFzvDQxKGtRRHVtqjddQTjhUolqdBuwa4pknuIY2
124092e5G4+w0UGXxfCbi19BfaDO9qp4O9rKxrYLiNYzIJk74uaUDZVfbR72Oz62x
12410osHPTIfykNIe66k19L3Zkz59Px0GC+lF36socPeBfEOtxXQQdfodj9+pQAmX
12411zMs1yQDzBWur8z4K7Gxa3bA3JANCDHTW6hgKjEq87u98JQN+8vzI+q1SgaqO
12412Tn+cGsmAx2msmqleBZYSXhSt25AJSzfvJonfKVBvMTCPTc6E/wOVbg3E
12413 "]]},
12414 {RGBColor[0.915, 0.3325, 0.2125], PointSize[0.002777777777777778],
12415 AbsoluteThickness[1.6], LineBox[CompressedData["
124161:eJwVzHk4FAgfwPEhL14Mu7mjRZuiIs3W5vqhfqSSnqx1VSZnWkVDbkbmMuMo
12417W86NFCXRIrZ4a9AhO8qt7D4rLamVrGPuw4q3/eP7fP/7WISd/S5SmUAgRH7u
1241838848QvejP+Nb474HnetoYBHiI+tp8kcTnKNPCz5FKhmtvTdDZpDl1Z/+xan
12419OCDU6Z5eVzaHfFfit9PsOAjuT/gv87c5/BTo7PLkVRw8FIzWzuvNY5TS+yO4
12420IR4MDXbvC/CdRysHldgzlHhIdCx7//jSPCLharHzo3gYISvoW4bmsc2/kfeL
124219jnYzjhqUaS9gCxne5UR8jnIr+U++nRoAZuaHb1Km87Bx15TclTeAm5vvV+x
12422RikBPPnU5aHnC6h6sE5u4JsAN/UmrjiqL6JjjP6J4ZoEUHJwc7i5bxF7zJYG
12423SYoEIAdX/U5kLWJDaICXk3citNOUk5K7FnGOZDM8W5UIWi935PIJfGQXpofu
12424kSWCU2RYkKU5H5MZe5ddvJMgWnbZ6qgrH58q06ve3UiCspwu2UUyH3/40tFn
12425+z9JwDMR/9pF5ePJpmjNDb7JIGnYWCKv4OPjcd0h7p1k2OjmF2nTzse4n3Zd
12426W1ZJAd8R1s6w15/9vwZT3pNTgBbRuqZ0iY8Tj6eOn3uQAnel0yO9xgIs3xrr
12427VaeXChMcw2qCgwAbLePdsympQDTZH7crUIDmTQueGv2p4NyQ4hadLMBp3ju/
12428XVvSINq1TudaiQB1KD6xapw0+Gn4jz9f3hcgp3b3pazpNOgJ12hUHxXgsdiS
12429zuse6SCVOFJBLMDLz2KkUTXpYMk5fSheV4j69R32v/0nA3zXVZjUkoS49FU2
124306++TGUD/uW/2tY8Qd37NG6/tyYBml08PvogTYndrlovmVipMDNnkePwoRO4f
12431LfX6F6mgHU4OTGsSoiIv2IInoAJILm5uGhBiYX9WtZl/JpxmP5K+mxdiRaWp
12432rRk3E64Y87uNiCKcWbF71m1+HnrumBd7bxPhlYWOCF32eZCBTwTdS4TXYrp0
124331BfOw6Yh2jdt0SJc7bg+NbwlC74Pa1GeyxHhG62KvSJyFjDEU8PmdSIMufFy
1243486nCLGjO1q3y6xHhVZrnZbueLJg0cqfkfhBhRq2MduhTFujcSXB9pCpGDf33
12435Ui6JBgA12mJLMe5/oSXIPEWDM4Ojb6w8xGjLi6MUV9KgPFS1IThCjN2auomr
12436r2jwXPRtxmWGGNXL+CvtmnSQs6K8eNVilJ3W0B7YS4dNRmXrlp+IsZgdUk1K
12437o4Nffc9Hu7diHJ8Vcmeb6cB0VvwvkiDBweInR6Uf6dAyYM25YiZBCqcv028D
12438A96GHA0YdJFg51NdK/VjDNAR5W5SIUuww73UX7uIAS4srsSeKsEw7QCNU/0M
12439iDGcexZTIcF7Zr6or8aE8jrTomquBNtT8pQM9jDhhZN3+O9jEjxpTPCITmeC
12440op9K0lr67Cs1E9e2MmFzSKPSHmMpPt9ReYwoYIK/8M+hRHspptfxbI9vYwGT
12441qXO9PkCK46ds2CtRLPjFwO3sRJIUZ84ORohvsGDqNsVFr0SKVZ0NPJhkwRdO
12442VcQD96Wo5tfTNGaaDa79w+PUV1I0+cZsfW9QNsScUP65RSTFicAWHZ3SbKgQ
12443kNI/rJWh56809q1X2dDLCD9oSpJhSPoF5qW1bFDoFxn7+MjQJmVUdegIG6xu
12444P5thUWRY0R6kHVbABn9HSdvDAhl27l9X7jnABlafJXuxUYZsU8OGLCIH7pH9
12445/TcOyHBl9xF3ojcHpvjZlkHzMtxc3h0yn8+BLxlt4gtacpR4JCtb9HPATX+m
124466+lWOSbaR1rfJuZAbK1RoeygHGviC0bph3PgqsOBsG3RckwXS1SbC3Kgtzd1
12447R2iOHFU6yzpIwzmwFFxPKLktR7vBZIWabi5Y88cGX/DkSLQqfGjnlwsBdM1r
12448q9NyrOyZJTSU5kK2nnPsTlUFjtzN7MsYy4V7t87AD5YK5E4eXn99fR68s7+q
12449VemuwAOBx0QGoXmwtrf/9Ui4AlmGNw+/vZkHbsEr9WoMBSZ8Zb19dSYPzi7a
12450pjlXK1AzZraIYpMPlbQTB+KeKPDQmpnzu+LzoU/3R6Nbkwp0e2vB927Lh39q
12451Hn8YW1XgmGrZXw+W88HaXtCqY7aE1gkHQ1L3XoD/A21+GzM=
12452 "]]},
12453 {RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], PointSize[
12454 0.002777777777777778], AbsoluteThickness[1.6], LineBox[CompressedData["
124551:eJwVin08FAYfwGk8lYyeWbPEuJEoTRJL/DA/W6VExLiouUIxkxBTcZG8zds5
12456xzlX98K5K2+7rRj7SDZK0SyT3ryGe3PvXmqfsafnj+/n+8f3SyAlBkWv0dHR
12457iX7H/72+z3BESZvBKdvXr3QvlgBh+YNOo94ZrFuBr+z0SsHNbjN7p3YGR6Uh
12458ZeSSUggMt8w7TJhFSKuM1H+/DM4Ubk2ID5hF76snTp0KLgNy547gwsuz+L35
12459tXBiTRlUzzu5CW7NosjL0Fs6VQYtFnstHzyfxQqF6iOT7eVw/4invmjtHH5r
12460t2f8r/PlMJHlK9N3ncNL8pFKx1/LYbnV70+b03PYC0/B+j8UMJoObEPKHOJm
12461l6ctgRSwNfmaSeqew+UszYkRBgU8fSNzrijmcDzJ6FmFiAKhqafOssxFuKrI
12462/0LmXAEJvLMBd/1ESFyOYrwkV0DuaKLLeLoIpwvps6cfVwBz3YUtKzwRcgWO
12463VnnmVLjtdknXfESE1cE2h3ziqTAYly3a954Y+/LTYmgdVJhh5A+GO4nxs4P2
1246453MMKuGfgZKf0k+KsYfq9t3645Xw4SqVXlUsxvJ4PtGusRIcHBlZdzrFSBtM
12465/XxypRLwG3b0iESMwx1sPadAGhwvbzi0YCpBX2eHHjMuDZJ7mpxMvpKgyHXT
12466OeYSDYq0P5nuTpFgd2+E0S9+VcCx6VgJ5EjwycQaZsKNKugI6X6dOCRBq9y1
124675p0LVfDkWl9/yaoEmbfjith+1SBtG2hpcpBiYJKDzIpdDbqSJ5UDRCl6tB92
12468d3tTDZvNnl+U5UsxsvDRRWkAHZwOTUQZtEmxVcRv3MOnw8FLs/vtZ9/9QzOD
12469pro18E2TbOcBExnq+GZNVBBrIH1cbRL7hQyXfdKn+D/XQJnxm7e5iTIkDP4x
12470HGrMAL736kQdU4bZ07l3mHEMuJuk1/fbIxluyakpuNzHgFGOQeP0WxnKm9/3
12471X/q0FpTDGym6dvOojp7QWUeuhbX6pulWofNoyzeuF47VwieuFie8rs4jO/W6
1247225I7E1xjrX1PCOcRHxd1PalhwpFq++2XJ+fRSjjqfOBvJsT0O26sNZLjZ4Rs
12473eijxOmT+7bLU4SHH9C1FypWO61C5w+PV8zg5LrM0Lp7mN6ApwqfnTbUcW39s
12474/9Y08wb0Fh/gm96XI9V/rKJg8gaMdR0pcV2UY/i+1pCHBBYsKI+lhFgrMM+E
12475HV4bzAJDwnFiylEF+u2+N9KRywKboCjviiwFNtM2PtzazgKPnFhbYZMCBd6l
12476rmNSFgT/nGD450sF+uyCLVMWbIifTdYo1ysxOdos3ekoG3I+ynhmtFeJnpO2
12477/o+vsoGxn9y1M0aJ9SxSTVs7G4Tp1+oOU5V4izd4Uj7PhoeCHwrje5T4pSaW
12478mUjgwPQLyrlClRIzc5yCPUM5sJJ7+NYxYxUeJW6/El7EgYLrAZ+ctlVh14Wg
12479bfe6ObCpLag8GVTY/0zwZeoSB1h/hOjlHFNhEnnXq1QHLjiIw9Io8SpsTpiT
124809pC40K4TIWVnqzCf9Sgpgs4F380nI3+kq3Dl48lzPkNcGHIiDXW3qnDDqLU4
12481ZW0dRPhF49B9Fd55QRvVetaBmHTmzsS4Clet3bzuXqiDlIvx9spFFY4JDSxH
12482m+tAh/pd7aqhGsPyNqS5i+qgqDHJ2MhGjefZ7vvnLevBtDcl28JdjZ/qMkol
12483YfXAHUtbdAh613n2gc6UenBcyjjjcVaNxHJRfv+jeug0ynx5iKzG0Xt/uTXq
1248482D/titHjlepcelzNemlFw+Gva7ei2tWY6PWQ+/rDB6cDMvbk9Grxn8X2iws
12485b/NAeq6woeDVu9+d1OKs4sGFgmIzulaN5Afuv1B3NMAaTlkx30CD3Bpfd5/Y
12486BijpqNBpJ2iQJLzk4sFtALNhWvL9vRrsMJ5pyJ5oAJ6MPvc0QINNwgzKJnM+
124877NZjhs/FaNCT4b24EMaHLnPWwOJlDZ7tdxmyovHhoAvXS79Sgy5AtKYP82HE
12488nyf8sFGDtKUmReR/BRAVI9hq85sGSxd37U4MEIA8s7Ha+YUGt+17LR8oFsD3
12489VS0bUK3BsN9/J6QNCEC/VZgZtE6L1tSRwYQNN6H8wW11lKUWfxBs0rT63QSL
12490qfbTSa5aLNDLLfEuvAmCt52jZH8t7qy35po/vAn/AwRPKjQ=
12491 "]]},
12492 {RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142],
12493 PointSize[0.002777777777777778], AbsoluteThickness[1.6],
12494 LineBox[CompressedData["
124951:eJwVjHk41YkehzlyHdnGlJ1Clh4TkzAj9U3NV52Zg2mcVG5kLNHIMrTJiKlE
124960UTWi0FpDImQyNTo4WIqW87hcPbt9/sdRWUNLarb/ePzvM/7x/uxCvuZFUFT
12497UVGJ+LT/s7Hyzev9jDHs/3GX8WLdY3DMPHDSM2kMa5LmDr0x7YX6+L/n7erG
124980H3yMuNVVi84BJgn6ErG8Nfbxp3j73qh1jNlakGXh+lDeU/YsX2w3l4aLdnO
12499Q/RaPtos74NqXc+JnqM87NTbe+uSfz/YLl6NrK/i4ZxzeUpQbz9USVSo/DEe
125008m9ySRvPAbD+JzQ0mc7HzF/eyajWAais75KGefDx6TX9o2WOg2BZsC6IGcNH
125012hqjUu/qQahIPi9wruCjcFYrYG7tE7AIV+4zYfMx0nym7krpEyhj7uKq0ATY
12502VN5daGc4BKabavyeuQiw9USGQUveEJSY0IeGIgToziorNKezwVg1yqftPwKc
12503Xx37/ACDDUXPensregWok+ambXCBDQZsB0bGOwGmlS0sMR+xIb/tUk+soxAD
12504Qm81LGtw4POrL3bs/VGIGZygjQ7fcSA3w7dja64Q9V+qpYxkcUAvrmGrTbcQ
12505P9y5XvB6gAPZe/Xuay0I8Ru7zYklesOgA/Ffz9uJcBwf2dxlDcMlG06LMECE
12506E9q+5d8XDcNK7U2burJEuOtsnzxMOAyZ83mNte0iXL7mOT23ZgQ0RPMbcqdE
12507aBpT//hD+AhkdPnfPGUpxmzis9iM2hFQv9lqH8ISY8iKWHHm9Aik5Rr+yTgv
12508xlxOp6HmV1ygJSVaf3lXjKZMbfMVKVw4G8K/avhMjGpxu1/80sOFj4zNFh9M
12509JPgdZF2I1R6F1C9LS5XeEnze1v5S5D8Ky4bvjAZTJDglGV/zsHwUkj8EFrY0
12510SpDZSDfb8HQU3irbPy9TSFBlgzWh4zwGpwYtrqStkqKpv8vx6OQxWGpJ1Yne
12511KcUc+60cr4djcLJMlsVKlGJw9dY3Jfo8eJW2ne5RK8Xf2K4vjhzkwbHoynQr
12512kRRNqm1uttXyYI5FU9PUkeF7O22XM4s8iPcIPzOzTYbMPc8zepAP01Y973nx
12513MlQ6dP15PpcPcZq2yR3XZUjdupLTKePDi5n019VcGaJ4n9cpJwG4xcx7MNTk
12514SLu7uqcuRQALsj/eeJjLUWdLn27goABa9vj/5eQmx/ToRJsMCyEce7Qi0fp7
12515OQYyzNUd44TgsqXVzfCwHM8++atpd4cQ5hoiXmme+dSr+tpPfSaC29aGd94X
12516y3FOyv+JHi6ChKKHCbO35fj1T0EnKlpFsHFl4kZlnxwlZTyfJroYplPsp/nk
12517Jz/NnIYgMTTO8m4NLMvRhd4axGgSQ1zExZhOAwVObjMqHFghAUeB+xctTgr8
12518aJlQPPhvCbz0mZioYSjwZENXJLNRAvWdJTd+D1HgzqdaKqguhWhX5uGcJAUe
125197/c51BYohS9uvLVNy1PgwoH0/JpmKUya1VEn6xQoLWy9vGqlDGpzAv840qPA
12520daclrHehMohS0w4LliiwU+c9EXxfBusT2y1ZiwoMtV259qqmHJ5Oxsh26hGY
12521XaLf7POVHGqCLSo2rycwiixwcA+XQ+TwYJDjDgLnaQUXQ6/IwXZXqpnVAQKd
12522XusOPH4gB+U9J+HqYwTqd6svxD6XQ5WjrJj+G4G14afU/EwUEF6Zs3+5isAp
12523QeRSAkMB1gbbDWceEEjactjsEwogLs5wyTECzzHacmKrFFC5fC2fN00gZ5uJ
1252467cjCgiJ92P100kc0Vp6EEIjwJJS1e+wIjG14QfHNmcCZPubh5o9SOTb2Z3z
12525DiWgoj8su3oPicrjie0WuQQEe67yLY0h8fdiL7HjfwmwuNOtlZ1OomreZUXy
12526LAFiu+N9ZytINAplDWhYk1BWapN5ou3Tn3p+GYdFQqDuKCOKTaLvmd0sQRoJ
12527pufS/3VwgsSf2RdermklQbjg9s8PNAo9F7fEXR8noSRqPM3LjMK/Z6O54cYU
12528BEiKvnF3pXCyy8gynEmBsR9DdYMvhd1Rnn7XTlPA61nqWBtJofc4cdiskYIi
125299xupq36lMM2ddoiroGBffQBoFFMYFVK+s3+1EgwsNZffNlH48WCLtsq3SuDm
1253037s/1UvhDmfGvaPJSijQOJJEEBS6Cvd6r2tUwv8AduU0lw==
12531 "]]},
12532 {RGBColor[0.736782672705901, 0.358, 0.5030266573755369], PointSize[
12533 0.002777777777777778], AbsoluteThickness[1.6], LineBox[CompressedData["
125341:eJwVyns4FOgewPG5MGSS7Di2tYgcnZCp7XTjeF96fkuyVjHbhoZcEp3GZheJ
12535ot3pGNkSxYaU+7OOrC7C7phstuxot2juY2bcYmPJMOM+Y3D2/PF9Pv98HWPO
12536hsSRCARC3F/9361hkRL2lddwXzfnoWWNo+SjHx5wfv0aOp/P94UOjqOhbZOy
12537ETMBqHd9/f3TkAlEqQsw30MXwOaDRbecuybQdud64AQLIIywq/Fbr3eIUWOS
12538IU8RQHlk2MRU0zuU7njq4bYSAcxFmwWFuE6iyorO0XSeAD418+1trp5EfDsn
12539u5cDAmg/ti7X2laN1GXfMGxJQqAHHItKu6VGNJuh3ERnITx+Q4+UW04hjxLc
125408bO/EA7YF7D3Xp9CUdZ3FyxYQuhdy+guok4jTtHy9uh8IVziTOOZ3GnU+F54
12541bFOTEDYpzp2pM9IgccFPpWSZEDJ+aQuQfqxBug3vCz7TCSHiIrSzszXIIS+V
125428r2tCPjrLJ8/4GuQH1XitegtAu5pJybTVIsSc3cl+8eKgH4n48qVAC0qNLlR
12543X8oRgVuVtf/uPC3iZk8PTtSL4MH5xdsnBFo0RA6y9uoWweMtdt+YWc0gCvuH
12544wDyNCHwrcvS7Q2eQO4F6eYAmhs+n9poM3plBjKzT3B37xKC1cKszHZ5B6Yau
125456a/DxUAzOql89I9ZVJmxdasoUwytv7+pVCbOIv7Sf5hOVWIYjq3Vs5tnkfrc
12546yM2UTjHkv24Yu7c8i2jzB377dUwM3eZL8SEwhzySK9esqRK4ap97If3qHIrS
12547ru5JoEugh3hii4NkDnHORrC4wRIo/TGd6Wc3jxrVvGqzVAmMeCtcJk/NI/EZ
12548G8XxEglwb2d+a/loHunGz1s08iTw/otTWa3L88ghQe67OiCBpa4iY5XfAvIb
125493XPxMEkKkbdNHC7dXECJJ4uaKp2lcND7aXf1wAIqHJ75U+svBW4rb4Of2yLi
12550RgVvBpYUfiKsDCecX0RDAw+OFuVLYbfd5QAqfxFRIjZce9skhb3rg3zdrZaQ
12551u4r1bK9MCs+7I8Q9MUuIEfZyKUcnBXF009z0oyWUIXfZobCVQdyLT+oLiDpU
12552efRKnKuPDNhEV+3DYB3ii0fLLsTKwMX801dHqnVIHewresWRQeC7Zs+kWR2i
12553CWpM7e/JYKUs2svCV488g0jeZ7tl4LqZIXQv1qOoV1GpHRoZjKbk6l6O6xEn
125544GmDpZUc3O4atYx7LaPGF3bDMfvkMFncSc4pWEZiv4ubmsPl4BH329uaP5aR
12555vlMZZJwlB4ox7biPhwE5gEf251VyiEmrimVeNyC/X4p5dZ1y8HmSsrY4YkCJ
125563gvapTE5VIiv0WmeK6iw/bNtAdReyGsf1zQWrKC2fz2OLKP3giH9qt+LsRU0
12557xLX8bjK4F7SmX+2I8V5FlP1JL1FqL7D+fbfhQvEqcm/tIeaX9MKZcnOelWYV
12558MXa77x/i/fXXPotwP7SGMpqufvHRYC+sZj4p/LV6DVXunKhlkxRww2WZ2W9Y
12559Q/z7/iqxswJkjKfMNjcCVm+vs3Q+pACnizUS3zACpjUY+59jKaDZ3NXaMoeA
12560PV1OZnXlKyDXlOFo20LAUXXPmjc9VkAty37h1AgBc5wd352WKYDoea1Ia0nE
12561jTWXHHk6BdxNumPg+RCx2HHg2Ho7JWRuPEznnyVifYXX9QgfJVR+UOuysYKI
12562HezLOu/HKoFyrWyqtIeI/e7o9GscJTTF78mMXSXiRJvQj4LvKaHihy+lLDoJ
12563F5a0xld3K6E7/MhiSyQJt1n/rXxWowT8lXAY55PwUFGy5GMrFczOzBWbdJAw
12564hSYyu7VPBdN9bdYbtSTsfmPngbFwFbjudDoRuoWMGRb5afuzVNAw6f7lEIOM
12565M/LUjblVKkh4TxX432wyrqQG/qHsVMEXVa4zD34k467cezbb/1RBc6lt9OI4
12566GatN1gVnUvvAe/lhaZatEaZx4nN66H1A5Y+V+R42wp5G/PbNIX1go++ID2Qb
125674Sj23+eSUvsgqdhr5WaLEc4hXHZ9VtIHpuXhzA/GjXBj1pso2pM+GDT/MHvQ
125681hiLDd7FJwf7YHk0M+3tEWOszyjvbiH1A9Pl8j/dso2xg85ANtnaDysSV+5D
12569rjE+mHbcM/RQP7wZTzE9N2WME+e5SfWsflifEO14wYmCC5M31enz++H8YQ25
12570I5SC/wc/tiIo
12571 "]]},
12572 {RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], PointSize[
12573 0.002777777777777778], AbsoluteThickness[1.6], LineBox[CompressedData["
125741:eJwVzHk8FAgbwPFZGYxi314lFbl2SqyhQ8l6HD2VRbLlzrGyH9KbXey6Lctu
12575y0uEVM4c4xyGzBjkKJbhtUmkoYP1bmbG3GaktUXWu+8fv8/3v59hSOSFUCUC
12576gRD6d//X1F565mjUAkY/Wh154lwMMDb17/SSBWSpDkbodBWDu0/3oyeDC+ix
12577kjrhRS6BEG7lNl3pAtrlmsszbpVAbGTGuSs7uZg+PT7WrFwKmesR+Z12XNR/
12578/GUoO7YUSjM9praEc5EUze2dFJRCi5bNjvMFXHRj+05MXiyD/koD74oeLsqG
12579+yvZT8pgyky1WMLl4qtYHXM6lgOvS/bSWoOHZE5IfGZ3OfyJnL0Zx3jY83tF
12580qrflXVCf7Al89iUPaWWPT+5uvAu6AdWVBlk8fKMsHZowqAALYebrr5k8vKG7
125818VFSaQU4xnxj3DvLw5SFzQ+7dlaCJ8ErVI3Ix37vtyxafiVczvmswYvCR7qt
125827FaRShUk6hiJqD58NCG/NPc8XQU5tWpmijQ+jvKgLvtaFVRYyiOgiY/FyXvX
12583bdhVwOibbs1+xsccUbRFqHI1sD/vUzz/wMdWiuNJ0ulqmOFQD5P3L+KmS9aR
12584AxnVIArOivnWfRHj7Fy29P+nGtalkZ39CYu4h3SNMUmigmai97tt1EUUNB2z
12585CzhLBUMi2FwcW8RZ4xDapTwqHCkw/r7h7SL+9Z3Kyu9TVDijp/7wrZ4A3cqM
12586977SrgE/mmLT0UmAwyXdhm7+NXDV6rljXpQAwyNHVWyqaiD1lwc/zZUI0Er3
12587i0dV/BrId6sdPjgkQIuqLyLSzWqh5mW2arxUgO7rv0pno2uhMzTamb1TiHfN
12588+1zb7tfC6LLP9e32Qtx1/EDWX5u1MJtiNx4ULsTOXVvrRpzqQEYif0wvEGLm
12589xOVKtfw6INzZev59jxBTgyCB/aIOtIze3DzD+/vHvm6xZlgP5NYXnEINESo+
125908himXa0Ha5t+7dfHRBimXXjiWUc9uIzU+VKCRaiudDYnjtAAgRdySpOzRPiC
12591nfKg0LUBoua/nRtlivBJkMm4aVED/Pgvv33acyJ8M+Ha+xm3AW6v2gd/RRSj
12592rY4wc8SiERp/3E9to4iRdXzj8Nj3jdCjqcHb8BFjAOV6n/OjRhgvXSG7pouR
12593/KHgk5M6NPjv/leXi5vEaFC9/SorjAZvmAM0/jMxOuqp51d10IBo3yA5vCHG
12594vKjkQhViE+wayzVP2y9BlbLQ2EXPJjD1iYkcd5dgQ/molUNdE9hyLzL2JEow
12595MbaWo7XaBO6RjiuXqRKMJr8/f8mpGULWD1h1jEnwNn2kxaSkGWIyNeOV/pAg
12596V11DeEXSDJlaf9x33ydFX4fHBLIdHUoqZ9fKnaRIcFN+51dAB7rZoK04Sorj
12597lh3janw69Hc1ph4vleKQZD790IkWeIp5A9eGpChJSd/ByW0B3kSs0pRUiocE
125985T8rFlpg1T/glL62DBkHDk1nWLcCSXgyI8Jehufs7bYU3WgF3ZiDo93hMtxN
12599YX9syG8FCuEf6qo3Zbjn7eDaJ7b3wDFn1dWzV4bWBTZsauE98NT5LbeaJ8M0
12600ollEqeQehNUOTSxpLGGaict7olEbJFo2bbc9voSTJ3qbk8+1wfW+fI+s4CXs
126017Qx3oyS3QcXn8bdnspbwaOWFeb3GNmBwAp8bty/hmZWEIJfpNhgKPrU7em4J
12602ZczZ8XYlBsxITf0fEuVoMp/06UVLBggTtt/daiHHtRjvJAhiwLryu3lfXzkG
12603x3/TFZjDAM2CeYP6dDn68we5PT0MMNAbDllpkuPSQ49NTxEDjtCaax04ctyh
12604bKj+qQ4TTlvdXMzdkCOHZars4MQEerDtra+1FGj8NEqWH8eEjnoLqx0mCtzm
12605tzK8r54J/VKjmR5bBWaeZeaKppkwelg7/tJ5BRY1t5xaJrbD0wSSjlqYAu3j
12606+GKrY+0w+/DD/dYkBSbQ/dK6wtqBp6zw88pToNs5dWJcUTvIXLhr6zUK7PT/
12607MyF6tB1W82fKqPcVyOIYzNHetwPh+a+2zuMKdOjOoOibsYCk9+A3+WsFXiEd
12608jHoawIJ/ftWWemdVgeRh1eqBGyzQpdXow9ZljJUa/SIdYAFZfmeAq7+MgT8k
12609TXqtsIBilX0p++gyvkrRnFgnd4B1corSIedllArm++Z9O+B/Vp4s/w==
12610 "]]},
12611 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.002777777777777778],
12612 AbsoluteThickness[1.6], LineBox[CompressedData["
126131:eJwVx3s0FIgewHFWsZRHHhG1J5FId4VE6Sf21y4dZRSbsLFxx2KSETs1g2GG
12614Ycx4zMNutHkVDT1kt63TTWy3bCm15FEkN2w3BsO8ZxrF7v7xPZ/zdUxIP0z8
12615RE9Pj/h3/0ht9DWz3DCD0atu2PqaUsCz17yGFzWDDg+4B8lkCojfT7mbC2aw
12616mR/0R9EgBRqc790pezqDOspgNW3XaYghVO1fbTSL1pn72kLrToMljTzMCZrF
12617JRZ/jW7lGXjSGPKdcc4stl5v72ClnQFm70Z18a1ZdJfe/3V+6Azs1mkLDWWz
12618mBEsUu/YSwW583Mrlvsc5t1MLjjaQoXLhJYLBklzGLPbKDbamgYJNIYns34O
12619F4eYub75NLBvir6nNzqHSezRGfkcDfp7PQl5NhL86dCai9yYbODqjP/3kfD3
12620ezpf0n+cDbh58kQOR4KJrtbKSL8cWCTcWdR1SVDrM1HKas6BGzQBh7oswYgY
12621Llm4LhdITanrtLvmkf6DZR2dmwtOfV80U7Lm8eQUxS54KRdGdfa+qtZ5dA6/
12622/Xougw7CzYrfM8Xz2Nz7Yjb9HR1Cw3si5U4L+IHY/2VfbB4YZF/8kxy3gJZW
12623V2ZM+/PgblP2qYWqBaSQtqdVOudDVl+E/smBBewdpnJ43+bDjx9tQtSGUix5
126247nlw8Xw+yC2ZFT7OUhR9ffTm4Eg+hLnOv8gKkuJWouT+elsGXIaYz36Nk6K1
12625nuz7gUgGGEY8JCqypZjkkviHVsCAhGSva17VUrQdxqelzxnQmVurzLglxe02
12626wvQKCybYC032/Dwgxatj4bf1wplAaaYUSKVS5HrmXhqvYEJ/x+QTDzMZDlnY
126277fboY8LnA2GW6e4ypGc7Zs5ZFABn+k50a4gMyzOqD9kdLoB3H10aJEQZrlDk
12628Df0iLAC0Ek5vK5DhyPLgUvtQAdS5LnucqJehTVXVM2+7QlgE0ukrHTJsb38S
12629ZB9bCFERLztnXsnwUSopNr22EG4ko+FWrQy9m2j23pOFYE6/fjDFRo5GJC2d
126306MICktDhh2YvOcLdt2xDEgseNRe/niLIcbRqr9/aNhY4dSqctqTJ8ZWecVml
12631igV5A/GkJI4c9ykDixn+RTA63fNLk0iOJplTLmOMIvBd8tW97ZLjntwPJFF3
12632EQitGoOcJ+X4zDL/yLh5MSy4WpQkLsux2/vUu+KoYggNyOm7sF6BLuP9DrV1
12633xSCKmLad3KVAse0F9abpYjBIiYx3jFKg1egbylpPNsTT7136NkuBtW6l58/Q
126342NAu3DZfx1eg0ED03f4uNti2VPm8aVXgbPL2YbZZCWR1rsj97KkCG6Jd53dG
12635l0DfALnrmFiBnUPlLRGNJbBN/HpVjaESg8cSTd4slAB7KSTitZMSPcgiixF/
12636Dry1unnOIUiJ+eXRd4PYHAh0c5yMiVOijx/NdN0QB84HlLmdy1bigTTjFfGb
12637uKCNeE8eqVJiz7+M6q3IXIhMId62u6XEa9TMiZ2dXGijP1+OGlCiJjysu3t1
12638KayuhOCzUiU23Dgb+Ti2FJJbWspfmKqwrYFQ5HelFLo6bV7YuKtwswPl2NrF
12639Utg4yNjwdYgKDTauepUQWgY5Ysm/K4kq3Ndm9mHD+TIYXoq+OsBU4UxP/oNg
12640SRnssH6osKxXoerU8e3jAeXAc/PyP9yhwuNNbV9M8cphLqCWyX+lwh2JJ3Xf
12641/FkOIZEmT/o0Kky7ei4qaGcFNKZQ1ljYqNGU4RNTWVIB+nmTRwleavx0IuCT
12642I2MVcKwyrL6coEa/pNEtD+x48J+WO1PPTqixpiGswRJ5YPObi4cpR403N1HT
12643qtN4kDEooBwQqZEhjimNquLBM/FSB7dLjUsqxccDD3jgtpy6smdCjR4h++5T
1264453nAsn55wGRZjebjoSNj6/gw4YaV+9drsLHDBKlf8gH2Xh9l79Lg7Hj+cmgG
12645H6ojHZy6j2jw//tbzY7U8EGVUpxqlKVBoVZAPvuYD4fyFD9/xdegdO7zzRZq
12646PlyrjH/PatWg/hbmtnubBGB8uSfw9x4Ndl0qLRIRBED8zZe9QqxB/xNh3g9z
12647BPDfwYu9aKjFhNOPvNZfFsCGGXPbAict7unWFLa8FAB1OTvufqAWH8e9cTu5
12648UghD1tNN+nFaNPanO6Z6C8Fra6QkMFuLum8GSTXHhfAXKfIjqw==
12649 "]]},
12650 {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.002777777777777778],
12651 AbsoluteThickness[1.6], LineBox[CompressedData["
126521:eJwVynk81AkfwHErs55ceXQMstXQesrxWKtU9F3GV1stHVgkyjFmMO4xYxyj
12653qSSxopZWbWFDGIVNsiHVZoUOkd3NOh71OOrJI3PPby7t7h+f1/ufDyUq2Z+u
12654q6OjQ/+rvxXEZ4vsvYR47vt2Vv10BPQInbeWM4Q4MsTbXOcUCZOctxm63whx
12655+YulsP28SCBUlXcTW4RoX7nT+IeBSDA7Hqjzx4gQvbe6ul0mR4EDycjbmxCi
12656X/n8tAcjCr4sfJjfYiXCA7+EGRTfjoKIFZlPLKkixLsFTXkkGmSVOa04TRfh
12657Rj7rmW0QDcos5vxFBSJUGZGZqfU0aK688l1Yswh76NxcupIG/TYBY30vRMgr
12658KLVY5hsN0w3L17koRGibEe/wVVU0aB0fRFauFWOv84cuN0k0kG+lX1vuKcZD
126597fv7f91NB+ftjv9jR4txgnTYz7yCDj7d0w6vzojRfwMlmCShA93r+xSfJjF2
12660kmr/uLyXAfy+g23tw2Ikt/93dPwHBlzy1ScocjHGOk9+3UswoG242/2spQQr
12661uaX7DvnFwGAQm098IcGhM6SessYYeDtu10OjSVAe7XI7Sy8WdCNff/w8X4L/
12662NPpko0F4LFjNlX/ldkOC5scersDOWHCN3198bUiC5C6bjE/XxMFBod4LU5kE
12663ST2eR26y4oDJ6VrNs5Di7AWL+3PP4yBPlRryBqR406W5oteRCVX8TRX+UVLk
12664Xlki9hUxoUNv6lX3aSm6DBkM8+eZMFJwYePm61KcGHzxaahPPCyY+MaWPZdi
126659sUgxdT1eNAv073xQSJFI8fvdpkYJwDFomORaS7DoqLzpnNJCeBemezy+04Z
12666atv3HIoZToAgG1suNVKG0Te6rL7dkggpDROdN/Jk2Jnw7gjjYiIUOpYukRtl
12667qE/8unZGkwi1rXu9cgdliPuzgwyjkuDeNp3T78UyZCVPGk/0JcHo3faBELIc
12668y0LV1KB/J4OYmmjc6y7H62a/iTMvJINRn43fZxFybC5jbtitTQZb37Gyy6fk
12669+FJ4ZPY/n6cAdfjc6McCOQ7wZoikmBQIDdptxXomR7f3/Y8DrqQAZ1wbPimS
1267044ZdhqFnh1OgJKKtZs8aBZ48cV2wVj8VBLPMN7fcFBheI2hf2pkKPUyK/fpw
12671BbY1kk66pqXC5OLLpMJcBfLL7xv2CFJBwS5uldUr8FHcy4DaV6lgpvKWRzxV
126724CnKvsNjZBY48NU7ngoV2HFvw3r6ARZ8qdeas201gclU/2rvfBZEFMT+XL2D
12673wHLB6+mM+yzIMllPMjlKoKdicPojggVlpb/tyTxJYKidZfXUZ2nQbF5UNFNH
12674oMyrZ50ZMw36K7yGDjwhUJf6OORSTRpMWytXdi0SWLjRKYAzmQba+pZg21VK
12675/GZBZFBHZgPZkXH5/HYlGlwxO2HvzwbnVqspTZgStU7nb5POssFn24h17Akl
12676MgWJDVv62UC/W8AYuabEgH80hNxZxgE+1bPxi8dKbPX1HDjnwYFLj+QLgvdK
12677LEl3VXRnc+CWT5Pz6pUqnMkrnPa4w4HBIRrn+DYVNmbtLF4j48DbQMuO+VAV
12678vv/aV0H9PB10x4c0QcdV2LSqc93D5HSwisj3fFirwrmOPL3ypnRwnYVTjgMq
12679vOjd0vBgPh0OMqV9FxdU2N3mauhhxwXmYqOhnpkaGQZWDmZxXDjFjjyQ7KpG
12680/q5wQ7cGLlQpyaVjh9VoytARtL/hQsexwd938dVok/BB78y/MmBkWZ7lzRo1
126811gWHrW+OyYCFM+5HrfrVKNhEJjY1ZIC+ifhq/v//+qecSoi3GUApbZgVm2rQ
12682PLtuxsouE9zNwzcf3arBPE0WcSE+EwIrVicOhGgwidb0mNaUCSnWT3/cckyD
12683T1og9PRiJhTWn5RWVWvw6mv7Rq1zFtQ67Nhu2KdBEcH9aYCdBfduLmanz2uw
12684S0bJffdTFoy61t1/vUKLH41uNo5QZ4G4K2zZvi1afFBVEmjnkQ1G1JW77xzS
12685otQ3IGxvbjbYPhootMnRYt0Um9Ldlw2ePscHi69q8VmwtDbPiAehQ65mql4t
12686Jtwenqv24wEncCGQ/k6LBYTRm1XlPCgZq7k0ZLKEn1Dqro1P8EAQfnjS3WUJ
126877ZwqrBXWOdAzY0qpD17CFmvxkZi4HJiM64s24y1hq7o22OHHHPgT8Skbhw==
12688
12689 "]]},
12690 {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.002777777777777778],
12691 AbsoluteThickness[1.6], LineBox[CompressedData["
126921:eJwVi2s41IkegGcIszkZtLlsQmUVp7BhY/h18ftv7GjDuDONcZlhhi6opdal
12693kEslg04nui/lOYosrQ7D7kqPI8WmJmKRNjOtazpmhhlj5nQ+vM/7vB/ejTFH
12694GBwtEonE+cT/XVZhNx1OXUA/RVVBYJE/nFwXWqtPW0D2bkqf8KU/RJfm8drj
12695FpD39ybdHssA8FnTuPVIyQLy26u/yuIHgFPRm/fWrQt4UDZy4HVzAJjqrKl5
12696MbGAB15Gsl5rM0B9isbNo0rRLXQjOyuAARJV/Jdf06RofHp7UM8NBvSm/2Pi
12697fZwU//I/RWubY8DP0kdVFSVSfNBlvjZoVyBcPTof49sqxcw/FaOlFwIhd2bD
12698ppUJKdKqra8cfxMIiQm+b+upMpzSv0DXOAUBYyL9Jpsmw8vmXjMOuUHgzr4T
12699ZcyRoUev56lVA0GwceSl5eMSGQ7YZumesgsGShh57HirDHm2utm3MoPhw0uH
12700a1vEMpQ+FU0mvAiGQT8mc4gqxxTTqX0DW0Lgl6dF68/R5PiBsu/SZGYI3PZ+
12701OOzJkSP75l+DP4pCoLhzomKuRI6PR/v1tbaFwrHdxuE3W+W4qYO8Qy8vFJjC
127023WYMsRwz6en0xpFQwJ2HBrUNF7H7hGuw9tdhYN9Ueeln2iIa+bkzlCVhYOzY
12703HRzPWcQDPbl7/zkVBopa2efmgkXMnv588/A34TBuu1nU07qI9Y0z8ke3wqH7
12704R//yDPEiiqz02wPU4XDfMovhYLiE8zuOHs+PjIBLlXeNxmlLuGpmvXV0SwRk
12705mQw9L+UsIdXXoP2taSRwynQFKFhCY3/v/ZS0SPjOwMVP1rqEOstdvaKBSHA5
12706G21QI15CpW/xXu+dTFivW9IbZqhAiVdlTdRlJmjntJ1f7aHAzjezmg1KJkyt
12707TPq2cRR4bVMhPYd5EPpPmOofFijwkD6v4PyvB6FFRvRYCRXoVClo9tzMgpvJ
12708KUX9YgVK+9SDZQUsKJi94ZNrqMS6fzVNX5hhwRFer56rhxJD7e9/dGJEQYhY
127092SXhKJEU8HEy/d9RANFb8y8LlNhnAPwmKhu+HA3+hi5Uoll3dVgmsuFv4bmr
12710VGIlskSOeyrT2CAVNXTWGS7jDecx69X32PCH/1hOlMcyjojvK5+Ns+HRM30v
12711I+4ymk1X9/65LhpqfdzJnYJlpGN7ha9vNJQ+5v52TLiMGXNLLL3T0ZC+52K2
12712rWQZa2dCN5g8jAZ2W8eu14Yq/B2GRWmz0eDt9mGlyEOFC2+zz2yziQGHBxbt
12713HlwVmgz5OLpExoCJEz1jVqBC582uLy6UxcDK3TSPG0IV+vxGHPbsiQHxlttK
12714f4kKmQ1p2qAVC8+qXrRoGa0gf6G3VECLhSYr0okHHiuYXuRtvjM1Fq5c2e7G
127155a7gyZSJCqd7sZBjGrloWrqC2fXVazPFscArL2x+IvzUUJhvYRUHAdTm4z9I
12716Pv1WJf81CI8Dt3PvXLYbqfFwUEtoUHkcWOkZScc81Bg1ots80xsHerm7mgRc
12717NdIfpq15TeHAnDoxxatUja5ifZYJwYFXJyu+kgrVaMbtrKnJ5kC7vGv+tkSN
12718CvfrU+eEHKhOkd4PNdLgEPuqbeciB87PbTzymacG64fbI79z4UIq389ByNVg
12719bo3WWftkLkRIMmaTSjXI+A//p4h6LnjF1N6zbNOgBU3ePzrNBbuxwcTnEg1O
12720aKqnm+zigVKXs66DQiLumqWpR+LjQcU3l5lbkoiEvKTV4XfiYX5rgyjFmUSs
12721xzPUreJ4eCfZ9+CpD4kYCupYQ7dJgMHq0XIbFonIa7HW+TU2AZ7GHEvNTCUR
12722LslVsvyqBPjFWj9woJBETP7w7Ztb7xKgcezWDsfrJKJoyPgR1YYHd666GRc2
12723kQi7s5prz+N4UBHx+8fxbhLxpJiaOnGbB8Vm3H73MRLBmvDa6/ueB6cHVA1l
12724CyRiuriComPHh2MXywXTFDKRf3btE6NEPiQw7I8SlmSCOtyQk1zHB6Zhh981
12725ZzJxMSPZ1WaeD359oY5yHzJhkRL81s45EfD8nIEfi0xcb2Xm53yfCDvpZ+Zq
12726UsnE2pACG4fWRLCnWPSRisjEOeKVcJs6ESy7GuvCr5MJcv6+/VleSWCc921x
12727YxOZ4H3xx6tNBUmg4zWepP+ETAyQy8O+eJYECs33++PGyMQez8OiOKND8D9D
12728RvrX
12729 "]]},
12730 {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.002777777777777778],
12731 AbsoluteThickness[1.6], LineBox[CompressedData["
127321:eJwVi3k41PkfwOc7I8VmlYdEVIZpXWWXotJby+czhjHFuOcwLGOVZnO0HbZo
127331xMPmY7H2pwhMYtcxUPkaltXG2ppE6vY7CZ6UK45zMyv3x+v5/XP62UWHuMb
12734SSaRSJGf+L+DJ+3/+zVzGSnzdz8brnaDCQNZmfy3ZZSoZ0+bJBAcY3ZEHllc
12735RlntI7PlgQgWklJoxeYriFFsRrOtQnCu3uvfj34rKLNp47NoMgbS9OYy+qUV
12736dF4jb17IwZBmMiLMaVhB8tS+H43vYtjELrSYnVpBhofzL2Vo0SE3RTgFBquo
12737x1ZX0RROB7MW69Lr9FVk5EObKmqlQ8XcQsSb06uIqBg/jAzd4SvzJnNHySpK
12738c9r/eUm8OzQHJb5J+2sVlSr2ercOuIOrGN0e05Qi/vIQOdOGAX2dWhF7nKSo
12739zsLAyjydAezlQepPUVJUkC59GPOWAaNWN/4ZypYiqkVS/1l3DwgX8Et29UqR
1274061KZl7PEA2YyqeEJUimSyWIOtWh6QnzPtNkTSxny2/d30VKUJ8gVNZPbOTLk
12741Ipk5PdPnCclfnr4Vly5Dfaz89nxbJmhHOn/ze7MMzVvOJWy4zoTMXMLMcEaG
127427h588+uXS0zYNtAzcdxYjkjJP3joc7zgNvlqcStTjhZV9bz6di+wcfIP0z0v
12743R5fuXpvUobGg/oTxzvA7clSWqzNqLmaBc/HE64YxOYpu2k1fXmTBo2FJ0fqN
12744CvRIe4GazD8CXlrfhXIPKVDrz/6nHncdgSFw2FEtUiCmL89xwO4o8ONlr9QF
12745CvS9u4boSt5RmJJ0FPr2K5BTrLf+Bk1vEI2lCMqUCpQ9eMjOJd4blnRZ26W7
1274619AV4ZNWu9fecAHrvWIK1tA1w4uCk7t8QCNh5ObNq2tIYvguuyTEB8TVhSEL
127477Wso3b708t5ffED/H6Epml9DB4/VOVr0+8DNLTbjv+xQosb7OgVx69hA8/pQ
12748MO2tRGrz1hYTFzZUX2ziO/+oREaVDzJpZ9mwryHR5GqdEimZGy3EdWxom0Z/
12749T0wo0V3NmpM+M2ygm2oXOGxWoT3jxfHxFr7Qz37KS3VVofMDU3YfBb4QkHpj
1275028s4FcocTZAM5vrCqxb+mE2JCiUQYX9pP/eFb+ep+Ul/qtBulN1xe5MfzJm/
127514z4jq1FN0Y7wPJYfnAmuNbZwUCPFFlnbXJofqMSnR89EqJF+hflQcZcfpD50
12752zuv7WY1UAUW36sj+8PkKwTX5XY0aTEVW27/2hxvWvUYxS2q0l3Q5+l2iP1yz
1275363kfpkfCyUqpUK/VH4Y8K1mXrUm41KB5a67cHwyFV6rq3UhY7PE4JfFAAPCS
12754YjeOc0nY9YZtVce5ACjO8RNpniLhDtXrjND7ATB1z/GJXQYJb0qesgiRBoBl
12755v5Et5zYJ2+48ePb+/kAQvV3LSH5AwltfTiTHJQRCHTExe2eIhJ9VjTDSWgJh
12756adsjr+ezJByYb9a9pgiE/Y6SOyoKgStLHygHIAgu+KR/ZmlC4L5eyZzqYhB0
12757RotOsPcSuGH9mxzxb0GgkeL9xw8sAsd+E7t2dl0weBTZ25QKCfzx+VGjhx7B
12758IG42yOi/QGBGZNJ8lDgYng5JZ1ayCHxcV50kehoM+nNjzJ3VBA4eftozoM+B
127594A0dlZ5dBNZrWOy7yuFAAbVE+9Q4gfNqolKqCjkweSglumCZwP89spV/McUB
12760WtCxx106ZKyz5GZJWHPheJyX9TyNjJUulbr7Y7lQnbHn8lYXMm4uDa970siF
12761D2WbZ1wDyfgwTaTdoeTCvs4lzxMnyTins9tUl86DhNEXFVmpn/oz8TOtYh60
12762LbVotReS8R1GTGzvMA8I3cLjbxvJWOTQVvuVKR/oVj/1bRok49UD/HJpJB/S
12763kdDq4Fsy9uaxuKa1fOgPYaRHqMk4PvtKV5GUD5vPWb8TG1JwxNyOmYtuIRCQ
12764qePZaEfB1DBKb5s4BHKrFspfMyi4+r1TKOdFCIx3D23QCqNg7ay2Wl+qAKiT
12765jcfsz1GwZWBWc8V3AvhWkdvLu/7pd2i9IGgWQKVBomVKOQVPWO+Txa4LhTm7
12766sLSaTgoWgXrPJDsU7Jlo+sUIBXdHG2+vLQyFM8JdHsQHCp67l9o9OhsKLUla
127675dZaGnhRm6p/zyQMVDnv1/ubaeBhz4pbZSgM3OoHoxIPaOBtW15+1hsdBv8D
12768cwTp2A==
12769 "]]},
12770 {RGBColor[0.528488, 0.470624, 0.701351], PointSize[0.002777777777777778],
12771 AbsoluteThickness[1.6], LineBox[CompressedData["
127721:eJwVy2dU0+cewPF/FjT1FAElsTKKIPeyPMWiBkJ+EHgeNoEMJUUg7DpAAasI
12773igpiWO54GW0RRBAJxCpa1zXaHtSUITJUoKeC+8AVvIQikkGS2/viez6vvqtS
12774s4UZZIIgMv7u/z65c7b96PMFVOgqf5zjzgLrbFO/0UqD1nhRMy/JWMB3SvmY
12775G6pBxZfKiob0LDjxrHPFu0INyj3nvfRlhg/0la+Gb69qEI3+GXN4wAeWcEpT
12776eic0iD1Brf2F4wvhMxNSf3stYvi5y/bLfaH8fHhbh1CLZNR8mgeTDapN7Y9X
12777l2tRB/rvbKeUDVT6F3M1d7UoW3NMjObZgJQ7mUvmtGjAaeMGRYYfFGcP+B10
127781aGhTnTCMOwHvzp9kzybqEOFo/FJrHAOGJ+dOZJ+RoeUaXXyOCUHOBXzrSNd
12779OnQxnbYj3QtgH0fcF2HUIe8/q+XiCwC3Z27N3vXWo4Tf+Unetv6wcH4lY+02
12780PfJ08z6xcNof1scWspvr9egs4b+hmR4Au+njEuZTPfqZlyv2PRwAV5UBJZX0
12781RZRh2Td7Qx8A6uzGiwb/RSRpbj1s4ceFr50pj3J2LyKx3th1PZ8LO4bT1W/k
12782i+ifx/8TOXiDC+0VquXiF4voftzWJSnzXHjPcfXtWW5A3in7zTPWBYKruiIR
12783Igxod5MTd+z7QPiuaar4yiEDKnWUXO++FggXYnktztcNKG10zRb3j4Hwhn65
12784p/q9Aa3oPb3JtC4IVt21nKE7GlG9pqIoLC8IknN2LTuwyYhmkxmTtFtBUO/8
12785lKWuNCIGlXWMpQuC58PrE9J+MyKL11NZYxwEKytriobnjWhEt65y4RCCONA2
12786h3uYUHa09VvpfQQ16s3dymQTGntesq/cHMOzJuWHr6tNiNFSwTNFYlgudrBu
127876jUh+zbnxPenMLjRuLZHCQIvTgrk4cMYusZzLmFbArenLv/G3i4YttxqDDCu
12788J7AHM3MhPTUYzGVDgzf5BM4zi9U6yoOhJZOSnptJ4CqvZyyBOhiCg9d9ci8l
12789cGXV5NV5Vgi8dcgof3uOwFHrT223KAqBEk3Vyvo7BH619JHkp64QcBpSKcTD
12790BMYudSfrrEKhs33B32qWwPl7CINVfCikSF0He5aQcCGhbdE3hwKRFJd25B8k
12791LFZJj8fNhEKDT+U8BJKwSdVyxYMdBv7Wd8oW4kl4LznBcpc0DMampr7syCPh
12792h/kXFJ6DYXDgoZ1i+2kS/tOtRBpvHw52DTz/1QoS7raZ/9G4LRzu5B8cGFOR
12793cDlHP21zMxw2Cy+n1rwiYWZ91f5GagRoPV5+5C+ScB77QUijMAJqaVZlnzPJ
12794WG5VFm3TGAE+LwK/fLCWjM87j8sMMxEwcmtX+4EoMs7P6V62OSAS8mRNwNpC
12795xraasEH3k5Fgk/W0X11MxlX/TujNfhEJvwTTUtvqyHj0JpXs5hUFoq82fEy7
12796ScYfZrh7YoujYE7zXan9EBn3p1q5aIaiQDZUs2JkmoxLLfOsLFx4sFbR1XbK
12797nIKXaneya/fyYECq5UQ4UfBWu8WG6h4eZCe591OAgqv32QfRHaLBwjc+5a6Y
12798gv+17ImjOjcafrY+Npe3i4ITJ+w4kapo4E0rpV7HKdgwrzuz0jYGph9+YL6/
12799SMHbA3a4SnJi4GiDQ1tTJwXL73+vtVHFgHtBDCdx7O8/sIyyyoIP3cKixwwN
12800BfPv1bvm+vJhq2dH8oA1Fbd9S2Tp0/nwmdnrvyrWUPEWS0Xfr6f4cPGFtRSF
12801UbHsXSPvnpIPIbcR05BKxS6jr6Y+TfLhnWy3/MYBKl41mdm6zUYAR7Iu+OXU
12802UnGpDbeEESQA55DhPrdrVLwxWVJo2CmA+1+ZJ7/po2Jpl+qMQ50AUrWsv+om
12803qdgpuqC7oFsApCdbj8RSaNh9do/90gUBnFP8wLB0oOEfO5Qnx1cLIaC0p7Xb
12804h4ZzTvIcJ4VCGE/Ss0tENHyl0rXfo1gIB309+zg7aXhTE69OflkI9ssSkz6V
1280503DaH8qylHEhKKePz15uouExz7zToi9EEK+6V7LtHg3/drbg9iGOCHQNMzbO
12806f9Dw556/m95liuCHAsfW53M0fHtEkl76kwh8RQJ2tYUZfnKOO5HcK4JRz8OP
12807YtzMsLgsq3yPXgR7za5J6NgMBx59HfrAYyMwXr5Rd0rMcK3ivAsvYSP8Dwbe
12808z2s=
12809 "]]},
12810 {RGBColor[0.772079, 0.431554, 0.102387], PointSize[0.002777777777777778],
12811 AbsoluteThickness[1.6], LineBox[CompressedData["
128121:eJwVy3dYE3YawPHssEIgRZAKOZV4ggphgwkvkPxeIEEqPghXihYEAsqQqIUi
12813gRPHKSrrPKyleqYigUqHoGUZQAniSYReHFSwVMEzHW58ZBnWtX98n89f3xUp
12814ypg0GoVCSfujP33OXNaknn5HQt51ygsvesA+x5Atei8TeR4WtOlYoBBs3FNZ
12815E1kmMqljBfVfF8L50JJL/HoTueBfcWS5qyf4xX6zVT5mIhTN1eTJHE+4ud3A
12816zn1/lpg3nBQqWj0hofDtZXXsLGkLsxnPXvCEFxUOifqKWWKv8qrlRnjBvvNi
1281784m+WbIifEYW9U8vsG1NaubT58hgg+Lxyp+8oFZ/KEkOcySo7tPsKoE3+D/8
12818yiI3f45EBno8O6v0hr7x/hb1pTlCSy1NkHZ4QwJjfJv++RzJWlXRtZ/tAy8d
128197KwmVs2TomL/9z6K9YHitYFt/G3zJGj3P7b01/iAbcjWFPnpeXLBlH9q6LUP
12820aGL2c3IH54l2mW3v34N9wT9d0662XiD7BqONXeW+oC/oS9XLFsgzge/05w99
12821YUv5C+uJgwuExbk6Z+nhBy/P2Wj5XQvkdtnLCcdiP9jf7Jsmn14gwZqeUd1t
12822P+D1xdvkei2SpM3QRXfxB81IUYc6a5G4nv64fDTPHwJen0vX1y2Smr0um+L0
12823/qCn3bCdGF0kva8qmGnOAeBRmpvI5VCwbO7L76z3BMD0SVazYA0FWef/Jou5
12824GQDd6mpzUQQFhaOXfxQ6B8KxC2uSohUUZDQ3x331SSBsvtzZrDhAwcLlW/va
12825bwWCU+dGC5WagvWCBnfFyvXwy42xpMoOCh7sPnO4QbUeLhr2tGiGKUib8Ll9
128269N56yH/AsNROUtD32m4OzV0Ekienthl4VGSvjIMlJSKweOnaahRSsdLpUVLP
12827YxHcm9JamqKo2H3RKs8cxPBvygfJ3Ewq1gyPFT2rFkOaxWiroISKbqcT8tMm
12828xeBht9tKpKGi4m2BQhUTBDPO9JRoHRUlxmB0awoC3erP2hSPqHg3u8F+jzXA
12829ca/VHNUsFa3Lr4zE7gTYLL6SUrmUhm9QWXVnAMApbEO7xo+Gx0/egt/XBcOv
12830Gx9ytDE07Czs/6m6PBga45WpBiUNG027M5+8Coa9KdQrxjIaSmyvvri5KQQk
128312VXWpoY//muNyeHfh4DFp6sU3Js07DhYqxBahsJgcdsVgZGGh9/oTphBKJw9
12832JueKqHR0W+fT7qEMhfSqEUU0n44a7+mhmppQEJ7dqVWI6TjBsH6TPBgKM/WL
12833XFU8HR1r8+lKtgR0TSfSKvPoaM/x5epFEijVunRo/kVHo5TY7cqRQGxvi422
12834kY6lWMdTnJeA838j0g0DdDTnJVjU3ZfAr0MPOoxP6Zj4TfKst6UUGh9n2ZpY
12835DDxi0/kLJ1QKBc/n07kCBh6SZOj98qQgnazsFEgYGB+cUf/111KwXFzBEyUy
12836kMHuLMoek8KgWfP26EIGlpxJjiq0J3CWF96lqGbg2OxHS4aiCGx3GuapWhjI
12837dq0bKj5EwPOvmTsq7zLQajmpytMSeCec69K8ZuBvT3xk7W8I9KyveE9rxcRT
12838n+RPRbghlJLlGQY3Ji4zcNSCZIS4Dy5fNYYzMXdqKnjjFwj8D9HOlMrE+qfe
12839D3rvIPy27X4G9wATmy7oso9ahEFT5o5rAjUTy3xq31WTMCjINdmJOphIjg8V
12840TxWFgXRfWWb0MBN/+DZx8VxrGFgd5XcrJpm49kzg3urxMPjxRNMSFY+FCXFp
12841z35eEw7qM9KsSiELM0aMcTlp4bC9brBbE8VCmXubNupcOHg2pttrM1hI3fDz
128420r0j4WBqn8kyHGFhqW/srnH7CLjec1xnrGXh+FO+riUmAsoGnBxM3SxclxVk
128432VcRAXH3L2ZzH7FQ3P7txtX9EcAfC+0RzLLQ5Y6y9B5bBr8/vesgWsrGkZbD
12844ugGUwaW3ip3Rfmzckf5qnHdQBqr5qR5FDBsH/9fgWH9NBoR9bKlKyUa7te3i
12845I/MysLJdllNZxkaXEMcPvxfL4f77313XNLCR85cfstxVcvhSEOKo/Q8b9bfu
12846FUy0y2GHx50cwxM2fix1P2A2IwevwNReI8UMBw4/OJAREAkmyaSjydkMuZ8N
12847FzrkR8L1DSVKrtgMXXetUfLaIqE8zvGGIN4MbRwMWxKmI+H/9Duz6w==
12848 "]]}}, {}},
12849 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
12850 Axes->{True, True},
12851 AxesLabel->{
12852 FormBox["\"r\"", TraditionalForm],
12853 FormBox[
12854 "\"\\!\\(\\*SubscriptBox[\\(P\\), \\(ram\\)]\\)\"", TraditionalForm]},
12855 AxesOrigin->{2.810738779416862*^18, 0},
12856 DisplayFunction->Identity,
12857 Epilog->{
12858 Directive[{
12859 Thickness[Large],
12860 RGBColor[1, 0, 0]}],
12861 LineBox[
12862 NCache[{{10000000000000000000, 1.3999999999999999`*^-12}, {1.2*^20,
12863 1.3999999999999999`*^-12}}, {{1.*^19, 1.3999999999999999`*^-12}, {
12864 1.2*^20, 1.3999999999999999`*^-12}}]]},
12865 Frame->{{False, False}, {False, False}},
12866 FrameLabel->{{None, None}, {None, None}},
12867 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
12868 GridLines->{None, None},
12869 GridLinesStyle->Directive[
12870 GrayLevel[0.5, 0.4]],
12871 ImageSize->{655., Automatic},
12872 Method->{},
12873 PlotRange->{{4.544419721271987*^18, 1.155*^20}, {-1.8787108583478182`*^-30,
12874 6.503739837285121*^-10}},
12875 PlotRangeClipping->True,
12876 PlotRangePadding->{{
12877 Scaled[0.02],
12878 Scaled[0.02]}, {
12879 Scaled[0.05],
12880 Scaled[0.05]}},
12881 Ticks->{Automatic, Automatic}]], "Output",
12882 CellChangeTimes->{
12883 3.644784951683*^9, 3.6447850645559998`*^9, 3.644785205546*^9,
12884 3.644785255396*^9, {3.644785316927*^9, 3.644785324785*^9},
12885 3.644785369841*^9, 3.6447854012869997`*^9, 3.644785433016*^9, {
12886 3.6447854773120003`*^9, 3.644785503994*^9}, {3.644785538104*^9,
12887 3.644785562722*^9}, {3.644785643862*^9, 3.644785665616*^9}, {
12888 3.644785745657*^9, 3.644785770113*^9}, 3.6447860619309998`*^9,
12889 3.644786092884*^9, 3.644786164668*^9, {3.644786200894*^9,
12890 3.64478623809*^9}, {3.644786283325*^9, 3.6447863318859997`*^9},
12891 3.6447864003129997`*^9, 3.644786532506*^9}]
12892}, Open ]],
12893
12894Cell[BoxData[
12895 RowBox[{"PlotRange", "\[Rule]", " ",
12896 RowBox[{"{",
12897 RowBox[{
12898 RowBox[{"{",
12899 RowBox[{
12900 RowBox[{"5", "*",
12901 SuperscriptBox["10", "19"]}], ",", " ",
12902 RowBox[{"1", "*",
12903 SuperscriptBox["10", "20"]}]}], "}"}],
12904 RowBox[{"{",
12905 RowBox[{
12906 RowBox[{"1", "*",
12907 SuperscriptBox["10",
12908 RowBox[{"-", "37"}]]}], ",",
12909 RowBox[{"1", "*",
12910 SuperscriptBox["10",
12911 RowBox[{"-", "34"}]]}]}], "}"}]}], "}"}]}]], "Input"],
12912
12913Cell[CellGroupData[{
12914
12915Cell[BoxData[
12916 RowBox[{"?", "PlotRange"}]], "Input",
12917 CellChangeTimes->{{3.644770527098*^9, 3.6447705300360003`*^9}}],
12918
12919Cell[BoxData[
12920 RowBox[{
12921 StyleBox["\<\"PlotRange is an option for graphics functions that specifies \
12922what range of coordinates to include in a plot. \"\>", "MSG"],
12923 "\[NonBreakingSpace]",
12924 ButtonBox[
12925 StyleBox["\[RightSkeleton]", "SR"],
12926 Active->True,
12927 BaseStyle->"Link",
12928 ButtonData->"paclet:ref/PlotRange"]}]], "Print", "PrintUsage",
12929 CellChangeTimes->{3.644770530473*^9},
12930 CellTags->"Info3644756130-5112488"]
12931}, Open ]],
12932
12933Cell["Now calculating the post shock conditions:", "Text",
12934 CellChangeTimes->{{3.644689023415*^9, 3.644689034899*^9}}],
12935
12936Cell[CellGroupData[{
12937
12938Cell[BoxData[
12939 RowBox[{"M0", " ", "=", "1.5"}]], "Input",
12940 CellChangeTimes->{{3.644689174668*^9, 3.644689180002*^9}, {
12941 3.6446892207530003`*^9, 3.6446892831280003`*^9}, {3.644689414222*^9,
12942 3.644689426212*^9}, {3.644689521635*^9, 3.6446895618*^9}, {
12943 3.644689668742*^9, 3.644689780764*^9}, {3.644692444599*^9,
12944 3.644692446758*^9}, {3.64469252073*^9, 3.644692521792*^9},
12945 3.644692563227*^9, 3.644750775672*^9, {3.6447512711289997`*^9,
12946 3.644751295501*^9}, {3.644751327519*^9, 3.644751331152*^9}, {
12947 3.644752095685*^9, 3.644752098269*^9}, {3.644752765815*^9,
12948 3.6447528256219997`*^9}, {3.644752861764*^9, 3.644752952197*^9},
12949 3.644753281284*^9, {3.64475331241*^9, 3.6447533410880003`*^9}, {
12950 3.644753609024*^9, 3.644753692974*^9}, {3.644753733524*^9,
12951 3.644753816679*^9}, 3.644754170852*^9, 3.644754205571*^9, {
12952 3.64475434669*^9, 3.644754366488*^9}, {3.644754397835*^9,
12953 3.644754404227*^9}, {3.644755499117*^9, 3.6447554996280003`*^9}, {
12954 3.644766631849*^9, 3.644766677211*^9}, {3.6447667420950003`*^9,
12955 3.6447668476*^9}, {3.644766979027*^9, 3.644766997447*^9}, {
12956 3.644767156632*^9, 3.644767169737*^9}, {3.644767330724*^9,
12957 3.64476733206*^9}}],
12958
12959Cell[BoxData["1.5`"], "Output",
12960 CellChangeTimes->{
12961 3.6447543329119997`*^9, {3.644754379227*^9, 3.644754404763*^9},
12962 3.644755500358*^9, 3.644766848582*^9, {3.644766989041*^9,
12963 3.6447669983780003`*^9}, {3.644767160682*^9, 3.644767174719*^9},
12964 3.644767332459*^9}]
12965}, Open ]],
12966
12967Cell[CellGroupData[{
12968
12969Cell[BoxData[
12970 RowBox[{"\[Rho]preshockphys", " ", "=", "\[Rho]0phys"}]], "Input",
12971 CellChangeTimes->{{3.644767338245*^9, 3.644767339171*^9}}],
12972
12973Cell[BoxData["1.67`*^-24"], "Output",
12974 CellChangeTimes->{3.644767339642*^9}]
12975}, Open ]],
12976
12977Cell[CellGroupData[{
12978
12979Cell[BoxData[
12980 RowBox[{"\[Rho]postshockphys", " ", "=",
12981 RowBox[{
12982 FractionBox[
12983 RowBox[{
12984 RowBox[{"(",
12985 RowBox[{"gamma", "+", "1"}], ")"}], "*",
12986 SuperscriptBox["M0", "2"]}],
12987 RowBox[{
12988 RowBox[{
12989 RowBox[{"(",
12990 RowBox[{"gamma", "-", "1"}], ")"}], "*",
12991 SuperscriptBox["M0", "2"]}], "+", "2"}]], "*",
12992 "\[Rho]preshockphys"}]}]], "Input",
12993 CellChangeTimes->{{3.6447673446289997`*^9, 3.644767345461*^9}}],
12994
12995Cell[BoxData["2.8628571428571426`*^-24"], "Output",
12996 CellChangeTimes->{3.644767345849*^9}]
12997}, Open ]],
12998
12999Cell[CellGroupData[{
13000
13001Cell[BoxData[
13002 RowBox[{"gamma", " ", "=", " ",
13003 RowBox[{"5", "/", "3"}]}]], "Input",
13004 CellChangeTimes->{{3.644767350075*^9, 3.644767350803*^9}}],
13005
13006Cell[BoxData[
13007 FractionBox["5", "3"]], "Output",
13008 CellChangeTimes->{3.644767351329*^9}]
13009}, Open ]],
13010
13011Cell[CellGroupData[{
13012
13013Cell[BoxData[
13014 RowBox[{"Kb", " ", "=", " ",
13015 RowBox[{"1.38", "*",
13016 SuperscriptBox["10",
13017 RowBox[{"-", "16"}]]}]}]], "Input",
13018 CellChangeTimes->{{3.644767355748*^9, 3.6447673569309998`*^9}}],
13019
13020Cell[BoxData["1.3799999999999997`*^-16"], "Output",
13021 CellChangeTimes->{3.6447673573059998`*^9}]
13022}, Open ]],
13023
13024Cell[CellGroupData[{
13025
13026Cell[BoxData[
13027 RowBox[{"Tpreshockphys", " ", "=", " ", "4931"}]], "Input",
13028 CellChangeTimes->{{3.644767363203*^9, 3.644767364074*^9}}],
13029
13030Cell[BoxData["4931"], "Output",
13031 CellChangeTimes->{3.6447673644230003`*^9}]
13032}, Open ]],
13033
13034Cell[CellGroupData[{
13035
13036Cell[BoxData[
13037 RowBox[{"Tpostshockphys", " ", "=", " ",
13038 RowBox[{
13039 FractionBox[
13040 RowBox[{
13041 RowBox[{"(",
13042 RowBox[{
13043 RowBox[{"2", "*", "gamma", "*",
13044 SuperscriptBox["M0", "2"]}], "-",
13045 RowBox[{"(",
13046 RowBox[{"gamma", "-", "1"}], ")"}]}], ")"}],
13047 RowBox[{"(",
13048 RowBox[{
13049 RowBox[{
13050 RowBox[{"(",
13051 RowBox[{"gamma", "-", "1"}], ")"}],
13052 SuperscriptBox["M0", "2"]}], "+", "2"}], ")"}]}],
13053 RowBox[{
13054 SuperscriptBox[
13055 RowBox[{"(",
13056 RowBox[{"gamma", "+", "1"}], ")"}], "2"],
13057 SuperscriptBox["M0", "2"]}]], "*", "Tpreshockphys"}]}]], "Input",
13058 CellChangeTimes->{{3.644767368237*^9, 3.644767369118*^9}}],
13059
13060Cell[BoxData["7370.817708333333`"], "Output",
13061 CellChangeTimes->{3.6447673695220003`*^9}]
13062}, Open ]],
13063
13064Cell[CellGroupData[{
13065
13066Cell[BoxData[
13067 RowBox[{"mh", " ", "=", " ",
13068 RowBox[{"1.67", "*",
13069 SuperscriptBox["10",
13070 RowBox[{"-", "24"}]]}]}]], "Input",
13071 CellChangeTimes->{{3.644767373716*^9, 3.644767374314*^9}}],
13072
13073Cell[BoxData["1.67`*^-24"], "Output",
13074 CellChangeTimes->{3.64476737476*^9}]
13075}, Open ]],
13076
13077Cell[CellGroupData[{
13078
13079Cell[BoxData[
13080 RowBox[{"M2", " ", "=", " ",
13081 SqrtBox[
13082 FractionBox[
13083 RowBox[{
13084 RowBox[{
13085 RowBox[{"(",
13086 RowBox[{"gamma", "-", "1"}], ")"}], "*",
13087 SuperscriptBox["M0", "2"]}], "+", "2"}],
13088 RowBox[{
13089 RowBox[{"2", "*", "gamma", "*",
13090 SuperscriptBox["M0", "2"]}], "-",
13091 RowBox[{"(",
13092 RowBox[{"gamma", "-", "1"}], ")"}]}]]]}]], "Input",
13093 CellChangeTimes->{{3.644767378109*^9, 3.644767378527*^9}}],
13094
13095Cell[BoxData["0.7156780854205468`"], "Output",
13096 CellChangeTimes->{3.644767379142*^9}]
13097}, Open ]],
13098
13099Cell[CellGroupData[{
13100
13101Cell[BoxData[
13102 RowBox[{"SoundSpeedpostshockphys", " ", "=", " ",
13103 SqrtBox[
13104 FractionBox[
13105 RowBox[{"gamma", "*", "Kb", "*", "Tpostshockphys"}], "mh"]]}]], "Input",
13106 CellChangeTimes->{{3.644767384597*^9, 3.644767384901*^9}}],
13107
13108Cell[BoxData["1.0075428321578861`*^6"], "Output",
13109 CellChangeTimes->{3.644767385566*^9}]
13110}, Open ]],
13111
13112Cell[CellGroupData[{
13113
13114Cell[BoxData[
13115 RowBox[{"vpostshockphys", " ", "=", " ",
13116 RowBox[{"SoundSpeedpostshockphys", "*", "M2"}]}]], "Input",
13117 CellChangeTimes->{{3.644767389626*^9, 3.644767389858*^9}}],
13118
13119Cell[BoxData["721076.3250979512`"], "Output",
13120 CellChangeTimes->{3.644767390424*^9}]
13121}, Open ]],
13122
13123Cell[CellGroupData[{
13124
13125Cell[BoxData[
13126 RowBox[{"Prampostshockphys", " ", "=", " ",
13127 RowBox[{"\[Rho]postshockphys", "*",
13128 SuperscriptBox[
13129 RowBox[{"(", "vpostshockphys", ")"}], "2"]}]}]], "Input"],
13130
13131Cell[BoxData["1.4885456249999992`*^-12"], "Output",
13132 CellChangeTimes->{3.64476739281*^9}]
13133}, Open ]],
13134
13135Cell[CellGroupData[{
13136
13137Cell[BoxData[
13138 RowBox[{"Prampostshockphys2", " ", "=", " ",
13139 RowBox[{"\[Rho]postshockphys", "*",
13140 SuperscriptBox[
13141 RowBox[{"(", "vpostshockcheck", ")"}], "2"]}]}]], "Input",
13142 CellChangeTimes->{{3.644770381168*^9, 3.644770394383*^9}}],
13143
13144Cell[BoxData["1.1796715403733567`*^-12"], "Output",
13145 CellChangeTimes->{3.644770394863*^9}]
13146}, Open ]],
13147
13148Cell[CellGroupData[{
13149
13150Cell[BoxData[
13151 RowBox[{"SoundSpeedpreshockphys", " ", "=", " ",
13152 RowBox[{
13153 RowBox[{"(", "90.66", ")"}], "*", "8091"}]}]], "Input",
13154 CellChangeTimes->{{3.644750984133*^9, 3.644751064359*^9}, {
13155 3.6447511202390003`*^9, 3.6447511452460003`*^9}, {3.644751218005*^9,
13156 3.6447512189*^9}, {3.644751486749*^9, 3.6447515017320004`*^9}, {
13157 3.644751694377*^9, 3.6447517062799997`*^9}, {3.6447521988120003`*^9,
13158 3.6447522171549997`*^9}, {3.64475564554*^9, 3.644755698708*^9}, {
13159 3.6447558610290003`*^9, 3.644755866*^9}, {3.644766927962*^9,
13160 3.644766960519*^9}, {3.6447670117860003`*^9, 3.644767024461*^9}, {
13161 3.644767590979*^9, 3.6447676169*^9}, {3.644767842626*^9, 3.644767843158*^9}}
13162 ],
13163
13164Cell[BoxData["733530.0599999999`"], "Output",
13165 CellChangeTimes->{{3.6447511243269997`*^9, 3.644751145781*^9},
13166 3.644751219348*^9, {3.644751488211*^9, 3.644751504007*^9},
13167 3.644751706791*^9, {3.644752199385*^9, 3.644752217434*^9},
13168 3.644753405031*^9, 3.644754484651*^9, 3.644755655994*^9, 3.644755699648*^9,
13169 3.644755866484*^9, {3.64476694315*^9, 3.644766961124*^9},
13170 3.644767025151*^9, 3.6447676177139997`*^9, 3.644767843693*^9}]
13171}, Open ]],
13172
13173Cell[CellGroupData[{
13174
13175Cell[BoxData[
13176 RowBox[{"vpreshockphys", "=",
13177 RowBox[{"136", "*", "8091"}]}]], "Input",
13178 CellChangeTimes->{{3.644767848606*^9, 3.644767849318*^9}}],
13179
13180Cell[BoxData["1100376"], "Output",
13181 CellChangeTimes->{3.644767849742*^9}]
13182}, Open ]],
13183
13184Cell[CellGroupData[{
13185
13186Cell[BoxData[
13187 RowBox[{"vpostshockcheck", " ", "=", " ",
13188 RowBox[{"(",
13189 RowBox[{"vpreshockphys", "-",
13190 RowBox[{
13191 RowBox[{"(",
13192 FractionBox["2",
13193 RowBox[{"gamma", "+", "1"}]], ")"}], "*",
13194 RowBox[{"(",
13195 FractionBox[
13196 RowBox[{
13197 SuperscriptBox["M0", "2"], "-", "1"}], "M0"], ")"}], "*",
13198 "SoundSpeedpreshockphys"}]}], ")"}]}]], "Input"],
13199
13200Cell[BoxData["641919.7125`"], "Output",
13201 CellChangeTimes->{3.644767851639*^9}]
13202}, Open ]],
13203
13204Cell[CellGroupData[{
13205
13206Cell[BoxData["\[Rho]preshockphys"], "Input",
13207 CellChangeTimes->{{3.644767042468*^9, 3.644767048362*^9}}],
13208
13209Cell[BoxData["1.67`*^-24"], "Output",
13210 CellChangeTimes->{3.644767048954*^9}]
13211}, Open ]],
13212
13213Cell[CellGroupData[{
13214
13215Cell[BoxData["\[Rho]postshockphys"], "Input",
13216 CellChangeTimes->{{3.644767057803*^9, 3.644767061826*^9}}],
13217
13218Cell[BoxData["2.8628571428571426`*^-24"], "Output",
13219 CellChangeTimes->{3.6447670623599997`*^9}]
13220}, Open ]]
13221}, Open ]]
13222},
13223WindowSize->{1578, 777},
13224WindowMargins->{{Automatic, 0}, {Automatic, 12}},
13225PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
13226ShowSelection->True,
13227FrontEndVersion->"10.1 for Microsoft Windows (64-bit) (March 23, 2015)",
13228StyleDefinitions->"Default.nb"
13229]
13230(* End of Notebook Content *)
13231
13232(* Internal cache information *)
13233(*CellTagsOutline
13234CellTagsIndex->{
13235 "Info3644738987-5112488"->{
13236 Cell[9387, 238, 475, 12, 42, "Print",
13237 CellTags->"Info3644738987-5112488"]},
13238 "Info3644756130-5112488"->{
13239 Cell[662399, 12918, 425, 11, 42, "Print",
13240 CellTags->"Info3644756130-5112488"]}
13241 }
13242*)
13243(*CellTagsIndex
13244CellTagsIndex->{
13245 {"Info3644738987-5112488", 672018, 13234},
13246 {"Info3644756130-5112488", 672128, 13237}
13247 }
13248*)
13249(*NotebookFileOutline
13250Notebook[{
13251Cell[557, 20, 179, 2, 30, "Text"],
13252Cell[739, 24, 4288, 104, 462, "Text"],
13253Cell[CellGroupData[{
13254Cell[5052, 132, 606, 10, 31, "Input",
13255 CellGroupingRules->{GroupTogetherGrouping, 10001.}],
13256Cell[5661, 144, 703, 16, 82, "Input",
13257 CellGroupingRules->{GroupTogetherGrouping, 10001.}],
13258Cell[6367, 162, 592, 10, 31, "Input",
13259 CellGroupingRules->{GroupTogetherGrouping, 10001.}],
13260Cell[6962, 174, 457, 11, 56, "Input",
13261 CellGroupingRules->{GroupTogetherGrouping, 10001.}],
13262Cell[7422, 187, 440, 9, 52, "Input",
13263 CellGroupingRules->{GroupTogetherGrouping, 10001.}],
13264Cell[7865, 198, 554, 9, 30, "Text",
13265 CellGroupingRules->{GroupTogetherGrouping, 10001.}],
13266Cell[8422, 209, 621, 14, 46, "Input",
13267 CellGroupingRules->{GroupTogetherGrouping, 10001.}]
13268}, Open ]],
13269Cell[9058, 226, 185, 4, 31, "Output"],
13270Cell[CellGroupData[{
13271Cell[9268, 234, 116, 2, 31, "Input"],
13272Cell[9387, 238, 475, 12, 42, "Print",
13273 CellTags->"Info3644738987-5112488"]
13274}, Open ]],
13275Cell[CellGroupData[{
13276Cell[9899, 255, 147, 2, 31, "Input"],
13277Cell[10049, 259, 388, 9, 21, "Message"]
13278}, Open ]],
13279Cell[10452, 271, 5241, 131, 246, "Input",
13280 CellGroupingRules->{GroupTogetherGrouping, 10001.}],
13281Cell[15696, 404, 13567, 237, 343, "Output"],
13282Cell[29266, 643, 351, 6, 30, "Text"],
13283Cell[29620, 651, 3216, 82, 109, "Input",
13284 CellGroupingRules->{GroupTogetherGrouping, 10001.}],
13285Cell[32839, 735, 9184, 164, 245, "Output"],
13286Cell[CellGroupData[{
13287Cell[42048, 903, 912, 25, 48, "Input"],
13288Cell[42963, 930, 106, 1, 31, "Output"]
13289}, Open ]],
13290Cell[CellGroupData[{
13291Cell[43106, 936, 86, 1, 31, "Input"],
13292Cell[43195, 939, 179, 3, 31, "Output"]
13293}, Open ]],
13294Cell[CellGroupData[{
13295Cell[43411, 947, 438, 11, 92, "Input"],
13296Cell[43852, 960, 4618, 64, 212, "Output"]
13297}, Open ]],
13298Cell[48485, 1027, 272, 8, 31, "Input"],
13299Cell[48760, 1037, 9712, 254, 471, "Input",
13300 CellGroupingRules->{GroupTogetherGrouping, 10001.}],
13301Cell[58475, 1293, 10837, 198, 172, "Output"],
13302Cell[69315, 1493, 13471, 236, 210, "Output"],
13303Cell[82789, 1731, 147, 2, 31, "Input"],
13304Cell[82939, 1735, 2967, 79, 149, "Input",
13305 CellGroupingRules->{GroupTogetherGrouping, 10001.}],
13306Cell[85909, 1816, 9313, 167, 325, "Output"],
13307Cell[95225, 1985, 386, 7, 30, "Text",
13308 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
13309Cell[95614, 1994, 1340, 28, 31, "Input",
13310 CellGroupingRules->{GroupTogetherGrouping, 10001.}],
13311Cell[96957, 2024, 16788, 289, 373, "Output"],
13312Cell[113748, 2315, 218, 7, 87, "Text"],
13313Cell[113969, 2324, 140, 1, 30, "Text"],
13314Cell[114112, 2327, 276, 8, 31, "Input"],
13315Cell[114391, 2337, 231, 6, 31, "Input"],
13316Cell[114625, 2345, 245, 5, 31, "Input"],
13317Cell[114873, 2352, 145, 3, 31, "Input"],
13318Cell[115021, 2357, 110, 2, 31, "Input"],
13319Cell[115134, 2361, 191, 5, 31, "Input"],
13320Cell[115328, 2368, 290, 7, 31, "Input"],
13321Cell[115621, 2377, 277, 8, 31, "Input"],
13322Cell[115901, 2387, 297, 7, 31, "Input"],
13323Cell[CellGroupData[{
13324Cell[116223, 2398, 271, 6, 31, "Input"],
13325Cell[116497, 2406, 5402, 100, 229, "Output"]
13326}, Open ]],
13327Cell[121914, 2509, 442, 7, 30, "Text"],
13328Cell[CellGroupData[{
13329Cell[122381, 2520, 687, 14, 31, "Input"],
13330Cell[123071, 2536, 5646, 104, 468, "Output"]
13331}, Open ]],
13332Cell[CellGroupData[{
13333Cell[128754, 2645, 483, 12, 31, "Input"],
13334Cell[129240, 2659, 6108, 112, 445, "Output"]
13335}, Open ]],
13336Cell[135363, 2774, 110, 2, 31, "Input"],
13337Cell[135476, 2778, 94, 1, 31, "Input"],
13338Cell[135573, 2781, 362, 7, 30, "Text"],
13339Cell[135938, 2790, 3628, 89, 232, "Input"],
13340Cell[139569, 2881, 1332, 35, 71, "Input"],
13341Cell[140904, 2918, 296, 6, 31, "Input"],
13342Cell[141203, 2926, 254, 7, 31, "Input"],
13343Cell[CellGroupData[{
13344Cell[141482, 2937, 1898, 46, 31, "Input"],
13345Cell[143383, 2985, 6883, 128, 525, "Output"]
13346}, Open ]],
13347Cell[CellGroupData[{
13348Cell[150303, 3118, 722, 21, 31, "Input"],
13349Cell[151028, 3141, 510, 11, 21, "Message"],
13350Cell[151541, 3154, 515, 11, 21, "Message"],
13351Cell[152059, 3167, 868, 25, 254, "Output"]
13352}, Open ]],
13353Cell[152942, 3195, 817, 17, 72, "Input"],
13354Cell[CellGroupData[{
13355Cell[153784, 3216, 553, 17, 31, "Input"],
13356Cell[154340, 3235, 2606, 54, 256, "Output"]
13357}, Open ]],
13358Cell[156961, 3292, 389, 10, 31, "Input"],
13359Cell[CellGroupData[{
13360Cell[157375, 3306, 574, 15, 31, "Input"],
13361Cell[157952, 3323, 510, 11, 21, "Message"],
13362Cell[158465, 3336, 1343, 24, 56, "Message"],
13363Cell[159811, 3362, 1348, 24, 56, "Message"],
13364Cell[161162, 3388, 1348, 24, 56, "Message"],
13365Cell[162513, 3414, 3709, 66, 152, "Output"]
13366}, Open ]],
13367Cell[166237, 3483, 460, 10, 31, "Input"],
13368Cell[166700, 3495, 1503, 38, 48, "Input"],
13369Cell[168206, 3535, 614, 13, 31, "Input"],
13370Cell[168823, 3550, 2337, 63, 86, "Input"],
13371Cell[171163, 3615, 285, 5, 30, "Text"],
13372Cell[CellGroupData[{
13373Cell[171473, 3624, 321, 9, 31, "Input"],
13374Cell[171797, 3635, 1461, 26, 56, "Message"],
13375Cell[173261, 3663, 10154, 212, 252, "Output"]
13376}, Open ]],
13377Cell[183430, 3878, 602, 12, 52, "Input"],
13378Cell[CellGroupData[{
13379Cell[184057, 3894, 3020, 76, 144, "Input"],
13380Cell[187080, 3972, 29681, 523, 252, "Output"]
13381}, Open ]],
13382Cell[216776, 4498, 317, 7, 31, "Input"],
13383Cell[217096, 4507, 1365, 37, 48, "Input"],
13384Cell[CellGroupData[{
13385Cell[218486, 4548, 94, 1, 31, "Input"],
13386Cell[218583, 4551, 95, 1, 31, "Output"]
13387}, Open ]],
13388Cell[218693, 4555, 441, 10, 52, "Input"],
13389Cell[CellGroupData[{
13390Cell[219159, 4569, 4137, 105, 212, "Input"],
13391Cell[223299, 4676, 44383, 763, 437, "Output"]
13392}, Open ]],
13393Cell[CellGroupData[{
13394Cell[267719, 5444, 94, 1, 31, "Input"],
13395Cell[267816, 5447, 110, 1, 31, "Output"]
13396}, Open ]],
13397Cell[267941, 5451, 170, 2, 72, "Chapter"],
13398Cell[CellGroupData[{
13399Cell[268136, 5457, 254, 4, 41, "Chapter"],
13400Cell[268393, 5463, 692, 14, 31, "Input"],
13401Cell[269088, 5479, 819, 18, 220, "Text"],
13402Cell[269910, 5499, 1147, 27, 242, "Input"],
13403Cell[CellGroupData[{
13404Cell[271082, 5530, 5268, 131, 212, "Input"],
13405Cell[276353, 5663, 23042, 416, 243, "Output"]
13406}, Open ]],
13407Cell[CellGroupData[{
13408Cell[299432, 6084, 4543, 120, 212, "Input"],
13409Cell[303978, 6206, 22792, 412, 243, "Output"]
13410}, Open ]],
13411Cell[326785, 6621, 118, 1, 30, "Text"],
13412Cell[CellGroupData[{
13413Cell[326928, 6626, 3627, 99, 418, "Input"],
13414Cell[330558, 6727, 156, 3, 31, "Output"],
13415Cell[330717, 6732, 155, 3, 31, "Output"],
13416Cell[330875, 6737, 156, 3, 31, "Output"]
13417}, Open ]],
13418Cell[CellGroupData[{
13419Cell[331068, 6745, 925, 22, 94, "Input"],
13420Cell[331996, 6769, 329, 5, 31, "Output"]
13421}, Open ]],
13422Cell[332340, 6777, 626, 15, 31, "Input"],
13423Cell[CellGroupData[{
13424Cell[332991, 6796, 161, 3, 31, "Input"],
13425Cell[333155, 6801, 84, 1, 31, "Output"]
13426}, Open ]],
13427Cell[333254, 6805, 223, 4, 31, "Input"],
13428Cell[333480, 6811, 3587, 107, 246, "Input"],
13429Cell[337070, 6920, 4543, 120, 212, "Input"],
13430Cell[CellGroupData[{
13431Cell[341638, 7044, 2461, 63, 76, "Input"],
13432Cell[344102, 7109, 29429, 539, 490, "Output"]
13433}, Open ]],
13434Cell[CellGroupData[{
13435Cell[373568, 7653, 2580, 69, 134, "Input"],
13436Cell[376151, 7724, 29800, 537, 241, "Output"]
13437}, Open ]]
13438}, Open ]],
13439Cell[CellGroupData[{
13440Cell[406000, 8267, 181, 2, 72, "Chapter"],
13441Cell[406184, 8271, 973, 18, 226, "Text"],
13442Cell[CellGroupData[{
13443Cell[407182, 8293, 4589, 116, 396, "Input"],
13444Cell[411774, 8411, 23433, 410, 377, "Output"]
13445}, Open ]],
13446Cell[CellGroupData[{
13447Cell[435244, 8826, 158, 3, 31, "Input"],
13448Cell[435405, 8831, 93, 1, 31, "Output"]
13449}, Open ]],
13450Cell[CellGroupData[{
13451Cell[435535, 8837, 2898, 75, 190, "Input"],
13452Cell[438436, 8914, 23181, 406, 468, "Output"]
13453}, Open ]],
13454Cell[CellGroupData[{
13455Cell[461654, 9325, 259, 8, 33, "Input"],
13456Cell[461916, 9335, 90, 1, 31, "Output"]
13457}, Open ]],
13458Cell[CellGroupData[{
13459Cell[462043, 9341, 3045, 80, 162, "Input"],
13460Cell[465091, 9423, 23456, 410, 491, "Output"]
13461}, Open ]],
13462Cell[CellGroupData[{
13463Cell[488584, 9838, 5657, 141, 240, "Input"],
13464Cell[494244, 9981, 40929, 716, 516, "Output"]
13465}, Open ]],
13466Cell[CellGroupData[{
13467Cell[535210, 10702, 6130, 150, 248, "Input"],
13468Cell[541343, 10854, 120399, 2036, 403, "Output"]
13469}, Open ]],
13470Cell[661757, 12893, 497, 17, 33, "Input"],
13471Cell[CellGroupData[{
13472Cell[662279, 12914, 117, 2, 31, "Input"],
13473Cell[662399, 12918, 425, 11, 42, "Print",
13474 CellTags->"Info3644756130-5112488"]
13475}, Open ]],
13476Cell[662839, 12932, 118, 1, 30, "Text"],
13477Cell[CellGroupData[{
13478Cell[662982, 12937, 1187, 19, 31, "Input"],
13479Cell[664172, 12958, 272, 5, 31, "Output"]
13480}, Open ]],
13481Cell[CellGroupData[{
13482Cell[664481, 12968, 141, 2, 31, "Input"],
13483Cell[664625, 12972, 76, 1, 31, "Output"]
13484}, Open ]],
13485Cell[CellGroupData[{
13486Cell[664738, 12978, 452, 14, 52, "Input"],
13487Cell[665193, 12994, 90, 1, 31, "Output"]
13488}, Open ]],
13489Cell[CellGroupData[{
13490Cell[665320, 13000, 146, 3, 31, "Input"],
13491Cell[665469, 13005, 87, 2, 46, "Output"]
13492}, Open ]],
13493Cell[CellGroupData[{
13494Cell[665593, 13012, 198, 5, 31, "Input"],
13495Cell[665794, 13019, 95, 1, 31, "Output"]
13496}, Open ]],
13497Cell[CellGroupData[{
13498Cell[665926, 13025, 134, 2, 31, "Input"],
13499Cell[666063, 13029, 75, 1, 31, "Output"]
13500}, Open ]],
13501Cell[CellGroupData[{
13502Cell[666175, 13035, 700, 22, 53, "Input"],
13503Cell[666878, 13059, 89, 1, 31, "Output"]
13504}, Open ]],
13505Cell[CellGroupData[{
13506Cell[667004, 13065, 193, 5, 31, "Input"],
13507Cell[667200, 13072, 75, 1, 31, "Output"]
13508}, Open ]],
13509Cell[CellGroupData[{
13510Cell[667312, 13078, 444, 14, 68, "Input"],
13511Cell[667759, 13094, 85, 1, 31, "Output"]
13512}, Open ]],
13513Cell[CellGroupData[{
13514Cell[667881, 13100, 229, 5, 56, "Input"],
13515Cell[668113, 13107, 88, 1, 31, "Output"]
13516}, Open ]],
13517Cell[CellGroupData[{
13518Cell[668238, 13113, 178, 3, 31, "Input"],
13519Cell[668419, 13118, 84, 1, 31, "Output"]
13520}, Open ]],
13521Cell[CellGroupData[{
13522Cell[668540, 13124, 179, 4, 31, "Input"],
13523Cell[668722, 13130, 89, 1, 31, "Output"]
13524}, Open ]],
13525Cell[CellGroupData[{
13526Cell[668848, 13136, 241, 5, 31, "Input"],
13527Cell[669092, 13143, 90, 1, 31, "Output"]
13528}, Open ]],
13529Cell[CellGroupData[{
13530Cell[669219, 13149, 690, 12, 31, "Input"],
13531Cell[669912, 13163, 444, 6, 31, "Output"]
13532}, Open ]],
13533Cell[CellGroupData[{
13534Cell[670393, 13174, 149, 3, 31, "Input"],
13535Cell[670545, 13179, 73, 1, 31, "Output"]
13536}, Open ]],
13537Cell[CellGroupData[{
13538Cell[670655, 13185, 388, 12, 53, "Input"],
13539Cell[671046, 13199, 78, 1, 31, "Output"]
13540}, Open ]],
13541Cell[CellGroupData[{
13542Cell[671161, 13205, 104, 1, 31, "Input"],
13543Cell[671268, 13208, 76, 1, 31, "Output"]
13544}, Open ]],
13545Cell[CellGroupData[{
13546Cell[671381, 13214, 105, 1, 31, "Input"],
13547Cell[671489, 13217, 95, 1, 31, "Output"]
13548}, Open ]]
13549}, Open ]]
13550}
13551]
13552*)
13553
13554(* End of internal cache information *)