u/mccann: planet.nb

File planet.nb, 200.9 KB (added by mccann, 7 years ago)

Adiabatic atmosphere notebook

Line 
1(* Content-type: application/vnd.wolfram.mathematica *)
2
3(*** Wolfram Notebook File ***)
4(* http://www.wolfram.com/nb *)
5
6(* CreatedBy='Mathematica 10.1' *)
7
8(*CacheID: 234*)
9(* Internal cache information:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[ 158, 7]
13NotebookDataLength[ 205538, 4061]
14NotebookOptionsPosition[ 202734, 3963]
15NotebookOutlinePosition[ 203087, 3979]
16CellTagsIndexPosition[ 203044, 3976]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21Cell[BoxData[
22 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}]], "Input",
23 CellChangeTimes->{{3.669441658679289*^9, 3.6694416662184362`*^9}, {
24 3.7063894437452927`*^9, 3.7063894445242033`*^9}, {3.719705317323526*^9,
25 3.719705318381358*^9}}],
26
27Cell[CellGroupData[{
28
29Cell["Constants", "Subsubsection",
30 CellChangeTimes->{{3.66944201215981*^9, 3.669442013063984*^9}}],
31
32Cell[BoxData[{
33 RowBox[{
34 RowBox[{"GN", "=",
35 RowBox[{"6.67259", "*",
36 SuperscriptBox["10",
37 RowBox[{"-", "8"}]]}]}], ";"}], "\[IndentingNewLine]",
38 RowBox[{
39 RowBox[{"kb", " ", "=", " ",
40 RowBox[{"1.380658", "*",
41 SuperscriptBox["10",
42 RowBox[{"-", "16"}]]}]}], ";"}], "\[IndentingNewLine]",
43 RowBox[{
44 RowBox[{"kbEV", "=",
45 RowBox[{"8.6173303", "*",
46 SuperscriptBox["10",
47 RowBox[{"-", "5"}]]}]}], ";"}], "\[IndentingNewLine]",
48 RowBox[{
49 RowBox[{"me", "=",
50 RowBox[{"9.1093897", "*",
51 SuperscriptBox["10",
52 RowBox[{"-", "28"}]]}]}], ";"}], "\[IndentingNewLine]",
53 RowBox[{
54 RowBox[{"h", "=",
55 RowBox[{"6.6260755", "*",
56 SuperscriptBox["10",
57 RowBox[{"-", "27"}]]}]}], ";"}], "\[IndentingNewLine]",
58 RowBox[{
59 RowBox[{"\[Sigma]", "=",
60 RowBox[{"6.3", "*",
61 SuperscriptBox["10",
62 RowBox[{"-", "18"}]],
63 SuperscriptBox[
64 RowBox[{"(",
65 FractionBox["16", "13.6"], ")"}],
66 RowBox[{"-", "3"}]]}]}], ";"}], "\[IndentingNewLine]",
67 RowBox[{
68 RowBox[{"mH", "=",
69 RowBox[{"1.67", "*",
70 SuperscriptBox["10",
71 RowBox[{"-", "24"}]]}]}], ";"}], "\[IndentingNewLine]",
72 RowBox[{
73 RowBox[{"\[Gamma]", "=",
74 RowBox[{"5", "/", "3"}]}], ";"}], "\[IndentingNewLine]",
75 RowBox[{
76 RowBox[{
77 RowBox[{"n", "=",
78 FractionBox["1",
79 RowBox[{"\[Gamma]", "-", "1"}]]}], ";"}], " ",
80 RowBox[{"(*",
81 RowBox[{
82 RowBox[{
83 "Scaling", " ", "heights", " ", "for", " ", "a", " ", "given", " ",
84 "power", " ", "law", " ", "n", " ",
85 RowBox[{"from", ":", " ",
86 RowBox[{
87 SubscriptBox["X", "n"],
88 RowBox[{"(", "r", ")"}]}]}]}], "=",
89 RowBox[{
90 SubscriptBox["X", "0"], "f",
91 SuperscriptBox[
92 RowBox[{"(", "r", ")"}], "n"]}]}], "*)"}]}]}], "Input",
93 CellChangeTimes->{{3.66944153564765*^9, 3.669441579979597*^9}, {
94 3.669441680123825*^9, 3.669441706947741*^9}, {3.669441889146598*^9,
95 3.66944190146623*^9}, {3.6694419485763197`*^9, 3.6694419970647306`*^9}, {
96 3.669574480314616*^9, 3.66957448120892*^9}, {3.6695755761142387`*^9,
97 3.669575577589183*^9}, {3.669586760022785*^9, 3.6695867601807013`*^9}, {
98 3.669586804407363*^9, 3.669586804638978*^9}, {3.6695870045253687`*^9,
99 3.669587045968058*^9}, {3.706322135508203*^9, 3.7063221807940617`*^9}, {
100 3.706322285804717*^9, 3.706322298162113*^9}, {3.706393129560298*^9,
101 3.706393130070463*^9}, {3.7088693864555683`*^9, 3.708869392544373*^9}, {
102 3.708869468790807*^9, 3.70886946923697*^9}, {3.70886950662985*^9,
103 3.708869506645053*^9}, {3.7088695857297697`*^9, 3.7088695989356422`*^9}, {
104 3.708871032432666*^9, 3.7088710324996033`*^9}, {3.711263926446497*^9,
105 3.7112639330520067`*^9}}]
106}, Open ]],
107
108Cell[CellGroupData[{
109
110Cell["Problem setup", "Subsubsection",
111 CellChangeTimes->{{3.669442021456916*^9, 3.6694420253756723`*^9}, {
112 3.708201379033774*^9, 3.708201380663267*^9}}],
113
114Cell[CellGroupData[{
115
116Cell[BoxData[{
117 RowBox[{
118 RowBox[{"M", "=", " ",
119 RowBox[{".5", "*",
120 SuperscriptBox["10", "30"]}]}], ";"}], "\[IndentingNewLine]",
121 RowBox[{
122 RowBox[{"R0", "=",
123 RowBox[{"1.5", " ",
124 SuperscriptBox["10", "10"]}]}], ";"}], "\[IndentingNewLine]",
125 RowBox[{
126 RowBox[{"T0", " ", "=", "1100"}], " ", ";"}], "\[IndentingNewLine]",
127 RowBox[{
128 RowBox[{"x0", "=", "0"}], ";"}], "\[IndentingNewLine]",
129 RowBox[{
130 RowBox[{"\[Mu]0", "=",
131 FractionBox["mH",
132 RowBox[{"1", "+", "x0"}]]}], ";"}], "\[IndentingNewLine]",
133 RowBox[{"adist", "=",
134 FractionBox[
135 RowBox[{"1", " ",
136 SuperscriptBox["10", "12"]}], "R0"]}], "\[IndentingNewLine]",
137 RowBox[{
138 RowBox[{"Ms", "=", " ",
139 RowBox[{"1.989", " ",
140 SuperscriptBox["10", "33"]}]}], ";"}], "\[IndentingNewLine]",
141 RowBox[{
142 RowBox[{"Rs", "=",
143 FractionBox[
144 RowBox[{"6.957", " ",
145 SuperscriptBox["10", "10"]}], "R0"]}], ";"}], "\[IndentingNewLine]",
146 RowBox[{
147 RowBox[{"\[CapitalOmega]", " ", "=", " ",
148 SqrtBox[
149 FractionBox[
150 RowBox[{"GN",
151 RowBox[{"(",
152 RowBox[{"Ms", "+", "M"}], ")"}]}],
153 SuperscriptBox[
154 RowBox[{"(",
155 RowBox[{"adist", " ", "R0"}], ")"}], "3"]]]}],
156 ";"}], "\[IndentingNewLine]",
157 RowBox[{
158 RowBox[{
159 RowBox[{"\[Phi]", "[", "r_", "]"}], "=",
160 RowBox[{
161 FractionBox[
162 RowBox[{
163 RowBox[{"-", "GN"}], " ", "M"}],
164 RowBox[{
165 SqrtBox[
166 SuperscriptBox["r", "2"]], " ", "R0"}]], "-", " ",
167 FractionBox[
168 RowBox[{"GN", " ", "Ms"}],
169 RowBox[{
170 SqrtBox[
171 SuperscriptBox[
172 RowBox[{"(",
173 RowBox[{"adist", "+", "r"}], ")"}], "2"]], "R0"}]], "-",
174 FractionBox[
175 SuperscriptBox[
176 RowBox[{"(",
177 RowBox[{"\[CapitalOmega]",
178 RowBox[{"(",
179 RowBox[{"adist", "+", "r"}], ")"}], "R0"}], ")"}], "2"], "2"]}]}],
180 ";"}], "\[IndentingNewLine]",
181 RowBox[{
182 RowBox[{
183 RowBox[{"T\[Phi]", "[",
184 RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=",
185 RowBox[{
186 FractionBox[
187 RowBox[{
188 RowBox[{"-", "GN"}], " ", "M"}],
189 RowBox[{
190 SqrtBox[
191 RowBox[{
192 SuperscriptBox["x", "2"], "+",
193 SuperscriptBox["y", "2"], "+",
194 SuperscriptBox["z", "2"]}]], " ", "R0"}]], "-", " ",
195 FractionBox[
196 RowBox[{"GN", " ", "Ms"}],
197 RowBox[{
198 SqrtBox[
199 RowBox[{
200 SuperscriptBox[
201 RowBox[{"(",
202 RowBox[{"adist", "+", "x"}], ")"}], "2"], "+",
203 SuperscriptBox["y", "2"], "+",
204 SuperscriptBox["z", "2"]}]], "R0"}]], "-",
205 FractionBox[
206 RowBox[{
207 SuperscriptBox[
208 RowBox[{"(",
209 RowBox[{"\[CapitalOmega]", " ", "R0"}], ")"}], "2"],
210 RowBox[{"(",
211 RowBox[{
212 SuperscriptBox[
213 RowBox[{"(",
214 RowBox[{"adist", "+", "x"}], ")"}], "2"], "+",
215 SuperscriptBox["y", "2"]}], ")"}]}], "2"]}]}],
216 ";"}], "\[IndentingNewLine]",
217 RowBox[{
218 RowBox[{"dxMIN", "=",
219 FractionBox["1", "64"]}], ";",
220 RowBox[{"(*",
221 RowBox[{"In", " ", "terms", " ", "of", " ", "R0"}], "*)"}],
222 "\[IndentingNewLine]",
223 RowBox[{"Courant", "=", "0.4"}], ";"}]}], "Input",
224 CellChangeTimes->{{3.669441626118718*^9, 3.6694416425868473`*^9}, {
225 3.669442076369256*^9, 3.669442078167622*^9}, {3.669442140625111*^9,
226 3.669442144655671*^9}, {3.669452022585309*^9, 3.669452081921054*^9}, {
227 3.669452131873317*^9, 3.66945217297797*^9}, {3.669452229033185*^9,
228 3.669452229111218*^9}, {3.669452259596858*^9, 3.6694522598924217`*^9}, {
229 3.669452357814608*^9, 3.6694523615261993`*^9}, {3.669452628588114*^9,
230 3.669452697522139*^9}, {3.66945275001689*^9, 3.669452751520607*^9}, {
231 3.669452789400251*^9, 3.6694527917360497`*^9}, {3.6694528495978394`*^9,
232 3.6694528992284193`*^9}, {3.669453858465032*^9, 3.669453872341749*^9}, {
233 3.669453957029242*^9, 3.6694539726984587`*^9}, {3.669454056180499*^9,
234 3.6694541474841547`*^9}, {3.66945422648274*^9, 3.669454267980575*^9}, {
235 3.6694543396125402`*^9, 3.6694544188002377`*^9}, {3.669454534320794*^9,
236 3.6694545614510612`*^9}, {3.6694843350767317`*^9, 3.669484344896329*^9}, {
237 3.6694844195300694`*^9, 3.6694844202707977`*^9}, {3.6694844730599737`*^9,
238 3.669484502328208*^9}, 3.669484555040492*^9, {3.6694846919063797`*^9,
239 3.669484691982584*^9}, {3.669484728832016*^9, 3.6694847673192673`*^9}, {
240 3.6694848820688677`*^9, 3.669484900546165*^9}, {3.6694867263203783`*^9,
241 3.669486731250847*^9}, {3.66948678888229*^9, 3.669486830465486*^9}, {
242 3.669486868957748*^9, 3.669486945905884*^9}, {3.669502738523903*^9,
243 3.669502739071002*^9}, {3.6695721223877573`*^9, 3.669572124242385*^9}, {
244 3.669585880772242*^9, 3.669585882242594*^9}, {3.669586627212015*^9,
245 3.6695866288640757`*^9}, {3.669587542099058*^9, 3.669587544008354*^9}, {
246 3.669588420719825*^9, 3.669588422106812*^9}, {3.669588492178595*^9,
247 3.669588492273919*^9}, {3.669588642936873*^9, 3.66958864300338*^9}, {
248 3.669589385817054*^9, 3.669589387272863*^9}, {3.669589697392959*^9,
249 3.669589699020817*^9}, {3.669589811345498*^9, 3.669589858571745*^9}, {
250 3.669593504610943*^9, 3.6695935057539997`*^9}, {3.6695940301377573`*^9,
251 3.669594031181319*^9}, {3.669594957721435*^9, 3.6695949594137173`*^9}, {
252 3.669595128470703*^9, 3.66959514672852*^9}, {3.669595213003344*^9,
253 3.669595213351346*^9}, {3.669595297385957*^9, 3.669595298420928*^9}, {
254 3.669595834987707*^9, 3.6695958365899153`*^9}, {3.66959594975261*^9,
255 3.669595951188878*^9}, {3.6695979080028133`*^9, 3.669597909838749*^9}, {
256 3.6695982067736*^9, 3.669598207796228*^9}, {3.669598442563683*^9,
257 3.669598443592215*^9}, {3.669598647676158*^9, 3.669598648480249*^9}, {
258 3.669599320532197*^9, 3.6695993377873363`*^9}, {3.6695999995314837`*^9,
259 3.669600003712851*^9}, {3.669612524362122*^9, 3.669612524611063*^9}, {
260 3.66961301954126*^9, 3.669613053337912*^9}, {3.669614647840884*^9,
261 3.669614649288245*^9}, {3.669615209869845*^9, 3.669615211729491*^9}, {
262 3.669615409474617*^9, 3.669615410439555*^9}, {3.669615499238204*^9,
263 3.6696155710825653`*^9}, {3.669617332609164*^9, 3.669617333447658*^9}, {
264 3.6696413424273148`*^9, 3.669641365317018*^9}, {3.669641395491712*^9,
265 3.66964141546507*^9}, {3.669656453810781*^9, 3.669656455147656*^9}, {
266 3.669660296861795*^9, 3.669660326909363*^9}, {3.669660366040736*^9,
267 3.669660366760459*^9}, 3.700393037630023*^9, {3.700393108921138*^9,
268 3.700393136813427*^9}, {3.700393270313933*^9, 3.700393270425967*^9},
269 3.700393307365644*^9, {3.700393348577824*^9, 3.7003933681512403`*^9}, {
270 3.700393484222756*^9, 3.700393485753373*^9}, 3.7003936283341*^9, {
271 3.700393691065908*^9, 3.70039369117658*^9}, {3.700394110466345*^9,
272 3.700394143465048*^9}, {3.7003942167416897`*^9, 3.700394218390646*^9}, {
273 3.700394315975675*^9, 3.7003943173165073`*^9}, {3.700394355199473*^9,
274 3.700394407621436*^9}, 3.700394590736218*^9, {3.700443281126319*^9,
275 3.700443289261301*^9}, {3.700443340638033*^9, 3.700443430337302*^9}, {
276 3.7004444596772547`*^9, 3.700444459749913*^9}, {3.700446973306657*^9,
277 3.700446973379706*^9}, {3.700448704159135*^9, 3.7004487046071873`*^9}, {
278 3.7004518402515097`*^9, 3.7004518403243113`*^9}, {3.700452340426858*^9,
279 3.700452351562524*^9}, {3.7004527596773453`*^9, 3.700452760238579*^9}, {
280 3.7005928521371603`*^9, 3.700592852207778*^9}, {3.700592891100814*^9,
281 3.700593011811036*^9}, {3.700602599865842*^9, 3.7006026040981417`*^9}, {
282 3.700602671939328*^9, 3.700602680673108*^9}, {3.700602711010631*^9,
283 3.700602765198636*^9}, 3.7006028899677773`*^9, {3.70062813471389*^9,
284 3.700628158411539*^9}, {3.7006282229498053`*^9, 3.700628226699259*^9}, {
285 3.700628272452465*^9, 3.700628282125004*^9}, {3.700669242065588*^9,
286 3.7006692644141083`*^9}, {3.700669696946669*^9, 3.7006697768147907`*^9}, {
287 3.700688709676119*^9, 3.7006887178088217`*^9}, {3.700857436830224*^9,
288 3.700857442158429*^9}, {3.700857529240209*^9, 3.70085752964177*^9}, {
289 3.7008594746580763`*^9, 3.700859475257884*^9}, {3.700881385612671*^9,
290 3.7008813861278276`*^9}, {3.70139738818132*^9, 3.701397390796537*^9},
291 3.701397445233118*^9, {3.701397497761343*^9, 3.7013975114904203`*^9}, {
292 3.701397982894825*^9, 3.701397983233247*^9}, {3.701398206933486*^9,
293 3.701398207508952*^9}, {3.70139827741221*^9, 3.701398278331605*^9}, {
294 3.706045958801303*^9, 3.7060459594927893`*^9}, {3.7061249761089907`*^9,
295 3.7061249817715263`*^9}, {3.706330902476665*^9, 3.7063309034834423`*^9}, {
296 3.7063309653787203`*^9, 3.7063309659218616`*^9}, {3.706332302477906*^9,
297 3.7063323068061323`*^9}, {3.70638921521432*^9, 3.706389264685079*^9}, {
298 3.706389308303123*^9, 3.706389308756928*^9}, {3.7063914836092377`*^9,
299 3.706391524494247*^9}, {3.706391838938046*^9, 3.7063918863464603`*^9}, {
300 3.706391926675007*^9, 3.706391976072486*^9}, {3.7063931416859303`*^9,
301 3.7063931609976273`*^9}, {3.706396609896309*^9, 3.706396625278204*^9}, {
302 3.7063966557961893`*^9, 3.706396657553071*^9}, {3.706396782106927*^9,
303 3.7063968462821417`*^9}, {3.7063972407085342`*^9, 3.706397241075583*^9}, {
304 3.70639727391273*^9, 3.706397273943177*^9}, {3.706397391250555*^9,
305 3.706397407850585*^9}, {3.706397447234479*^9, 3.7063974754333687`*^9}, {
306 3.706401301951564*^9, 3.7064013414844103`*^9}, {3.706402904846937*^9,
307 3.706402905173662*^9}, {3.70640302818511*^9, 3.706403028620366*^9}, {
308 3.70819510878382*^9, 3.708195122525465*^9}, {3.708196722831562*^9,
309 3.708196724180153*^9}, {3.708196911415585*^9, 3.708196912173882*^9}, {
310 3.7081971805512342`*^9, 3.708197180565292*^9}, {3.708197221970212*^9,
311 3.708197248369814*^9}, {3.708198029253356*^9, 3.7081980292702827`*^9}, {
312 3.708199734602479*^9, 3.7081997346551113`*^9}, {3.708200273954596*^9,
313 3.708200273984962*^9}, {3.7082004033369837`*^9, 3.708200403355218*^9}, {
314 3.708201419165963*^9, 3.708201419309701*^9}, {3.708252139206994*^9,
315 3.708252155616589*^9}, 3.708252373508048*^9, {3.708252457332368*^9,
316 3.7082524573510447`*^9}, {3.708252537680615*^9, 3.708252537693356*^9}, {
317 3.7082528262819023`*^9, 3.708252835084927*^9}, {3.708252868539043*^9,
318 3.7082528686167383`*^9}, {3.7082629132504187`*^9, 3.708262913345806*^9}, {
319 3.708355386939282*^9, 3.708355390284801*^9}, {3.708355441343748*^9,
320 3.7083554414125853`*^9}, {3.708632776207288*^9, 3.708632776826284*^9}, {
321 3.7086329524863167`*^9, 3.708632952508378*^9}, {3.7086330115452347`*^9,
322 3.708633011782621*^9}, {3.70863322779909*^9, 3.708633229876244*^9}, {
323 3.7087124698094187`*^9, 3.708712470560281*^9}, {3.708718682652013*^9,
324 3.708718685379383*^9}, {3.7087188508234386`*^9, 3.708718850873712*^9}, {
325 3.7087194082130127`*^9, 3.708719408234606*^9}, {3.708720139596673*^9,
326 3.7087201406334543`*^9}, {3.708720648229862*^9, 3.7087206482974033`*^9}, {
327 3.70872152967001*^9, 3.7087215388638268`*^9}, {3.708721676478409*^9,
328 3.708721676496694*^9}, {3.70872170744853*^9, 3.7087217075098543`*^9}, {
329 3.708722367323366*^9, 3.708722367369487*^9}, {3.708723517796927*^9,
330 3.7087235178134527`*^9}, {3.708723730492778*^9, 3.708723730516239*^9}, {
331 3.708724470942429*^9, 3.7087244710345507`*^9}, {3.709262033643848*^9,
332 3.709262033668051*^9}, {3.70926481874118*^9, 3.7092648220363083`*^9}, {
333 3.709264886217771*^9, 3.709264890375288*^9}, {3.7108783460156307`*^9,
334 3.710878346885148*^9}, {3.710878948135317*^9, 3.710878973672056*^9}, {
335 3.710879092249007*^9, 3.710879092263402*^9}, {3.711221189281859*^9,
336 3.7112211898917093`*^9}, {3.711226706071919*^9, 3.7112267068223457`*^9}, {
337 3.711391019056683*^9, 3.7113910194878693`*^9}, {3.711556798801938*^9,
338 3.711556882544149*^9}, {3.711814342748213*^9, 3.711814343111925*^9}, {
339 3.713208004497923*^9, 3.713208007296707*^9}, 3.7132090048339233`*^9, {
340 3.713210593336586*^9, 3.713210595505733*^9}, 3.7132166903107777`*^9, {
341 3.713223909851348*^9, 3.713223912530547*^9}, {3.713238187741939*^9,
342 3.713238236721277*^9}, {3.713238292176684*^9, 3.713238330294836*^9},
343 3.713238430407255*^9, {3.713238900699233*^9, 3.713238902856688*^9}, {
344 3.7132395545743093`*^9, 3.713239557988941*^9}, {3.713239656604129*^9,
345 3.713239659149158*^9}, {3.7132397683212967`*^9, 3.713239771304339*^9},
346 3.7132398901204147`*^9, 3.713240849293358*^9, {3.713241544018154*^9,
347 3.713241545363761*^9}, {3.713265686694756*^9, 3.71326569202986*^9}, {
348 3.713267333326589*^9, 3.713267348634453*^9}, {3.713282705209433*^9,
349 3.713282706092936*^9}, {3.713454221988595*^9, 3.713454233686948*^9}, {
350 3.71345428040471*^9, 3.713454286798571*^9}, 3.719023426744769*^9, {
351 3.719100024026661*^9, 3.719100034030881*^9}, {3.719115629692808*^9,
352 3.719115639024713*^9}, {3.719115929771699*^9, 3.719115938114462*^9}, {
353 3.719116035044188*^9, 3.719116038380103*^9}, {3.719704886780328*^9,
354 3.719704903535233*^9}, {3.719704950495637*^9, 3.719704951072905*^9}, {
355 3.719705238355496*^9, 3.7197052513336287`*^9}, {3.719705291218261*^9,
356 3.7197053146185923`*^9}, {3.719705519578216*^9, 3.719705521496744*^9}, {
357 3.719705565832954*^9, 3.719705571366626*^9}, {3.719705698955789*^9,
358 3.719705704938936*^9}, {3.7197761551408167`*^9, 3.719776161866797*^9}}],
359
360Cell[BoxData["66.66666666666667`"], "Output",
361 CellChangeTimes->{
362 3.719023427206108*^9, 3.7190257694887953`*^9, 3.719096745067439*^9,
363 3.719099055124525*^9, {3.719100024449654*^9, 3.719100034578232*^9},
364 3.719102619946159*^9, 3.719105293913685*^9, 3.719105348653957*^9,
365 3.719109897168654*^9, 3.719110318901059*^9, 3.719114491681211*^9,
366 3.719115640196055*^9, {3.71911593953817*^9, 3.719115946989128*^9},
367 3.719116039247012*^9, 3.719120355357448*^9, 3.7195589374421997`*^9,
368 3.719561082291224*^9, 3.7197049090273314`*^9, 3.7197049521899023`*^9,
369 3.719705208002262*^9, 3.719705252003625*^9, 3.719705320534552*^9,
370 3.719705404792601*^9, 3.719705463280672*^9, 3.719705523125169*^9,
371 3.7197055718474894`*^9, 3.719705709577017*^9, 3.719705779584815*^9, {
372 3.7197761443611813`*^9, 3.7197761652493668`*^9}}]
373}, Open ]]
374}, Open ]],
375
376Cell[CellGroupData[{
377
378Cell["Radius defintions", "Subsubsection",
379 CellChangeTimes->{{3.6694420304875717`*^9, 3.6694420354315577`*^9}}],
380
381Cell[CellGroupData[{
382
383Cell[BoxData[{
384 RowBox[{
385 RowBox[{"Rc", " ", "=", " ",
386 RowBox[{
387 FractionBox[
388 RowBox[{
389 RowBox[{"(",
390 RowBox[{"\[Gamma]", "-", "1"}], ")"}], "GN", " ", "M", " ", "\[Mu]0"}],
391 RowBox[{"\[Gamma]", " ", "kb", " ", "T0"}]],
392 FractionBox["1", "R0"]}]}], ";"}], "\[IndentingNewLine]",
393 RowBox[{"Rz", "=",
394 FractionBox["Rc",
395 RowBox[{"Rc", "-", "1"}]]}], "\[IndentingNewLine]",
396 RowBox[{
397 RowBox[{"RHill", "=",
398 RowBox[{"adist",
399 SuperscriptBox[
400 RowBox[{"(",
401 FractionBox["M",
402 RowBox[{"3", " ", "Ms"}]], ")"}],
403 RowBox[{"1", "/", "3"}]]}]}], ";"}], "\[IndentingNewLine]",
404 RowBox[{"TRz", "=",
405 RowBox[{"x", "/.",
406 RowBox[{"FindRoot", "[",
407 RowBox[{
408 RowBox[{
409 RowBox[{"T\[Phi]", "[",
410 RowBox[{"x", " ", ",", "0", ",", "0"}], "]"}], "\[Equal]",
411 RowBox[{
412 RowBox[{"T\[Phi]", "[",
413 RowBox[{
414 RowBox[{"-", "1"}], ",", "0", ",", "0"}], "]"}], "+",
415 RowBox[{
416 FractionBox["\[Gamma]",
417 RowBox[{"\[Gamma]", "-", "1"}]],
418 FractionBox[
419 RowBox[{"kb", " ", "T0"}], "\[Mu]0"]}]}]}], ",",
420 RowBox[{"{",
421 RowBox[{"x", ",",
422 RowBox[{"-", "1"}]}], "}"}]}], "]"}]}]}]}], "Input",
423 CellChangeTimes->{{3.669441582518736*^9, 3.6694416230352077`*^9}, {
424 3.6694417152754993`*^9, 3.669441716171332*^9}, {3.669442444609324*^9,
425 3.6694424604165897`*^9}, {3.66945272378894*^9, 3.669452742249892*^9}, {
426 3.669452892759252*^9, 3.669452901292783*^9}, {3.669453388003399*^9,
427 3.669453399418618*^9}, {3.669453938835577*^9, 3.669453941466*^9}, {
428 3.669484670718115*^9, 3.6694846789701347`*^9}, {3.669585179560266*^9,
429 3.669585179823677*^9}, {3.669612755064393*^9, 3.669612803382524*^9}, {
430 3.669612959754415*^9, 3.669612961084529*^9}, {3.669613015598165*^9,
431 3.669613045399351*^9}, {3.669657936924426*^9, 3.669657964634686*^9}, {
432 3.669658079174645*^9, 3.669658083680971*^9}, {3.7003933940331173`*^9,
433 3.70039339492663*^9}, {3.7003937410915823`*^9, 3.700393743864359*^9}, {
434 3.7003941639027147`*^9, 3.700394164772007*^9}, {3.70044346457516*^9,
435 3.700443465699011*^9}, {3.7061190792646933`*^9, 3.706119126259922*^9}, {
436 3.706389368017666*^9, 3.706389372956468*^9}, {3.706389441449204*^9,
437 3.706389449072768*^9}, {3.7063897087807503`*^9, 3.706389716158538*^9},
438 3.706393167921321*^9, {3.7063958712058897`*^9, 3.706395877899918*^9}, {
439 3.7063966756094837`*^9, 3.706396696568696*^9}, {3.7063968594867496`*^9,
440 3.706396861699402*^9}, {3.706397133283564*^9, 3.706397179273653*^9}, {
441 3.706397217945094*^9, 3.706397219129274*^9}, {3.706774803112369*^9,
442 3.706774818928763*^9}, {3.708692510640777*^9, 3.708692511808861*^9},
443 3.713265769535569*^9, {3.713453801296082*^9, 3.713453849693317*^9}, {
444 3.7134540283032503`*^9, 3.713454038198184*^9}, {3.713454343284871*^9,
445 3.713454365931261*^9}, {3.718981905015895*^9, 3.718981906686778*^9},
446 3.718981961269693*^9, {3.719099088094655*^9, 3.7190991027055273`*^9}, {
447 3.719100047320992*^9, 3.719100047410679*^9}, {3.719114531456197*^9,
448 3.7191147699941587`*^9}, {3.7191148133863707`*^9, 3.719114920546258*^9}, {
449 3.7191159520302277`*^9, 3.719115958785241*^9}, {3.719115993453847*^9,
450 3.719116018266824*^9}, {3.7191160574295397`*^9, 3.71911606437356*^9}, {
451 3.7197761307098846`*^9, 3.719776132198945*^9}, {3.719776182152852*^9,
452 3.7197761825723553`*^9}}],
453
454Cell[BoxData["1.113856665019139`"], "Output",
455 CellChangeTimes->{{3.713453819187958*^9, 3.713453872929682*^9},
456 3.713453903982142*^9, {3.713454032490445*^9, 3.7134540390601177`*^9},
457 3.713454090136545*^9, 3.713454236007905*^9, 3.713454292705373*^9, {
458 3.713454352103827*^9, 3.713454366446577*^9}, 3.7189805003043423`*^9,
459 3.718981110531534*^9, {3.718981903333592*^9, 3.718981907007538*^9},
460 3.718981961849019*^9, 3.7190257740713387`*^9, 3.7190967513165493`*^9, {
461 3.719099064883216*^9, 3.7190991032501297`*^9}, 3.7190994943317537`*^9,
462 3.719099553590047*^9, {3.71910002703214*^9, 3.7191000479525013`*^9},
463 3.719102632233672*^9, 3.7191143410145493`*^9, {3.719114556631665*^9,
464 3.71911473439894*^9}, 3.719114765385338*^9, {3.719114820915085*^9,
465 3.719114920945817*^9}, 3.719115642676407*^9, 3.719115959291918*^9, {
466 3.719115995565793*^9, 3.7191160647905607`*^9}, 3.7191203574178467`*^9,
467 3.7195549687415257`*^9, 3.719558940245879*^9, 3.719561084981515*^9,
468 3.7197049225518723`*^9, 3.719704954246552*^9, 3.719705209712825*^9,
469 3.7197052539087057`*^9, 3.719705323938891*^9, 3.7197054064275417`*^9,
470 3.7197054645687838`*^9, 3.719705526419979*^9, 3.7197055739341497`*^9,
471 3.719705711004525*^9, 3.719705781142494*^9, {3.719776137239682*^9,
472 3.719776183593548*^9}}],
473
474Cell[BoxData[
475 RowBox[{"-", "1.1203401792559537`"}]], "Output",
476 CellChangeTimes->{{3.713453819187958*^9, 3.713453872929682*^9},
477 3.713453903982142*^9, {3.713454032490445*^9, 3.7134540390601177`*^9},
478 3.713454090136545*^9, 3.713454236007905*^9, 3.713454292705373*^9, {
479 3.713454352103827*^9, 3.713454366446577*^9}, 3.7189805003043423`*^9,
480 3.718981110531534*^9, {3.718981903333592*^9, 3.718981907007538*^9},
481 3.718981961849019*^9, 3.7190257740713387`*^9, 3.7190967513165493`*^9, {
482 3.719099064883216*^9, 3.7190991032501297`*^9}, 3.7190994943317537`*^9,
483 3.719099553590047*^9, {3.71910002703214*^9, 3.7191000479525013`*^9},
484 3.719102632233672*^9, 3.7191143410145493`*^9, {3.719114556631665*^9,
485 3.71911473439894*^9}, 3.719114765385338*^9, {3.719114820915085*^9,
486 3.719114920945817*^9}, 3.719115642676407*^9, 3.719115959291918*^9, {
487 3.719115995565793*^9, 3.7191160647905607`*^9}, 3.7191203574178467`*^9,
488 3.7195549687415257`*^9, 3.719558940245879*^9, 3.719561084981515*^9,
489 3.7197049225518723`*^9, 3.719704954246552*^9, 3.719705209712825*^9,
490 3.7197052539087057`*^9, 3.719705323938891*^9, 3.7197054064275417`*^9,
491 3.7197054645687838`*^9, 3.719705526419979*^9, 3.7197055739341497`*^9,
492 3.719705711004525*^9, 3.719705781142494*^9, {3.719776137239682*^9,
493 3.7197761836047497`*^9}}]
494}, Open ]]
495}, Open ]],
496
497Cell[CellGroupData[{
498
499Cell["Scale height functions", "Subsubsection",
500 CellChangeTimes->{3.706388890055285*^9}],
501
502Cell[BoxData[{
503 RowBox[{
504 RowBox[{
505 RowBox[{"Ne", "[",
506 RowBox[{"a_", ",", "b_"}], "]"}], "=",
507 RowBox[{"n", "*",
508 RowBox[{"Log", "[",
509 RowBox[{
510 FractionBox["a", "b"],
511 FractionBox[
512 RowBox[{"b", "-", "Rz"}],
513 RowBox[{"a", "-", "Rz"}]]}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
514 RowBox[{
515 RowBox[{
516 RowBox[{"F", "[", "r_", "]"}], "=",
517 RowBox[{
518 FractionBox["r", "n"],
519 RowBox[{"(",
520 RowBox[{"1", "-",
521 FractionBox["r", "Rz"]}], ")"}]}]}], ";"}], "\[IndentingNewLine]",
522 RowBox[{
523 RowBox[{
524 RowBox[{
525 RowBox[{"H", "[",
526 RowBox[{"r_", ",", "s_"}], "]"}], "=",
527 RowBox[{
528 FractionBox[
529 RowBox[{
530 RowBox[{"(",
531 RowBox[{"1", "-",
532 SuperscriptBox["s",
533 FractionBox[
534 RowBox[{"-", "1"}], "n"]]}], ")"}],
535 RowBox[{"(",
536 RowBox[{"Rz", "-", "r"}], ")"}]}],
537 RowBox[{
538 RowBox[{
539 SuperscriptBox["s",
540 FractionBox[
541 RowBox[{"-", "1"}], "n"]],
542 RowBox[{"(",
543 RowBox[{"Rz", "-", "r"}], ")"}]}], "+", "r"}]], "r"}]}], ";"}], " ",
544
545 RowBox[{"(*",
546 RowBox[{
547 RowBox[{"folding", " ", "factor"}], " ", ">", "1"}],
548 "*)"}]}], "\[IndentingNewLine]",
549 RowBox[{
550 RowBox[{
551 RowBox[{"G", "[", "r_", "]"}], "=",
552 RowBox[{
553 SuperscriptBox[
554 RowBox[{"(",
555 RowBox[{
556 FractionBox["Rz", "r"], "-", "1"}], ")"}],
557 RowBox[{"-", "n"}]], "Rz",
558 RowBox[{"(",
559 RowBox[{
560 FractionBox[
561 RowBox[{
562 RowBox[{"Gamma", "[",
563 RowBox[{"1", "-", "n"}], "]"}], "*",
564 RowBox[{"Gamma", "[",
565 RowBox[{"1", "+", "n"}], "]"}]}],
566 RowBox[{"Gamma", "[", "2", "]"}]], "-",
567 RowBox[{"Beta", "[",
568 RowBox[{
569 FractionBox["r", "Rz"], ",",
570 RowBox[{"1", "-", "n"}], ",",
571 RowBox[{"1", "+", "n"}]}], "]"}]}], ")"}]}]}], ";"}]}], "Input",
572 CellChangeTimes->{{3.7003946301125298`*^9, 3.700394630634446*^9}}]
573}, Open ]],
574
575Cell[CellGroupData[{
576
577Cell["Optical depth one defined at R0", "Subsubsection",
578 CellChangeTimes->{{3.7003947361531763`*^9, 3.7003947551649017`*^9}, {
579 3.706389511152573*^9, 3.7063895224492064`*^9}}],
580
581Cell[CellGroupData[{
582
583Cell[BoxData[{
584 RowBox[{"n0", "=",
585 FractionBox["1",
586 RowBox[{"\[Sigma]", " ",
587 RowBox[{"G", "[", "1", "]"}], "R0"}]]}], "\[IndentingNewLine]",
588 RowBox[{
589 RowBox[{"\[Rho]0", "=",
590 RowBox[{"\[Mu]0", " ", "n0"}]}], " ", ";"}], "\[IndentingNewLine]",
591 RowBox[{
592 RowBox[{"P0", " ", "=", " ",
593 RowBox[{"n0", " ", "kb", " ", "T0"}]}], ";"}], "\[IndentingNewLine]",
594 RowBox[{
595 RowBox[{"cs0", " ", "=", " ",
596 SqrtBox[
597 FractionBox[
598 RowBox[{" ",
599 RowBox[{"\[Gamma]", " ", "P0"}]}], "\[Rho]0"]]}], ";", " ",
600 RowBox[{"(*", "adiabatic", "*)"}]}]}], "Input",
601 CellChangeTimes->{{3.700394688968651*^9, 3.7003947025168056`*^9}, {
602 3.70039489436779*^9, 3.700394902505475*^9}, {3.700394936563979*^9,
603 3.700394936824113*^9}, {3.700443477629986*^9, 3.700443477928782*^9}, {
604 3.70085831283256*^9, 3.700858318906116*^9}, {3.700858367173853*^9,
605 3.700858367360838*^9}, {3.700858408718602*^9, 3.700858412430766*^9},
606 3.700862749584825*^9, 3.7063834617456293`*^9, {3.7063835467591457`*^9,
607 3.70638355033399*^9}, 3.70638358167031*^9, {3.706389387968821*^9,
608 3.706389426937948*^9}, {3.706389572790905*^9, 3.706389578800767*^9},
609 3.706393176257381*^9, {3.706393370106433*^9, 3.706393371065029*^9},
610 3.706395895608919*^9, {3.706395967932188*^9, 3.706395968090159*^9}, {
611 3.7063966309098577`*^9, 3.706396643525324*^9}, {3.708201413426313*^9,
612 3.708201413786078*^9}, {3.708250434363255*^9, 3.708250448136868*^9}, {
613 3.708250559992804*^9, 3.7082506272766113`*^9}, 3.708250688350787*^9, {
614 3.708250786866481*^9, 3.708250821073814*^9}, {3.708250922384777*^9,
615 3.708250985608179*^9}, {3.708251107162723*^9, 3.7082512490529737`*^9}, {
616 3.7083554117943077`*^9, 3.708355416416157*^9}, {3.708869581439374*^9,
617 3.70886960999067*^9}, {3.709330705172709*^9, 3.709330706338253*^9}, {
618 3.709602575299045*^9, 3.709602576113881*^9}, {3.710878491355348*^9,
619 3.710878493157498*^9}, {3.710879103777216*^9, 3.710879104448015*^9}, {
620 3.711221212715353*^9, 3.711221214318441*^9}, {3.711279752444401*^9,
621 3.711279753914794*^9}, {3.711280559680482*^9, 3.711280560438519*^9},
622 3.713239587033976*^9, {3.713239638394228*^9, 3.713239639622595*^9},
623 3.713239932738504*^9, 3.7132414247375317`*^9, 3.719097203424197*^9, {
624 3.719099521500907*^9, 3.719099542683588*^9}, {3.719776206002713*^9,
625 3.719776218714447*^9}}],
626
627Cell[BoxData["3.965579009452495`*^8"], "Output",
628 CellChangeTimes->{{3.713241425054324*^9, 3.713241458876399*^9},
629 3.7132416796146307`*^9, 3.713265747369919*^9, 3.713270272320696*^9,
630 3.713270406912944*^9, {3.713453892263772*^9, 3.713453895651567*^9}, {
631 3.7134539263778477`*^9, 3.7134539307113667`*^9}, 3.713454043966792*^9,
632 3.713454104619543*^9, 3.713454239143155*^9, 3.71345429904666*^9,
633 3.718980516256625*^9, 3.718981115134347*^9, 3.7190259376880207`*^9,
634 3.719096764320963*^9, 3.719097203684388*^9, {3.719099516023087*^9,
635 3.719099543188628*^9}, 3.719110596157536*^9, 3.719114954565683*^9,
636 3.719115646636965*^9, 3.719116072941126*^9, 3.7191203610808573`*^9,
637 3.7195549725789003`*^9, 3.7195589493678627`*^9, 3.719561088880768*^9,
638 3.7197049292255173`*^9, 3.719704961178824*^9, 3.71970521218711*^9,
639 3.719705256370137*^9, 3.719705329614745*^9, 3.719705409595544*^9,
640 3.719705467519966*^9, 3.719705529131997*^9, 3.719705576402894*^9,
641 3.719705713894003*^9, 3.7197057843681307`*^9, 3.719776199636031*^9}],
642
643Cell[BoxData["301565.15864764556`"], "Output",
644 CellChangeTimes->{{3.713241425054324*^9, 3.713241458876399*^9},
645 3.7132416796146307`*^9, 3.713265747369919*^9, 3.713270272320696*^9,
646 3.713270406912944*^9, {3.713453892263772*^9, 3.713453895651567*^9}, {
647 3.7134539263778477`*^9, 3.7134539307113667`*^9}, 3.713454043966792*^9,
648 3.713454104619543*^9, 3.713454239143155*^9, 3.71345429904666*^9,
649 3.718980516256625*^9, 3.718981115134347*^9, 3.7190259376880207`*^9,
650 3.719096764320963*^9, 3.719097203684388*^9, {3.719099516023087*^9,
651 3.719099543188628*^9}, 3.719110596157536*^9, 3.719114954565683*^9,
652 3.719115646636965*^9, 3.719116072941126*^9, 3.7191203610808573`*^9,
653 3.7195549725789003`*^9, 3.7195589493678627`*^9, 3.719561088880768*^9,
654 3.7197049292255173`*^9, 3.719704961178824*^9, 3.71970521218711*^9,
655 3.719705256370137*^9, 3.719705329614745*^9, 3.719705409595544*^9,
656 3.719705467519966*^9, 3.719705529131997*^9, 3.719705576402894*^9,
657 3.719705713894003*^9, 3.7197057843681307`*^9, 3.719776199646048*^9}]
658}, Open ]]
659}, Open ]],
660
661Cell[CellGroupData[{
662
663Cell["Variable profiles", "Subsubsection",
664 CellChangeTimes->{{3.6694420577511587`*^9, 3.669442063439858*^9}}],
665
666Cell[CellGroupData[{
667
668Cell[BoxData[{
669 RowBox[{
670 RowBox[{
671 RowBox[{"Tf", "[",
672 RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=",
673 RowBox[{"1", "+",
674 RowBox[{
675 FractionBox[
676 RowBox[{"\[Gamma]", "-", "1"}], "\[Gamma]"],
677 FractionBox["\[Mu]0",
678 RowBox[{"kb", " ", "T0"}]],
679 RowBox[{"(",
680 RowBox[{
681 RowBox[{"T\[Phi]", "[",
682 RowBox[{
683 RowBox[{"-", "1"}], ",", "0", ",", "0"}], "]"}], "-",
684 RowBox[{"T\[Phi]", "[",
685 RowBox[{"x", " ", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}]}], ";",
686 RowBox[{
687 RowBox[{"T\[Rho]", "[",
688 RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], " ", "=", " ",
689 RowBox[{"\[Rho]0", " ",
690 SuperscriptBox[
691 RowBox[{"Tf", "[",
692 RowBox[{"x", ",", "y", ",", "z"}], "]"}],
693 FractionBox["1",
694 RowBox[{"\[Gamma]", "-", "1"}]]]}]}], ";"}], "\[IndentingNewLine]",
695 RowBox[{
696 RowBox[{
697 RowBox[{"TP", "[",
698 RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=",
699 RowBox[{"P0", " ",
700 SuperscriptBox[
701 RowBox[{"Tf", "[",
702 RowBox[{"x", ",", "y", ",", "z"}], "]"}],
703 FractionBox["\[Gamma]",
704 RowBox[{"\[Gamma]", "-", "1"}]]]}]}], ";"}], "\[IndentingNewLine]",
705 RowBox[{
706 RowBox[{
707 RowBox[{"TT", "[",
708 RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=",
709 RowBox[{"T0", " ",
710 RowBox[{"Tf", "[",
711 RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}],
712 ";"}], "\[IndentingNewLine]",
713 RowBox[{
714 RowBox[{
715 RowBox[{"Tcs", "[",
716 RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=",
717 RowBox[{"cs0",
718 SqrtBox[
719 RowBox[{"Tf", "[",
720 RowBox[{"x", ",", "y", ",", "z"}], "]"}]]}]}],
721 ";"}], "\[IndentingNewLine]",
722 RowBox[{
723 RowBox[{
724 RowBox[{"f", "[", "r_", "]"}], "=",
725 RowBox[{"1", "+",
726 RowBox[{
727 FractionBox[
728 RowBox[{"\[Gamma]", "-", "1"}], "\[Gamma]"],
729 FractionBox["\[Mu]0",
730 RowBox[{"kb", " ", "T0"}]],
731 RowBox[{"(",
732 RowBox[{
733 RowBox[{"\[Phi]", "[",
734 RowBox[{"-", "1"}], "]"}], "-",
735 RowBox[{"\[Phi]", "[", "r", "]"}]}], ")"}]}]}]}],
736 ";"}], "\[IndentingNewLine]",
737 RowBox[{
738 RowBox[{
739 RowBox[{"\[Rho]", "[", "r_", "]"}], " ", "=", " ",
740 RowBox[{"\[Rho]0", " ",
741 SuperscriptBox[
742 RowBox[{"f", "[", "r", "]"}],
743 FractionBox["1",
744 RowBox[{"\[Gamma]", "-", "1"}]]]}]}], ";"}], "\[IndentingNewLine]",
745 RowBox[{
746 RowBox[{
747 RowBox[{"P", "[", "r_", "]"}], "=",
748 RowBox[{"P0", " ",
749 SuperscriptBox[
750 RowBox[{"f", "[", "r", "]"}],
751 FractionBox["\[Gamma]",
752 RowBox[{"\[Gamma]", "-", "1"}]]]}]}], ";"}], "\[IndentingNewLine]",
753 RowBox[{
754 RowBox[{
755 RowBox[{"T", "[", "r_", "]"}], "=",
756 RowBox[{"T0", " ",
757 RowBox[{"f", "[", "r", "]"}]}]}], ";"}], "\[IndentingNewLine]",
758 RowBox[{
759 RowBox[{
760 RowBox[{"cs", "[", "r_", "]"}], "=",
761 RowBox[{"cs0",
762 SqrtBox[
763 RowBox[{"f", "[", "r", "]"}]]}]}], ";"}], "\[IndentingNewLine]",
764 RowBox[{
765 RowBox[{"rnorm", "=",
766 RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]",
767 RowBox[{"LogPlot", "[",
768 RowBox[{
769 RowBox[{"{",
770 RowBox[{
771 FractionBox[
772 RowBox[{"T\[Rho]", "[",
773 RowBox[{"x", ",", "0", ",", "0"}], "]"}],
774 RowBox[{"T\[Rho]", "[",
775 RowBox[{"rnorm", ",", "0", ",", "0"}], "]"}]], ",",
776 FractionBox[
777 RowBox[{"TP", "[",
778 RowBox[{"x", ",", "0", ",", "0"}], "]"}],
779 RowBox[{"TP", "[",
780 RowBox[{"rnorm", ",", "0", ",", "0"}], "]"}]], ",",
781 FractionBox[
782 RowBox[{"TT", "[",
783 RowBox[{"x", ",", "0", ",", "0"}], "]"}],
784 RowBox[{"TT", "[",
785 RowBox[{"rnorm", ",", "0", ",", "0"}], "]"}]], ",",
786 FractionBox[
787 RowBox[{"Tcs", "[",
788 RowBox[{"x", ",", "0", ",", "0"}], "]"}],
789 RowBox[{"Tcs", "[",
790 RowBox[{"rnorm", ",", "0", ",", "0"}], "]"}]]}], "}"}], ",",
791 RowBox[{"{",
792 RowBox[{"x", ",", ".6", ",", "Rz"}], "}"}], ",",
793 RowBox[{"PlotLegends", "\[Rule]", "\"\<Expressions\>\""}], ",",
794 RowBox[{"GridLines", "\[Rule]",
795 RowBox[{"{",
796 RowBox[{
797 RowBox[{"{",
798 RowBox[{"{",
799 RowBox[{"Rz", ",", "Black"}], "}"}], "}"}], ",",
800 RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]}], "Input",
801 CellChangeTimes->{{3.66944206559667*^9, 3.6694420718731127`*^9}, {
802 3.6694421493837233`*^9, 3.6694422693095713`*^9}, {3.6694514018892193`*^9,
803 3.6694514032010307`*^9}, {3.6694515021634827`*^9, 3.669451504485875*^9}, {
804 3.669453914496231*^9, 3.669453920101657*^9}, {3.669502811903143*^9,
805 3.669502833534245*^9}, {3.669586021008461*^9, 3.669586034479445*^9}, {
806 3.669586100316848*^9, 3.669586134614629*^9}, {3.669590201122452*^9,
807 3.669590207343659*^9}, {3.669593529306814*^9, 3.669593537177918*^9}, {
808 3.6696128175474253`*^9, 3.669612940653647*^9}, {3.6696129871348877`*^9,
809 3.669613004484077*^9}, {3.6696133514767227`*^9, 3.6696133808836813`*^9}, {
810 3.6696134352273073`*^9, 3.669613471069282*^9}, {3.669613889720964*^9,
811 3.669614007696013*^9}, {3.669614603639659*^9, 3.669614633863126*^9}, {
812 3.669614886438766*^9, 3.6696148870595303`*^9}, {3.669615061995084*^9,
813 3.669615068625708*^9}, {3.669615124956015*^9, 3.669615126155599*^9}, {
814 3.669615200106296*^9, 3.669615200223859*^9}, {3.669615244530056*^9,
815 3.6696152488655033`*^9}, {3.6696152951560783`*^9, 3.669615359709313*^9}, {
816 3.669615448368805*^9, 3.6696154519574833`*^9}, {3.669657982568961*^9,
817 3.669658009442843*^9}, {3.700452552002681*^9, 3.7004525904847317`*^9}, {
818 3.706118489906701*^9, 3.706118502619913*^9}, {3.706119506759841*^9,
819 3.706119515958757*^9}, {3.706119548190041*^9, 3.706119563462002*^9}, {
820 3.706119626196658*^9, 3.706119631748784*^9}, {3.706322097183745*^9,
821 3.706322130521186*^9}, {3.70632218830542*^9, 3.706322206521039*^9}, {
822 3.7063222688616*^9, 3.7063223480925694`*^9}, {3.706322479830809*^9,
823 3.7063224832141848`*^9}, {3.706322528923738*^9, 3.706322602381021*^9}, {
824 3.706322651062531*^9, 3.70632267948626*^9}, {3.706322760284219*^9,
825 3.706322891878377*^9}, {3.7063229994728003`*^9, 3.7063230711660767`*^9}, {
826 3.706323103196155*^9, 3.706323150212474*^9}, 3.7063231878210506`*^9,
827 3.706323295457307*^9, {3.7063234305287952`*^9, 3.706323451662105*^9}, {
828 3.706327436958556*^9, 3.70632749978957*^9}, {3.706327540204545*^9,
829 3.706327673634824*^9}, {3.706327711261509*^9, 3.706327713652556*^9}, {
830 3.7063277449831953`*^9, 3.706327750937533*^9}, 3.706328178047235*^9, {
831 3.7063282312261667`*^9, 3.706328344856741*^9}, {3.706383438578597*^9,
832 3.706383439078227*^9}, {3.7063892716050463`*^9, 3.706389272462964*^9}, {
833 3.7063895426007767`*^9, 3.7063895534707937`*^9}, {3.706389605921068*^9,
834 3.706389683365243*^9}, {3.706395345482723*^9, 3.706395482476142*^9}, {
835 3.706395514637834*^9, 3.706395547932001*^9}, {3.7063955989256268`*^9,
836 3.706395697202076*^9}, {3.706396017535955*^9, 3.706396040860262*^9}, {
837 3.707065632831259*^9, 3.707065650664407*^9}, {3.708201252682775*^9,
838 3.7082012531919203`*^9}, {3.711223952367532*^9, 3.7112239756010017`*^9}, {
839 3.7112246868026667`*^9, 3.7112246873256598`*^9}, {3.711226621701516*^9,
840 3.711226632960472*^9}, {3.711226678745072*^9, 3.711226736611897*^9},
841 3.7112276497075243`*^9, {3.711228672998069*^9, 3.7112286744953833`*^9},
842 3.711229751753834*^9, {3.711230098000937*^9, 3.711230104090377*^9},
843 3.7113915331961937`*^9, {3.711556739873527*^9, 3.711556767681951*^9},
844 3.71323873972686*^9, {3.713239130458602*^9, 3.713239149641523*^9}, {
845 3.713241722058004*^9, 3.7132417508656597`*^9}, {3.7132688326320457`*^9,
846 3.713268842893772*^9}, {3.713270277464055*^9, 3.7132702790708427`*^9}, {
847 3.713453977145095*^9, 3.713453978696479*^9}, {3.718981149755103*^9,
848 3.7189811753111963`*^9}, {3.71911499957994*^9, 3.7191150961291513`*^9}, {
849 3.719115221590663*^9, 3.719115244474184*^9}, 3.719115728680346*^9, {
850 3.719116077847435*^9, 3.719116085357943*^9}}],
851
852Cell[BoxData[
853 TemplateBox[{GraphicsBox[{{{}, {}, {
854 Directive[
855 Opacity[1.],
856 RGBColor[0.368417, 0.506779, 0.709798],
857 AbsoluteThickness[1.6]],
858 LineBox[CompressedData["
8591:eJwV0nk81PkfwPG5MFjHbx1N/fwWKStsKpSjvL8mZYVyVGaUq7LKETpcY1xR
8609JtyVSK1rR1rRbly5Pp+lTZhaUUsHZsxRs75OHLzm98f78f78fzr/Xi8Hy/t
861U8EuvhQSiXRRMv/f2+K7zYyNBeBSc5ZqT6Vj+i1farkmAkhLG8i7RqZjhkrr
862e1tMBdBKD9/XvC6D7bi/zdrDTABzw6pn9q3IYLufxdhd2yeAkCK/MKM5GYyJ
8639NwHbAVw+W9m0bciGeykD5dz5aQA2BSeSU+rDJZmrdv4NkkAvAirWrsMGezf
864vq2xfp8EcCyzp4i9QQYTRnvfkzceAuy9vqYKXxpLZVWUyScNgd9oY/HVXdKY
865RxaLtv5hCGZ+OzRQWCWF+bdOlVJ2CmE4OCD/KFMKu+f9d/bidSGcYBYZuL+g
866YY9rY7kOAiGkrc/JPjpAw1bpjLoS02HYwFPZeLaTil2opZhKpw5DX862xmlH
867KrbV+xM9aHAYEuJoPt1vKdiz1xG9RiYisHQ70vuXOwULvXNmUMgTgVrJnauo
868h4z5uTFtiz+JQOv5nnMsFhlL4FwY8TUfgVpetYZdBwnjnvZK5KSPgOvElf18
869GxJWDVZRvwhGwJhjXXkpcR3UYoOLa/d+gXPC7PSqM2tQVp5hNpT6BdRV9/9u
8704roKF+zoZPLoF3DdD/WrW1ZAhW/RHMkcha4KI4veuSWYmfb8TLk9Cr9+y9B9
8712b0I8/wei9jJUXjK3/1pNHMBLOytJuWZY8AfK4is954Hj8rTubOZY9CEmSn+
872afAV+AkDV9+Mj0HUmx0amm9nQd/mQFs9jEOpU8Gfj67NQPdZskNu9jh0tPGV
873ClWnwcs56lUvGgf/tiWD/ffEoLddmKtjMwGMkfeCkJOToHY+78mp+xOwzUra
874T27rGFjnOW8qF09AnVV7iwV1BBxzGuI8mJMwV2er4NYxBDFzHJ2VnEkoNAmh
8758L7/DBM2hlpFE5OwZm4mGNUagLj57WxH2yngan540zDYBS4PdMbXc6ZA4cf0
876bzJ8XgJNtidScWIKIg6dFiQKHkJQwLg2XUcMD7n0oMxCHI9wEBmnO4gBdw67
87746PWhat5yQ9lRorB+2z0s91GH/G8tzfSm/PFoOLL9luuFuKHmbKBqx1iMMBW
878ctxKx3He4OOhkmUxHBy2zeaWT+NfWTadx1fE4EFq+69O8zTu1dn/bFXiwOc9
8798j090/iueplU+zUx7B50mnNfnMb7bvuYi0gIIsKlLWexGXyLndrN76QRJMcc
880Dg7omsHrSqL33FBGUPDmhOXY2iw+Gm1/3X8rAiS+tLs6YR4fCOw1VNRFMBcs
881axGcNY+3nzzdWSbx5lD1xD3F83jJXo7q4vcIsJ0Tbos98/illUcPrukjqItv
882oh7QX8DXOHIVfCMEKhu1YtXeLeD/4rwe+GiOQO6Xbs5FyyWcEnAsJsECQU1V
8834sHzLkv4rPtnLV1LBI4FIkfuuSX8ncWib9BeBFMG5MK+rCU8Z0lPvGyF4HYF
884vEieW8K3RCXTNtog4LoEpaCny7hZpO0ProcRJMlZeKkfWMXFCg5VtCMIfvtd
885dUHDZxUvyHOCKom1grtITO4qrt7Odt7ojKBxPih8pHIVn/0u8PInVwQXWLTm
886J3preGlzWkMAG4GHtGHYKdV1XE+53zHxDALZxcCJ41dIxD/8j+9MfRE8PjF7
887+WYmicgyF3iJJGbY2T7o/5VESJ8eDz3kh+Ay+3xhWTOJGKpcu63sj0BJ26DP
888W4ZMPDyh8zE3GEGwAk99IY1MMAoCz1dGITjS074srKIQNZpbGSc4CHI1V3mC
889FgrBuvuhiRSN4GtFattSP4W4m3JYzYGL4OZaSnz4OoVgBO6oH4xFkNFrFlpu
890RyUYO2dllZMQTAjL9CMEEtdx8v1TEbi9v/hkdLsUUWNsckQ5DYFuh1NWp40U
891wSoeX6iU2P5q/3y/uxRx976HAzkDAS2A4eR3TYpgxMFM1i0EqZfK2D8NSnyA
892av0yW3I/Vbcx+aE0saHz+ntNPoJdcJ/DY9KJozcSW/skHigO6f3gQycy7GNq
8930vMl/71sOhsTTycUWkJvUQsQhG7eRatuohPUJpaDqFDSR58nx+igLDFVrlv/
894pETSbxz75oq3HGEYqvXIrxSBRsHX8O1X5Qh/o013tcoQJJzKrP2rSI4QFilc
895yihH4DXUxwlfkCMG+LMGYZUIvP/RPH4rS554def5vX11CJyOxmlvFn9D0I7V
896p3yV2Bg2LCz9R4FgqlSFl9QjeHldgxPvoEA0pBa6ajdK+oRNQ8VFCkRFcpq8
897VBOCH6LT/bQvKhLig9cXGyR+ahnhLFegSGyXShSFPZf0Uq003TWgSBTGh78Y
898eYFAOn/Ts80/KhE/R3ly2v9AwFZFx1jqysR7M9a5pFcIVM2rc21MlIlN885u
899Vi0IYtxSPP9wUSYSXx/0LHiNoGk5L2RzmjLxP7/Uo04=
900 "]]}, {
901 Directive[
902 Opacity[1.],
903 RGBColor[0.880722, 0.611041, 0.142051],
904 AbsoluteThickness[1.6]],
905 LineBox[CompressedData["
9061:eJwVzns803scx/Ft1pqGYfSg8zgVU9HpolCs8vnS2EMuhVNJLbkVJbcumoUS
907KdVBTplbF+l0yl1FdNnXOTyU06EeuhqGbeYy7CclUTvOH+/H6/H8720WFOUT
908SiGRSDtn93+tTr+xt7GRgQv3ffIzihFa/nywPsFWBv966vBdyUZoBVOz8bmd
909DHzS7G1aNSxkXWjlxLeXQRze3941w0Lr6hLd0jbJ4FxdSd/MFxZyJiz9JTwZ
9109AYEOXCGWWhPYILwzB4ZfCa3lFS1s1Cm09Jn7akyaKnrbrpczEI/hbYkHZDK
911oPnbGuZiRxZSnNyXz7CRg12Q1xiz2xBl+N2vYqTKodTkOic6yRDxc/yomi45
912tNg9W2dvYogOtoxVUtYoYCjt43nXWgOUv+9j7lS6Ajxq9dqOeRqgsvqkBA+Z
913Ar7+WsR/JNdH3+kmjyvs+iH8usJoRbI+iq2n2NEy+uFBibnblvn6aMk+Kf1w
914Xz+k/FJ9UyeQiepenHi/2lYJtf2rnvBz9FDM1ZA+xUUlsAXbepR1uujATmde
915qVQJPaK5/tkDOihZGDsQ6jAAUkjrEFB0UEJwQIowa9Y9kiaDnxmoFhzjb8oG
9164F4/I6dm8zxknBRVWr9xEJJ/3y4Y8dVGVdWX7eUZg/A0s28dOZqOYt3oZPLQ
917IETrpjdbHp2LWMWcRoHzEHQYJ1Sei6OhT+N7eylXhqArJHxL8dk5aLL4LSdp
918dAiudlPqNwupiOPuOMpwHoYHuTX1PKEW4j8MLpjIHgb3Cx8vvBVQUHGy5Owr
9191TCE+LWrcv3JaDnX5Z8noIJNf+8rCXYloTdhZI+CXBWQ7houiDL/AQHe8c3v
920CRVQfSc/RZVNg+UqRQGbOwLhDX1P6Z5TYBxZVB5UOAKtNqmk7mtfwKnIe0G1
921egRcbe/NVFImwDPv6Sm+8yh8jdnfU7iDgMTPQvZM3ihEUx6XO+aoYIS7YnHJ
922yCj4WFPDIvP74dTkql2evDEwlzbRlAIp+FxjqzR5YxBkIJi39fVroGq/FeiN
923jMHp19/iu5aUwuFDKjM6Ww2BrLTU20Et4hMeSpssDzVkd0XdLmJ3i40DGPJs
924gRr+IG9y8Vs2KC5qv5TVeFsN8sSWU96m42IvZ+2I761qaE1fRnYbmBRf7CuT
925V0yrYdHbOI3QSiP+4sdt2zGjhkLS9wGFq0Yc0NZR933We3PrWMEhGvHaJ3Mz
9263H+ooYLdKcq5rhF/uBLooCQR4KBnveY4g4Qt3Ix/W0gjIDa8obM8hYQfV5xc
927f0mfgAsfzPaYJpHx0En39INLCDhyJLBMlKOFJRHvV+gtJeDmWn5l559a+OWe
9284LaqWY/TwzavqtfCFRuFRlPLCKjxVR/51qmFj87cu5a2nIAYJ7MzDmwq/iGc
929d794NQGcgy5woJqKDYQvJN0OBJyXSLLsOudgyqHtickcAriiSMXusTl4wr93
9308dINBBxiOM3PptDwO85U6OGNBPC2vrtoa0XDed8s1dOOBHjjAE9eHA1bxJ+j
931mnIJYC2Q8F7Mn4vtBbyVvl4ENNF3b90UQsdqXY8a6lYC1q03sBAJ6fhO0Tao
932mbW6irpDJ5uO57/c5W3qTcCLW5JHTn/R8cTCiGNSXwIeupV/7TfTxpWNmU8P
9337SJgqsJC16dfG1vqd3imhBAQOjGvNzOVgXuKu9/ZhRLwUqQyFd1g4BwHWYBy
9341lZtx6sbHjMwLVgVs+UAAZFDtVEJ4wwsf/jjiv5BAhp7eWE3A3Xwjd3s7oIo
935ApgNjq/GXXWxyZ2IyIfxBHQ8unfrjTUTP1q0xGS3kAB/6e0rr7yY2E/U1UA6
936SUD+O67vZAQTi857GXskEDDis2Fl810mNomwftKXNPuX7r9XbKiPG5oC0z6l
937ENAwXRRtnqmP/wOtU6rM
938 "]]}, {
939 Directive[
940 Opacity[1.],
941 RGBColor[0.560181, 0.691569, 0.194885],
942 AbsoluteThickness[1.6]],
943 LineBox[CompressedData["
9441:eJwV0ns81OkXB/AxZoaylpKSlBGJEpUuKM4SKzUluk0hkfkpl+SyaYwSabv8
945MBQSSvz0Qyokya3na2lRwraVSoghZoxmnozRaJid/eN5ndf7j3Ne5zmvj5F/
946mCeLTCKROMr3bzWPf2Njbc2DzV0u5PVk0i+rWvm1ZzfwQEPDfhFVhfSLhZZi
947a+tGHlRrSDzKFQpYe8vc0ceGB9g6/KJ8WgGbas65XbLnAXD7b6VjBThhs8M9
948rjzIaVflNvUpwNvvLOeCNw+MVLV/NahRQKqj6bO/L/JASzpTUB2qgCWsF3GB
949/TyIaDYYbm+bheHYozka1kOwv4t3bvHaWeAyKys0Lg5Bf/JsamXWDPjcYFIU
950vUPgfOWYSfKEHIJeiMrJ64ahF7ifTjHlkHP0w03Z1WFgM4eGlpf9gAe1cWcZ
951vGEg9t3yT1b7ATPqenVlG79AFCvM6POJaYioJW+kcb8Anb25eFuDDFYc7VcP
952HfwCqge84k/py6Cm7Uy31YYRkC1DbYvY3yE8M2BwOGkEDNIjK4UtUxB40Mn1
953fv8InH+QN/AbfQoSOBGjLNtRYPwnj+N3XApnj/kmctJGYfFIGaWnfBKqwSEm
954nzcKyz3fnflOngTduLD7tVv5kLNtnp/JNglUPLpmM8TlQ4BmwvNXSRMQ4aau
955oiLgQ3L3m9d7m76BTqFdM9tJAAPRL0ztZBgmvh0ZIGcIQK+69uQFGwxThW/t
9564r4K4IxeZ3quvxjsdjp81XAag9+5V6furhaBT9WxXMn1MSgtnZxfzx2HwoSe
95737uEY5BPjMWYN4/BKmeXl/UghMzgDfNt5wrgzXEVRu5NIbBqexYkLRkFX4+Y
958lm4shM1aMu4hky9gZjmca+w8DnXZozfu2A+B7smCh/63xiHCnJJdoTcIjgUe
959+o/E4/Da/PLaleTPsCu74byP01fA7nMD2xp64Nwkx1ie/RWScjKYrP53MO5s
960QS8d/wpFpl1CrPsazk9ZHtrlKgLPuL+CPS3bwPO2sVCRLQK/qkZtvYR6oMx5
961y/55XAQ8TSurisRMCA0WGqkbi2FpCfV29ZIqdIYxYp3GEEPxoomlCQatSNdX
962Y+g6Wwz87JkutuEbVPB3clrzXTGErIve4D75Ce12mhMy0yGGiLeegXZ0Hkoa
963fDBU9kMMlb2+7fLxUSRlOncekIshlhRQm0jlI9/OjzUzSg8/aNEyWMpH6+vV
964uDtnxSBJWOjKZvDR+ww/2xEShkm3yt3iUj4ycdNNWUbD8KT4ePpQqADVlcVu
965TtbG0Ed0ylJmx5AgdufVoBUYhGM52yVMEeoJ6bb42RRDrsBvV3qUCLV7H+us
966UDrRMZK6I1WEyrZyFshWYtgv/GI41SJCUfJ7ty+twrBSJZ5saSBGs5y5lYVW
967GPzrghRPU8RoHqetp88Wg9pCXtFULEbk4P3nEuwwdLGZiW5JGEkOD9BNt2C4
968EpbdV5yD0Ts7GSt0K4a8iNJTqbUYZU+biX84YPj5VVw3VYaRScxlymJnDCUD
96922n5Z74hG7brmr27MVDUYiHgwgQSazKeUNwxPH+uuUcncwIVFeyBJ0oTkk2l
97074on0ML2Qx6LPTC8cXebzu6YQJJlIb/171Xm2I65xnCJBJU3pzYEH8KQfmhp
971oeNTCTLT/rgrMQBDtXTLSCRFij4X9r3byMKwNUbsqqMvRTdseb4jShv95GvW
972YSVFtGPC8B2BGLDR9aQbXlI0VDWboR2E4US8LT3+sRTd8TLuyw3DAIGsyMng
973KaRXFHKyKgbDgpY6996J7+ip4Qo9Lw6G2DiPeR81ZIiZ1dtIisWw3SVIS2Ys
974Q1lXdusyzmJ4Vux/MG+fDOmFrK0fjMPQFCXNzKpWep1kjvZFDGnrx23uJE4j
975vTrO3SAuhqgukX2Kgxw9td7grp2K4VJDcBTykiPmfeH3KqVrfIwnjdlylHXL
976h6FyDUN5Cp248liO9M7DxI10DEE5wvbeNTNIz0XV8flN5X/Q5Zmjq2fRos6r
977nwwLMSxf9azIx4JE7EtOfPFeafvIO1wHRxJxbee5p2l3MTB2dxTsO0AiNFvD
97801WLMOQ3nn5gEk8iVBuZjJESDN7DfHnUBxIhemRa/7AMw497Wx7PZKgQFuH0
979e4HlGObru99te6hCBFnpZ9ErMBwU/rRyoEWFGC7VjLr2SHnPrFTP6WkVoqdQ
980svp0FQaBAKVosshES+YfOfZ1GD4P3gtu3KFKUPbXX5HW/btv7bTHCVXCSedJ
981dFk9Bks1Hc8Dl1WJBm7JXqNnynzGzctqbVElKi+nalAbMbR5PhERDAoh/vWq
982rEHpjpV7NnmHUQhLauLI6T8wXO/0zU+6RiFK4qObRpuUeTxZ39X4kULkxRzh
983tP+J4eXzzAh6JJX4ZMM8cbEFQ3i+mykth0roT3kcdGjF4GlYbVbZRCUyIl2s
984y9swhJV0376wiEb8N8Ri7Ho7Bpf/60oVbTSidZXpB8YrDLqO2XMMZTSCxjds
985oXZg0HpBE+w3VyPiWTr/i+5U9ps25zkmqxHPjDXT1nZhWEMnMxY0qhHyAVoc
986X+m4DzPFdlI1wu4OKbTgLwyBa2oq/rRQJ6KPTB/2eq2c5533/mWAOvEPgzII
987Cg==
988 "]]}, {
989 Directive[
990 Opacity[1.],
991 RGBColor[0.922526, 0.385626, 0.209179],
992 AbsoluteThickness[1.6]],
993 LineBox[CompressedData["
9941:eJwV03s81HkXB3DGpYu1lJSkEAkplS4ozhJr1ZToNoVU8iiXJEpjXCLtyoNB
995lEYiD4tUSHLvmyiU0NUtxpgZY8Ywv+/OMBHZef44r/N6/3H+OOd1Pvpngtx8
996SHJycjRZ/b+bxHy2tLBgw84uR9JWEgGmrfzayG1sWKxis0JJngAztfndrdvZ
9978ExF4lo2L4LN2SZ2npZsEFsE35idEcGOmijnv2zY8BudmZ2ORWCPjU/0O7Eh
998q12B3jQoAo/TkbTrHmxYq6D+u06NCFLsjF58usEGtam5vKpAEazyeRvty2RD
999cLMOt71tArgRp7JULDhwpIsdtXLzBNApFeUqNzgwmPQzpSJzHDzvUBTnBzjg
1000cNPbMEksBL+3ojLSFi58A/q3ixQhZJ3qvTudwAUqhcNZWzoGj2ujI8lsLrw8
1001nH0macEYzC3UqivdPgKhPkH6Q+cFcKmWtF2ZPgJrqDuL9jTwYd0p5sLA4REg
1002HXWPuajNh5q2q93m23ggXYPaVlBHIfj22WFuIg900kMqhC088D1m7/SIyYOo
1003xzmsy3o8iKVdGvWxGoX9/8mhnT43ApHeXnG01FFYyStV7C/jQhXYhj9gj4K+
100429er30lc0IwOelS7mw+MPUtOG+7hQPnTNEsOnQ/eqrGv3yey4ZLzQnl5AR8S
1005uz9/PNQ0DBr51s1UewGwwt4aWU+zQPzPSRYpQwDLq2ovXLdkgTT/i3X0hACu
1006anWm3zszBNb7bCdU7Mcgjp4gLdjABM9K73uSW2NQXDK5tJ4+APmx/X92Cccg
10079+VYuElzP5g6OL6rByGk+W9barW4Dz6fkyffuysE39r+ZYmresDLNbylGwvB
1008Um2aftzwKxhv4t4zcBiHWsbonVybz6B5Ie/JmexxCDJRZJRrfQS7PFftp8Q4
1009fDCJ37ye1AX7GQ3XPO0nQOiy2Let4R1ETdIMZhkTcDMrg+LDfAPjDmZ6JeMT
10108LdRlxBrvoJr0k3H9zuJwDn6g7/bphpwu28gnGeI4ERlo7pW7CNQXPSF+uu4
1011CHpUzc3L4/6EQH+h/kIDApYVK92vWlWArpJ5FqlkAgpXiFfH6lQjTS8Vzi0q
1012AROMuS6qbjPK+5SU2lxAwIUtYdtcJtvRAftFAXMdBFz+4uZrrfcJJQ4/5pT+
1013IKBiwKt9drwHTVEcOo/OEhApd7Y2TqkXeXX21czJzHvcoqazuhdtrV9A3/eT
1014ACJ2uROV3It6Mk5b8eQwTDpXHCBKepGhs2byGmUMz4vOpXMC+1BdacTOJHUM
1015gy87p5N/9iNBxL4Ev3UYhGNZf0goTNQf0G32qxGGbMHp/emhTNTu4d1ZLvN1
1016uxClvSlMVLqbtmx6PQaKcERX2sJEobMP7/9limG9fAxpk84Q+klbXJFvjsG7
1017zm++OnkILaG19Q9aYViwnF0ojWAhkv+RqFhrDB+olDjnRBaSnGDpGe3CkBDE
1018GCzKYqGv1tM+gbsx5FwquZhSy0KMGWPihy0GtffR3UrTLGQYHq+40gFDMesP
10195QdXh5El1WnjoQMYFBdEwNnrbESokp8rumB4/Vr1oMZtNirMOwjPZW6U7Cj5
1020WsRGy9uPu650xfDZxXmG0cFGkjUBl5mHMEitKRt1V3FQWXNKg/9xDBnHV+fb
1021VXOQsXrf/rizGKqmdvFCFEfQUP7g1+0+WJYqwklDewTdsWJ78WRe+4uXcYf5
1022CFL2Fgbv9cUg1r+VeMd9BHEqf2ao+2Hwj7HSi3k2gnLdDQbvBWH4zdcnZNKf
1023h7QKAy5UhmPQbKlzGRCPomrddVruNAwR0a5L+lT4iJI50CgXgcHZ0U9t2oCP
1024Mm8e0CRHYnhRdOZYzmE+0grYXD8cjaEpdOp2ZpXMWySL1G9gSN06bpkbJ0Ba
1025dbQCPzqGkC6RTbKtEFVbbHNRT8EQ3+AfityFiPJI+L1S5hpPg0kDqhBlZnuS
10265dMwPE3We3nzmRBpXQPxnXQMflnC9oGN40jLUcHu9V0M51H83KkNE2hFZ8I3
10273XzZ/qYvCj3NCHQ4Ke5tj8w2Ibl0WzsCpe2Lqk4twEA+0JF3+CiBVFuD0xUK
1028MTxovPLYMIZACo0UMq8YgweXPxvaSyDRU6P6J6UYfjzc9WwuAyOzYL2HvmUY
1029lmq7FLQ9wcjPXDtTrxzDMeEv61ktGHFLVEPTnsrumZniNjODUX++ZMOVSgwC
1030AUpW9fkHtdx+lWVTh2Fo+KF/414xUjxSf3NKZgPT2hnX82Jkr/E8rLQeg/kC
1031Dbej8WLUQC8+pP9C9p/RSzJbW8SoIj5FRakRQ5vbc9FLsgQRvydMN8jcsf7g
1032Do8gCdqkFMe78grDrU6vB4lpElQcE9Y02oRB6UJ9V2OfBOWEn6S1v8HQ/vr2
1033Jb2QSfTNknL+RguG4AfORspZk0hb6nrMthWDm26VcUXTJMoIcbQoa8MQVNx9
1034//qKKfTfALOxW+0YHP/WnJpvm0Ktpka95PcYltsxFulOTyFlvm6LUgcG9bfK
1035giMmUhTjo/G/sE7ZvFFzjl2SFL0wUE3d3IVhox6JvKxRimZZytF8ma/1zhVZ
1036T0mRda5cYN4HDL4ba8rfmH1HYSdnTrh/lOXNI6fn3dnv6F+I3iAZ
1037 "]]}}}, {
1038 Ticks -> {Automatic,
1039 Charting`ScaledTicks[{Log, Exp}]}, GridLines -> {{{1.113856665019139,
1040 GrayLevel[0]}}, {}}, FrameTicks -> {{
1041 Charting`ScaledTicks[{Log, Exp}],
1042 Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}},
1043 AxesOrigin -> {0.6, -4.140756378123968},
1044 PlotRange -> {{0.6, 1.113856665019139}, {-4.140756378123968,
1045 5.459851679425872}}, DisplayFunction -> Identity,
1046 Method -> {
1047 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" ->
1048 AbsolutePointSize[6], "ScalingFunctions" -> None}, DisplayFunction ->
1049 Identity, DisplayFunction -> Identity,
1050 Method -> {
1051 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" ->
1052 AbsolutePointSize[6], "ScalingFunctions" -> None,
1053 "ClippingRange" -> {{{0.6000000104868707,
1054 1.1138566545322683`}, {-7.623042326839612, 5.002679867161594}}, {{
1055 0.6000000104868707, 1.1138566545322683`}, {-4.140756378123968,
1056 5.002679867161594}}}}, DisplayFunction -> Identity, AspectRatio ->
1057 NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True},
1058 AxesLabel -> {None, None}, AxesOrigin -> {0.6, 0},
1059 CoordinatesToolOptions -> {"DisplayFunction" -> ({
1060 Part[#, 1],
1061 Exp[
1062 Part[#, 2]]}& ), "CopiedValueFunction" -> ({
1063 Part[#, 1],
1064 Exp[
1065 Part[#, 2]]}& )}, DisplayFunction :> Identity,
1066 Frame -> {{False, False}, {False, False}},
1067 FrameLabel -> {{None, None}, {None, None}},
1068 FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}},
1069 GridLines -> {{{1.113856665019139,
1070 GrayLevel[0]}}, {}}, GridLinesStyle -> Directive[
1071 GrayLevel[0.5, 0.4]],
1072 Method -> {
1073 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" ->
1074 AbsolutePointSize[6], "ScalingFunctions" -> None},
1075 PlotRange -> {{0.6, 1.113856665019139}, {-4.140756378123968,
1076 5.002679867161594}}, PlotRangeClipping -> True, PlotRangePadding -> {{
1077 Scaled[0.02],
1078 Scaled[0.02]}, {
1079 Scaled[0.05],
1080 Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
1081 FormBox[
1082 TemplateBox[{
1083 FractionBox[
1084 RowBox[{"T\[Rho]", "(",
1085 RowBox[{"x", ",", "0", ",", "0"}], ")"}],
1086 RowBox[{"T\[Rho]", "(",
1087 RowBox[{"rnorm", ",", "0", ",", "0"}], ")"}]],
1088 FractionBox[
1089 RowBox[{"TP", "(",
1090 RowBox[{"x", ",", "0", ",", "0"}], ")"}],
1091 RowBox[{"TP", "(",
1092 RowBox[{"rnorm", ",", "0", ",", "0"}], ")"}]],
1093 FractionBox[
1094 RowBox[{"TT", "(",
1095 RowBox[{"x", ",", "0", ",", "0"}], ")"}],
1096 RowBox[{"TT", "(",
1097 RowBox[{"rnorm", ",", "0", ",", "0"}], ")"}]],
1098 FractionBox[
1099 RowBox[{"Tcs", "(",
1100 RowBox[{"x", ",", "0", ",", "0"}], ")"}],
1101 RowBox[{"Tcs", "(",
1102 RowBox[{"rnorm", ",", "0", ",", "0"}], ")"}]]}, "LineLegend",
1103 DisplayFunction -> (FormBox[
1104 StyleBox[
1105 StyleBox[
1106 PaneBox[
1107 TagBox[
1108 GridBox[{{
1109 TagBox[
1110 GridBox[{{
1111 GraphicsBox[{{
1112 Directive[
1113 EdgeForm[
1114 Directive[
1115 Opacity[0.3],
1116 GrayLevel[0]]],
1117 PointSize[0.5],
1118 Opacity[1.],
1119 RGBColor[0.368417, 0.506779, 0.709798],
1120 AbsoluteThickness[1.6]], {
1121 LineBox[{{0, 10}, {20, 10}}]}}, {
1122 Directive[
1123 EdgeForm[
1124 Directive[
1125 Opacity[0.3],
1126 GrayLevel[0]]],
1127 PointSize[0.5],
1128 Opacity[1.],
1129 RGBColor[0.368417, 0.506779, 0.709798],
1130 AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full,
1131 ImageSize -> {20, 10}, PlotRangePadding -> None,
1132 ImagePadding -> Automatic,
1133 BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
1134 GraphicsBox[{{
1135 Directive[
1136 EdgeForm[
1137 Directive[
1138 Opacity[0.3],
1139 GrayLevel[0]]],
1140 PointSize[0.5],
1141 Opacity[1.],
1142 RGBColor[0.880722, 0.611041, 0.142051],
1143 AbsoluteThickness[1.6]], {
1144 LineBox[{{0, 10}, {20, 10}}]}}, {
1145 Directive[
1146 EdgeForm[
1147 Directive[
1148 Opacity[0.3],
1149 GrayLevel[0]]],
1150 PointSize[0.5],
1151 Opacity[1.],
1152 RGBColor[0.880722, 0.611041, 0.142051],
1153 AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full,
1154 ImageSize -> {20, 10}, PlotRangePadding -> None,
1155 ImagePadding -> Automatic,
1156 BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
1157 GraphicsBox[{{
1158 Directive[
1159 EdgeForm[
1160 Directive[
1161 Opacity[0.3],
1162 GrayLevel[0]]],
1163 PointSize[0.5],
1164 Opacity[1.],
1165 RGBColor[0.560181, 0.691569, 0.194885],
1166 AbsoluteThickness[1.6]], {
1167 LineBox[{{0, 10}, {20, 10}}]}}, {
1168 Directive[
1169 EdgeForm[
1170 Directive[
1171 Opacity[0.3],
1172 GrayLevel[0]]],
1173 PointSize[0.5],
1174 Opacity[1.],
1175 RGBColor[0.560181, 0.691569, 0.194885],
1176 AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full,
1177 ImageSize -> {20, 10}, PlotRangePadding -> None,
1178 ImagePadding -> Automatic,
1179 BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
1180 GraphicsBox[{{
1181 Directive[
1182 EdgeForm[
1183 Directive[
1184 Opacity[0.3],
1185 GrayLevel[0]]],
1186 PointSize[0.5],
1187 Opacity[1.],
1188 RGBColor[0.922526, 0.385626, 0.209179],
1189 AbsoluteThickness[1.6]], {
1190 LineBox[{{0, 10}, {20, 10}}]}}, {
1191 Directive[
1192 EdgeForm[
1193 Directive[
1194 Opacity[0.3],
1195 GrayLevel[0]]],
1196 PointSize[0.5],
1197 Opacity[1.],
1198 RGBColor[0.922526, 0.385626, 0.209179],
1199 AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full,
1200 ImageSize -> {20, 10}, PlotRangePadding -> None,
1201 ImagePadding -> Automatic,
1202 BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}},
1203 GridBoxAlignment -> {
1204 "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}},
1205 AutoDelete -> False,
1206 GridBoxDividers -> {
1207 "Columns" -> {{False}}, "Rows" -> {{False}}},
1208 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
1209 GridBoxSpacings -> {
1210 "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}},
1211 GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
1212 AutoDelete -> False,
1213 GridBoxItemSize -> {
1214 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
1215 GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}],
1216 "Grid"], Alignment -> Left, AppearanceElements -> None,
1217 ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction ->
1218 "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
1219 FontFamily -> "Arial"}, Background -> Automatic, StripOnInput ->
1220 False], TraditionalForm]& ),
1221 InterpretationFunction :> (RowBox[{"LineLegend", "[",
1222 RowBox[{
1223 RowBox[{"{",
1224 RowBox[{
1225 RowBox[{"Directive", "[",
1226 RowBox[{
1227 RowBox[{"Opacity", "[", "1.`", "]"}], ",",
1228 InterpretationBox[
1229 ButtonBox[
1230 TooltipBox[
1231 GraphicsBox[{{
1232 GrayLevel[0],
1233 RectangleBox[{0, 0}]}, {
1234 GrayLevel[0],
1235 RectangleBox[{1, -1}]}, {
1236 RGBColor[0.368417, 0.506779, 0.709798],
1237 RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame ->
1238 True, FrameStyle ->
1239 RGBColor[
1240 0.24561133333333335`, 0.3378526666666667,
1241 0.4731986666666667], FrameTicks -> None, PlotRangePadding ->
1242 None, ImageSize ->
1243 Dynamic[{
1244 Automatic, 1.35 CurrentValue["FontCapHeight"]/
1245 AbsoluteCurrentValue[Magnification]}]],
1246 "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance ->
1247 None, BaseStyle -> {}, BaselinePosition -> Baseline,
1248 DefaultBaseStyle -> {}, ButtonFunction :>
1249 With[{Typeset`box$ = EvaluationBox[]},
1250 If[
1251 Not[
1252 AbsoluteCurrentValue["Deployed"]],
1253 SelectionMove[Typeset`box$, All, Expression];
1254 FrontEnd`Private`$ColorSelectorInitialAlpha = 1;
1255 FrontEnd`Private`$ColorSelectorInitialColor =
1256 RGBColor[0.368417, 0.506779, 0.709798];
1257 FrontEnd`Private`$ColorSelectorUseMakeBoxes = True;
1258 MathLink`CallFrontEnd[
1259 FrontEnd`AttachCell[Typeset`box$,
1260 FrontEndResource["RGBColorValueSelector"], {
1261 0, {Left, Bottom}}, {Left, Top},
1262 "ClosingActions" -> {
1263 "SelectionDeparture", "ParentChanged",
1264 "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator ->
1265 Automatic, Method -> "Preemptive"],
1266 RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
1267 Selectable -> False], ",",
1268 RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}],
1269 ",",
1270 RowBox[{"Directive", "[",
1271 RowBox[{
1272 RowBox[{"Opacity", "[", "1.`", "]"}], ",",
1273 InterpretationBox[
1274 ButtonBox[
1275 TooltipBox[
1276 GraphicsBox[{{
1277 GrayLevel[0],
1278 RectangleBox[{0, 0}]}, {
1279 GrayLevel[0],
1280 RectangleBox[{1, -1}]}, {
1281 RGBColor[0.880722, 0.611041, 0.142051],
1282 RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame ->
1283 True, FrameStyle ->
1284 RGBColor[
1285 0.587148, 0.40736066666666665`, 0.09470066666666668],
1286 FrameTicks -> None, PlotRangePadding -> None, ImageSize ->
1287 Dynamic[{
1288 Automatic, 1.35 CurrentValue["FontCapHeight"]/
1289 AbsoluteCurrentValue[Magnification]}]],
1290 "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance ->
1291 None, BaseStyle -> {}, BaselinePosition -> Baseline,
1292 DefaultBaseStyle -> {}, ButtonFunction :>
1293 With[{Typeset`box$ = EvaluationBox[]},
1294 If[
1295 Not[
1296 AbsoluteCurrentValue["Deployed"]],
1297 SelectionMove[Typeset`box$, All, Expression];
1298 FrontEnd`Private`$ColorSelectorInitialAlpha = 1;
1299 FrontEnd`Private`$ColorSelectorInitialColor =
1300 RGBColor[0.880722, 0.611041, 0.142051];
1301 FrontEnd`Private`$ColorSelectorUseMakeBoxes = True;
1302 MathLink`CallFrontEnd[
1303 FrontEnd`AttachCell[Typeset`box$,
1304 FrontEndResource["RGBColorValueSelector"], {
1305 0, {Left, Bottom}}, {Left, Top},
1306 "ClosingActions" -> {
1307 "SelectionDeparture", "ParentChanged",
1308 "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator ->
1309 Automatic, Method -> "Preemptive"],
1310 RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
1311 Selectable -> False], ",",
1312 RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}],
1313 ",",
1314 RowBox[{"Directive", "[",
1315 RowBox[{
1316 RowBox[{"Opacity", "[", "1.`", "]"}], ",",
1317 InterpretationBox[
1318 ButtonBox[
1319 TooltipBox[
1320 GraphicsBox[{{
1321 GrayLevel[0],
1322 RectangleBox[{0, 0}]}, {
1323 GrayLevel[0],
1324 RectangleBox[{1, -1}]}, {
1325 RGBColor[0.560181, 0.691569, 0.194885],
1326 RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame ->
1327 True, FrameStyle ->
1328 RGBColor[
1329 0.37345400000000006`, 0.461046, 0.12992333333333334`],
1330 FrameTicks -> None, PlotRangePadding -> None, ImageSize ->
1331 Dynamic[{
1332 Automatic, 1.35 CurrentValue["FontCapHeight"]/
1333 AbsoluteCurrentValue[Magnification]}]],
1334 "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance ->
1335 None, BaseStyle -> {}, BaselinePosition -> Baseline,
1336 DefaultBaseStyle -> {}, ButtonFunction :>
1337 With[{Typeset`box$ = EvaluationBox[]},
1338 If[
1339 Not[
1340 AbsoluteCurrentValue["Deployed"]],
1341 SelectionMove[Typeset`box$, All, Expression];
1342 FrontEnd`Private`$ColorSelectorInitialAlpha = 1;
1343 FrontEnd`Private`$ColorSelectorInitialColor =
1344 RGBColor[0.560181, 0.691569, 0.194885];
1345 FrontEnd`Private`$ColorSelectorUseMakeBoxes = True;
1346 MathLink`CallFrontEnd[
1347 FrontEnd`AttachCell[Typeset`box$,
1348 FrontEndResource["RGBColorValueSelector"], {
1349 0, {Left, Bottom}}, {Left, Top},
1350 "ClosingActions" -> {
1351 "SelectionDeparture", "ParentChanged",
1352 "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator ->
1353 Automatic, Method -> "Preemptive"],
1354 RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
1355 Selectable -> False], ",",
1356 RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}],
1357 ",",
1358 RowBox[{"Directive", "[",
1359 RowBox[{
1360 RowBox[{"Opacity", "[", "1.`", "]"}], ",",
1361 InterpretationBox[
1362 ButtonBox[
1363 TooltipBox[
1364 GraphicsBox[{{
1365 GrayLevel[0],
1366 RectangleBox[{0, 0}]}, {
1367 GrayLevel[0],
1368 RectangleBox[{1, -1}]}, {
1369 RGBColor[0.922526, 0.385626, 0.209179],
1370 RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame ->
1371 True, FrameStyle ->
1372 RGBColor[
1373 0.6150173333333333, 0.25708400000000003`,
1374 0.13945266666666667`], FrameTicks -> None,
1375 PlotRangePadding -> None, ImageSize ->
1376 Dynamic[{
1377 Automatic, 1.35 CurrentValue["FontCapHeight"]/
1378 AbsoluteCurrentValue[Magnification]}]],
1379 "RGBColor[0.922526, 0.385626, 0.209179]"], Appearance ->
1380 None, BaseStyle -> {}, BaselinePosition -> Baseline,
1381 DefaultBaseStyle -> {}, ButtonFunction :>
1382 With[{Typeset`box$ = EvaluationBox[]},
1383 If[
1384 Not[
1385 AbsoluteCurrentValue["Deployed"]],
1386 SelectionMove[Typeset`box$, All, Expression];
1387 FrontEnd`Private`$ColorSelectorInitialAlpha = 1;
1388 FrontEnd`Private`$ColorSelectorInitialColor =
1389 RGBColor[0.922526, 0.385626, 0.209179];
1390 FrontEnd`Private`$ColorSelectorUseMakeBoxes = True;
1391 MathLink`CallFrontEnd[
1392 FrontEnd`AttachCell[Typeset`box$,
1393 FrontEndResource["RGBColorValueSelector"], {
1394 0, {Left, Bottom}}, {Left, Top},
1395 "ClosingActions" -> {
1396 "SelectionDeparture", "ParentChanged",
1397 "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator ->
1398 Automatic, Method -> "Preemptive"],
1399 RGBColor[0.922526, 0.385626, 0.209179], Editable -> False,
1400 Selectable -> False], ",",
1401 RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
1402 "}"}], ",",
1403 RowBox[{"{",
1404 RowBox[{
1405 TagBox[#, HoldForm], ",",
1406 TagBox[#2, HoldForm], ",",
1407 TagBox[#3, HoldForm], ",",
1408 TagBox[#4, HoldForm]}], "}"}], ",",
1409 RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",",
1410 RowBox[{"LabelStyle", "\[Rule]",
1411 RowBox[{"{", "}"}]}], ",",
1412 RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ),
1413 Editable -> True], TraditionalForm], TraditionalForm]},
1414 "Legended",
1415 DisplayFunction->(GridBox[{{
1416 TagBox[
1417 ItemBox[
1418 PaneBox[
1419 TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline},
1420 BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"],
1421 "SkipImageSizeLevel"],
1422 ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}},
1423 GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}},
1424 AutoDelete -> False, GridBoxItemSize -> Automatic,
1425 BaselinePosition -> {1, 1}]& ),
1426 Editable->True,
1427 InterpretationFunction->(RowBox[{"Legended", "[",
1428 RowBox[{#, ",",
1429 RowBox[{"Placed", "[",
1430 RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
1431 CellChangeTimes->{{3.669613926353655*^9, 3.669613942935066*^9}, {
1432 3.6696139802035227`*^9, 3.669614008933955*^9}, {3.669614634978119*^9,
1433 3.66961465861414*^9}, 3.6696148880341263`*^9, 3.669615069952817*^9,
1434 3.6696151266690197`*^9, {3.6696152007415657`*^9, 3.66961524965384*^9}, {
1435 3.6696152983491173`*^9, 3.669615360668951*^9}, 3.669615413253304*^9,
1436 3.669615452744843*^9, {3.6696155027856703`*^9, 3.669615573669046*^9},
1437 3.669617337364122*^9, {3.6696413464073753`*^9, 3.669641368357801*^9}, {
1438 3.669641399440621*^9, 3.669641418109624*^9}, {3.6696564579460497`*^9,
1439 3.669656486969983*^9}, {3.669657977469595*^9, 3.6696580096680937`*^9},
1440 3.669658086568149*^9, {3.6696603189345503`*^9, 3.6696603295394793`*^9},
1441 3.669660369587657*^9, 3.700393056564781*^9, {3.700393115965315*^9,
1442 3.700393142229102*^9}, 3.700393277354086*^9, 3.7003933103119287`*^9, {
1443 3.700393352784944*^9, 3.700393397224832*^9}, 3.700393496058113*^9,
1444 3.7003936371446257`*^9, 3.700393694065583*^9, {3.7003941179475594`*^9,
1445 3.7003941670259733`*^9}, 3.700394220676404*^9, 3.700394319777968*^9, {
1446 3.700394366630479*^9, 3.700394413205934*^9}, 3.700394712508644*^9,
1447 3.700394906815897*^9, 3.7003955422763443`*^9, 3.700443292202814*^9,
1448 3.700443435561699*^9, {3.700443470920928*^9, 3.7004434842164*^9}, {
1449 3.7004444470123034`*^9, 3.700444464600751*^9}, 3.700444521025442*^9,
1450 3.7004469779890957`*^9, 3.700448708074739*^9, 3.70044940667803*^9,
1451 3.700450306006483*^9, 3.700451843435264*^9, 3.700451912866478*^9,
1452 3.700452360067748*^9, {3.700452552461485*^9, 3.700452565184198*^9},
1453 3.7004527634019213`*^9, 3.7004533363876247`*^9, 3.700453526677812*^9,
1454 3.700453568070559*^9, {3.7005929053044786`*^9, 3.700593017347369*^9}, {
1455 3.700602723375257*^9, 3.7006027688806257`*^9}, 3.700602893423622*^9,
1456 3.700608033901338*^9, 3.700608088205517*^9, 3.7006094967022123`*^9,
1457 3.700618291732036*^9, {3.700628139697359*^9, 3.700628163099373*^9}, {
1458 3.700628231433066*^9, 3.700628257437921*^9}, 3.700628287603137*^9,
1459 3.700628320840271*^9, 3.700628355448374*^9, 3.700668500218584*^9, {
1460 3.70066925360144*^9, 3.700669270058723*^9}, 3.7006693866876087`*^9,
1461 3.700669712536542*^9, {3.700669751725264*^9, 3.700669780968574*^9},
1462 3.7006700006235523`*^9, 3.7006702808860617`*^9, 3.7006784860667963`*^9, {
1463 3.7006887236094513`*^9, 3.700688736992362*^9}, 3.7006969334347258`*^9,
1464 3.700696977975463*^9, 3.700702579992436*^9, 3.7008573802089577`*^9, {
1465 3.700857440455091*^9, 3.700857444470274*^9}, {3.700857517986391*^9,
1466 3.700857533076559*^9}, 3.7008583248047*^9, {3.700858379952702*^9,
1467 3.7008584157659197`*^9}, 3.7008594805172873`*^9, 3.700859517691206*^9,
1468 3.700859832752245*^9, {3.700859867402886*^9, 3.7008599082594423`*^9}, {
1469 3.700859965220133*^9, 3.7008600070459843`*^9}, 3.700860121500779*^9,
1470 3.700860172019767*^9, 3.700862752670051*^9, 3.700869472925828*^9,
1471 3.700869504118936*^9, 3.700870226366515*^9, 3.700870482060132*^9,
1472 3.7008709883391657`*^9, 3.7008720075257463`*^9, 3.700881392198064*^9,
1473 3.700882600199074*^9, 3.7008826525126467`*^9, 3.70102815972941*^9,
1474 3.701052953791625*^9, 3.70128223178973*^9, 3.701287192423278*^9,
1475 3.70128730707416*^9, 3.701287345559786*^9, 3.701287380598963*^9, {
1476 3.701287428597962*^9, 3.701287454707018*^9}, 3.701292088127713*^9,
1477 3.70129963928194*^9, 3.701301250071856*^9, 3.7013130594849787`*^9,
1478 3.701315557079133*^9, 3.70138021627542*^9, 3.701380253786853*^9,
1479 3.701386386042635*^9, 3.701390408122534*^9, 3.7013906741105947`*^9,
1480 3.701390865034466*^9, 3.701395271883823*^9, 3.701395341962006*^9,
1481 3.701397282642289*^9, 3.701397396183682*^9, 3.701397449076256*^9, {
1482 3.701397501039723*^9, 3.701397519267746*^9}, 3.701397990270254*^9,
1483 3.701398160265929*^9, 3.7013982098273983`*^9, 3.701398284974092*^9,
1484 3.701398569377322*^9, 3.7013986378832273`*^9, 3.701399504288391*^9,
1485 3.701404971943729*^9, {3.701405134803931*^9, 3.7014051594624043`*^9},
1486 3.701460424047936*^9, 3.702789343739766*^9, 3.706045942023265*^9,
1487 3.7060459755428247`*^9, 3.7060460378496037`*^9, 3.7060460684501057`*^9,
1488 3.706046239287219*^9, 3.70604719448976*^9, 3.706047293916363*^9, {
1489 3.706118490805798*^9, 3.706118503293454*^9}, 3.706119510841178*^9,
1490 3.7061195657028303`*^9, 3.7061196345968*^9, 3.706123656312158*^9,
1491 3.706125567090631*^9, 3.706322304223907*^9, {3.706322343512679*^9,
1492 3.706322348706867*^9}, 3.706322483865226*^9, {3.7063225494859533`*^9,
1493 3.7063226030512323`*^9}, {3.706322656310484*^9, 3.706322679914277*^9}, {
1494 3.706322763324869*^9, 3.706322892636457*^9}, {3.706323017097171*^9,
1495 3.7063230194572268`*^9}, {3.7063230629124393`*^9,
1496 3.7063230716307573`*^9}, {3.706323111017383*^9, 3.706323150498554*^9},
1497 3.706323188504569*^9, 3.706323385387924*^9, {3.706323426496911*^9,
1498 3.706323452859037*^9}, 3.7063274375813913`*^9, {3.706327484789629*^9,
1499 3.706327500225*^9}, {3.706327565223929*^9, 3.706327674436795*^9}, {
1500 3.706327712107566*^9, 3.706327714683159*^9}, {3.706327745775072*^9,
1501 3.706327751605628*^9}, 3.706328180601858*^9, {3.706328240480289*^9,
1502 3.706328347330645*^9}, 3.7063309759009542`*^9, 3.706332315458744*^9,
1503 3.706336150759124*^9, 3.706383439862361*^9, 3.706383486686668*^9, {
1504 3.706383526512479*^9, 3.706383552943377*^9}, 3.7063835835399513`*^9,
1505 3.706388899893898*^9, 3.706389273125064*^9, {3.7063896237799387`*^9,
1506 3.706389684158391*^9}, 3.7063897214673634`*^9, 3.706390469601533*^9,
1507 3.706391351433516*^9, 3.7063931961933727`*^9, 3.706393381181387*^9, {
1508 3.706395349908717*^9, 3.706395483116373*^9}, {3.706395527846171*^9,
1509 3.7063956981219797`*^9}, {3.70639600991866*^9, 3.706396041505776*^9},
1510 3.70639724922226*^9, 3.706397280568667*^9, {3.70639739641084*^9,
1511 3.7063974137484818`*^9}, {3.706397453232766*^9, 3.706397481271716*^9},
1512 3.706774843130452*^9, {3.707065636957314*^9, 3.707065651196319*^9},
1513 3.708195067755369*^9, 3.7081951299137363`*^9, 3.708196736104347*^9,
1514 3.708197187678301*^9, 3.7081998359091263`*^9, 3.7082010247839518`*^9, {
1515 3.708201235608547*^9, 3.708201253749708*^9}, 3.708201431920698*^9,
1516 3.708250806386984*^9, 3.708251280261681*^9, 3.708252169695509*^9,
1517 3.708252391170867*^9, 3.708252464112507*^9, 3.708252556722416*^9,
1518 3.708252842547042*^9, 3.7082528756981897`*^9, 3.708262929098469*^9,
1519 3.708355410158319*^9, 3.7083555368150873`*^9, 3.708375669254101*^9,
1520 3.708632790223398*^9, 3.70863296438369*^9, 3.708633022297683*^9,
1521 3.708633242379944*^9, 3.708692520789139*^9, 3.70871247882845*^9,
1522 3.708718697483083*^9, 3.708718862267067*^9, 3.708720148410655*^9,
1523 3.7087206603920383`*^9, 3.708721544237632*^9, 3.708721682079221*^9,
1524 3.70872237640808*^9, 3.708722797934235*^9, 3.708723527181443*^9,
1525 3.7087237399338617`*^9, {3.708869405457382*^9, 3.7088694086176243`*^9}, {
1526 3.708869482049635*^9, 3.7088695213394547`*^9}, 3.708869614119315*^9,
1527 3.708871041197596*^9, 3.709262040852703*^9, 3.709264830970553*^9,
1528 3.709264902215713*^9, 3.709602582241398*^9, 3.710877762509502*^9,
1529 3.710878356549699*^9, 3.710878405932415*^9, 3.710878498407915*^9, {
1530 3.710878959721533*^9, 3.710878981461038*^9}, 3.710879109681189*^9,
1531 3.711221219114078*^9, 3.711223977744878*^9, 3.711224689971229*^9,
1532 3.711226739024446*^9, {3.711227632058832*^9, 3.7112276523192472`*^9},
1533 3.7112286770055532`*^9, 3.711229753858616*^9, 3.71123010626052*^9,
1534 3.7112805626742*^9, 3.711391055340867*^9, 3.711391543224379*^9,
1535 3.711812724349276*^9, 3.7118178563923273`*^9, 3.7119345667053347`*^9,
1536 3.712864935775692*^9, 3.7128681065645857`*^9, 3.712931094598674*^9,
1537 3.712937781550372*^9, {3.712964558436666*^9, 3.7129645625786467`*^9},
1538 3.713208014791366*^9, 3.7132080469358788`*^9, 3.7132081469856997`*^9,
1539 3.713208410707769*^9, 3.713209028459754*^9, 3.713209178414384*^9, {
1540 3.713210602282413*^9, 3.713210618948276*^9}, 3.713216702474504*^9,
1541 3.713223926039867*^9, 3.713236137036543*^9, 3.713238575183723*^9,
1542 3.7132387405019903`*^9, 3.713239150670107*^9, 3.71323931152503*^9,
1543 3.713239648653385*^9, 3.713239938948091*^9, 3.713241682689396*^9,
1544 3.713241751853856*^9, 3.7132657521237783`*^9, 3.713268847753838*^9,
1545 3.713270280361603*^9, 3.7132704106079473`*^9, 3.713453941487578*^9,
1546 3.713453979196512*^9, 3.713454117518705*^9, 3.713454240947144*^9,
1547 3.713454306525435*^9, 3.718980524667336*^9, 3.718981118858809*^9, {
1548 3.7189811551453123`*^9, 3.71898117591689*^9}, 3.719025940113401*^9,
1549 3.719096768196006*^9, 3.719099561757505*^9, 3.719100148976573*^9,
1550 3.71911439728826*^9, 3.7191150983339167`*^9, 3.719115223162631*^9,
1551 3.7191152637081137`*^9, 3.719115657790689*^9, 3.7191157308236628`*^9,
1552 3.719116089492166*^9, 3.719120362666842*^9, 3.7195549749228697`*^9,
1553 3.719558951433275*^9, 3.719561096858728*^9, 3.719704930996976*^9,
1554 3.719704965220707*^9, 3.719705213535853*^9, 3.719705257871214*^9, {
1555 3.7197053278866367`*^9, 3.7197053310099907`*^9}, 3.719705411227563*^9,
1556 3.71970546913384*^9, 3.719705530533917*^9, 3.719705577674654*^9,
1557 3.719705715323203*^9, 3.71970578597495*^9, 3.719776230459475*^9}]
1558}, Open ]]
1559}, Open ]],
1560
1561Cell[CellGroupData[{
1562
1563Cell["Thermal ionization", "Subsubsection",
1564 CellChangeTimes->{{3.7063898269961033`*^9, 3.706389839287993*^9}}],
1565
1566Cell[CellGroupData[{
1567
1568Cell[BoxData[{
1569 RowBox[{
1570 RowBox[{"sahaA", "=",
1571 RowBox[{
1572 FractionBox[
1573 SuperscriptBox["T0",
1574 RowBox[{"3", "/", "2"}]], "n0"],
1575 SuperscriptBox[
1576 RowBox[{"(",
1577 FractionBox[
1578 RowBox[{"2", " ", "\[Pi]", " ", "me", " ", "kb"}],
1579 SuperscriptBox["h", "2"]], ")"}],
1580 RowBox[{"3", "/", "2"}]],
1581 FractionBox["Rz", "Rc"]}]}], ";"}], "\[IndentingNewLine]",
1582 RowBox[{
1583 RowBox[{"sahaB", "=",
1584 RowBox[{
1585 FractionBox["13.6",
1586 RowBox[{"kbEV", " ", "T0"}]],
1587 FractionBox["Rz", "Rc"]}]}], ";"}], "\[IndentingNewLine]",
1588 RowBox[{
1589 RowBox[{
1590 RowBox[{"X", "[", "r_", "]"}], "=",
1591 RowBox[{
1592 FractionBox[
1593 RowBox[{"sahaA", " ",
1594 FractionBox["r",
1595 RowBox[{"Rz", "-", "r"}]], " ",
1596 RowBox[{"Exp", "[",
1597 RowBox[{
1598 RowBox[{"-", "sahaB"}], " ",
1599 FractionBox["r",
1600 RowBox[{"Rz", "-", "r"}]]}], "]"}]}], "2"],
1601 RowBox[{"(",
1602 RowBox[{
1603 SqrtBox[
1604 RowBox[{"1", "+",
1605 RowBox[{
1606 FractionBox["4",
1607 RowBox[{"sahaA", " ",
1608 FractionBox["r",
1609 RowBox[{"Rz", "-", "r"}]]}]],
1610 RowBox[{"Exp", "[",
1611 RowBox[{"sahaB", " ",
1612 FractionBox["r",
1613 RowBox[{"Rz", "-", "r"}]]}], "]"}]}]}]], "-", "1"}], ")"}]}]}],
1614 ";"}], "\[IndentingNewLine]",
1615 RowBox[{"Plot", "[",
1616 RowBox[{
1617 RowBox[{"{",
1618 RowBox[{
1619 RowBox[{"X", "[", "r", "]"}], ",",
1620 FractionBox[
1621 RowBox[{
1622 RowBox[{"(",
1623 RowBox[{"1", "-",
1624 RowBox[{"X", "[", "r", "]"}]}], ")"}], "*",
1625 RowBox[{"T\[Rho]", "[",
1626 RowBox[{"r", ",", "0", ",", "0"}], "]"}]}],
1627 RowBox[{"T\[Rho]", "[",
1628 RowBox[{"rnorm", ",", "0", ",", "0"}], "]"}]]}], "}"}], ",",
1629 RowBox[{"{",
1630 RowBox[{"r", ",", ".6", ",", "Rz"}], "}"}]}],
1631 "]"}], "\[IndentingNewLine]",
1632 RowBox[{"r", "/.",
1633 RowBox[{"FindRoot", "[",
1634 RowBox[{
1635 RowBox[{
1636 RowBox[{"X", "[", "r", "]"}], "\[Equal]", ".5"}], ",",
1637 RowBox[{"{",
1638 RowBox[{"r", ",", ".8"}], "}"}]}], "]"}]}], "\[IndentingNewLine]",
1639 RowBox[{"ListPlot", "[",
1640 RowBox[{"Table", "[",
1641 RowBox[{
1642 RowBox[{"{",
1643 RowBox[{"i", " ", ",",
1644 RowBox[{"NIntegrate", "[",
1645 RowBox[{
1646 RowBox[{"\[Sigma]", " ",
1647 FractionBox[
1648 RowBox[{
1649 RowBox[{"(",
1650 RowBox[{"1", "-",
1651 RowBox[{"X", "[", "r", "]"}]}], ")"}],
1652 RowBox[{"T\[Rho]", "[",
1653 RowBox[{"r", ",", "0", ",", "0"}], "]"}]}], "\[Mu]0"], "R0"}],
1654 ",",
1655 RowBox[{"{",
1656 RowBox[{"r", ",", "i", ",", "Rz"}], "}"}]}], "]"}]}], "}"}], ",",
1657 RowBox[{"{",
1658 RowBox[{"i", ",",
1659 RowBox[{".8", "%"}], ",", "Rz", ",", ".025"}], "}"}]}], "]"}],
1660 "]"}]}], "Input",
1661 CellChangeTimes->{{3.706389864276916*^9, 3.706390271915511*^9}, {
1662 3.706390481845578*^9, 3.706390481932179*^9}, {3.7063921176283092`*^9,
1663 3.70639223726229*^9}, {3.706392320226137*^9, 3.706392320625677*^9}, {
1664 3.706395722126789*^9, 3.70639573174294*^9}, {3.706396076795672*^9,
1665 3.70639608938661*^9}, {3.706397294770784*^9, 3.706397372804329*^9}, {
1666 3.706397463775158*^9, 3.706397487287763*^9}, {3.706397526413106*^9,
1667 3.706397534316967*^9}, {3.706397568109529*^9, 3.706397592052393*^9}, {
1668 3.7063978740063877`*^9, 3.7063979086554213`*^9}, {3.70639794373184*^9,
1669 3.706397982496249*^9}, {3.7067748868079433`*^9, 3.706774886909202*^9},
1670 3.70820145164857*^9, {3.70820148548589*^9, 3.7082016365738583`*^9}, {
1671 3.708201684971718*^9, 3.7082018554471817`*^9}, {3.708201889670182*^9,
1672 3.7082019007747583`*^9}, {3.719115119675159*^9, 3.7191151437565002`*^9}}],
1673
1674Cell[BoxData[
1675 GraphicsBox[{{}, {},
1676 {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
1677 1.], LineBox[CompressedData["
16781:eJxNl3k4lP/3/1W2EtmSyJpsJWUt5r5PyZYlaypRpOxlz1aWEKGy79mSsiZk
1679V8hWIUlIss0w6z2jzZLoN9/r+l3X+zP/zPW4zlzndV7P5zln7lvqipflta0s
1680LCxK21hY/u9bIXL0mKoqHtrdvV9dfs+AsQVSy201POAco2TG3jEg2mgD16+O
1681BwV/H15jJs8KyJ60P4aHB9tY3Y68ZUBWaeDpWAQPpx5fKCH1MoBzQMT2qwEe
1682BhR+W3N1MaDhiPLUgdN4uHRWgM21kwFX009d8jbCg+j6l+9dHQzouOR5hc0U
1683D4c9ta/7vWZA0Pd2d2VLPEg7iV181cYAopBjaJQdHi6gyQ4rDQxICw3YGLTH
1684w+SPbQ7qTNaZvRcufBkP1xtqdH1eMiC/rDaqyhEPM+5VT+brGGCDY00cd8ZD
1685M1VWpKKGAb2OT/MO+uBBtzlPZbCMAf69reI3fZn1fWRLWnzGAOmDw4UdfnjY
16865eLmvvGUAWG/VkvO3sRDE+F28P5SBmjEGlWFh+IhZQ+HmnkxA55UYu2fYvCA
16871Mx5Hchh6mfwc6dWLB4CGTOz61kMYMevXiyMY9Y7/OD9UCYDXPey/vFMwIPz
16889Zx5t3QGHLorosGejAfB1oxZvyQG1F82qD6Wh4c3f2ZXBmIYsPDHZCP/ER4e
16897b9ddi2aAUIZliZsBXh4lb6+588dpl4D9pSPRXh4+DRtZXcEA3DH/WU9nuIh
1690irvaRDiEAW/4i/If1eJBnvFbUfs6A35VlWLb6vGgot908p4HA2ROV+LcX+Lh
1691omms6ogbA+6GN05qNOGhc+6ku7UzA4xog0LD7Xg4gQtyFb7MgJGePw+2vsXD
1692SvXN40lmDNjmyDLt+g4PBrS/DtGmDFD7y6b04T0eOD3NzvkaMyBDhe997hAe
16935mz+OmsbMMC2QI5DfRQPpjOO7BEoA+aCrMNdZpj3G68+1XWQAbK0zl0Ns3j4
1694ztPs76/AAPfLyoWs83iQ+FWkJCnHgB96OzqLCHjg+YV8d5JmAKtAx9YpMh4c
1695jmkO5QgzQL7q4F3zX3j4vCVv+OU2BnhKZgsV/MbD9vdWmyssDHiRyv4UW8bD
1696xJmQeJVNOmiFzPXFr+EBP6F4I2mVDiYGmdt7NvEgl9OtiNHo4DW39f7x7QT4
1697XJ2kLDxKh3prb7G4HQQgTHKkjA3TYbXvW9UYFwFuGzSzJA7SIaK6aciPhwDS
1698VhXPvvbSISX0Bm+1AAHUGhUeczXToWH3ZKq0OAFWSgfeZOfSYeP0ixwuVQK4
16999ZxY6TpPh+H67blWagSI0Rh2MLamQ7HEldxcdQJ8ChbW6Dejg/5v/ryDxwjg
1700b3bwVb4+HZIK/R8ZIwToNjoT2KZKB5kVzcIEAwLwvXwz+ZiLDsuOSYWfDAkg
1701U35o0ZmdDm8HSIWiRgRYDi1t27eFDjeKs4sqTJj3eXnEwWEZgybT9eL3FgQQ
1702d32bpjuLgXHJqydcdgTQ9xw46vYCA/Fde0qt7AlQuLJhZ1KBwVKwV2nuJQJU
1703TF98IvkEgzQzyacHHQkgUL0klZeFwfSfyGfGzgR47mY3+TUMA18LvYoEbwIE
1704VVZjzoYYZG++r+GKIQAtDOR+D9GAXrA7zOsu8z6ZOSShXhronrxs/CmWqf9k
1705jv3+dmY86sdCTjwBWLrnaevlzPj2vaKKSQRwDh4PfRZDgyUB5xjDXAJwRF3x
1706Hteggf7L55aVeQRgTTtxNfMQDXJt1iR48wlgWBXheEKaGc9ObBkvJMCOEk0x
1707U24a5InXMZxLCbBfJUfLbJ4KBgostjEvCGD8Yt9PQiwV8t6dliPXEuByjeLG
1708wVtU+OGR+sukngAB8TlEW29mvFr2oWAjAfrjmhS8zzPjqqbdj9uYetxvlgiU
1709o0I+mnO4q48ArxZuKzM6KPDbSm3bv28E8GAzNQ6YI8OlwQU+4xkCrCe2a1R8
1710IkOvfqZk5iwBDvZV7BjoIUPW8T+IMp7ZP2wt2UNlZMBJdARdJhFgz1699glv
1711MkRTjOmvfxCAnNHVzbNOAoFIpy8RHAswuZZbmM5CgqPVKc+3Hl0AtpUfVRtj
1712C7DvknqCu8oCsHs3hqi8WQBOngnnEdUFyIwpOXn++QLMXhcTL9ZYAJFUcn9g
17137AIkKT1LPIlbALMXivI8mguwVNnuFmGwAGn8WuKfU5k+V5D2b9ovwK1T/P19
1714enhQKkOz1uIXAF20Y6vJnYVS8wG8beICcB/eFtR9dxYkVy8ot91fAOCu2jPl
1715MwuCBgG9YUkL0NgciN9tOAt/CRW/tmUsQBkPGhRAnoEByb0WPEUL0PSea4Ml
1716fxo8sn5u39+4AGJfy7s0+KegLPZZqAl+Af4dKrzuh4yDBkc+ZwZhAV6SlL7u
1717Eh2H7rup6TMLC+AzPCPYtzoG0zFhz31JC1CF8lTdrR8DwWhrfBa2ABYfoyPM
1718lMYgIoLFeGFlAd7dMdBVkvkM54LPi4TtXIS7JRW8wvKfgLBq+rSPexEICTsT
1719bbd/At+gU2p8uxah8LzG4TbKCCQGHj5TwrcIRsRj2t+qRqArgPXOO6FFWP9O
1720yc1SH4HDvjVkIalF6McpHdpm/BHYPDibn6svwkqYJLYk+gGEpBj8uzUX4XTG
1721iOby3BDIjn/2DDm2CKMfuz8ZPBsC/VOPJfW0F+GFUd3fD+pDECeKxk2eWATl
1722CN1yP+tB2Dngd47NZBEuHf90haXwPQgozfy2vbII0ZWb4s+8+kEG32PW4bQI
1723xG3eb0ShH9SyK8sOXFuELTgc7xeefrBmC7FfclkENq5cliPP+yDjm2BPzPVF
1724uPZ4d5bRz14QeWCUVhO0CLZxMrk77vWAFOOlCvvDRaBUcTWakLtA9zbrkFXS
1725IpxalQs/1t0FrlxWbkXJi3An2LrrUkEX1MgtFeDSmPmzPtIu2HTBCQdFbr/s
1726RZirjtzP1tcJDh/ziTOPF+FtongaS10HFNTF5jU3LUJzjHAFv2s7dJ0c0+Ro
1727WYTP7a16jQfbYfGDzCfr1kXQEZn928Vog8O0zu1L7YvwO0+dxh3cBq9k/t6U
1728fcPUQ+Pkr6tJrTCd7m2ROrgIvGou+jUfm0Es6AL79flFUKvc0haa2wBDGyl8
17299fhFeDUsoMHn2QARUQP71gmLcLH2ddw6rgEID0D1HnEReif41wZmXkLlkwMO
1730T2iLUFpL+WSj8BJwn743f1tm5ptZMX/yvg7o5w/2yKwuwu2yx8eti+qgcPrq
1731sMcas94Krl0WgXXAShlfXFtfBA8/xjsVmToYYHklILSFCMkLtfnxkbVw8XD8
17329TNcRDiRy6usZPQCdta/CUrfSYQR5J1YnMwLeHV8I2qKmwh+3j9RxX81IK3n
1733nePOS4Rx+oCvzssaoFy06bu7mwiJi9NyjTI1EHJPWuq1BBFKVV/RqySrIZvQ
1734MqqsRgSnWIaGtXI5DBUuVKaoE0F0UkjMiFEGW+15Y35rEMFnTxf97fMy8Px8
1735Tb31OBFK5mPjnVTK4EQvb4Y+ECHMVNaGgDwD0lPnc/ZGRAh/aKxuer0UxK4m
1736K3cYE2HnWqm+r3opWEq2cew3JYL/1JlU/s0n0JbF10QyI4JNtM+5zqQnkHSv
1737Tdj/LBE2Rj/uft1aApoe/JPxDkRIL3tkFir3GDzlkFrMkQh79tHDaMvFUIh3
1738iTd3Yurjv8X4fW8x7LBr1xJyJgIHx9agIZdimDZxzS3yYNYn+iFrtLoI7h5+
1739Zdd0kwjvXu5VVDYvhM/f3WYWEolQZH1KtehlLojf/bt65AEznx3nSLdPLjiL
1740POS/9ZAILYc1ym4fzoVlnXo9/hQi7L1SkllelgPCaZsVaCazfqkI+khpNthp
1741pAZlFhGBmCOScKM1E0reHUiZLyYCeoJUfjUiE7BLTRVKJUT4M/tVaEYvE8Ji
1742v02/KSWCgDbnB7uRDCickNNbqiBCW8SNtcvf0wEf0sZ3uoEIT+72bFbop8Gh
1743XWYH0xqJ4GUbcd9HIA38H8/pzjQRwURDlrNyNhVYB9iDAlqJ0JcRInbrVirI
1744illMF3UQYddJzkKv5hRwf71Q/ucdEdI8osJnDJLh+7ZdupUzRFD/4LeV78p9
1745aBtKURSYI8I5eS0HqV33IS5biC9kngi4jl8n2NsTQVxZfNpggQjS78K264sm
1746gomtUhCeQgSHx7uW3Obi4VmNcaXIMhH0X7OcrEmJA//QDymRK0RQPL5z+LBJ
1747HIC+VTBplalPtaPnNfY4GPtqq9+wTgSR7NMHft2KBVYO91mLLSSIyj3V5OZ7
1748Fy7bxwne20mCwtqyCfPb0aAov3OdwU2CgAEtzYcno2H5x8M5m10ksC4b9fdk
1749j4bEuMxqGX4SXM2+ULWRHAUtdaWGHXtIUBw5kmNZcweEdvTcWpEmQbRAsmwi
1750ZyQMNmxZuHacBC+1tew3tG+BbLC3dq8WCRSWvWuDSKEQoT2TLIsjwTOvFyxj
17516aGg0tGGElESNKvwryn9DIGst4FZrrokuJe67CbcFAxXpzBjDzMSPDEPxPG4
1752BcKrfLvi9+YkcLZi3H4hHQh7HN+vHrQkwQtlqUChbzfh3cKzJzRrEiDmcoLi
17531jfhCMPp33VbEgj9SfNdMgqA9S2Ttd7XSOB79HYYv60fWHcbbv/oTII7rwLG
1754V8X9oPpu4+WjriQwLzjRHk3wBQeu9J0/3EkQd3rx2V0fX+gVNHf28yZBNZwQ
1755Y0/1gRS53r03Q0mQ5ZA3obzgBTSymvfYLRLUyF82Vr/jBXqVj3s1wkjQvW78
17560VrSC1aPRPqtRJAg5zy+Y+zyDbikhRsMuksClb5bSBbVExRMayNCk0lwjXfq
1757SYOqO2QQ44S7U5jnjYerFi66wdY7l2t2ppEAcz530jbHDaYads4+yiDB95rv
1758C5qsbpAk6QIduSTYHvj69pU5F1j9KbrJWkoCNvGDnAOvr8G1Bz/STZ+SQHf1
1759vsV42DUYkX+rlPGMBKoXcqTS0WtQaX/TXq6CBMY/JK9KdVwFh77httM1JPgb
1760o1lt8t4J+nJiQh+0kCBPTd/vFssVUFO3ExhvJUGIK3sh8a0jFH5QqZBoJwGR
1761twhHTXWEENbZyZrXJJD51t32UsERDt/Q0vrUzeynrIu2h+0cIOMkY3XPBxIQ
1762uCzIXxrsYdtUT5LDMFP/2Z9br1y0B++befJlH0kQwz1Xh7HYg1HF6fNaoyQ4
1763Q6Q5s5nZwaZgSaPdF6bfq8Qj9GVbuEY6f7MIT4Jbk6thwX7nwbpZ8ivbAtN/
1764/2ORhZLnQTeeBO6LJBA3xpLeDZ0DmUNB21XJJObzwCmbfYfPAcErM6+bToID
1765vUoRLqtn4erK5y7iGrNfTwSPazdbgXX/IzkT5nMht7qE6ukAK9DNvpZY85fp
1766V9HtnsMqViCj/fts8D8S8LjFdAdVWwIhTJC8g40MrXwF23tqLMCJ3WrXYV4y
17676DkLVPjVm4HluIh/Ch8ZvlgSs5z0zEDn2fzEMj8Zvtp2qbSOnwFpI9/i17vJ
17688CR9bSSJ5QzM309WtxAlg6l1NfvVKyZwZffwRX9ZMtzdbqkFTqfBcjGzY0KO
1769DAPq+nZDnKdBp/HyAUSBDCNqW7JjnxuC9AUGne0QGe4/DrnszmII83k8dzKP
1770ksHSlCiS/FwfHGVMn7XgyNC5gxeJPKELVwdvneFAyeC0Qcn7u34KXG9W/rIC
1771MlhobBafaToFN/q5TmInySCkNs1xXfUU3PJ890XCgAzCnN/PW6jqQFa9AVeM
1772BRkuDL6it507AXn2gS8+WpIBm7I99FDiBBSwPz0nbk2G6wy0RX4YoPQ8e0mj
1773DRneq25fuLSMQv3fbhzlIhkUlyyl5iwR+KCrc8PMmQzP6UjknKEWjGA+gnku
1774ZCj416zGhx2HsYyiFpIrGW74Es+4pxyHKRILxx0PMoRGGjPiZ48BJfF1QT3z
1775Ob8356uHXLwmsH/GfdwbSgaXqb2cK7vUYUeYZ6DzLTL45JhdVOlRA265PLG6
177622QI2xn01ylUDQSD191MIpjxI+fj8ymqIC3WsjU8hgyHdjzXlhpVAeSaphrh
1777IbPen+cd14aPQLfu+acmyWSQMMOp6D48AkYywSIvU8hQtyRw8/aZI2CDb2G5
1778m87UvyVw1r5AGbwd0UG5XKbePxvHfZqVoMRez9mjlAwtjjv+dSCKoIg4f/n0
1779lAzimgXFVz4rwIt9sSY45nvMzPl9e+7eUIBXX/tVuCuZ9VX2byBP5GHigsm/
17806hdkyDh0fHNhvxxw2Vhl/Wgjg+pxsQCKowykqPtzXXxFBiXlYjGnXTIgvDs9
17817M1rMkyZ+mXyv9oPMqNjV9O6yKAS8OIIm8R+QC1tj2r0k8HE2Uqzly4F3UdD
1782S/LfkqGivMrwzhMpMObL28PxngxSL7FZa3spOD/8bWN8kAzzfl3eh4clwfeM
178347tg5nvZe57kgIxoCVhVuoPMj5JhdPBGbelWCQjnflxjNEYGuidrStkdcUgc
1784IGSIfmFyhmaLR5wYlBq5OrVPk2HTwYhNtlwUvuh7/WWhkAGp2jY9eUIY6GKh
1785M1eozHkivWmZmdoDW3/f7eqmkaHY8fjdqyF7QPFxflwcgww3F0brJ5qF4Na/
1786QUHe32RIPfWlZfL0bkga+7Lis0wGLQvJKdPvgvCkamHy0woZ1hM2NIVzBGHo
17874kZh5h8ypOiTQwoYAiDZdEhJgoUC0wXzKb/L+EHt4THeyC0UCNv8eLvgIj+c
1788dtb9Ob+VAqcfRJNCefjBV9CuuZSNAuq072stgXzQ7Z2gd5iLAj2ZJ85MneMF
1789FwWKPSJEAf/bO/5aZ+yEWyzLJwr2UEB176m1A/t2QtL4FpkteynA/7BfYvox
1790FzTF7KV0i1Jga0s/jdi0A3bMG940kaLA54VdXcWrnCDebH2hWpoCOiXXc7FE
1791TlBNcsDxylBgIblwkyzNCXZo0NZRWQrsYH+mPW3FAdU5Tx9cPEQBT+V52e1v
17922aDLp86nXYkCLyovGau5s8G44WtrCWUK7NpzeHB2JxuwrIyJ4I9SoOmdsvVT
1793G1awtGJ/6q5JgdVXM5nm61vhN9e118E6FFAoQoXuRLPAvtYJ/JtTFBhYS6bI
1794nGABXXcTTh49CvyzPbCvcO0fmtavalFsQAHDrkE2xx+bqFrMVvw7E2a93De4
1795Pdb/onZqNzl2n6HArHt2h8edv2g0nnzwshkFDF6+DtXl+ouOnvzo/9OCAsS1
1796C35O0uuo/2YB+75zFEheOcFffG0NzasSOOh8ngImP3T4qv6sot12sWY1Fyhg
1797Wbtrn33yKirYeiNL144CfI4Hrqa9WUHrAxHF645MPzR+R7ZpLaM/lyZNX3lQ
1798wHvt9+Ier5+oSOEZX87rFFgLeOU5KPoT1THryrC8QYGYP/ETw29/oClVZTOL
17993hTYJknjrFb4gaq4B/nsusn065DRD2R1CbXdS0u/EEiBCZdWm+nqJfRO/+WW
1800x0EU2NMonvrUeQkdkTXYdiyUAopdAp76dQzUF7873SGCAsKjR8qTszE0J+Ve
1801c3kkBTjPdoX6CmNo18mNb7/uUGBopDTiSjYN5S8kyN6LocC1oJ8sFkVUtNau
1802rulFPAWaBQ71pfaT0e+fzae2plPA2Fi7+uqNRTSv9eWgawYFvt3puRC0dRHV
1803LxJ5PZRJgclPktd8sxbQPE9CUU4OBeZiQ+fW3hJQw21BLiqFFPhIT90I08Gj
1804P0lT57OKmH4YZJ/DCPNo/tBJo81iCjh4pD9huzeP/srmUnr3hAIe5LbtwmNz
1805aOGRgh+OFRTgUC46xxY1ixoLsRL6KinA2nR7aZvKLLq87vpZqZoC7Quv99C7
1806Z1CTPpWmtRoKTMUN/Dz1cBpdte+9ndxAgVtvxnK7dadQswSMs7OTAiUNIY4H
1807FSbQP96Wf2TfUOCndy/f6ZpxtMSmkZrYTYEkmvme/OPj6B+pyKHzfRToa26O
180867McQ0ubBNOWBpj9N6B9kj9/FLXID46xGWLq/z3yFV59FP0bNX2z7QMFbNze
1809aj7+8Am1NHt2IW6EAvYXr8u+4/yEbi5oS0hOUKBwlaPqY9JHtOx9Ie/dLxQY
1810MZ7oP6j5EbV+wbaVNsn0i6XUXnVmGC2/9YHQ+I0C8fRaYSW1YdRGwKncDE8B
1811xuJP4S3zg2jViXj1cDoFcjepgm4Ob1HPTRvXQQYF2DU5fi0T+lHFtv25ot+Z
1812emosTzV59KOlmu0sTT8pMMbrc7kuvA8tPLz0fmmVAm0PdinGdPSgl2htm+gf
1813CqScTTWvP9uDipXfO3p/nQJd6bdNh2ndaM6B/ZkKmxS40fK3s0qyG03bZ3Pl
1814yjYq3Dc3CxHP70ItJ6XTa1ipMFHGMPp0sgvly2L0bbJRwXr0gLQGsRN9IHBP
1815KZeTCu+TdXpJGp1o3I621U/cVCgWY5sIGnmNhq5KPdQTZv7+lnJhllwrqtVA
181670zdS4WWkRLhq/kt6Kpf6685ESpMeQ6nte5pQf0Z1rZhYlSoG/wZN8fXjN5Y
1817jD3QKE0Fxx7NzXHpRvRQifV5NhkqMG7i54crG1Cqo1SC1QEq1DefPclyvAF1
1818/dayxJCjgoAAy/TkuZfolVGsVV6JCkXnVvP9qutQyZQW+s3DVODI6zsicLoO
1819nTGLlepRpkLC/XtH8xdqUbv3krGOKlRw/35/1EqmFrXpsrLM0aTCB52OUcvG
1820GvR0TTOJS4cK4/J/NP0vVKIZ13wSrE5Roesjj/vNvgp0XkThcK4uFY6yv8jB
1821HatAQ2Ky/BQNqEBr0l+elypHK20DNw1NqPBazfyXruAzdHWXclGSKRWIfDzr
1822/JlPUb2exVMTZ6iwZeTWUf19T9FpZZt7LhZU0PcQ8axRKkV52dQF79owWSCJ
18234OFRgtq10BoGz1FhJaMQf5ylBC3zKrmw+wIV2N6fVRDJfIzqTAoUlFykwqvJ
1824elPqu2LU//kPhTcOVKglaOgNni5Cxy/UAIsHFVrNHTp/HH+EyuxynTfwpIJ3
1825YNuB6Ed5qHe3RMzD61RgvaG34yBrHsqp/PCduDcVuLeka4ZP5qBarDfOIgFU
1826+HWn6WhTWRZ6t/nAavRNKjjwxY+5y2Shn258yxkIpEKOMy9fT1Em6vnFZPZi
1827CBU+ChJbkZIMNL/6oEdIOBX2NPvoUHrTUIoTnrsrggpXA+ds7pxNQzX35tZs
1828v8P0Y7tOwJXFVHQ4asdyVjQVDJ+/pAzxpKJbL5AjGu9RgT0pUupIcDJ6bdvT
1829jF+pVHCzHhccsrmPqjHM2M+nU8HMYe7bmyeJKOvX1YDWDCrEF5Y4lK8moMW1
1830RmfvZFPBqxtX/rssHp11pAvwFlDBKvB1jPmxOLTGNDPKr5AK115/sU0riUXD
1831j5/4OVZEBT3RZvuDgrGoOF/KyKMSKkxzaZpybcSgdh3qyQfLqUDQ3Pen5mcU
1832eqhymuVhBRV+n5j5WBYUha5nxnr/qGTGTxUEerFEoTleX8yan1Mhf/aLvIzw
1833HXRC/DaPwUsqqFDrx7OcI9BnO2TDyhv+z8/RvIssEWjg8hDG3UQFHl7rnO/H
1834wlGhIcnB0RYqVK1fFxNrvI1a3e5OuNJBhW77jtF0Yggq7XZ9vaeTCmPyShRW
1835NAT9YS3kofCGCpjZiVDnrGA06ZCr0VIPFUxYvNjLzgehQ1+5toe9p8Jd0L0w
1836xXoTze+rD5oboIIImp6bGBSAXq+zJ+kOMfu/+E5yPMMf3ZnwvI/rIxUGOj24
1837DhD9UCMtq7vZY1TY95KzeuaPDyoi+/f333EqHGcMqrDH+qBkvifXHL5Q4bGc
1838/z/6bh80jrysKzdFBYvQUz792t5ob1bOtpdzVLhxpI5BNL6OZkSf8hPGM/dH
1839wjdZjvue6DVv2nwogQpC3Piw1yMeKKsh2qVDpAI90dcq2cMdPbkyFzFMo8I6
184039n1pQ8uqEzrj6P76My48xrJFXFB2cO34V0YTP+DHsdoVDujA+wH9P59p0Lc
18410+ble9nX0PNCrtsPr1Dhs6EEv3y6E6o9GdQSvEqFzlhbeUdRJ1Q8/55HzxoV
1842ggZxXi4lV1DCgYpBu79UaDBUeP7olSPqrU5PTthCAxuTJ0f5+B1Qq7VNnfGt
1843NKClVQbvt72MarTv+iXNSoOwPEH18bRL6F/dozYt7DRI3XG8Gttjj8ZZ+4uQ
1844uWhwz8H9x25LW9RDOOa9GjcNfBDlBGL5BfTMVPqtCB4afJIP8XvKcQEVvNo4
1845vYePBoTKVNfsgXNogd+fYn0hGmxM/Rj/HnkWvaPJZZ2yhwYcOHzk9Io1enVd
1846lG1amAaxuLAgAR9rVDEKcQkQpcE1sWwzrutWaENKxMESSRr0WnRGa9+zQLNt
1847kqcYUjRoG9JP8d5jgd4SKb6vvZ8GHkYNnx2fmaM6xW8YIwdoYBnvkelXYoYO
1848vWCv33KQBhFzXTrKcSboi4A910wP0aBcpv8Q56AxmnZcXihbiQaRl0aSrgsZ
1849o7adp4OOHKFBbUtAkF/DaXRxOBF3WZ0GJ19Gaj6WN0Dfpj3CyjVoMHWDrirw
1850UB+tPF+dv6xJg6V9bldOr+mhvrMfWB5o0WBO7t6+5xO66AaDv6cNaPCKy9do
1851R6cOeoUieErmJA18f1OeY8d00H6CUGeCDg0Mg8O/hNSfRNO+iLTb6tHg31+X
1852UtWGE+ihN9IvV41oEP0+V930DYKmtMuoOpjQQKw3fbyBhENXG2Vf9JnSwDan
1853aVlQEId2VypWZZjTYOjnwzT+W1qoXYbKEzUbGvwu63ux9b4m2pWktj/vHA1W
18543m19vvpNA5VP0CjadoHpN+NWdJeqBvorXOvRyEUapJyOSrXA1NBEN510b0ca
1855uMYWxnGkq6A/nHQFJq7Q4DqY9J3YroKev6SfDFdp4Pj4uJxj5FFUxsroPo8L
1856DYIFsi7Tbx1BW3GWMZWeNGCv97FiQZRQSU3rbYI3aKAQZaLtfOkQeveoTWSo
1857F/M8gxilPXcPopaytreNfGmgfFX0SzVRAaXsuhJACmTmd/pidJIhi5rvuPrT
1858LJjZrw/eJ0ehsmgDq7NPYwgNjqv67/iccgC9s+Z2/e5tGiil6OwQMZJBRfA+
185912SiaBC3TslIZEihEd/88AnRNOjD71YudpJCF8cDHH/G0OBEfxtP71dJtHYg
18602L4rjgavv1nWPHgugQr3hX5ViKeBLkvF9NcGcTSs8/aF5AQaZLmEgHuPGGrU
1861EHnW4QENgiz8C8JWRNGamqhPfQ+Zfs/Ffy8SEUWFKmIslJNpID/iwXVSVwSd
1862L7hnuplKg7MjI/u0y4XR4HvJennZNLjIHnnfrm036hkaprqRw5wH0tkzdXy7
1863UYfrHlKX8mjwBBeaxOYpiBpa6G1IFNCAHn/DnFdZAMWdUqFGFNJgJHH/j+hM
1864fvSIusSXuSJm//5JsLjOyo8K712rf1xCg6MMFSlRKi+6k2uxmLWUmT9014PH
1865V3lRlo2RpGtPaaBtuXDGuHsXSpqt9JQrp8HpEgKL8UdutOmZg0zFcxqoe3V/
18660T+5A63MMeXf+YIGhY8OVLHf2I4WJmqxXK+lwbhddereIk40zltw6vBLGmTc
1867V8JH7uVAb13Z8u5hAw0StFc3wi6xo97W9MalRhp0JHwLFy9jQ88f60+tbaGB
1868e9Sv+cIzrKiJ4stIgTYa+I/fzlEr24ae2Ffs5d/O3Fen750b4NyGyrPcMtbo
1869oIGWKLtQwNgWdKVPeVtLD3MfZSv2t5v9QyjN+76L9DH1zkHMbptuItMV22dC
1870+2mQJKckfdBqA+l9iG9B3tNA7R9/pHPAOtISOfwsf4AGLc/XIu4k/0Gq/doz
1871/g0y52MECsrq15CMc5m+ncP/12/8G/q7VpH409EO0iM0uH2utPOc/goSpu1z
1872JuoTDZpqT+c+i1pGnCWMFfXGaPB56/aeM7y/EQ3i5lz/V+a8Xq4MH/H8gSh+
1873oX5Q+EaDZbX17n/D3xHx9xPt8dM0wH2U3iqk9R1hf16bbTJHg7v0TbKLyBLy
1874p7AgtmqeBlVFBr8bpBkIPSUxgIdAg4Ua40izvXRk7KazxfAik+1DfOMlaMg7
1875Vys4SqKBWYfl5crDVOSV7QmlFDINfvGbVIbpUZBSVGS7NY2p37ZEFYN7JCSA
1876fahj/DsNPIm3tpx2WkBuDUsvSf6kQaC24lbuBgISnRMo4f6LBta9yRI7eQhI
1877ymGpsL/LTD8S/L5LD84jOasBVXqrNBAtuzi1pDqPFHW9m3qwRoOGeotTzgVz
1878SI2Nv7bUX2a/vHvW9SpqFmmSfOvuvkGD/PaAvNerM8hrilhO3SYNpERplw1/
1879TCNDYX2relswkNO5qXZ8YwqhlYo0uLNjEHBTo+iU5xfkl7fXQh0HBg0itKO2
18802RPIula34AYnBjI8MY0rA+PIjg/X/R5yYbCLd0OJ1WAM4c/uKp7YiYFEcdY7
1881wfufkb1Oe0akeDB48tG0iDExisivdByp58Ug8JNh1NnIT8iRzt0OG3wYnHKj
1882XUr8NoJoJrg/1BfAYMfMDOsCOoLoSwjSJ3ZjsPG9jduB9yPiZOBSsSGCwev2
18831yJLo4OIO1/bpP4+DBQxQwmH8QHE9yvvjiQxDJTZtDK/zr1HIrxaXKUlMTBf
1884fft2g/sdEnd8V5aHFAbezhKOSspvkYfbrvbVS2NAGcV2hpzrR/IzuWUNDmCw
1885/IWv/UFbL1LqeOVskiwGXM3ETtpqD1J1sDH6ixwGS3+Q3lTtHqTttQPeQ5GZ
1886j9VFd23kDTJJrCtMUsZAlJCA26PXicy/4Bz+cgQDzadrX59WdyDkUPt/0ioY
18876HQW+IuJdSCruzguvVTDQKp7y1Mt3lcIy+TF+5vqGFTtP5nXwtmOcJTUtBlo
1888YnBN3FX96/Y2ROiYrejkcQyGr4hW0WRaEPGtz432azP1dMruvoA2IwcGtoV4
18894jAQrN76+fLlJkTNoWpiE8Vgv6OktW5jA2IRx5KxXxeDmCvNskea6pCpOP2U
1890OD0M1pu++4Wv1SLO9xIfYPoY8Jgr6tadrEVC4oVjG09jsKXhi8j4Qg3CmnAp
1891ap8xBtll8k5WJ2uQhwkl4ZEmGGhc45bN1nuOlCQeCTI2w2Bvkih3D1aJHL5/
189207/GHIM74QfF1EYqkOb7bd67LTFo0okf4+gsR4YeGLrNWGPwUZp6xLPtGbKa
18935GDrZ8vUI/1YX5PkE+ROcqnNxEUMLvk+vNl7pgThTqFZIvYY7IseHyqKfoxI
1894pwYZczgw9Tjo6vSMvRipTH1l4OmIQYTO6B8TyyJEM41V9+MVDPzbVt69KClE
1895TNKTcLnXMFg46GnxoDkfGUsfO8biwvQj+edX1uhHiGPGPvVrrszzNW74ytrm
1896ITcznykpe2DQ3nXrSodcDlKQ3SH+xhsDz4lD6A0kA1HMYReV98XA7OLC6xO2
18976Uh9jsme+34YxGe6j3aFpyH9uRO7zt3EoPxBbW0qPgWxzBPf2RaIwWJ5pY+h
1898VAryLe8qp1QwBo5vtoUHOScjPx4tsVBDMaio9JZSZU9CbuVrbJjdxqDkWYGG
1899d8cDhKPg1lp9GAbb9j7jsI28j+wr5PwRFolBWUL1GkkuAdEvlsTzx2JQ1D2e
1900XrB+Fxkudp4JjGPOg+DkpOqOu8jFx5Vfp+5hUGM/3WogHYN4lxwbLU3EQEFW
1901oifqehTypyRsmOsBBlcmHrVuFtxBYp50D3g/xGB34N3a/MlIJKfUvEcrBQOO
1902GO0gQZcIROZpRmdBKlOP+rKAMu9w5PnTqXbWdAxc+31cxaTCkO5nrg1DmRhE
1903xlaqvSkLRbDyiKdXHmGA51PhNjEJROKjDi88z8cgS4zm9tvhJiJvNyW9UYCB
1904OrrkGRsWgFzlPpafWcw8/74qUeyTH7J1ceEr4TEGv5znn8Zs90MKX6XuVXmC
1905gTQx3zfPwBeZ8mKkDTxl7p/uwcaWL95IiOGjkb1lGPRn60lrKXkjwlLGvC7l
1906GFz2eJxTw+OFWI+UJmypwuC4nBb6K88TGVC7dEejltkvGYkvBXVdEXfunR1R
1907dcz9olkUbGLognAuNm8M12NgVTt11NzGGdHN3B3s0YiByu5N+dMPriLzXm8a
1908mpowcAv74Xm/0QmJMPT5xdaCQZ5q5U1t8hWkbW3Aq7ANg3qd0tS0q46I7UhI
1909FdaOwXw6oaS0ygFZLZenar3GYIyRmzi7fhlRs4t2/tzJnKdXbXwHne2Rilfa
19109jv6MCiIX/iCfjyPGGaSc871Y2DPR0Ce9J9DFr0yJ0reYnCVFJpb9M4GkZb6
1911aQUDGJRODRR00KyRjrXC5MRBDDhbfT6J77RGLo2c+fBlCIPBYvz4PTUrJCeq
19123Mj/IwZeN/gI+wsskGN25+M6RzBIOUMYLZs1R8bU2Ht5RjEQ6fI7TFEwR/gX
1913HU+WjWGQ2ypyf6TEFIk33Hts+isG6U/tTYyJhoi8VF/AwW/M/eqjbGI3ZoD0
1914rvnXBU0zf39KPPLZsD6ytWL4sMAcBgwjJcmjC7pIYVSYp8M8Bq0qTy9lbp5C
1915ULtD5VV4Zj8ZVyslSp1CQrjjDhguYnDu1PKZwjsnEeFFdad0InO/Byvs5+w4
1916gTS8whfOk5j75nWq4UO2E8gPL9h3m8qcr2aONCczBHEbWeavXcLgYs1VxnT4
1917MSSt+GHH6ncMMt2yXIR8NJEOX/kb8BOD/GXVc4nXNRBhAdu3A78x8BV5Z3P9
1918rhqii/9xU2CFWc9VVg6WYlXEuy5BxnaV6WeetYRknwrSb9UeTvzD/P/i6xiN
1919OnQU+bXfRunwXwyivXdf5vE8gkj+ok/6b2CwKnhy0MVFGQlKk9TYykIHU8kY
1920f476Q4j85yjaPjY6DDwWlCv8JYdYP9mX48ROh8afvW9dCLJIRMBLg3IOOoiV
1921e7kNzxxAJnYTizV30MGYuntP0cp+hHUx3DyMiw7Xl94r7RfYjxxpEN7s3kkH
1922hcny1eBj0kicjdEFy1106NP/Td1eIInUy+LZs3npIB7sXrb5SgKZXQ6tn+Gj
1923A9upO4ZR5uLIscyqXdcF6eBD8E55VCyKXHXRb6/bTQdD4zDXRUcRJElzxv2P
1924EB26uIa/HlbeixDHeXtj99LBW1Sg3uO7EML/rMxvSIQOMZZG4XoLuxE0SEdq
19259z46qOkKnyATBJEMYf9bxeJ0mM24+DudTQDpIu1UJEsw7/8jVvf5AX6E3vRk
1926XFmKDoVY9mStGR+if2FcpX0/HW5pFN7LCd+F+Cp4z247QAflYQ4DlR08SP4a
19275wMjWWa+z8q8vk92IsvZWuRxeTroK83JC3HtQKTdP2WIK9KhOmyrzP5RTuSM
1928lqfutYN0kObnpMtXcCClk48KfijRofIr1ac1gg0ZKdcwPa5Mh4rY7QqyYazI
1929ZsiHP+FH6CDrF6qoF7sNsRHdYsOtSgfJxp+buS1bkDvU7G3WanTwVXQ5NINn
1930QapbVV7kqDP1OCZFowmxIOx2V3fKH6MD+3sTN/ejGziVQxvNN47TIXSVoX9q
1931cB136W+6y0stOmjE98oGBf/BNeT1dekgdHC6e29wL8sqjgdZExsGOmS8fp2F
1932f/0bd+2bYrC9Dh2C64tPf6v7ieuioDek9egg9a7XfbPmO05y1dKJaECHeR5d
19333FAnAxfG5nK+0ogO6aFVncz3NtwUf6ipjykdiiufOjskknFakg91NMzp8Fb+
1934jaPT4iIuS+mx5rolk/dcWrGKJuCWtRoPdZylQ+Lc1ETR5XmcteF7qZjzdPgl
1935UEk97zuLqz07I2R0kdkvzsoNsje+4XidfnLtukSHmVzf+i8Wk7gb3hxbRh3o
1936UHI1/Q92dxw3cFt0OcuJDo5F++Xs2T7j4rJOzUq70QFKL9EZncO4U3Ue7ypv
19370IFfwQd7X/4OtzmYWq/hTwcuC8rBO0o9uBZSa35HMB1+fGrafeBtB86Nobd3
1938fygdeIPcpp+Vv8YJL39IjblFh8f5fw90fmvH3dxGiDMKp0PBbRfBhActOBXx
1939nX6j0XSQyHQ9aL5Sj5uTycA07jLz90RbtnbW4ZIOSrpmx9KBO6rWx+VRLY5+
1940TM3+Ujyzv0j3bL9E1+DKrewMSA/pQMkIN5f+U4aTulcp+jeHDs2Pw2KeUgtw
1941BJf8cf08Ojx7X78gIZOPK9VPSk1+RId/7cmbMgF5OEVWfy65QuY8+RtGvruY
1942jVML1163eEKHr58S1wtE03CGAe8mnz5n+v+7RcVL5h7Oy5GUbdVNh1e96Qda
1943Vfxw7cdlhCswOvBctL+so6uL25tANjc1YECDslrwc9lP2mfnSvD/chiQ0/hh
1944IUL6nDafqLgPD8aAGKpo25c3/Vp9Ib5inPuXQMOmJic9jVcrgGKunGyyBCol
19454oZJ47jjUYo2M6nBS9A/Vfz7TIP4MQu7lsTuJ0sQdvJDqL3XC42HSXtdNoaW
19464IFbhpegEE1NKb1g5vn6Egz2PHhJG9ZW0c6TjHE/8B0UdNgH78gGHt6eziJv
1947deY74AP/dYfaBchrXuJwexnyHb49/keU2Jsp+llh+7hEyXdg+f+fZ3Thnon/
19484ZA6+brkJ/+xJGL4cNvT/9jdPNaAWPYfb95ka6p+/h/Ldm/JRlr/49U4vtjl
1949/+H3plIBz9v+Y+/xExZSr/7jFkr4drbO//gM32bwQO//1DPG7RrT9x//zBGz
1950Qfv/4ywZRKXm7X88r3mLkjrwH9f/TZgwGfyPYztze9mG/uNDxq3FgR/+43+7
19513icdGf6PR0Ynw8j/wyXZFM/ij/9x4KU/thdH/uP/B78p2VI=
1952 "]]},
1953 {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
1954 1.], LineBox[CompressedData["
19551:eJwVl3dYjv8XxytNSYtSKc8gEmW0aJwPShstXyURDYQySoVEU6G9S4OW0l6o
1956lDbtSSl038/9VFqPkkrxu39/3dfr+ozrnPc55/25bup5Z1N7DjY2Ni12Nrb/
1957f+Ue9Krt34+BjsDeFiyoBvoZY2/uKWHgkzd8xK2oBnwNVjWalTHo58ijXB2s
1958gW+isofOqGGg58om+1i+FmIzbusHaGKw49vHf7ndtcDbKmk1pIvBzN3np1yU
195966Bsj+KXbfoYSFgUqHy8UAd2UUdsXAww2DtqZZUYXgc1NlfOcxljoEzNtshg
19601YE7q+qyoikGoj8cee6W1gNTzPaOjzUGq73N6ScsGiHyjutq2xkMuoZOnsoO
1961boTD3x7d33QWA4Hwl+efvG+EZ9lFPq9sMfBPfqe1urcJTmpwPh5wwECusHZ7
1962ungzNNpmJspfxyD7cQGX078WSM+dqurxw0Djitrz40bt0K87t+5gAAbnKHxL
1963d5LagRtbPJ0SiIEz3dEzeKYdLkpwLl8JxkCf76SwTXQH7PKXVOEOw6Cyd77u
19648e1OKDmrm6eWiIGXywg1hdkFjGWj1WdJGFBvoW9T4t0gFm1qxJWMwX/M2un3
1965et3g3npmoisVg22WIxO8ud2gceCWrFMmBufZDasVPHqgTiT1WVIRBv/0D5Uc
1966UuyD+VcZU2tKMOjhDQuqvtgHW/VzNS6XYuBXGqXyJa0P/O+XD6pUYMDL78DG
1967LtEPBpNtYp1VZD26ro5QBQagu2H5KUcLBgfE14ifFvsM393N7zt+xUD++BDH
1968xTfDIDtZK1j2DYPdnGWWOtwjcPmsYgrnKBmvblAYYToCP3XW1qbiGLwrWdly
1969d3oEOEVrOL6MY5Bva3o9Uvwb7Hgl739iHoO0ut3/ZK58hyuUOLHkXxjYm9em
1970pcR+h8II7sypBQyOhjisRDR8h4Oe35uCljBo9q9j66WMgpFuDF/DXwxOxc/+
19716v8yCs7fOZ4c4MPhgRBmNeSEQ4m5i3TgWhz6HmyzWUrGYbFp+FU/Pw7a+mZR
19728b04eOdVtN9cj8PBNztVnYAB4XeuCeWJ4qDkWvDeXoqAso2DETQZHAZ3zNxu
1973nmLCqn5hPP9+HFblO6o+cE5CZwlfgpkSDo1pEkkaBpOQtuV8QoIyDlEztgqm
1974oZNw9JdIorwaDnmcD9WvykxBaMqtJENNHLLsX2C+h6dh62/VlGBdHEKcX4im
1975W8zCgm1oSo8eDmJ9Q0fq781CS+tYipQBDgInBP9pZczCtbS41BwjHDQvOnnr
1976L85ChfGftI8mOOy77exXl8ICwxfV6fzWOKw/+4Cna80cyAiKZ5idwYFfkz9y
1977du8czHo4ZyTY4GBwZJzuem4OIo9TMuVtcfg2dic6v3oORpYfZBk6kLqVzkcs
19783Z+HGyY6OcEupG5nN3KfEVuAuL8fC/j9cHg4IhmzELUE08kbvZz9cWiZ4Jbv
19797l8C7UNnDXsCcLj6M/Kw6qZlmPb5yYgPwsGiq45ITlwGbT4JqZ2hOMSbEq9+
19805/yBWVEHP70EHNAT/0xJxiroyrFZ+RWS61e9RcJs2VHiB/3t40U4PFopUB4P
1981Ykc/nSLmjUpwiDTV+vqohFzPkw3ZUI5D5b70+Be8HOjnfuP655U4QHwoU7OE
1982Az3Tild434SDkZnPCHMTJ/plprTm3zAO1Jiez+ViPMimjSFs+BUHk7YydQ8d
1983HtR4NIYS8w2HhdcG4Tdv8aDYA8uaihgOFd2nS4V7eJDGlhr3s2M4uJkWXxsP
198450W+E4bT737isKGg0jln81ok+uDCZ28eBnwZ1jhJtRBAe/PC8zn2MuD5zNWJ
1985RSkRtDtbK3YpiAF29uVajGYJlHGiFbN6zIBWm0HXBIYEoixaKlY+YcClD5ej
1986NTgk0QZd10avUAZEVCWs0VKXRCt4zvyaaAbYxkp93pcriVopEibrUxnwn+Hr
1987q+GPpJBT7BwfvZwBjnEzqv2K0oicBAvfCgbcn9ZU1dSXRjZMcvdrBnRYBnT5
1988npdGpio71bIqGUBU242UREqjg73nHHa/Z4BCJKsr7Lc0WivU/l61jQGTE09m
19891pfLoOyArDtGGBmff6DghAAFqfA8443GGaC3wyW5VpyC6v0jor4yGLCgUyb7
1990iEpBI35e+TfGGOBclDbHVKKgDb7mWOwUA0St3gZgVhTk7c1myPjNgG+n10x/
1991fE5B69kWBhSWGBAtcY+SnEtBCfd/2Lkvk3pa3/xsW0pBZV79XvyrDOjlnuoo
1992baSgybu5RXs5CJCJaPaMGaOg/zxOSXqtIyDp0BV9JEdF+KJxZpMAAfs+DA6v
19933UtFN9yPKAkLEnDqqRyjXo2KHt9WOPZCmABTrilTHj0qeu/K+fCDGAHU04nj
1994DfZUpHCjYFyMSu6vMJ/c9YyKKlnpbudoBBTxTwrMvqAi/esJa17SCViXMT2c
1995lkNFdi7+0pqyBBx57Jc6UEFF8desTS7IE/Dj5vdrXt1UxOXE+zpfmQCnYCy9
1996iYOGxKgzIhtVCQhVlYrm5KMh2YG+K55qBOiGCo4rCNLQ0SPPKTrqBDAX7McM
1997pWgoUEorcBARIKQ/X5y1j4bWtd78j8uIgNUT9v5LZ2ho80OrwsvGBPiKqf0Q
1998uUBDu9UO8XceI2DgX3eE5EUaOvZi/bt4EwJel6DZ+es0FHo3W3bPf+R953yT
1999B3xpSHT3119W5wkwJ56VXMikoa1Yw/GaCwRInFZRvJRDQ0pxudnb7Mn4KXVs
2000Nvk0ZM7leWbWkYDd0wU/N5bTUPTwhga/qwRocurJ1DbQUEbEH5kf1wioque1
2001PtJCQ+X6o+4nXAiIt8wJKG2loU+l+bukbhLwRFlo4VIPDUk+NYgscCfAzqbV
2002dOM3GtqpvXd6oycBqm6WNAmMhtSXxfXu3CH1XGW/J0DQkLUD44+OFwEJ697R
2003m3/QyHn3vjDkQ4BFiJZTwAIN5c07VCE/AkZKbjcJL9HQu5fG4hn+BOgkxZx4
20048oeGvolJfXR5REAOcVP9FBsdUWdK93GHEBCkql0MfHSkfY+z3SyUAKtnB3P2
20058dPRRX6zS6lhBGD+EkclBOioYPtsskYkAetVRbJqheiot1RLPSiKAAPl36E+
2006InS0eORJ/0A0ATNqVucObKAjdG6nwM04AqIMLBa8xenIbto9qyaegBCic0RE
2007go4C7zYdWZ9IQGZDKCtWko46Y+08s58RwDVU+vmBNB2d63rG/PqcAPqnxJBm
2008Gh35np16uDudgDkllfRVOh1lTanL3MkgQPtLw5Xt2+holu+zuVg2ARX4EwvL
20097XS0IXb77IWXBNiYPY+13UFHarJuwYU5BLy7dbHLRo6OvA+LvjfKI+/3iHdU
2010k6ejF522Z+LzCcAtPhAbdtFRs03BIrOAgPHdiskEyZOTfyOUiwgoSUtOfbWb
2011joTuGCv6FJP6X5r6e0mBjpT4Ej90lhBwcxlvklKko1MxE/YyZQR0IWOBOpKT
2012iwMSX1cQUMl+7cTPPXT0/lC/Ks8bAq4ORjl77qUjomNrj/lb8v6n644tkrzW
20135ua1tEoCPnS6rzjtoyOFyVq+2SoCtHg8g/tINvUUStd8R4Agbxa/8n46cuM9
2014i4JrCNDrDH8SRHJ89KuhT7UExB5+T+0nuXrriptsHQE0ovSTuBIdjRYZiNyq
2015J8DrOf7+OMnch+Je1TYQ0BRQOXuP5J0dTD3BJlJvv7QbaSQfO6OCWzcT8Eb5
201656kqkm/88L3/soWAtMTV4naSoz16JBc/EMD4uS6yn+Q3PLQynVYCrjjY8PWR
2017PBLlYhLRRoAaY9vWDyRzbH03+a2dgGLi8XwpybJFAoEKnQR8USoKiiXZAFnT
201873YRoFSavXCd5GvtL6tbugnwPHhX7zDJ4dZLluK9BKgYbQ/lI7lsQveXXR8B
20199kuJw01kvoPu0aFF/QTUpteheyT/5WbIs30i9Rl2bZEjmRa1v8n4MwGPKA8D
20202kg9j9Ifnk8YJGC06mXQRZIvF3aujg2RfvE8fXSZrMdT2BKnMkwAm+LmZF+S
2021i9quKvmOEFC9LqeDi+T+05UdXV8JuMY16uNF1lfa3ZL76ijplzuPlp4k69++
2022Gi5cghHgNuz25DXZL94+rZv/4KQeNsvuG0jGn8L+R0yyvs9i64rIfove4KHV
2023OUbA77HzsED2p158kb74BAGTQyM8+0jOTd92Ln2SgOH1leXhZD/byJ91mpwi
2024wPWW3dtyst+FCmPd9s8QYBJppN1HzsOtSv4ntSwC1lb2Sy+T86LRw3o9vEDm
2025l5N/a5JKR9On5Bu2LpL+/zp0+wCFjlJG7Dqdlgh4Foba32yhI86JAWLpDwG8
2026jfq7r5Lz2cpWLSrGzgS250Ev72+io9MKQVeP8TPh7coBFUfSL9aV1LlHrWPC
20271OltF5ikn1QfWPX5IsCEvy4qJ23XkvrruMRfFmICpc6i9jAPHU2cPtnkv5EJ
2028lhO8a6tIf/J8RKO+28KEWP4l2fifNLRL0HoXN5UJ68ZWH1bO0tBIZJSqMY0J
2029rxfsL36epqHDKbzHhrYyoYNb5C8H6Y9ry6c9f8sx4dh1s1gx0k/j8De9ikpM
2030UJrbe12/m4baUxi54cpMCHQonhnvoCGOM0J+v1SYYOh9tte3jYau9Nkrvz3A
2031BI2+z9wvm2kINQpFHwUmmJ/aGFRcTUNjmQ7/nTFggu8e/7D2bBpSdRIZDDrH
2032BE/F7U/v3iXPb9csmrJlwvjxmPKHHjSUgjkGnbjAhFGCu9fXjYzPuuqgmAMT
2033xpSkRO65kPkYXUxIdWICnqnVq2VHQ/4K1dYVbkwQzlN8LWRIQ32sS18Zj5lQ
20343IRZK4nRkIz/yuKep0zI35upzyNKQw6SISJ3Q5gg7i1XN0C+pwuHS3REwplw
2035nbvG/Tr53m6K/JujFcOE9JbswsAVKrJWiXCPSWXCdtN0Q6NRKsI8K4X1y5jw
2036QnyzuEUuFbHWCGrnfmXCJf5VuTx1KmorY2fYHxgD5cdrvHTUKUjOuMj7TtgY
2037CJg9TD5yWwbZj51yS8XGwIulYJKSthnZbjXOeqMxDkJf3zUdK5dEmvaqSnjI
2038OHzpE3P+9G8T+nzUeYVtYhzOiT2RSz4gjn7x27/zODwBehYGIu1hGxGr78QX
2039jqgJ2Crc4ZwhsQG9QkHK96cnoObjtbC/USJIv+D1GP/hHzDRYnH5oJYwsl+T
2040GT0f8QPm1owqb/gjiA79/u7dOfkDpLVYSWYOAmh1RqShEibhhnpN1VFpfuTx
2041KEwnMW4SGsz79ynW8yJX7vaaAdYkNLZ5p0tHcyOTQLZouvYU9LyKSpXI5kRT
2042L70zzydNwYFPomGm+RzoUveCSNHsFPxZofmasdiQ/fBOjzPkf457IUM4MPMv
2043UB/lSq3ETwNUvKkAyz9QdWDrppypaehP+mKhemMRJILHTxjrzoB5g+rCzL1f
2044YPH9BfYvfgbm8ye3ZI/9BGEpmevrp2ZgZpu8wplHs9DkeUOalz4LtKGKnvmj
2045k+A6cUIxzGgW6s87mUdtGQOfnSe/RnjMwpzTbuXc3xiYWL95XJ8+S8bbyBGu
2046/g1CQiUcV9tnAbcqyHTaPAi7o5K/5v+ZhZIDdvOGeA+oJ1L8Lm9jwUnW/tsp
2047N9qAL4pth9kxFqjL/UuqC64HhQLOQs7jLOjoKOAgHOvB9CPvwTKSVx/ec6Vo
204810Miu7CRhAkLUNfN5OGVOlC4RnX5asaCi597qz2c68Bc93CFkyULFr+vKoHl
2049e0hZ8tHztWPBVJGj3H6oAVUbnkulniworhFOMnlVAQ7270RO32GByctr54Td
2050KiDyyu1KtrssGNnmwPVPqwJmPZmCRvdYcFiuSteuqxxexjSVjd5nQdaRPZyW
2051i2Ug0xXAKeTHgrdD3p//HisFbm3elMshLIj9fnSGsaUIlAxr9IVCWdA25KYR
2052Ml0IF0zd50pJrlNmD75UVQg158aOsoezoHOne3rh6ULwvNc8FRPJgh88f1Ui
20534gtguixQvSGOBcuCGdUuR/KgT45vYMsLFsjhplGCr7Iga3pTwyeSn2nLUvYZ
2054Z4Fn8Y7isHQWWDam+g9OZQJFUy9kTSYLhDgtf1XvyYTLJwJ0mdksKDkros2o
2055TIe/blwVefks2DcTZr59Jg061TdmOBawwLXK4OFETBo8Z9sWSSlkQaVL2rzG
2056oTTQC9J2CS9igcOhY07hUakQnuSzw62U3H/D56OoTgrI1rPHab5lwSnOwZ1a
20573gmwGCgcsEDyhRbTxAt4PHw0prrmV7Jgeq2VX61+PLgMIBNqNQteCTjFK2yK
2058gzcT9/m4alngK7H+BU99NBwT/uvR2sgC2tqo18WW4UDpF7jo18SCW0k2+KXu
2059MJiLlz6p1cyCIqn1vV5GYRC7VXNfQQsL2Fuk93dph8Ko6t2JiFYyvtYUFuPx
2060YyhZCf5k1MYC56Elt7nIYAioTWjkamfBT8foyfnkINhl+DbtdgcLeM//SJ2r
2061DoR/gh9D93SyINmBmsbeEwDdvYNe4ySbGd6T3jbhDy/iJq6kdbHAPlHuuCOn
2062P9y2WbY63U3WJ82tt4vqB/8DDjOkAA==
2063 "]]}},
2064 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
2065 Axes->{True, True},
2066 AxesLabel->{None, None},
2067 AxesOrigin->{0.6, 0},
2068 DisplayFunction->Identity,
2069 Frame->{{False, False}, {False, False}},
2070 FrameLabel->{{None, None}, {None, None}},
2071 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
2072 GridLines->{None, None},
2073 GridLinesStyle->Directive[
2074 GrayLevel[0.5, 0.4]],
2075 Method->{
2076 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" ->
2077 AbsolutePointSize[6], "ScalingFunctions" -> None},
2078 PlotRange->{{0.6, 1.113856665019139}, {0., 9.60319960268084}},
2079 PlotRangeClipping->True,
2080 PlotRangePadding->{{
2081 Scaled[0.02],
2082 Scaled[0.02]}, {
2083 Scaled[0.05],
2084 Scaled[0.05]}},
2085 Ticks->{Automatic, Automatic}]], "Output",
2086 CellChangeTimes->{{3.706389897839719*^9, 3.706389927338097*^9}, {
2087 3.706389977628601*^9, 3.7063899934577093`*^9}, {3.706390037493997*^9,
2088 3.706390135507318*^9}, {3.706390169001862*^9, 3.706390273200338*^9},
2089 3.706390472518449*^9, 3.706391355900477*^9, {3.706392141812333*^9,
2090 3.706392152285119*^9}, {3.706392182418235*^9, 3.706392237898551*^9},
2091 3.7063923211750183`*^9, 3.706393210674275*^9, 3.7063933860780363`*^9, {
2092 3.706395567559428*^9, 3.7063955733613977`*^9}, {3.7063957031664762`*^9,
2093 3.706395732606964*^9}, 3.706396090085198*^9, 3.706397251640687*^9,
2094 3.706397281989333*^9, {3.706397320122552*^9, 3.706397421391287*^9}, {
2095 3.706397454818717*^9, 3.706397487649695*^9}, 3.706397534685267*^9,
2096 3.70639784006503*^9, {3.7063979009367332`*^9, 3.70639791709413*^9}, {
2097 3.706397958857544*^9, 3.7063979833608828`*^9}, 3.706774848089622*^9,
2098 3.706774887805092*^9, 3.708195070140911*^9, 3.708195132349416*^9,
2099 3.708196741419956*^9, 3.708199838006528*^9, 3.708201028503286*^9,
2100 3.708201213820109*^9, 3.708201255721958*^9, {3.7082014339386272`*^9,
2101 3.7082014562936707`*^9}, {3.708201489629841*^9, 3.708201637126967*^9}, {
2102 3.708201686003627*^9, 3.708201818309126*^9}, {3.7082018486516743`*^9,
2103 3.7082018561759787`*^9}, {3.7082018907327147`*^9, 3.708201901089294*^9},
2104 3.708251281781599*^9, 3.7082521736450453`*^9, 3.7082523931247873`*^9,
2105 3.708252465986342*^9, 3.708252558233345*^9, 3.708252844066751*^9,
2106 3.708252876993167*^9, 3.708262931250875*^9, 3.7083554204533443`*^9,
2107 3.708355538482791*^9, 3.708375672837532*^9, 3.708632793154093*^9,
2108 3.708632966381298*^9, 3.708633024139237*^9, 3.7086332451406097`*^9,
2109 3.708692523033072*^9, 3.7087124811048613`*^9, 3.708718699565579*^9,
2110 3.708718863876753*^9, 3.708720150549226*^9, 3.708720662563251*^9,
2111 3.70872154579935*^9, 3.7087216837726088`*^9, 3.708722376745001*^9,
2112 3.708722799377919*^9, 3.7087235288064957`*^9, 3.708723742264966*^9,
2113 3.7088694136240892`*^9, 3.708869524346593*^9, 3.708869616511271*^9,
2114 3.708871043492494*^9, 3.709262042516638*^9, 3.709264832646017*^9,
2115 3.709264903332553*^9, 3.7096025839523277`*^9, 3.710878526337679*^9,
2116 3.710879154706009*^9, 3.711391072178303*^9, 3.71139154737453*^9,
2117 3.711812728977231*^9, 3.7118178593146667`*^9, 3.711934580146167*^9,
2118 3.7128649422265368`*^9, 3.712868108684395*^9, 3.712937783867008*^9,
2119 3.712964563155401*^9, 3.7132081573126*^9, 3.713208412797886*^9,
2120 3.7132090308333*^9, 3.713209185343912*^9, 3.7132106241579227`*^9,
2121 3.7132167055189133`*^9, 3.713223928624192*^9, 3.713236139869128*^9,
2122 3.71323931669482*^9, 3.713239944810994*^9, {3.7132657581632357`*^9,
2123 3.713265774918686*^9}, 3.718980529293487*^9, 3.718981180981474*^9,
2124 3.719025942464345*^9, 3.719099703712816*^9, {3.7191151146228333`*^9,
2125 3.719115144889577*^9}, 3.719116097565092*^9, 3.719120364546606*^9,
2126 3.71955895365701*^9, 3.7195610995200977`*^9, 3.719704935411312*^9,
2127 3.719704967582891*^9, 3.719705215596431*^9, 3.719705259750307*^9,
2128 3.719705332967161*^9, 3.71970541333355*^9, 3.719705580210051*^9,
2129 3.71970571736464*^9, 3.719776261336211*^9}],
2130
2131Cell[BoxData["0.6744711861567759`"], "Output",
2132 CellChangeTimes->{{3.706389897839719*^9, 3.706389927338097*^9}, {
2133 3.706389977628601*^9, 3.7063899934577093`*^9}, {3.706390037493997*^9,
2134 3.706390135507318*^9}, {3.706390169001862*^9, 3.706390273200338*^9},
2135 3.706390472518449*^9, 3.706391355900477*^9, {3.706392141812333*^9,
2136 3.706392152285119*^9}, {3.706392182418235*^9, 3.706392237898551*^9},
2137 3.7063923211750183`*^9, 3.706393210674275*^9, 3.7063933860780363`*^9, {
2138 3.706395567559428*^9, 3.7063955733613977`*^9}, {3.7063957031664762`*^9,
2139 3.706395732606964*^9}, 3.706396090085198*^9, 3.706397251640687*^9,
2140 3.706397281989333*^9, {3.706397320122552*^9, 3.706397421391287*^9}, {
2141 3.706397454818717*^9, 3.706397487649695*^9}, 3.706397534685267*^9,
2142 3.70639784006503*^9, {3.7063979009367332`*^9, 3.70639791709413*^9}, {
2143 3.706397958857544*^9, 3.7063979833608828`*^9}, 3.706774848089622*^9,
2144 3.706774887805092*^9, 3.708195070140911*^9, 3.708195132349416*^9,
2145 3.708196741419956*^9, 3.708199838006528*^9, 3.708201028503286*^9,
2146 3.708201213820109*^9, 3.708201255721958*^9, {3.7082014339386272`*^9,
2147 3.7082014562936707`*^9}, {3.708201489629841*^9, 3.708201637126967*^9}, {
2148 3.708201686003627*^9, 3.708201818309126*^9}, {3.7082018486516743`*^9,
2149 3.7082018561759787`*^9}, {3.7082018907327147`*^9, 3.708201901089294*^9},
2150 3.708251281781599*^9, 3.7082521736450453`*^9, 3.7082523931247873`*^9,
2151 3.708252465986342*^9, 3.708252558233345*^9, 3.708252844066751*^9,
2152 3.708252876993167*^9, 3.708262931250875*^9, 3.7083554204533443`*^9,
2153 3.708355538482791*^9, 3.708375672837532*^9, 3.708632793154093*^9,
2154 3.708632966381298*^9, 3.708633024139237*^9, 3.7086332451406097`*^9,
2155 3.708692523033072*^9, 3.7087124811048613`*^9, 3.708718699565579*^9,
2156 3.708718863876753*^9, 3.708720150549226*^9, 3.708720662563251*^9,
2157 3.70872154579935*^9, 3.7087216837726088`*^9, 3.708722376745001*^9,
2158 3.708722799377919*^9, 3.7087235288064957`*^9, 3.708723742264966*^9,
2159 3.7088694136240892`*^9, 3.708869524346593*^9, 3.708869616511271*^9,
2160 3.708871043492494*^9, 3.709262042516638*^9, 3.709264832646017*^9,
2161 3.709264903332553*^9, 3.7096025839523277`*^9, 3.710878526337679*^9,
2162 3.710879154706009*^9, 3.711391072178303*^9, 3.71139154737453*^9,
2163 3.711812728977231*^9, 3.7118178593146667`*^9, 3.711934580146167*^9,
2164 3.7128649422265368`*^9, 3.712868108684395*^9, 3.712937783867008*^9,
2165 3.712964563155401*^9, 3.7132081573126*^9, 3.713208412797886*^9,
2166 3.7132090308333*^9, 3.713209185343912*^9, 3.7132106241579227`*^9,
2167 3.7132167055189133`*^9, 3.713223928624192*^9, 3.713236139869128*^9,
2168 3.71323931669482*^9, 3.713239944810994*^9, {3.7132657581632357`*^9,
2169 3.713265774918686*^9}, 3.718980529293487*^9, 3.718981180981474*^9,
2170 3.719025942464345*^9, 3.719099703712816*^9, {3.7191151146228333`*^9,
2171 3.719115144889577*^9}, 3.719116097565092*^9, 3.719120364546606*^9,
2172 3.71955895365701*^9, 3.7195610995200977`*^9, 3.719704935411312*^9,
2173 3.719704967582891*^9, 3.719705215596431*^9, 3.719705259750307*^9,
2174 3.719705332967161*^9, 3.71970541333355*^9, 3.719705580210051*^9,
2175 3.71970571736464*^9, 3.719776261350561*^9}],
2176
2177Cell[BoxData[
2178 GraphicsBox[{{}, {{},
2179 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
2180 AbsoluteThickness[1.6], PointBox[CompressedData["
21811:eJxTTMoPSmViYGAQB2IQveXNygdmLg/tfRV+3zjc7urQuLNsLbPgI3sjww8L
2182/7a5Ovi1OVdduPvIPs4mgkWrxdVBKljAfe6qx/Zv/LIXBla4OjyXvyucVf7E
2183PmGPeXa1o6sDxLyn9r7LOmdZprpAzXtmL1LRU/w42Qlq3jP7TU0vY1Wz7KHm
2184PbdnEXkd18drBTXvhb3s9SYRB0dTqHkv7W8Luf6aKGsINe+V/c5pLzKEDLSh
21855r2yb/7PbGTvoAo177V9sLBi4SpvBYcXYPPe2H+Q3fW2NUsCat5bewfLj9F1
2186RwWh5r2zf+Yl+/TzBw6oee/sBXlUbWeuZ4Ca997+iOeUj0/ffLH/0v+Oc6v1
2187B/ubvf0Xyl49t4/6FlIgveiD/Yw7FjY9q6/bH4jZfa2R46N9poDB1526h+zV
2188Dyvavsj7aC9x6kGaR858ewA+Hq3N
2189 "]]}, {}}, {}},
2190 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
2191 Axes->{True, True},
2192 AxesLabel->{None, None},
2193 AxesOrigin->{0.5309831989254208, 0},
2194 DisplayFunction->Identity,
2195 Frame->{{False, False}, {False, False}},
2196 FrameLabel->{{None, None}, {None, None}},
2197 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
2198 GridLines->{None, None},
2199 GridLinesStyle->Directive[
2200 GrayLevel[0.5, 0.4]],
2201 Method->{},
2202 PlotRange->{{0.5395769489254207, 1.0895769489254208`}, {
2203 0, 43.060664293880656`}},
2204 PlotRangeClipping->True,
2205 PlotRangePadding->{{
2206 Scaled[0.02],
2207 Scaled[0.02]}, {
2208 Scaled[0.02],
2209 Scaled[0.05]}},
2210 Ticks->{Automatic, Automatic}]], "Output",
2211 CellChangeTimes->{{3.706389897839719*^9, 3.706389927338097*^9}, {
2212 3.706389977628601*^9, 3.7063899934577093`*^9}, {3.706390037493997*^9,
2213 3.706390135507318*^9}, {3.706390169001862*^9, 3.706390273200338*^9},
2214 3.706390472518449*^9, 3.706391355900477*^9, {3.706392141812333*^9,
2215 3.706392152285119*^9}, {3.706392182418235*^9, 3.706392237898551*^9},
2216 3.7063923211750183`*^9, 3.706393210674275*^9, 3.7063933860780363`*^9, {
2217 3.706395567559428*^9, 3.7063955733613977`*^9}, {3.7063957031664762`*^9,
2218 3.706395732606964*^9}, 3.706396090085198*^9, 3.706397251640687*^9,
2219 3.706397281989333*^9, {3.706397320122552*^9, 3.706397421391287*^9}, {
2220 3.706397454818717*^9, 3.706397487649695*^9}, 3.706397534685267*^9,
2221 3.70639784006503*^9, {3.7063979009367332`*^9, 3.70639791709413*^9}, {
2222 3.706397958857544*^9, 3.7063979833608828`*^9}, 3.706774848089622*^9,
2223 3.706774887805092*^9, 3.708195070140911*^9, 3.708195132349416*^9,
2224 3.708196741419956*^9, 3.708199838006528*^9, 3.708201028503286*^9,
2225 3.708201213820109*^9, 3.708201255721958*^9, {3.7082014339386272`*^9,
2226 3.7082014562936707`*^9}, {3.708201489629841*^9, 3.708201637126967*^9}, {
2227 3.708201686003627*^9, 3.708201818309126*^9}, {3.7082018486516743`*^9,
2228 3.7082018561759787`*^9}, {3.7082018907327147`*^9, 3.708201901089294*^9},
2229 3.708251281781599*^9, 3.7082521736450453`*^9, 3.7082523931247873`*^9,
2230 3.708252465986342*^9, 3.708252558233345*^9, 3.708252844066751*^9,
2231 3.708252876993167*^9, 3.708262931250875*^9, 3.7083554204533443`*^9,
2232 3.708355538482791*^9, 3.708375672837532*^9, 3.708632793154093*^9,
2233 3.708632966381298*^9, 3.708633024139237*^9, 3.7086332451406097`*^9,
2234 3.708692523033072*^9, 3.7087124811048613`*^9, 3.708718699565579*^9,
2235 3.708718863876753*^9, 3.708720150549226*^9, 3.708720662563251*^9,
2236 3.70872154579935*^9, 3.7087216837726088`*^9, 3.708722376745001*^9,
2237 3.708722799377919*^9, 3.7087235288064957`*^9, 3.708723742264966*^9,
2238 3.7088694136240892`*^9, 3.708869524346593*^9, 3.708869616511271*^9,
2239 3.708871043492494*^9, 3.709262042516638*^9, 3.709264832646017*^9,
2240 3.709264903332553*^9, 3.7096025839523277`*^9, 3.710878526337679*^9,
2241 3.710879154706009*^9, 3.711391072178303*^9, 3.71139154737453*^9,
2242 3.711812728977231*^9, 3.7118178593146667`*^9, 3.711934580146167*^9,
2243 3.7128649422265368`*^9, 3.712868108684395*^9, 3.712937783867008*^9,
2244 3.712964563155401*^9, 3.7132081573126*^9, 3.713208412797886*^9,
2245 3.7132090308333*^9, 3.713209185343912*^9, 3.7132106241579227`*^9,
2246 3.7132167055189133`*^9, 3.713223928624192*^9, 3.713236139869128*^9,
2247 3.71323931669482*^9, 3.713239944810994*^9, {3.7132657581632357`*^9,
2248 3.713265774918686*^9}, 3.718980529293487*^9, 3.718981180981474*^9,
2249 3.719025942464345*^9, 3.719099703712816*^9, {3.7191151146228333`*^9,
2250 3.719115144889577*^9}, 3.719116097565092*^9, 3.719120364546606*^9,
2251 3.71955895365701*^9, 3.7195610995200977`*^9, 3.719704935411312*^9,
2252 3.719704967582891*^9, 3.719705215596431*^9, 3.719705259750307*^9,
2253 3.719705332967161*^9, 3.71970541333355*^9, 3.719705580210051*^9,
2254 3.71970571736464*^9, 3.719776261546279*^9}]
2255}, Open ]]
2256}, Open ]],
2257
2258Cell[CellGroupData[{
2259
2260Cell["Scale height functions", "Subsubsection",
2261 CellChangeTimes->{{3.669442039791477*^9, 3.669442049567471*^9}, {
2262 3.700394636327091*^9, 3.700394636674608*^9}}],
2263
2264Cell[CellGroupData[{
2265
2266Cell[BoxData[{
2267 RowBox[{
2268 RowBox[{
2269 RowBox[{"Hiso", "[", "r_", "]"}], "=",
2270 RowBox[{
2271 FractionBox[
2272 RowBox[{"kb", " ",
2273 SuperscriptBox[
2274 RowBox[{"(",
2275 RowBox[{"r", " ", "R0"}], ")"}], "2"],
2276 RowBox[{"T", "[", "r", "]"}]}],
2277 RowBox[{"GN", " ", "M", " ", "\[Mu]0"}]],
2278 FractionBox["1", "R0"]}]}], ";"}], "\[IndentingNewLine]",
2279 RowBox[{"Plot", "[",
2280 RowBox[{
2281 RowBox[{"{",
2282 RowBox[{
2283 RowBox[{"F", "[", "x", "]"}], ",",
2284 RowBox[{"H", "[",
2285 RowBox[{"x", ",", "E"}], "]"}], ",",
2286 RowBox[{"G", "[", "x", "]"}], ",",
2287 RowBox[{"Hiso", "[", "x", "]"}]}], "}"}], ",",
2288 RowBox[{"{",
2289 RowBox[{"x", ",", "0", ",", "Rz"}], "}"}], ",",
2290 RowBox[{"PlotLegends", "\[Rule]", "\"\<Expressions\>\""}]}],
2291 "]"}]}], "Input",
2292 CellChangeTimes->{
2293 3.706393393788328*^9, {3.7063961065319023`*^9, 3.706396183622102*^9}}],
2294
2295Cell[BoxData[
2296 TemplateBox[{GraphicsBox[{{{}, {}, {
2297 Directive[
2298 Opacity[1.],
2299 RGBColor[0.368417, 0.506779, 0.709798],
2300 AbsoluteThickness[1.6]],
2301 LineBox[CompressedData["
23021:eJwd2Hk8VG0bB/AhpRAqIZUtIvGkJFL89CiiJClrlqJsFVIShVRk35coLSRp
2303SiJFU2SZI6VUlL05M5aUYoS0v/fz/jWf7x/nnnu57uu6zlHa67djnyCDwZgr
2304wGD893vV+f60IC97I9HJwV/5m7YbObP23qtzX4N0kyc6gu1a+FIe1JfqborQ
2305QF157zZD6JUyToS42+JhzUR6doslnEoazA657wffeq+NOuWMg/8UaXm5B6HK
2306r1TfrfwgJg+eV9znHoXvRbF63Ykn8XD23Bx390xsz3G06jRJwP2yQNahndfh
2307njh7NKTtIhycBnyu7SzFt52N5X/KrsGg5+TbS9wKtKjbi6dIMrFM5MNqxSEW
2308DnfZyL+xLsW8UhUp+41P8OlC1UzG+nKcv2sk7L69HoJNb85/WHsf1qtfLFu9
2309jUK7L0s1508lUrZ0SCfINuHpkQYpkYMs2D+w/K2u0Iws3zGhzv7HuF5leHvr
23102EvMipbzj4qqQVqetVmu0ytov5PlqUc+QZbI2vKV3a/B/Ry9xDesFq4bXGaI
2311mbSieD5Lb5ttHT4q67cJN7ahrKapX3J5PRLrnz8c2PQOu2Jj2w4O1GNS+1L0
2312rOJ23Ftd7Tt5qgFKm5e2WGp24nex3fzy+WwUOfWMjqzsxEzesz13ZdjQ9kuf
2313k6rXiR2ujmElC9gwzhS0eftvJ66psNUKF7Ph0tfb5uLQCUtu+7qzqmxciMjq
23148ovqxMVln7xEdNmQrZw5mMLpxMYPtW+1bdiQ1Pj0uy29C4WqEPgSx4aJZEbB
2315aE4XFq2oS61PYCNo0miL6JUuDIYHVZ9PYqOrNjXb+FYXjn7z+Yg0NgqdDHRu
2316NnThpFFcVGgOG+sTYrwiJrugo3njXUkRG96jam807LthFOXYI1ZP5vP21fFN
2317Lt1QDaFaKxrYeMEKVXTz6IbzPXdPV4qN1TEvD2b4d6NZQMOF2cQGQ/nYTEZM
2318N1LHPqfovmIj04Zt2FbZDUrHZu70XjZqKzyKwhf24PnqtKDsSTYmog92nVTq
2319wRHFc/3iU2yoOwSJn1DrgdTO+F+nv7OR9DP6SLBOD8zSapV9frGx2/imccCW
2320HvgGDFgtFaQw8ZTfvje0B7eZolousymo94TNMu3qgZrC87FnyhScbkev30j3
2321QEmk2F1GhUJieLLfv4NkfMOsE3tUyfNKV9uMvvbgc8ilQr4ahdr9DVf0RHvh
2322ZOvZJaBFnh8VNVi2rher41speg15ftp5H7HcXnR8VWFeMqcw/GzNrfzLvdDb
2323t/Al04KCRXrriEFhL2r1WewHWygIq0oe9S7thceM3zrNlhQiTKPD2VQvmtaF
2324zvhgTeFwzNH0iPFeqEv4xPU7ULCV2PF43PI9tO3nzGd4Uyh/N8KIt3mPTRI7
2325mweJ515OMFni8B7n1Dc4vvCh8FL7aaO1x3tknZIbyzpAYfMO4ze3Q96jo/np
2326gsX+FAwy/vngdf09Rl/ImY8EUUhKmB5ziMGBV2CUWtlpClJdlgeDpnEwN020
2327/uwZCtnqmdZhM4il7zLszlK4WrdULlGM2NTdcSKKzOe72c1bshxIbbNNUoql
23280LkvtnlYmwPZP2F/9ZIpuJS9Lh3X4UDGRi5vnJjHWJj5aw0HB0XfdZekkP3K
2329vekiZsjBgsJyA+U0Cn9fPR9Zbs6B/2lG8GQGBRUjibm+eziQ7+2c2p1LoSjO
2330bvKwBwdHvOLPT7tAQavjUmeIJweKtq6dRcRrjmjnxx7kIMjJe/3IRQrmxdar
2331i49zoCQuHul7mcIh6XTboRQOQuflzFO+RuHBF9lcz1oONPNYVtG3KLy+v1x4
2332fQMHcZwn3d+JhyOMAiUbOUgWE9XzvU1BaZ7HlspmDiKUvG0sSijE6pX8FOng
2333QBo7l/+4Q+IjYtPu2yMciJgP2CmWUwgyt2+MHOOAqapRGU6cPNd3td0EB/xP
2334pYM9xPUFyWKMnxx46iYwM+9R0HzaxbKeQUOYdbjtewWFP3MOL55YREM8+3t+
2335VCUF2a4zMU8VaHwVP9HxmnhVQdbERWUax/3+7V5cRWH/mkfNpuo0gj7nmN8h
2336fuk4Myxbh4ZST0gd+yGFj0sWfjywhobqlUXus1gUhD5r2W5YS+PFNsEWC2L9
2337cJt/PhrRmO15fk4T8eX8vN51FjQM4iZ1qh5RqDpQaiFpScPtwn3Dr8StuvUV
2338fVY0NLJYUssfU5jVOJSYsIsG0zxVI4v48PBqvHej4Xr1wIRbNYX4e2Y3y9xp
2339FDIsvZOJC8McZc7tp5G2OaD4MXGnZMSI9gEathln02VqKJjoPrsUeYxGonKP
23408EPi3sDZrzeH0FgkGKjBIQ6+ayUkcZJGXZzBUqEnFJgrWr1yI2k4XnS5sZnY
23419JB07p6zNCxUH2p7E9NM+2a1czRs7MxTzhFLa/SsLE+gcafyR08d8R0vBY+Q
2342ZBpCHxc3vSfecn1PpnEajYD6w0k/iCNUBn48z6aRfqz0mmYtBTl3da20XDL+
23439txJE+LyKz6uDnlkfm8qFB2Jh+RH6vrzyXjvIhmnic84r5y8WUhD3l6nIoNY
2344/kKg+uEbNLafnr/pOvGDznuO+kwaF+2X3bpPvGPBVPyf2zQY7Ye+sImH7Qyq
234560tphAkMzGwjjs48wY8tpyHVlviLJlZue7zE+j6N2h3eTz8Ts+YJ2MpU0YgJ
2346Oeo3RWy7w+RcD4uG19ayLwJ1FPjJZ6vyq2nsaVQ2EyGOf0kNe9fSOPylLngO
23478VJxEQXtBhp5jzNPyxDXbN1qPUnRoPVzPRcRO8YlnmY10TB0fqWiSDz+tOVe
2348ZDON0uVrHyoTJ82c92FzCw0UvNZQIdYw2yUn8YZGP/ti4H+uP5u1ta2NxrW0
2349nIwlxC71HWG57TROiDxNViKeElxUuqeLxoHly/bJE6ducOGp9ZL4nqyaK0es
2350FXF5/hcOjWzfsPNSxI2PuWblPBpvYgO/zybe+1slJGSAhtrOnFUziH+t82Qa
2351D5Hzo8Y2/ib7kRVyo3fGMA3Z/hPaX4lXVX6SbP5Co4KpPzFI/Pyblkkan/y/
2352/NK0rtr/7pf/UYdxsl6DTSIviBlH715X+EbuEyPTsZpYd2yNGPMXWW/s86g8
23534hbt40aH/5L42XZ3bzyxj99Df31BLh6xnsocJ84bRlu9MBeXshJmWxHrL48U
2354jhPhQlfIYJs+8Rvv+rXWs7ngycl6KRLPHNyc1zOXixhTb7XPJB6vqsa15M/n
2355ItKp+/krYkOPZkEfWS4y5E5tuUd8mLb2nFzMhUCWa2swcVeXo7bEMi6EY/yl
2356xsj9aTqdeW2OJhc/4lKdmoirlr+Wk1rBxUb9arMrxDmh5tMX6HLxOl5fYgux
235740L9TuUNXAyp3nRMJPfVoi7QSnUjF6cClZuciA18S+rVzLjw8ynoVSOWe7i0
2358RNOSC9OdjZMPST7odJx/Zo0DF19kknlvSP5oErT+rr+bC407u0Mz/8svxfGH
23591rmS/eHrPLAjzvkxzcF4Hxfd/oJKb0k+csgZ07II4GK+q0JJLcln7R0v3znH
2360cLHnp/0jR5IPG0+JWrrFczGg3nJNmPjBMrPavUlc1Py11il7QOrZ8cdMzwwu
2361Am8cNZxBbLfg1qmAK1y8GF4vfoHk27f2scvPVnLhrPPsSlQZBTaDfTmaxYXm
23625HDnYuKKIgHp2Goutu1dUFl2l0LmVDAjqYGLtDWpHl2l5H5le7Zlv+JC4uW0
2363YDlSD9rebQxnDnHRXz2QbMck+/fT4kToMBfVx9Zn0zcpcOStj1uMkPXf8g3w
2364If64zznwwzgXD5JtzwcXk/gaP+qpwuChwMClOqqI1AfJ61YXpHloXqDr4VNA
23654a7Ora2+C3ioLVaOofMp6NmVmRss4mFz5VC4HfG/edUm7Uo8zLIS4uEqBXvN
2366dj0pLR5cnX3DBUk9PL15lmK8CQ9O0wXmWJH6OvOAxGInUx58/aJsynJIf5M0
2367X07DnAcxu35PaeLst0pSjdt4ELy0YkZHNoXbHgYzhRx5qJszKbs9k5xvhO9o
2368qD8PqZEWWdNJfV9Z2Vzje5GHgJQ53xJI/yBm2sw4dpmHMnHhFSzSXwy8fm4c
2369mc/D5RBJoSHSf1wYflaTfYOHSHnXs0aRZD6KTTUN93hwy/zU1x5G9iuKXaPw
2370godjpk9knh0j9XRndc2bPzyoFrluveZFwZd+zHgv0IefP14vve75X/5/bPxR
2371qA/h6x3zru8n9z/6UQ1DtA9xcQUeBR4UvB4+rNGS6QPLQX1bghsFKD+oiV7R
2372h5CK4fRF9hS+jNypWefWh6AAL762Keknxt6z9d374G5+qU90E4WCcfFm3f19
2373uGrw5FS/CTnf7wc6Vhzog6Q3uzJ9AwVKcNnYkuA+PJpoU+StJ/V0/pUlYsl9
2374sHgx6xl0KNisS4nqru6D3on6pCl5Eq9RAVtPKvTD69nZTs8xNm4I+XaaKvfj
2375Uc3RZzP4bOREenhJqvYjif8stWCEjdAwuzP5Gv0onn6zoHuYDaMgQ9ZT3X5U
2376fNNpMxpko27fLE3prf1Qmxbg/ayL9Osbr4iWBPfD536Wy3TSz/cJvmrivOpH
2377aEZW6K9kNjQ+1uUOtPZDz+9dryZ5X/B/VXFg+F0/Ln9d0OdE3id+X7ogPtXT
2378j4Bfha33YtiQNvTaIfGxHwritKVDJBtmx/52GAoO4M7KtssugWwUf9Iaylk1
2379gKTjjxr37mQjoDVWeFfaALaIJSpaz2XDLY635pPZIJizAxV2nWvA7qsLxsam
2380BtH5aK518pd6VIkX+4pWfsBxaiLj16p6HHfreLfpwBAkKrY7RPnXIUfYXTDl
2381n4/ILw0WjDxXi8XpcQp/eB8ho2wTMpL7BLciUhq7Mz5hfAuve8eVGuTV8lc8
2382tx3Gsp8/WWrfH4M/NBrTI/IZX9ssZh4pYaFwv8XVv82fMR+M2PFZVfA0OWWa
2383lvAFwuuoVxGb7iN2ul3PZuMRSOwzmxiPKce5RJPzwgKjkJ3+R87YuxQ/xZY/
2384CnUaxclPJh3aTCaOrBO4rl5OfCLcPNGxEHnpQqPOUnwUTq8pummfR9Zjt0rl
2385EB9KtgJ+o7uSkckeFr/nx8eT8KlIEelklGtGftoUwIfH4o67K5lJGJ1iFnge
23864WN1ZWauCjMRXimCMjdD+Lh+mCoaLY6HXe2tnyuj+YgY/lOqVHAOuipCDbjM
2387x94fDeGDZyKwI/b8lZYrfLhe/2yqKRgB/9F/wvbk85FtKL+07E8YmCwHvdOF
2388fJzoDjvSNXYCKrtKbrCZfOguvnluqj0Y86IcEy0r+VjBLEn0uOAP7eERn94q
2389Pqhq/+Dfan7YtuOsmR+Lj5Ht3oNvpA8iVv4OI6Waj/wJCQHPr14QvD89sLWB
2390D95GnSVLi9yguDjXah/Fx8JZvwzeqjvD6LS25mQjH+97Xe0KGA4IsXLql3nO
2391h1ZSqvDs29uRfW/0SVEzH8dbatdYCZujYmFU3tqXfBxd8fuWWKkxWk8tDG1q
23924SMnqGio4K42+IN37Jxek/me/P7/7yH/A74Un3M=
2393 "]]}, {
2394 Directive[
2395 Opacity[1.],
2396 RGBColor[0.880722, 0.611041, 0.142051],
2397 AbsoluteThickness[1.6]],
2398 LineBox[CompressedData["
23991:eJwV1nk4VN8fB3DZQ6KUShKpVISsUd7aLF/ZI4w1S0pShEqizVZZyhJ+IS2K
2400tKBFUVlmLqLFbswdM7YWxCS097vz1zyv55nzvueec+7nfJT3hDj4CwoICMjO
2401EhDg/xZ6PBGKCHQxGbohI8RV3m3iUbXnUZ2vPoxShUp5unr4UhExeMnXDLkP
2402Ao6e094Bg4cCJ477OuOB1Ojw5Fon0O7TzQ/6BqDZ2GDTD0V/BK+/rRHoG4El
2403awVN1IXDMR2cvdzfNw7RttdXT787i+dz5uX4+mbCrK3HZyooHU/Kw6oO7ioC
2404d5ZTgsL+G3ClDe+/ueshMsw1s4zUS2FERnfm9z9GTO2dTe8Sy7BG4qPu8k9V
2405iB6cP5MS8RjzH6rKuWyvwYmosoCylkpkl5mI+drVQ6Kw3HmxfDXsdd+s0bUh
24068F1+1gX9fy+RZtWz8OKiJnTOq/43aFADl6fWf9SUWnCgvzw6MqAWRc8239v5
24079S0qpizFSr3rcDnP3jyX9h5fPO2gsrEeWRIbK7RZrfiwdn7mehE6QvNPKbZw
2408W5F9tspxTIwOG92muMAPraiMKNhbLEGHsCfNNf9rK+ieFpeVZOg49DD6r9Ts
2409Nlj2+wtOL6HD0qXW4qNeGzTuzT7tqEXHr5tWZF5KG2wMu+XaXOnw2uIpKrWt
2410HSabG6q/FdExfDt7SsmyHa8yhOKii+k4INMxqGPbju+Bj0KES+k42mdVR6O1
2411Y/Lup9tSZXSkRm+MLQlrR27H+SrRKjpqK+V+/nejHdfWqT699pYO1Q2vxxJF
2412OkBT8IgMn6Ljs4phh1hDB9RHsk4VGTNwKLzV7l9LB8b8TcoebmZghjjQPN3W
2413gUv1IuuegQHh4Gt1Q30dsEkxnqZvY2DZE4myupkOnCtR/N1gxYCjFZkcs7oT
2414Gw5aS0XTGKgKO20xE9cJ4eesg/nHGNjKWFr/5UIn6h5bIiyKgcZFTzB8qRMx
24158h0+O6IZ6Kwe0e/I68T3glN5g7EMTIg5rSx/3AnRVuKvdAIDK/+3WjBkuBOJ
2416U8fy52cykFzf/Hx4RxfO7196iv2AAVPp32aRVl2QKk439yljgLd7XauYfRey
2417vNIK+ssZ2DWS+FHNvQuhL+dKch8zoDDPfEFQaBcazfobmqsYuO1Vc3A8rwsf
2418D71S9G5goPbnI+XvM5Szcrsj2Qwc2T50N+FPF9Y+iQ9o6aPmkyxnuFioGwPx
2419OcnKXAYSlMNsjKS7QfBU79EHGLC10Io6odqNaY6n9p+PDLAyitsF7Lvxbqjp
2420xJpJBqa18uNnF3cjuXWQOCpKwNG65sq8B93YV92s+lyMwIN9A3cUHndjRUbM
24210C9xAvsKVzdr1HYjvejQ5aOSBFjzH8g4MLsRfu/WHU8ZAjXTr7JzJHrgtcBN
2422gL2YwIWq/pJ1QT1ofDTlVrKOwMdu4Wrdwz3wcLz46pk6gR1Tq95sjuyBdJPK
24235QYNAn81giZsz/QgVGRfbJ8mgcP5k7pHcnuQbmx15qcOAefTwi+qXvdgl3ro
2424viFjAsoWq95ZqzNBK1G+m/ofgds0cmJcm4nD9e3nvKwIaIWky14yYGLejLa4
2425xk4CppmCjp1bmeB4vhWrtybgOcju8HRlYiyo/TvXjsD/YrN6Q+KY+Jzzto10
2426JqCabvNb9gITgcFdDlm7CdwtElGsSGPibeTCk7YuBJ6/CfP8/j8mHOoVmM9d
2427CTCX2nFjy5mQCA26d9adwKJK8Q9pHCY0JAx/dPoQKGh+KaY7zMTTE+LOUXsI
2428qHEi1DpHmBhkpO5Z5kvAQGxo35IZJkTdis57+1Hv61QzWjinF5Zy/1Z0BBBI
24295x37Wm7Ui9aL9KsxQQRk1o786Ujvhb1nln5vGIFtMhk3JnJ6sXV7kJr3EQIR
24300yZWktd6sUvvRNYA5d7aS1dMS3uhfTHwy1A4gVs0I50Sei+WvvsS1x1JYNPF
2431xMDY6V7oauTkhUcRCAnTmZv7uxc2095n+ykXupKPHgmyYPSyeMT6BAGxVdpC
2432I9IsZF/pxPJoAq0vuq86rWahijMtUn6SOi8Tq9vWurAQp+KzPe0Utb6d74/t
24338GRB3GLWnmHKb6qilnv7sRDv6CZidJqAbuLb4IxDLGwJ2spmURZQiRQXSGTB
2434fpc+R+YsAR1x5ftLUljoe/NpgxvlgC9NTnoZLOToBs0ppPz62bLr+6+xcH8J
2435103jHIFMR8bmjkoWDrp0eW6II9C48dDg+EsWRgsMZ0Io/1Zacl6CwYLW16OL
243671L2GQ3uRisLMvJ5v5XiqfVulY9x62ZB+qjoi92UGU9rVoazWbj+e5dEMmX1
2437cwvCij+zUMct3j5N2Svo5WL6BAvhu/R01BIIXLLf96pvmsqbe7fUhfKMYvWc
2438BUIkUrp8zR9Rrn3sdztGgYRztdICj0QCU/HBvdHKJHK8256dpqzmGiF9YjWJ
24392VUdv25RTvkVf+SoDonq7VV2I5Rrm1OLIjaS8F2h4C+ZRGD6ajbzCEhIKL5Y
2440sJayu2mJ6WErEvvW0Hf6Uk6RrQgLsSchF329LZpybX/VreDdJMqCn81kUp4q
2441p/cEeZCo+G5WeY+y2rk3Uvt9SWTOiVtEp0xz7kLgPhL9FysWMCknr+aEBoSQ
24420LCe+3CMP76R170nikRw2qY6mfPU+Nyfkj6nSHyNTDBaTtn9gBC84knc9J60
2443W085ZbNUqMdFErk9laLGlGulF9ykXSYh7bvI3YzyVJ9it2s2Cb8QK3s7ft7D
2444VZIu+SR0fVOGXSjTTmuaON8kgYzlS70pJzsaHt5VQiLOxvirP+Ua1S03HB6S
2445MGhS2Lef8rcpyy67JyQa9f7GBvPzCAcJ22oSXx4sMwrh512hbbauI5FvXZnO
2446d/I+v0NWjSSWy0ikHeTPzyj4uuVbEn+/7NQ8wJ+fZESneQcJhbbqkEB+Hnly
2447tlkvidKsKw6+/Lx78Zu2c0lsk1jc7c7Pi0kN2fqBRNPn4wJO/Dy77ELTMRJJ
2448Iz9eW/HzlAs7TCZJGD58b7SFnzdZLL75B4nPrZut9fjrV19ubPyPhBrzmJAa
2449f/0yqg5uFGHjw9Yaj8X8vAD6NQNJNlKjbN1n8/MM3rTrybIhOuT1b4a/n7O7
2450xHTl2Shq1TAf4u8ns89ogyIb1knfdN7z97PkY7DWCjbct4/Tn1OuOcErWL+G
2451jep1rn9uUP5m/bNNXZMNlkcw8wJ//ISk0RpjNkQ6YuNc+ONr5IJXb2GjQXba
2452aRP/fF1SLFhpzkZHwqzmZfzn62mKqjiyIXyacbePOr80UcONy13ZaE+dkn9B
2453ObnL9MAyLzacJ2+uzaX87ZhD65IgNgyNws3tKa+2ooksPsxGmelsh7WU3Zb6
2454GcpHsqHUJy4iSLnmRXje/DNszM3U9S+lvq9koez9Urls5A7nyX2jvs/R1/ql
24551wvYMH3xroFO+b/09nGjW9T841McMymLrZQJ3/eQjR+7D43pUI41i49hEGww
2456XwwY+FD1gS29stajhY0q9cKbayhv6qoVnmpl46aP/8gEVW9+7P2buILNhq/t
2457o39RlEMTw9Njv7Fxwy3L7ixVn97Zz++S/8nGtP+VM9sor1/ycPH9f/z5zk+d
2458RXmkeDSPlOjDZ5cN+sfPEPBr9r1jpNwH7W+qVR5UPXSe6/Dim3UfzvS5dY3F
2459EKjoGhe44NgH2TsVT3Iozyu4uG2FK/X/f0FHzCi/1WpssPfrg0p38Zkcqh5b
2460OJi23Tveh01tQX91qXptlLH+Y2BRH0zXT1zQOU7gikfzWoHSPmQ8TrV4c4yq
2461Jyv3B2eV9cEqNXBgL+Xyxze/0qv7cJkW9iTrKFX/upf+UWnvwzqjD+SnCOo8
2462XhRJPCjAQer+p1Yu1H0k12sdHCHEgUhyyvfOUCpfLdP+pCgHIRpbnXZRLqxb
2463tSRZigM8UVSyOky9zw/zktJFHJwQH/6pFkLdp/5JLaNaHJiqOgjf2k/dxyZz
24645wX5cEB1Jh9veVP3/fnd06F+HEwP+Pz95UVAoyefeXwvBwuOTTXZUtY/onU9
2465KZiDjh/5iZMeBCyL7XWLj3Ggbyh9fR2NwMGF6c6f0jhwUouL8HQi8PTLoty9
2466tRw8a5yn9M6Cus+erBPbROegJ/xwigTl0ViTMJkGDsyrmcPbzKn+Y76fVWUL
2467B1FHTliV7yCQZHD/l0QPB5ID9ImzW6nzHbvD/d44B4s+X30/SfUrf2VDFaeW
2468ciG77KvCrPVUf9B7NrFRiQsp2Q81i6j+Z8ONrKmrKlycUrTbpUn1RwH61S1m
2469alyYua+B61pqP93ET17R4SImvFC7YBXVT1zPYxv/x4W4V/+9n8uo+1/vdf7p
2470SC4mrwRuGJCmzmvYnFaL41y4b9abIecQOFpmKzw3movs+SZPu6SofkazPTD3
2471NBcJG69pNkgQWLiW1K64yMXqsamZ/1H94Kdl43VD17mo1BGSXfiXgRTx+R8t
24723nGx573fEfNRBnp73bTmrunHP9k7fvfpDDSdybwpq94PA9W8Rpt6Bp6ta10i
2473p9mP4wYq4mO1DOREWYos1uvHo8GMeateMeCmYMhU2dKPoXLPPUnPGGC6LTir
247479qPo37jC5feZ6C7522XR2I/tkTVKPpnMdDRtT3m7qd+nFHnvsnyY0C7suVV
24750NUBrFQdfi70k44v4w9eGXsPYjL7kHdNOB1P4w7vjFYaQmNDNDN7oB6Dgu+b
2476OO+HsPJv08Yt1vU43J4k5nR5GH7vky4cza2D9/kB/RHzD5BZqLtjzcdauBcu
2477/vr1+wdESx7LsFGvxTPp4iDJyo84m3RlTaBjDY5593TtOPAJ3eEaU9rRr5Aj
24785iuYtv4zNGutz4vKvoRi+nmlvwOfYdR1XeSwdjVKY9MaWBkjaPyt5PjS7Dny
2479anmazc6jiJMMVrZYWgnep4lEUmIMU/r9768KPsGtgP8K/7WModn9plLZrQrs
24803XbK7PLFL2gqKR39ZlqGJJHdpIXpOEqdaS/Yg/eRkLwtW2zWBJovjFUYvSjG
2481L6l11VG0CVjml4gmNN/EEeNZRWoVE+j5casL7QXISxee8JDjQWHEUO5Abib1
2482Prs3qB7kYfWRmEUJSxKQyRiVfhTCA1fFXnnj83hUqJ8e2XGYhxzarAVcWjwm
2483vt+9sfcID9m0spoFV+MQmCYoX3Kch+/1m+3nKZ3D7trSX9rxPOw5n2jrqnwa
2484eqrCdBTwIHX30ZC1yVE4JGVfe3eNB+Hxa/oh0ZE4NLH+pM91HgYTOopOVkXg
2485bpWrwZlbPASZWX7baxQOVaf7dxh3edB2bwr30wvF/Di3ZOtKHtwTzIyk7QKh
2486NTq+n/2Mh8Co9VLyzQGwcThnHlLFA6P+z97f5v5IWvZAIO0lD0JzL751xx4I
2487PhEJa6fzYOn4/PknFxcsV8y19Sd4mD3x6Xe9jRNMzmipTzfwEBd5J8d1uwOO
248829KG5Jt5WFSyebmnhwWuPJqoud3Cw6mVQ5N9ZlvxWCEub+Nb6nkqOy/d8TJE
2489+ymFqKZ3PLyiuTV89VYD78OD3bRWHvrF9zc1vjI3+T+6Anxk
2490 "]]}, {
2491 Directive[
2492 Opacity[1.],
2493 RGBColor[0.560181, 0.691569, 0.194885],
2494 AbsoluteThickness[1.6]],
2495 LineBox[CompressedData["
24961:eJwt13k01N//B3ApiUqSpKQohVZCSeUpCdGmQhrKUtZKIaVS0scabbYkQj7I
2497FknZsox5l8huzIZQliKMNdWH3/2e85t/5jzOmXvm3vt+3efrvuVtXY+dExQQ
2498EFCeJSDwv+9Eq3ezPR1PalcIvH5Fs3fUtiq2zauw2w6/8AYDp5v7MfjG89tj
2499O31kLPkqYbHaFDtyBG5etzODcF7j58K4s6C9ogwu2tkjpG+HpdWgOy5sSd3s
2500aOeJX+unTMxmfDFxIVrunJ0/BroX744pewTbCg1VH6kAyDlOTbbseYxa6ca9
2501MZ8CsHGz2m7rwsdIrhC1a9gahIAySzGnnDCYLb/5756/9+C6qCQ+PSoCNNut
2502S+9VPYSErEf3UYNoFC2UeGpnF4njr474c+TiscYu9I4XIxKt6b95W2nxCMyf
25035/RgXRQa/xYp6kXEw8xuZkdRbxSG7pvnvJyXgJH8AabE+Wi4OloN3BxIgNLZ
2504j4vpHs8QLd/NZ6e+gJFViZ74vgREC0XRTv1Kxrtc9+KLJ1JgHODfby2aCfoy
2505zib6nRRkGsie09LIRO0N7dilr1LwdP7CkyNnMtGzT+RWsUgqLtUru0+/yYRU
2506cxxES1NxuU+oLcQqC55jn+j/KqchUzPqSXrqK6hryH1qnc5A9st1zoskc2BB
250763H+90QOdlm7sX455UKrzbvleddbDKbSzPddeQdl0T51ue/FkMkM7RZSKcKS
2508HAXJk3rlOB3rOVauXILo19rCdkcZ2PDN4YadZxlM1GuV1Q9/hPnL+saW2HI8
2509MuZIhUpXYerf27aLgujQk3X3T1GoQvv7Iw7FIXT8GlwwUa5ShY22/3TaP6Tj
25109GMd5oRhFfCsUetNFB0bOClh1l5VOGpZm6CSTAfd3lNcnVsF+mwXvRw6HWN3
2511lojyYqrhMKuggjNFx8n8Q/8pra4Bc5X4r9k2FbC5tjjkyoYauE1+ruuyq4Cz
2512JnMFXaMGbaOLM0rtK+Cdb6lJO1iDxVXmV9zPVyAx38U91KsGqxnp1hVXKzCQ
2513H/Sd31SDKJfzBkL3K+BTQDELA2txzrMxXqqgAimFe7IOjtShM+eB6hMRBrKP
2514lppa/1cHvwM3x/nzGbByj5/eOaceYUmS0wfEGHAQWZN8aFE9Dhp/+DImwcAN
2515jXXjHuvqUeDjP6GxkoEXoRvDKkzqoX138ve5LQyM7tGss06rxx0/zag7JgyE
2516xZkYxNAaoDqd/uLjYwb0dgslxNo0QG79HOPOcAbGOPm/nzs0QKlzZslUJAMn
2517lsplJbk3oGZezMK1MQxIhgxKZt1rgIGe2WvrFwyEe93rKitqwNByhZN3cxmI
2518OEF598g04t2u3mznRgb0R66x+uQbkVu4oeVAMwMTDzap9is2wrpWZJtiCwNm
25191WHfhtQakbd/1cNWDgNSurbGU8aNiApeO6nayUDk1hnpBTcbMTjj9idgiIEo
25200Z1vVFsbISjctbpblILb8zuyNZ2NmFPdLXRpAYXD6lX+jr2N0NQJvDi1kMKc
25210zSL5yONKHgQ+kl4MYVLOd7TC0SaULnqU67EMgoHTtIN+zSa0OKQWN65hsKf
2522f43b4h40Icb/8G+HnRRatML1tSKaUKzBWs7QovC6rvUV82kTPju/qFq1m4Lj
25231AXfBclNWHS8qrNOm0LzwYeK14ubIKIYPyKnRyFztPmy6fcmzMxZKnD7MIUz
2524e0/PXbCvGRNK26s321LoSY0eX32gGW+eSxzytKNwXpz5Te1IM+aUr1V5f5bC
2525tS/GFTRaM1iy0zL6DhQeeu/0SXdvxlGVndF65ynQCyR/GyU1w+TkTOzYFQoK
252626p/BgkxcdB1r51CIIW06LltsfOZ+H2/RlQriILKLN3POYuZyDFqWHs4mMKe
2527+vw0jiwTm9doZFwOoWB2MdlBeTsT9vOlFJIfUghIu9NZac+ExWT0SuoJhR9r
2528NJnClUx0Jdf5taeQ/bzSeHSmholKxU+rSlMpTH48/3miiYkfPEP9uJdk/y8k
2529VHR/YaJXJVL3ZDqFVe9EX1dMMiG+8sbfwiwKx43b7t9WbMH2m/uZu/IocGOv
2530il7d3IKvbquChd5SsB5e7H9RrQW32o821xBfjND3tgL5/QbXDafyKQR+eeWy
2531y7wFMkJ7v9sUUSh29zWc9G9Bjv4ssS3lFHQ/rGQMhrTAa4WhUSfxJ+l36Hnc
2532AmbX3TVhdPJ83/dvZ8a14EmDV+pIBYVhYdN1uW9boCqVvTThA4V1zxQFXXvI
2533/3Pl64qqKdxnfC7q2c/CBRVn3/5mCjpif/WvGrOgWcfqd2JS4JtvbBQ2YWHA
2534I2hDL/GJ/qA+JUsWkmzGldpbKMhIGCx1cWPh9LMH20rYFFLPlF8cimPheo7p
2535e/1WCqdeDk/dTmIhXr7h+Wvi+aOr/cTTWFjr4mYp20bW738rRjWPhYrVp84N
2536EWtk7qp0r2ZB5dbqEr8vpB5+58n/mmRhxXOZ2htdFDz0ujMC/2PBWDnfk0m8
25377r6k5vLZbJzfsnN681eyf/Luh7XE2GhJWZLOIz5iqHLjpgIbS7uO/KPcTUHg
25388Zm5CzewkVi+fdN14te8+49it7JRlXUi7xOxlOvPlBItNk74Wp4/10OhNSKt
2539WcCEjZqIpCsPesl+feGceWTGhuaRQ1tZxFAW6Ze3ZOOJ3dXPsn0UEosdZu1z
2540YGP8pNvrFGKnrwpb/LzZKA4ZUs/6TmFC5XmASBob/U3Tx/z7Sb0cKn8ikc2G
2541357BgTLibKevL2XesmEp47PnN7FTouLnzXQ2VEdGZzsNkPksyRY/xmVj+7eh
2542rTt+UtBUaZSndbCxe/xjoANxxMGxbWd72EhKWBQTSXzYT9PUc4SNWi2Tn8PE
25435RNl0U9FObAyPHgscpDU75KvaS/EOUjTMPEpJr6+Vag4Q4oDyjLQuZNY3fFA
2544e8kaDmbC+j0Uh8h5/cdl6KMSB7tpHyIMiX/Ghwo0bOFAu0rFw5E4mdOw5qsW
2545B4MHxV2SiGdPjKoN6HDArt/2TxmxtYTU/nF9Dv62wZJHvNz4lIPwcQ7MCtyM
2546Fg5T8HS4eU3cgoPGN3o2CsSNd+OClp/hQDPCQlOLOKS4K32jCwd1KYlKtsR9
25477Dnv1S9zcKvyjq4H8f7x9bV7rnLwb9qUrB9x4uIDX/S9yfxtzhSFE09vdhk+
2548cpeDnzxhmRfENKPQWRZBHJi0GezJJs63fyVh+4CDkDkea4qJJe82rHWJ4CCx
2549sqPqA/Hl56PqHjEcXPbq2l5PXFu0VN87gYMnOjX2bOIN7B3m/ikcbJYbP/WF
2550OGDMwvFBJgdVo5lLuom/id/0epLLQeEl40ffiXU2xwUnFHCQuk6+eYA49kBZ
2551TFopBwnXfVsHiX+f68rIpTgIy6GnDRGb+c4pKa7mwKhHHf9zbtz6OqqBgyix
2552TU9/EosXGXbUsjhomfpd9IP4PMuZz2rjQP/YWFIP8afREMHOrxzsiHE27SRe
2553L/5qyY/vHJxVy67hEvtualAYHSLrOb5MrIn4i+Goxt9xDmrFRqSqiHefW2og
25549JeDuccf95USP7mz46SYIBd+fQfuviEej7VwWjaPC7qbc28K8bHCG9flxLjI
2555ct2/9ClxVkvsPWVJLliamxbeG/5fHpQ+27aCi+WCl+quEzsu6srcJceFCM/G
25560olY3nB9/aFNXKjrhrF0iVNpbcNDqlyEOFrs2Eqs4hq++PEOLkpXFQav+N9+
2557Rgoeb9Hlovz20YWDpL4qXxa4XzPk4kfgvD0txEfeXwpfcZgL/fYzNu+JT39r
2558Z5624CL071BgIHHPZMSEwBkuZh9ICzlPfHH+oWUvznIx1DfX/wix97aik72u
2559XNjPpJ6SIH7mE8Vz9edid2bU43vkvCiEH/67OIQLh6vnjRyIM1KEZN884oIX
25609m1qL3FRrfvpX8+4sDN8rzNGziN35dFOn1wuBD0ErhwktlURFlxbwIWYTcfw
2561auIf+0rWUCVcrPxjZT9Czv+U86azIlVcOLlvRjixdMG83kcdXEg6TWRVk7yI
2562/1wqrN7DxboLsdORxEodnkot/VzUjTMP2BDvEO52WjFJxkeONo38IPVkWj6Q
2563uJCHJdEv3osQh/O9RnK1eGitj1opTPJrpZDqEjMdYmE1XTrJuyTpPrVf+3kk
256459UdbhLnwuzKbhMe9FRp2T9JXjaGbvvFcOChSr1+P4PkqfiG/v+Y4TzUZ5Tk
25657CV5vE88Imn4KQ+x0qGV3SS/PSe0jecn8JC/88bbQGIe/fETnUwexpy7pKs7
2566SZ7QtNTSKR4uSc8T0O0g9Rca5OgzwYPpdOKTX6SfuLqrLYr5y0O1yEG9YOJE
2567i7a8PMFWODvlVa8gFl6vOrtfrBX8kYGLmjwyvxJ2rKliKyaGusTsOSRfhxWb
2568NpxsxYvYNWPBpL89a2nw2n+6FQdv0b1FiWuLb8hZn21FFutFbyDpj+pBdRci
2569LrVi/kIDK98m0k/WXJ0nENSKM09rWA4NFCKPf9jDLGhFWLuTwX+fSf96ezb1
2570tkwbLt06MHmc9OPxgAs8b/k2FGZNiuWSfq1k4Sl2U7ENnsXxyxcTP/gT4HFN
2571rQ3iIV3zqsooWOqk61w2bsN98eVmW0vI+E98tu2NNqg2x3Z9JPcFpbZbIvq8
2572NjTc3ea1LZPkWVbAbr3ONgS2/nC6lEH61e2Hrrq9bTC/Y2+aSe4r4/KJTO3R
2573NojqPpVVSCPzs6cSdsxvR6TRQy8hcv+hDc/XUt7VDjerQ+FR8WT87GjnBTHt
25744Pz9Mfb7MYWB6u2ZL+LbEb1iQ58isVF485BWcjteSt2cPv6I7Pc68StOOe0o
2575V5aMePmAgo9+wO0PH9shG6jqakTuY25BV8J9xtrBF6qfsfUj9bfoWMnYoS+Q
2576rkxuHvYk6w8VCroo0IHBW6mKQeYkf3mHLnjO7kBmeMmgkxnJG6VIk1tzO+Ag
2577ZlZ6wJQ874r1K+4v6EDx26/ec49TeDNlkJ4p3QHJla6eHuR+yj0XXDOg0gGZ
2578Hxn/rNlPzqf2IgkXmw68WtsUUqlK8n5QOsaB3gEd7X8qDOaR+tSofu57tRM5
25798ZsjJXMY4PFOqSxS7oLDh2ZewxEGmCy92xnfu8DXSNUt4VRAtaCmzCX2K043
2580l9cbW1dgcCi7bJf1N8j0uZWO1tOR73/5oPfqbgiopa38qknHN8GGqo6Gbkjp
2581PYujJZTjcnOwsGlYDy6s2CvybaQM1ve+bu836MWnw+60Tv0yWCYuHxn51YuX
2582C1w/CG0qRaFYmsv8gj7U5w8eO/f0PbysOaz957+jvbNKNWJJMZ4K2wk+2vID
2583Rvyf52bTCiEbfm/19NcfOGEuVmmcnY9Mn0eVrRH9iD9bFiYu8A5xdP7Wz2YD
2584uOtbO6q2Mg/878NBbaI/MW7tfGjSKBfJ9kaJMzU/MStFpt1ZLwcO++7oh4UO
2585YuPfcZa7WxaChczbDHWGYD+UxR0PSkPg/X3RwrOGYbX5x1VTtWT8WbDx/Q3a
2586MMqcTdNGxBLhsWtWitKbYegV8GoEm2MQFz5n2EqSDx2DS/nGKY/Jesy3KVzk
2587wz9Ga0SHexeRHwbE8lz5EF3451v0vbt4s8m3f/9lPjh+TvEDu+9i+FdGkoMH
2588HyUPtT1uP/eF4yPBZenX+fC6FJx06uwdmNMz/6gG8PFf7fKndRxvaCjMISHJ
2589R4K2BJ0x4o5jwdEJ9Ql8SOvcy+g/7o5Lw1tu2bzgIy7pqPncPDdkFFvsuJvM
2590J/2DNip19TIUTF+9/JDBR9CJXp7R+AUs8T91/1ABH7Tme9b8aTuoDAw5txfy
25910S6cGZVfaovDx/wMXIv5EBmV9nbwsUHwqmyBR6V8HLoWVvJL8DQE3wm5N1N8
2592UA+a4oWETkBONubIuY98mJ759GSRnwl571XZNFHJR8XMI/VGkcO4foTWvewz
2593H1cN4lOXztPDk7zh8tQaMt83vrYHF2rjrYx/3M46PjaNqX9LF1FH8x2ZG1X1
2594fGjJfZoKF1UAvzfbnNbIh8D/f/4P/l2Eyg==
2595 "]]}, {
2596 Directive[
2597 Opacity[1.],
2598 RGBColor[0.922526, 0.385626, 0.209179],
2599 AbsoluteThickness[1.6]],
2600 LineBox[CompressedData["
26011:eJwV1nk4VdsbB/BDRLiUJA0yRJG5iwr5KoqUuqiEUkJEMiQJSRMRRaKiRBSZ
2602UoY4+2QqYymEMp99Diopjis3NPzW76/zfJ5nr+esd+293vercNjHxo2fwWDM
260352Mw/v97/8CzOYEe+4x1/ow1vIwwNT7AOlzywkUfH2QfmEx/VMC34sDB6y5b
2604IfLyiOLhYR2se8IIDXbZC56CefBx7iY4Pq41P+5yBJZbAwIy+6zhrZmt4eES
2605iOqFlhJybc6Y8r4t7+YSgWH1Z/eWUX6g/pJMdnFJwp83J+7JxJ7Ds6ITrOO7
2606s3Bg3aPwFZx42DsOez7Y/QTKM2LZCXzJMOg703mPU4obfhl1h9+kQVXkk678
2607ZxYOiWup2VKZWPhESWqfWTXajtWxNPWycfupsZDLPy/h3yT22ag2F9a6b1R1
2608d9bD6IOuY4PEY8Rv75KOlWnC0Qb7ic3ThdhXZvVLRa4ZrI8/zBf7PkUWc2PB
2609jom3OFC72OpzSRESUq3NUxxb0aQY97umvxg3RTYU6/S2ofLE4depQqU4uMlp
2610rphpO77b5IrOCDzDiOL6DqGGDizVtHKjfz3D1ZevqeEt75Ht9P6pyYcyTGnf
2611i5yX8wExm14KvYgph4LFqhYr9W6sslW8s28dE9mOfeNjOt0oWbn5U8YGJrR9
2612biy4vq4bdjIt9V8NmTBJ4rft3NwN8WizTWdMmHAa7O9wsu+GWeiE7JVtTNwJ
2613v9njE9GN2DOh5w47MiFTLvwxnt2NxYsgwghjYv6aL786bvRg3en00akKJkzn
2614J2aOJ/dggXTU7fnVTAROGW8XTe+B/5kTKSovmOipuX7LJL8HrDiXVNt6Jh46
2615GvydW9sDdxu99MS3TBjFRnmETxF316U2DjBxdHz1uzX7epHySCqF95vsp7P1
26169BanXjQlx/E6GBTesELkD7n2Ivhs9t0yfgq6UW+9E3178TumcipoLgWG4ilh
2617RlQvbDol84f+opBkW7exo7wXQsHXNX2WU6gpdc0+u6wPmoE7szavp/A90rvn
2618jEIfan9aDn3eQEHFPlA8dHUfjmb1Xb5mSOHabGRA0N99kDX/wOg0prDfJNfE
2619b3sf7AcfFu/aQtY38j4cDunDRec3WlPWZH1f2LytPX3orU5NlPCk4FgQaWRG
262092Gf+o1rF7woXD0b57P5Yx92eZSNfT9G1ivc7zD+tw/vs9M4HT5kf0dq09eJ
26219kPhw6mE8yfJ+nFRA1XDfoQ4hytfCyfr59z2FEvpx67K1RonEymMvtLPz0jr
2622R22h+pm0JAqWN9rHDB72Q/Ou+NGmmxSElOefPPqkH2fPnJZamkwhfGvk2br6
2623fjRL7Wdmp1Lwjzp5I3yyH3R775YLWRT2SthUTFoNQEdJN0ijjELx+zFGjO0A
2624jpsVblcvpyCZFmu60n4AYe5XKFUmhbfajQ3WrgMYX+XjK8+iYGFj8q4geAC6
2625rw9q/aqkYJCo+ckjawDfJc4LBtST84wVjDrOYOOT0zstuw4KUj1W3oFz2Djn
2626VmJs2EnhlkqSddhcNnpeq+TJvqdw/8WqpVfF2FBT6brf94HsZ9o8N1+GDam/
2627p/5s66XQ7RbdPKrNRvVox5l2DgWnorYnk3+zURRtE5TKpcBlLEv6qc/GgazS
26281iOD5LxScp3ENrKhNXd7+sQQhT+tr8fUtrGx0sCoeOoTBSVjCUkvZzYUS/gL
2629Cr9RyL5iN+Xvykay0YXbh8YoaHTd6w52Z6PRafOg+DgF/QDtjGhvNhYduH7z
2630CI/Cthxr3ZzTbFzplwzkn6RwXPrG3s/xbPjKH1k8+oPChEuvAe8GGwVNLtPn
2631pimceqIkN32TjdE1PwykZ8j72VHyUTiVDSG92d4NsxQSzncGqeSwUfZK8K73
2632Lwpl32RS3GvY2C4jKhnJx0LbMzUho1o2Nhz1rp0hHg03PjG/gQ3Np7Li3vws
2633KCx03V7ezMYvz+CDVnNYiF73eFakiw2GRSb/LwEWMhk17gM9bIioTx1yE2Sh
2634orH9XVE/G36JzN2viSccZ3L3D5L97sz/mTiXBcfwLfsLxthAP3OnjDALgdv2
2635NZyfYMPMS8H+JHGcpJeu3Xc21hrJTbcQv8yME2PMsnFZ+t/pC/NYUG/sYVnP
2636pfGzK/TPBxEWfi/wl/2+nIbEP0or8BcLMj0XoxrlaGwLU714iXht5s3vdxVp
2637fPolEd5EfET/efNWFRpxMQkb/hFn4a2DcNitv2lYePxXZCnBwsjKZSPH9GlE
2638JUQ1XiIW+Kqxd9MGGg+dFE9WEq8/a6s5YkyjNTr4quZ8FtIyUvsNLWkM7bdo
2639miVmHntiOd+KRvOD63FqC1ho13tZOriLhqP4vK/2xPMaPl+N3UNjZF6sx1Ni
2640pfifM877aGyZmxnZS2zsIOGu70hDa3LaSFCSBf9RXQwcIv8XctLThjimxDy3
2641yIWG3qVMTiDxwzCHxZeP0Gg8oMy7Tdw9P3xM+xiN3we1WnuIJ7uuOwr6kPr/
2642VN+fIRbPeFDf5Ufjm125iMxCFkz1Xt07f4rGGaXPd3cS95/4q80imMbugBU7
26433YmDnu4SkDhDwze7+34YsSQvXr/jLI3Vhop3bhDnabV7pJyn8TxzesMj4q3H
2644pVOcL9HoPOQWyiKm8/Y1r75Mo3vkqMsb4tAvyX++RtMoZYmO9RNLr+nTKY6l
2645wdyzS+4bcaGHnGtwHI3NazdMzhJvz3JOMkmgUf6m2VtYioXhoYyGuUnk/eQt
2646iFlIHK40PPP6Fo2N2+btkiVe6qKikZBCw0u5vFSZuDjd86B9Ko3JauUX6sQ7
26472Xnxcuk0jNNsA9YSf14x9mIog8Y/puZN+sQXD+hM5T6kkaouWLuBeMWdEyr+
2648j2iI0vGuhsRl3SUO6/No2HB52f+3zZIfMb8LaLgxVa8bEI/aGVS+fELDZ2Sj
2649/HriyKRQXnQxDcystdUlVuyoWGn9jIaQ319qWsSshXx7FzNJPZ2tWSrEe21M
2650L/exaFQXXWyUJ+bFXWJmVNJYGL8mbjFxzNv60aM1NFx+1M+KEa8SF5HTriXP
2651BziL8RFX7dhhPVVP43b8bPW/5Pwcrly9wGqi0d+VvHyIeLKxpeR8M4073abL
2652O4ivCS/8ZNFCQ01htuoF8RrzPUsl3tHYalQr8oT45aWbOzo6aJgxH07fIf7B
2653v/yJcw+pd3lNnS/x9U1O3NX9NCoVBB/sI9YIT1v0jU2j6JWfCogP/1IKDh6m
26548dWue4Uw8U9D9zyTzzRqDw7Ej5Dv8Wbwo/65ozQS7eVzXhG//k/DNIFH4+0p
2655j6YoYr0JfbG8nzSk2+KbvpP70aJ92tj/D434nin3ZmJPH8p3PT8H2vGsnAzi
26561FF0vBTioNc3VH4HsfBHi9Q+SQ6+/LWrOYbcz/vKV1oyFnHw55pBkj3xRtdm
2657fk8ZDgyycgWUif1pa/cpWQ6eS+u0PSP3vafHQVtClQOXXEvtZtIvmi4kPVig
2658zsEq4x1tUcRMtbalUlocuLkX95oRJ4dsE1yix0GVXsuaUtJvHJat71bcxEGT
2659Vm/eJTEWLF+c2KVsxsGFV2XX9YgNvB6/XG3OwWycGs0VJd8vteqxuhUHCgFf
2660nhkSdzssuqhvz0FKe4jVB9L/mvitp9fv50B5vDAohJiZE3Pc8CAHl+fmickS
2661J8/MsTdxI/XIivk4kv5pnzyhYenHQZbI8hW1pP9+6Hr7/kAUB/2PKtbsIP28
26624Zyo1aEYDoq7lYY6SL8vUzWvOXyNg4POT4SdiG+drshzT+Rgf+6eK0fJfLBb
2663kn/OL52Dye8BZ73/UOjcF612qZyDe3cPqqiSeVPHqEuLZHGwu2dO0G0yj0qz
2664+aSjKzlIrNHSESZO+hHEuFbLwVG+dWw2mWd7b7l33GrlIKq8QOfsFIWO92Zn
26658z5zsLkxPcuHzEOHWcvQkFEO6me4I61kXrJXWJ+2HOPghee512uJR9wOnPg0
2666ycGCZRzPcTJvGZMn3ZUYXHQdq5dyHKWgPj9r1x1pLkrSohS+DVO4YDFPPsaU
2667C58t1ptFeygIH5OQddzKhY19jcOmbpKPri1aumYbF4LZ2pKBXSRPdCpINezk
2668osZ9iVMPyRMFrgbCAg5cNOfneCa2k/wQ7jUe4svFaIKFY30zBZ3y5iqvu1ws
2669NgmuUCT5RWxrM+NUGhcF69wkZSooDLe9NjmfwYWOiEeD6HMKd0ZfVd16xEUb
2670863DN5KHhOWbqmpLuDCeYC9JKyX1RtRVyb3hQmpJz9zSfApxuyur3v3mwk99
2671uCmX5DEvuoIxwDeInB9Fx71vU6T/VpiMCAyC8vM5qXGLws/I51UM0UGYeDTl
2672ZpO850FRVRqLB8GIaWZdiaMAxbKqSK1BzDX9flIggsK3scIqw0ODCM1yCagi
2673eXLbxEDdepdBHKzNMd9znELmpHiz3pFB5CtmxH4i+dNh+liX1rFBVNyp9hMh
2674ebWeX3ViZdAgsnq8UgxdKaQtSl8pFjeI1ZJqwbb7KNgaxkf0Vg6iOEUnwR4k
2675j0T47TgjN4Qgc/sHVcIUHgl4dW9VHMJK54CzC4QoJJ939ZivPISIrQ58zoIU
2676QsLsLmasGcJZqzs/Z/koGAduZDXqDcE9+nqrwiwTL9zmqUvvGIJqxcIZ9a9M
2677vDFLF30cNAT7zd+8NrUwMcjf2sRuHcKFeWHzXK8z4dceLbQnYRiZB0/Ztk6X
267849AVrv4X849w8xctqNpdjv33l0xM/PiI/1bt0G25WwameI6XaPkn+G8aFKuu
2679fIbTh7rebzn2Gcktme3x3aVIFnLhj9ccgY+ZRbRJUwlkb1yR+80dwfSdLYdz
2680SoqRHx7f0Jv4BSVSJwOL4ouQWsPTer13FHz9o3e7Nj4F7/N4VJ/IV9wdESgS
2681/VKIh0cs7/9p/oobEzqp4w0FcDc9tzUh9huerbpY+ik5F9GCdn0WJmMY9o96
2682SZ3OxuWrpreF+MYR81NFouhjJmbF1J6HOI5jaHysRMojHQGGfFkqxeP4r2CO
2683u8eDFKTeEBg/IMXD4zWV8saRCaQeu7VKx3lYkn4tatAsEkl1o+IlPjxM7Hj/
2684nu9XBIrVz3/Z4sdDRv74f5IlERj/kZfpHsBDRazG4/nKEfCI51+cG8yDhypb
2685IFjgEuxq8md1InnoL2x+IFB9HnpKArVI4yGtMWzetHMobKJvp7ek83DJ626G
26866tsQ+I5rhjln8JDj2TCzySgEeSz7dRce8mDOd5KrKh0MpT2PH9Xl8TCYF1nc
26872XAKCyMcrlqVk/0lvxJ+oHoC2qNjnv1MHka+PnhnneiPnTaXzH1YZH97HD2G
2688Gf6IXlHIiK8kz6+Knah77wv+Z4In2mt5eK4is+mVsDfkZVN2udXzcP5VUHp6
2689vxeML2irTzXwMMY4dt+82BPBuxyHFr/mIXlvUAz/QQ/cKhmvzm7mwcivKWix
2690rjtKl0WkbnjLw+kBObGfwkfQfm5ZSFMLD767F1kU9rmC97HQzrGN1BNnrqn7
26911AX/Aw7qZ0Q=
2692 "]]}}}, {
2693 DisplayFunction -> Identity, AspectRatio ->
2694 NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True},
2695 AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :>
2696 Identity, Frame -> {{False, False}, {False, False}},
2697 FrameLabel -> {{None, None}, {None, None}},
2698 FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}},
2699 GridLines -> {None, None}, GridLinesStyle -> Directive[
2700 GrayLevel[0.5, 0.4]],
2701 Method -> {
2702 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" ->
2703 AbsolutePointSize[6], "ScalingFunctions" -> None},
2704 PlotRange -> {{0, 1.113856665019139}, {0., 0.18564277310684144`}},
2705 PlotRangeClipping -> True, PlotRangePadding -> {{
2706 Scaled[0.02],
2707 Scaled[0.02]}, {
2708 Scaled[0.05],
2709 Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
2710 FormBox[
2711 TemplateBox[{
2712 RowBox[{"F", "(", "x", ")"}],
2713 RowBox[{"H", "(",
2714 RowBox[{"x", ",", "\[ExponentialE]"}], ")"}],
2715 RowBox[{"G", "(", "x", ")"}],
2716 RowBox[{"Hiso", "(", "x", ")"}]}, "LineLegend",
2717 DisplayFunction -> (FormBox[
2718 StyleBox[
2719 StyleBox[
2720 PaneBox[
2721 TagBox[
2722 GridBox[{{
2723 TagBox[
2724 GridBox[{{
2725 GraphicsBox[{{
2726 Directive[
2727 EdgeForm[
2728 Directive[
2729 Opacity[0.3],
2730 GrayLevel[0]]],
2731 PointSize[0.5],
2732 Opacity[1.],
2733 RGBColor[0.368417, 0.506779, 0.709798],
2734 AbsoluteThickness[1.6]], {
2735 LineBox[{{0, 10}, {20, 10}}]}}, {
2736 Directive[
2737 EdgeForm[
2738 Directive[
2739 Opacity[0.3],
2740 GrayLevel[0]]],
2741 PointSize[0.5],
2742 Opacity[1.],
2743 RGBColor[0.368417, 0.506779, 0.709798],
2744 AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full,
2745 ImageSize -> {20, 10}, PlotRangePadding -> None,
2746 ImagePadding -> Automatic,
2747 BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
2748 GraphicsBox[{{
2749 Directive[
2750 EdgeForm[
2751 Directive[
2752 Opacity[0.3],
2753 GrayLevel[0]]],
2754 PointSize[0.5],
2755 Opacity[1.],
2756 RGBColor[0.880722, 0.611041, 0.142051],
2757 AbsoluteThickness[1.6]], {
2758 LineBox[{{0, 10}, {20, 10}}]}}, {
2759 Directive[
2760 EdgeForm[
2761 Directive[
2762 Opacity[0.3],
2763 GrayLevel[0]]],
2764 PointSize[0.5],
2765 Opacity[1.],
2766 RGBColor[0.880722, 0.611041, 0.142051],
2767 AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full,
2768 ImageSize -> {20, 10}, PlotRangePadding -> None,
2769 ImagePadding -> Automatic,
2770 BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
2771 GraphicsBox[{{
2772 Directive[
2773 EdgeForm[
2774 Directive[
2775 Opacity[0.3],
2776 GrayLevel[0]]],
2777 PointSize[0.5],
2778 Opacity[1.],
2779 RGBColor[0.560181, 0.691569, 0.194885],
2780 AbsoluteThickness[1.6]], {
2781 LineBox[{{0, 10}, {20, 10}}]}}, {
2782 Directive[
2783 EdgeForm[
2784 Directive[
2785 Opacity[0.3],
2786 GrayLevel[0]]],
2787 PointSize[0.5],
2788 Opacity[1.],
2789 RGBColor[0.560181, 0.691569, 0.194885],
2790 AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full,
2791 ImageSize -> {20, 10}, PlotRangePadding -> None,
2792 ImagePadding -> Automatic,
2793 BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
2794 GraphicsBox[{{
2795 Directive[
2796 EdgeForm[
2797 Directive[
2798 Opacity[0.3],
2799 GrayLevel[0]]],
2800 PointSize[0.5],
2801 Opacity[1.],
2802 RGBColor[0.922526, 0.385626, 0.209179],
2803 AbsoluteThickness[1.6]], {
2804 LineBox[{{0, 10}, {20, 10}}]}}, {
2805 Directive[
2806 EdgeForm[
2807 Directive[
2808 Opacity[0.3],
2809 GrayLevel[0]]],
2810 PointSize[0.5],
2811 Opacity[1.],
2812 RGBColor[0.922526, 0.385626, 0.209179],
2813 AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full,
2814 ImageSize -> {20, 10}, PlotRangePadding -> None,
2815 ImagePadding -> Automatic,
2816 BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}},
2817 GridBoxAlignment -> {
2818 "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}},
2819 AutoDelete -> False,
2820 GridBoxDividers -> {
2821 "Columns" -> {{False}}, "Rows" -> {{False}}},
2822 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
2823 GridBoxSpacings -> {
2824 "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}},
2825 GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
2826 AutoDelete -> False,
2827 GridBoxItemSize -> {
2828 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
2829 GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}],
2830 "Grid"], Alignment -> Left, AppearanceElements -> None,
2831 ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction ->
2832 "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
2833 FontFamily -> "Arial"}, Background -> Automatic, StripOnInput ->
2834 False], TraditionalForm]& ),
2835 InterpretationFunction :> (RowBox[{"LineLegend", "[",
2836 RowBox[{
2837 RowBox[{"{",
2838 RowBox[{
2839 RowBox[{"Directive", "[",
2840 RowBox[{
2841 RowBox[{"Opacity", "[", "1.`", "]"}], ",",
2842 InterpretationBox[
2843 ButtonBox[
2844 TooltipBox[
2845 GraphicsBox[{{
2846 GrayLevel[0],
2847 RectangleBox[{0, 0}]}, {
2848 GrayLevel[0],
2849 RectangleBox[{1, -1}]}, {
2850 RGBColor[0.368417, 0.506779, 0.709798],
2851 RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame ->
2852 True, FrameStyle ->
2853 RGBColor[
2854 0.24561133333333335`, 0.3378526666666667,
2855 0.4731986666666667], FrameTicks -> None, PlotRangePadding ->
2856 None, ImageSize ->
2857 Dynamic[{
2858 Automatic, 1.35 CurrentValue["FontCapHeight"]/
2859 AbsoluteCurrentValue[Magnification]}]],
2860 "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance ->
2861 None, BaseStyle -> {}, BaselinePosition -> Baseline,
2862 DefaultBaseStyle -> {}, ButtonFunction :>
2863 With[{Typeset`box$ = EvaluationBox[]},
2864 If[
2865 Not[
2866 AbsoluteCurrentValue["Deployed"]],
2867 SelectionMove[Typeset`box$, All, Expression];
2868 FrontEnd`Private`$ColorSelectorInitialAlpha = 1;
2869 FrontEnd`Private`$ColorSelectorInitialColor =
2870 RGBColor[0.368417, 0.506779, 0.709798];
2871 FrontEnd`Private`$ColorSelectorUseMakeBoxes = True;
2872 MathLink`CallFrontEnd[
2873 FrontEnd`AttachCell[Typeset`box$,
2874 FrontEndResource["RGBColorValueSelector"], {
2875 0, {Left, Bottom}}, {Left, Top},
2876 "ClosingActions" -> {
2877 "SelectionDeparture", "ParentChanged",
2878 "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator ->
2879 Automatic, Method -> "Preemptive"],
2880 RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
2881 Selectable -> False], ",",
2882 RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}],
2883 ",",
2884 RowBox[{"Directive", "[",
2885 RowBox[{
2886 RowBox[{"Opacity", "[", "1.`", "]"}], ",",
2887 InterpretationBox[
2888 ButtonBox[
2889 TooltipBox[
2890 GraphicsBox[{{
2891 GrayLevel[0],
2892 RectangleBox[{0, 0}]}, {
2893 GrayLevel[0],
2894 RectangleBox[{1, -1}]}, {
2895 RGBColor[0.880722, 0.611041, 0.142051],
2896 RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame ->
2897 True, FrameStyle ->
2898 RGBColor[
2899 0.587148, 0.40736066666666665`, 0.09470066666666668],
2900 FrameTicks -> None, PlotRangePadding -> None, ImageSize ->
2901 Dynamic[{
2902 Automatic, 1.35 CurrentValue["FontCapHeight"]/
2903 AbsoluteCurrentValue[Magnification]}]],
2904 "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance ->
2905 None, BaseStyle -> {}, BaselinePosition -> Baseline,
2906 DefaultBaseStyle -> {}, ButtonFunction :>
2907 With[{Typeset`box$ = EvaluationBox[]},
2908 If[
2909 Not[
2910 AbsoluteCurrentValue["Deployed"]],
2911 SelectionMove[Typeset`box$, All, Expression];
2912 FrontEnd`Private`$ColorSelectorInitialAlpha = 1;
2913 FrontEnd`Private`$ColorSelectorInitialColor =
2914 RGBColor[0.880722, 0.611041, 0.142051];
2915 FrontEnd`Private`$ColorSelectorUseMakeBoxes = True;
2916 MathLink`CallFrontEnd[
2917 FrontEnd`AttachCell[Typeset`box$,
2918 FrontEndResource["RGBColorValueSelector"], {
2919 0, {Left, Bottom}}, {Left, Top},
2920 "ClosingActions" -> {
2921 "SelectionDeparture", "ParentChanged",
2922 "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator ->
2923 Automatic, Method -> "Preemptive"],
2924 RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
2925 Selectable -> False], ",",
2926 RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}],
2927 ",",
2928 RowBox[{"Directive", "[",
2929 RowBox[{
2930 RowBox[{"Opacity", "[", "1.`", "]"}], ",",
2931 InterpretationBox[
2932 ButtonBox[
2933 TooltipBox[
2934 GraphicsBox[{{
2935 GrayLevel[0],
2936 RectangleBox[{0, 0}]}, {
2937 GrayLevel[0],
2938 RectangleBox[{1, -1}]}, {
2939 RGBColor[0.560181, 0.691569, 0.194885],
2940 RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame ->
2941 True, FrameStyle ->
2942 RGBColor[
2943 0.37345400000000006`, 0.461046, 0.12992333333333334`],
2944 FrameTicks -> None, PlotRangePadding -> None, ImageSize ->
2945 Dynamic[{
2946 Automatic, 1.35 CurrentValue["FontCapHeight"]/
2947 AbsoluteCurrentValue[Magnification]}]],
2948 "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance ->
2949 None, BaseStyle -> {}, BaselinePosition -> Baseline,
2950 DefaultBaseStyle -> {}, ButtonFunction :>
2951 With[{Typeset`box$ = EvaluationBox[]},
2952 If[
2953 Not[
2954 AbsoluteCurrentValue["Deployed"]],
2955 SelectionMove[Typeset`box$, All, Expression];
2956 FrontEnd`Private`$ColorSelectorInitialAlpha = 1;
2957 FrontEnd`Private`$ColorSelectorInitialColor =
2958 RGBColor[0.560181, 0.691569, 0.194885];
2959 FrontEnd`Private`$ColorSelectorUseMakeBoxes = True;
2960 MathLink`CallFrontEnd[
2961 FrontEnd`AttachCell[Typeset`box$,
2962 FrontEndResource["RGBColorValueSelector"], {
2963 0, {Left, Bottom}}, {Left, Top},
2964 "ClosingActions" -> {
2965 "SelectionDeparture", "ParentChanged",
2966 "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator ->
2967 Automatic, Method -> "Preemptive"],
2968 RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
2969 Selectable -> False], ",",
2970 RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}],
2971 ",",
2972 RowBox[{"Directive", "[",
2973 RowBox[{
2974 RowBox[{"Opacity", "[", "1.`", "]"}], ",",
2975 InterpretationBox[
2976 ButtonBox[
2977 TooltipBox[
2978 GraphicsBox[{{
2979 GrayLevel[0],
2980 RectangleBox[{0, 0}]}, {
2981 GrayLevel[0],
2982 RectangleBox[{1, -1}]}, {
2983 RGBColor[0.922526, 0.385626, 0.209179],
2984 RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame ->
2985 True, FrameStyle ->
2986 RGBColor[
2987 0.6150173333333333, 0.25708400000000003`,
2988 0.13945266666666667`], FrameTicks -> None,
2989 PlotRangePadding -> None, ImageSize ->
2990 Dynamic[{
2991 Automatic, 1.35 CurrentValue["FontCapHeight"]/
2992 AbsoluteCurrentValue[Magnification]}]],
2993 "RGBColor[0.922526, 0.385626, 0.209179]"], Appearance ->
2994 None, BaseStyle -> {}, BaselinePosition -> Baseline,
2995 DefaultBaseStyle -> {}, ButtonFunction :>
2996 With[{Typeset`box$ = EvaluationBox[]},
2997 If[
2998 Not[
2999 AbsoluteCurrentValue["Deployed"]],
3000 SelectionMove[Typeset`box$, All, Expression];
3001 FrontEnd`Private`$ColorSelectorInitialAlpha = 1;
3002 FrontEnd`Private`$ColorSelectorInitialColor =
3003 RGBColor[0.922526, 0.385626, 0.209179];
3004 FrontEnd`Private`$ColorSelectorUseMakeBoxes = True;
3005 MathLink`CallFrontEnd[
3006 FrontEnd`AttachCell[Typeset`box$,
3007 FrontEndResource["RGBColorValueSelector"], {
3008 0, {Left, Bottom}}, {Left, Top},
3009 "ClosingActions" -> {
3010 "SelectionDeparture", "ParentChanged",
3011 "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator ->
3012 Automatic, Method -> "Preemptive"],
3013 RGBColor[0.922526, 0.385626, 0.209179], Editable -> False,
3014 Selectable -> False], ",",
3015 RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
3016 "}"}], ",",
3017 RowBox[{"{",
3018 RowBox[{
3019 TagBox[#, HoldForm], ",",
3020 TagBox[#2, HoldForm], ",",
3021 TagBox[#3, HoldForm], ",",
3022 TagBox[#4, HoldForm]}], "}"}], ",",
3023 RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",",
3024 RowBox[{"LabelStyle", "\[Rule]",
3025 RowBox[{"{", "}"}]}], ",",
3026 RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ),
3027 Editable -> True], TraditionalForm], TraditionalForm]},
3028 "Legended",
3029 DisplayFunction->(GridBox[{{
3030 TagBox[
3031 ItemBox[
3032 PaneBox[
3033 TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline},
3034 BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"],
3035 "SkipImageSizeLevel"],
3036 ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}},
3037 GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}},
3038 AutoDelete -> False, GridBoxItemSize -> Automatic,
3039 BaselinePosition -> {1, 1}]& ),
3040 Editable->True,
3041 InterpretationFunction->(RowBox[{"Legended", "[",
3042 RowBox[{#, ",",
3043 RowBox[{"Placed", "[",
3044 RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
3045 CellChangeTimes->{
3046 3.700394712811132*^9, 3.700394907095929*^9, 3.70039554255505*^9,
3047 3.700443292458003*^9, 3.700443435815625*^9, {3.700443471174851*^9,
3048 3.700443484472736*^9}, {3.700444447259688*^9, 3.7004444648693733`*^9},
3049 3.7004445212858343`*^9, 3.7004469782457438`*^9, 3.700448708323125*^9,
3050 3.700449406936549*^9, 3.700450306263345*^9, 3.700451843682996*^9,
3051 3.7004519131229963`*^9, 3.700452360321373*^9, 3.7004527636071787`*^9,
3052 3.7004533366043386`*^9, 3.7004535269020348`*^9, 3.7004535682873173`*^9, {
3053 3.7005929055446987`*^9, 3.700593017579362*^9}, {3.7006027235964127`*^9,
3054 3.7006027691065397`*^9}, 3.700602893640959*^9, 3.700608034126503*^9,
3055 3.700608088430317*^9, 3.7006094969294662`*^9, 3.700618291966331*^9, {
3056 3.700628139940177*^9, 3.7006281633385153`*^9}, {3.700628231667169*^9,
3057 3.700628257672532*^9}, 3.700628287834785*^9, 3.700628321069778*^9,
3058 3.700628355683133*^9, 3.700668500461227*^9, {3.700669253800482*^9,
3059 3.700669270178056*^9}, 3.7006693869289637`*^9, 3.700669712821303*^9, {
3060 3.700669751969036*^9, 3.7006697812012253`*^9}, 3.70067000084074*^9,
3061 3.700670281103383*^9, 3.700678486408949*^9, {3.7006887238747787`*^9,
3062 3.700688737217553*^9}, 3.700696933726934*^9, 3.70069697819799*^9,
3063 3.700702580255927*^9, 3.7008573804756393`*^9, {3.70085744067131*^9,
3064 3.7008574446876593`*^9}, {3.70085751822751*^9, 3.7008575332964907`*^9},
3065 3.700858325022892*^9, {3.7008583801652613`*^9, 3.700858415982872*^9},
3066 3.700859480738674*^9, 3.700859517910962*^9, 3.700859832974765*^9, {
3067 3.700859867613595*^9, 3.700859908481332*^9}, {3.700859965438595*^9,
3068 3.7008600072585382`*^9}, 3.70086012172295*^9, 3.700860172239599*^9,
3069 3.700862752918098*^9, 3.700869473163986*^9, 3.700869504344558*^9,
3070 3.7008702265843887`*^9, 3.7008704822748747`*^9, 3.70087098855682*^9,
3071 3.700872007758296*^9, 3.7008813924318743`*^9, 3.700882600424144*^9,
3072 3.7008826527339973`*^9, 3.7010281599960413`*^9, 3.701052954066587*^9,
3073 3.701282232010047*^9, 3.70128719264746*^9, 3.701287307322445*^9,
3074 3.701287345793009*^9, 3.701287380826804*^9, {3.701287428814123*^9,
3075 3.7012874549332933`*^9}, 3.701292088350789*^9, 3.701299639506135*^9,
3076 3.701301250313039*^9, 3.701313059708963*^9, 3.7013155572947817`*^9,
3077 3.7013802165125303`*^9, 3.7013802540109253`*^9, 3.7013863862735233`*^9,
3078 3.701390408356413*^9, 3.7013906744495697`*^9, 3.701390865269545*^9,
3079 3.701395272110382*^9, 3.701395342186202*^9, 3.7013972828821707`*^9,
3080 3.701397396408553*^9, 3.701397449297913*^9, {3.701397501260955*^9,
3081 3.7013975194905*^9}, 3.701397990513768*^9, 3.7013981604988194`*^9,
3082 3.7013982100538187`*^9, 3.7013982852213297`*^9, 3.701398569526937*^9,
3083 3.7013986381207743`*^9, 3.701399504521106*^9, 3.701404972177581*^9, {
3084 3.701405135063836*^9, 3.7014051597011023`*^9}, 3.7014604242856293`*^9,
3085 3.7027893439481163`*^9, 3.7060459422319803`*^9, 3.706045975784151*^9,
3086 3.706046038060356*^9, 3.706046068669677*^9, 3.706046239507419*^9,
3087 3.706047194712291*^9, 3.706047294139802*^9, 3.70612365654486*^9,
3088 3.706125567318892*^9, 3.70633097659951*^9, 3.706332316584136*^9,
3089 3.7063361519570103`*^9, 3.706383532462635*^9, 3.706388904114553*^9,
3090 3.706389726549327*^9, 3.70639135956126*^9, 3.706393396609137*^9,
3091 3.706395569380576*^9, 3.706395749439303*^9, {3.7063961184780817`*^9,
3092 3.706396184249137*^9}, 3.706774896631853*^9, 3.7081950726272573`*^9,
3093 3.708195139275607*^9, 3.708196747963427*^9, 3.70820190697188*^9,
3094 3.70825081223936*^9, 3.708251284930892*^9, 3.708252180605632*^9,
3095 3.708252396090509*^9, 3.7082524683228827`*^9, 3.7082525603263693`*^9,
3096 3.708252846583602*^9, 3.708252878826735*^9, 3.708262934539515*^9,
3097 3.708355428231392*^9, 3.70835554123519*^9, 3.708375675918983*^9,
3098 3.708632796841324*^9, 3.708632968759692*^9, 3.708633026118462*^9,
3099 3.7086332477933397`*^9, 3.708692527733873*^9, 3.708712483494474*^9,
3100 3.70871870231714*^9, 3.7087188663727627`*^9, 3.7087201528762608`*^9,
3101 3.708720664773285*^9, 3.7087215480818233`*^9, 3.708721686100312*^9,
3102 3.708722377219974*^9, 3.708722802709194*^9, 3.7087235310658007`*^9,
3103 3.708723745242085*^9, 3.708869416790399*^9, 3.7088695333286533`*^9,
3104 3.708871045851605*^9, 3.7092620445619507`*^9, 3.709264835460318*^9,
3105 3.709264905448821*^9, 3.709602586230918*^9, 3.71087853025917*^9,
3106 3.711221253897889*^9, 3.7112805669538403`*^9, 3.71139112294024*^9,
3107 3.711391549494389*^9, 3.711812731847728*^9, 3.711817861894578*^9,
3108 3.711934584160639*^9, 3.712864948765924*^9, 3.7128681111870604`*^9,
3109 3.712931101104456*^9, 3.712937786083117*^9, 3.71296456366776*^9,
3110 3.713208160187004*^9, 3.713208415065713*^9, 3.7132090328609457`*^9,
3111 3.713209187373596*^9, 3.7132106269392014`*^9, 3.7132167078369293`*^9,
3112 3.713223931108762*^9, 3.713236142333563*^9, 3.713239321101529*^9,
3113 3.7132399480446663`*^9, 3.713241692671562*^9, 3.71326577882509*^9,
3114 3.7189805375272913`*^9, 3.718981187742361*^9, 3.7190259447386436`*^9,
3115 3.719099720675931*^9, 3.7191161027342167`*^9, 3.719120366887306*^9,
3116 3.719558955926544*^9, 3.719561101877988*^9, 3.719704970393939*^9,
3117 3.719705217568706*^9, 3.71970526191019*^9, 3.7197054716308393`*^9,
3118 3.7197055340247183`*^9, 3.719705582086413*^9, 3.719705788890029*^9,
3119 3.719776266981215*^9}]
3120}, Open ]]
3121}, Open ]],
3122
3123Cell[CellGroupData[{
3124
3125Cell["Inner boundary & mask", "Subsubsection",
3126 CellChangeTimes->{{3.71122140757273*^9, 3.711221412637507*^9}, {
3127 3.711222459674058*^9, 3.711222461265027*^9}}],
3128
3129Cell[CellGroupData[{
3130
3131Cell[BoxData[{
3132 RowBox[{"r", "/.",
3133 RowBox[{
3134 RowBox[{"NSolve", "[",
3135 RowBox[{
3136 RowBox[{
3137 RowBox[{"\[Rho]", "[", "r", "]"}], "\[Equal]",
3138 RowBox[{
3139 RowBox[{"\[Rho]", "[",
3140 RowBox[{"-", "1"}], "]"}], " ",
3141 SuperscriptBox["E", "2"]}]}], ",", "r"}], "]"}], "[",
3142 RowBox[{"[", "6", "]"}], "]"}]}], "\[IndentingNewLine]",
3143 RowBox[{"rib", "=",
3144 RowBox[{
3145 RowBox[{"Floor", "[",
3146 FractionBox[
3147 RowBox[{"Ceiling", "[",
3148 RowBox[{"2",
3149 FractionBox["%", "dxMIN"]}], "]"}], "2"], "]"}],
3150 "dxMIN"}]}], "\[IndentingNewLine]",
3151 RowBox[{"rmask", "=",
3152 RowBox[{"rib", "+",
3153 RowBox[{"5", "dxMIN"}]}]}]}], "Input",
3154 CellChangeTimes->CompressedData["
31551:eJxTTMoPSmViYGAQBWIQ3RGlcnX6steOHHKXboPopgcnH4How/1Jb0H0uiDe
3156zyC6J0MITEd8eP8XrL7/z38QzRP2kXUGkHbRXMcOosvupfOD6E0ezqogOtmc
3157xRZEP9qpFgOi06WXnADROTP2g+nH8aL3QLTHFkswvXl63iMQverh+6cg+s6Z
31585+0zgfSZ1fVdINqNXU2tcNVrR+UNpjogmuHMoxIQ7eL4rAJEOwX21YHpyTH1
3159IDoi/C1fHZB2u/RQGETf0N5ksmzra0eZjm5TEC3ef9MJRBfNme4Cou3KOFeB
31606C/HFoFph0Vr1oFopWut60H0+qV/doLovdvD94LohxcTmV5ue+1odKwATAMA
3161ofe9ww==
3162 "]],
3163
3164Cell[BoxData[
3165 RowBox[{"-", "0.7729583473103723`"}]], "Output",
3166 CellChangeTimes->{{3.711221560301631*^9, 3.711221611480002*^9},
3167 3.7112216569101458`*^9, {3.711221743935533*^9, 3.7112217605498867`*^9}, {
3168 3.71122181382333*^9, 3.711221821857129*^9}, {3.711221883643757*^9,
3169 3.711222058648612*^9}, {3.7112222503091583`*^9, 3.711222423629508*^9}, {
3170 3.711222454687804*^9, 3.711222497700089*^9}, 3.711223366441369*^9,
3171 3.711223538343931*^9, {3.711223572066025*^9, 3.7112235998864317`*^9}, {
3172 3.7112248968968153`*^9, 3.711224916464931*^9}, {3.711227635051959*^9,
3173 3.711227656087261*^9}, 3.711280568870522*^9, 3.7113911270982237`*^9,
3174 3.711391551125958*^9, 3.711430756583728*^9, 3.711812734488597*^9,
3175 3.711817863545341*^9, 3.711934586709838*^9, 3.712864950912567*^9,
3176 3.7128681123531017`*^9, 3.7129311255036163`*^9, 3.712937788022799*^9,
3177 3.7129645637685003`*^9, 3.713208162306048*^9, 3.713208419341716*^9,
3178 3.7132090342776423`*^9, 3.713209190212682*^9, 3.713210628555149*^9,
3179 3.7132167090247*^9, 3.71322393216698*^9, 3.713236143964075*^9, {
3180 3.713239323511475*^9, 3.713239394169127*^9}, {3.713239950148102*^9,
3181 3.713240014102582*^9}, {3.713240056269574*^9, 3.713240059839026*^9},
3182 3.713241696752877*^9, {3.71326578067178*^9, 3.713265785346623*^9}, {
3183 3.713265815661519*^9, 3.7132658233194733`*^9}, 3.718980540672839*^9,
3184 3.718981190793548*^9, 3.719025946698988*^9, 3.719096803850028*^9,
3185 3.719099725815234*^9, 3.719114418763958*^9, 3.719115202676448*^9, {
3186 3.719115285233224*^9, 3.719115301256947*^9}, {3.719116110601185*^9,
3187 3.71911615010376*^9}, {3.719116244449732*^9, 3.7191162675121517`*^9},
3188 3.719120369250761*^9, 3.719554978770413*^9, 3.719558958635542*^9,
3189 3.719561103870357*^9, 3.7197049724330597`*^9, 3.7197052187710447`*^9,
3190 3.719705263081262*^9, 3.719705473381912*^9, 3.719705535928227*^9,
3191 3.7197055836767797`*^9, 3.719705790642007*^9, 3.719776278919528*^9}],
3192
3193Cell[BoxData[
3194 RowBox[{"-",
3195 FractionBox["49", "64"]}]], "Output",
3196 CellChangeTimes->{{3.711221560301631*^9, 3.711221611480002*^9},
3197 3.7112216569101458`*^9, {3.711221743935533*^9, 3.7112217605498867`*^9}, {
3198 3.71122181382333*^9, 3.711221821857129*^9}, {3.711221883643757*^9,
3199 3.711222058648612*^9}, {3.7112222503091583`*^9, 3.711222423629508*^9}, {
3200 3.711222454687804*^9, 3.711222497700089*^9}, 3.711223366441369*^9,
3201 3.711223538343931*^9, {3.711223572066025*^9, 3.7112235998864317`*^9}, {
3202 3.7112248968968153`*^9, 3.711224916464931*^9}, {3.711227635051959*^9,
3203 3.711227656087261*^9}, 3.711280568870522*^9, 3.7113911270982237`*^9,
3204 3.711391551125958*^9, 3.711430756583728*^9, 3.711812734488597*^9,
3205 3.711817863545341*^9, 3.711934586709838*^9, 3.712864950912567*^9,
3206 3.7128681123531017`*^9, 3.7129311255036163`*^9, 3.712937788022799*^9,
3207 3.7129645637685003`*^9, 3.713208162306048*^9, 3.713208419341716*^9,
3208 3.7132090342776423`*^9, 3.713209190212682*^9, 3.713210628555149*^9,
3209 3.7132167090247*^9, 3.71322393216698*^9, 3.713236143964075*^9, {
3210 3.713239323511475*^9, 3.713239394169127*^9}, {3.713239950148102*^9,
3211 3.713240014102582*^9}, {3.713240056269574*^9, 3.713240059839026*^9},
3212 3.713241696752877*^9, {3.71326578067178*^9, 3.713265785346623*^9}, {
3213 3.713265815661519*^9, 3.7132658233194733`*^9}, 3.718980540672839*^9,
3214 3.718981190793548*^9, 3.719025946698988*^9, 3.719096803850028*^9,
3215 3.719099725815234*^9, 3.719114418763958*^9, 3.719115202676448*^9, {
3216 3.719115285233224*^9, 3.719115301256947*^9}, {3.719116110601185*^9,
3217 3.71911615010376*^9}, {3.719116244449732*^9, 3.7191162675121517`*^9},
3218 3.719120369250761*^9, 3.719554978770413*^9, 3.719558958635542*^9,
3219 3.719561103870357*^9, 3.7197049724330597`*^9, 3.7197052187710447`*^9,
3220 3.719705263081262*^9, 3.719705473381912*^9, 3.719705535928227*^9,
3221 3.7197055836767797`*^9, 3.719705790642007*^9, 3.719776278929646*^9}],
3222
3223Cell[BoxData[
3224 RowBox[{"-",
3225 FractionBox["11", "16"]}]], "Output",
3226 CellChangeTimes->{{3.711221560301631*^9, 3.711221611480002*^9},
3227 3.7112216569101458`*^9, {3.711221743935533*^9, 3.7112217605498867`*^9}, {
3228 3.71122181382333*^9, 3.711221821857129*^9}, {3.711221883643757*^9,
3229 3.711222058648612*^9}, {3.7112222503091583`*^9, 3.711222423629508*^9}, {
3230 3.711222454687804*^9, 3.711222497700089*^9}, 3.711223366441369*^9,
3231 3.711223538343931*^9, {3.711223572066025*^9, 3.7112235998864317`*^9}, {
3232 3.7112248968968153`*^9, 3.711224916464931*^9}, {3.711227635051959*^9,
3233 3.711227656087261*^9}, 3.711280568870522*^9, 3.7113911270982237`*^9,
3234 3.711391551125958*^9, 3.711430756583728*^9, 3.711812734488597*^9,
3235 3.711817863545341*^9, 3.711934586709838*^9, 3.712864950912567*^9,
3236 3.7128681123531017`*^9, 3.7129311255036163`*^9, 3.712937788022799*^9,
3237 3.7129645637685003`*^9, 3.713208162306048*^9, 3.713208419341716*^9,
3238 3.7132090342776423`*^9, 3.713209190212682*^9, 3.713210628555149*^9,
3239 3.7132167090247*^9, 3.71322393216698*^9, 3.713236143964075*^9, {
3240 3.713239323511475*^9, 3.713239394169127*^9}, {3.713239950148102*^9,
3241 3.713240014102582*^9}, {3.713240056269574*^9, 3.713240059839026*^9},
3242 3.713241696752877*^9, {3.71326578067178*^9, 3.713265785346623*^9}, {
3243 3.713265815661519*^9, 3.7132658233194733`*^9}, 3.718980540672839*^9,
3244 3.718981190793548*^9, 3.719025946698988*^9, 3.719096803850028*^9,
3245 3.719099725815234*^9, 3.719114418763958*^9, 3.719115202676448*^9, {
3246 3.719115285233224*^9, 3.719115301256947*^9}, {3.719116110601185*^9,
3247 3.71911615010376*^9}, {3.719116244449732*^9, 3.7191162675121517`*^9},
3248 3.719120369250761*^9, 3.719554978770413*^9, 3.719558958635542*^9,
3249 3.719561103870357*^9, 3.7197049724330597`*^9, 3.7197052187710447`*^9,
3250 3.719705263081262*^9, 3.719705473381912*^9, 3.719705535928227*^9,
3251 3.7197055836767797`*^9, 3.719705790642007*^9, 3.719776278938356*^9}]
3252}, Open ]],
3253
3254Cell[CellGroupData[{
3255
3256Cell[BoxData[{
3257 RowBox[{"N", "[", "rib", "]"}], "\[IndentingNewLine]",
3258 RowBox[{"N", "[", "rmask", "]"}]}], "Input",
3259 CellChangeTimes->{{3.713240081769093*^9, 3.713240087042495*^9}}],
3260
3261Cell[BoxData[
3262 RowBox[{"-", "0.765625`"}]], "Output",
3263 CellChangeTimes->{3.7132400873875427`*^9, 3.713241699522684*^9,
3264 3.7132658293258047`*^9, 3.719099734499219*^9, 3.719115313292919*^9,
3265 3.7191162734823627`*^9, 3.719120373490095*^9, 3.71955498166261*^9,
3266 3.71955896331677*^9, 3.7195611098199043`*^9, 3.71970497707165*^9,
3267 3.719705477121828*^9, 3.719705538942931*^9, 3.71970558751095*^9,
3268 3.7197057946786013`*^9, 3.71977628339452*^9}],
3269
3270Cell[BoxData[
3271 RowBox[{"-", "0.6875`"}]], "Output",
3272 CellChangeTimes->{3.7132400873875427`*^9, 3.713241699522684*^9,
3273 3.7132658293258047`*^9, 3.719099734499219*^9, 3.719115313292919*^9,
3274 3.7191162734823627`*^9, 3.719120373490095*^9, 3.71955498166261*^9,
3275 3.71955896331677*^9, 3.7195611098199043`*^9, 3.71970497707165*^9,
3276 3.719705477121828*^9, 3.719705538942931*^9, 3.71970558751095*^9,
3277 3.7197057946786013`*^9, 3.719776283407414*^9}]
3278}, Open ]]
3279}, Open ]],
3280
3281Cell[CellGroupData[{
3282
3283Cell["outter boundary", "Subsubsection",
3284 CellChangeTimes->{{3.711222791760374*^9, 3.711222796679884*^9}}],
3285
3286Cell[CellGroupData[{
3287
3288Cell[BoxData[{
3289 RowBox[{"rob", "=",
3290 RowBox[{"TRz", "+",
3291 FractionBox["dxMIN", "2"]}]}], "\[IndentingNewLine]",
3292 FractionBox[
3293 RowBox[{"T\[Rho]", "[",
3294 RowBox[{"rob", ",", "0", ",", "0"}], "]"}],
3295 RowBox[{"\[Rho]", "[",
3296 RowBox[{"-", "1"}], "]"}]]}], "Input",
3297 CellChangeTimes->{{3.711222799588835*^9, 3.711222992368384*^9}, {
3298 3.711223081960929*^9, 3.711223175556547*^9}, {3.71122326139205*^9,
3299 3.711223438215185*^9}, {3.7113007755285683`*^9, 3.7113007795682583`*^9}, {
3300 3.7113008162638187`*^9, 3.711300816956008*^9}, {3.711391001317892*^9,
3301 3.711391001447217*^9}, {3.711412519720952*^9, 3.711412522192133*^9}, {
3302 3.711412619102426*^9, 3.711412620574463*^9}, {3.711413551151873*^9,
3303 3.7114136211652184`*^9}, {3.711413734228291*^9, 3.711413746926811*^9}, {
3304 3.711419565836667*^9, 3.7114195663552713`*^9}, 3.71141961944759*^9, {
3305 3.7114209234476357`*^9, 3.711420955383546*^9}, {3.711421078727593*^9,
3306 3.711421118806584*^9}, {3.711430883801242*^9, 3.71143088795418*^9}, {
3307 3.711459196179929*^9, 3.711459213770278*^9}, {3.711459959203186*^9,
3308 3.7114599780376387`*^9}, {3.711460027502606*^9, 3.7114600671704807`*^9}, {
3309 3.711460230272251*^9, 3.711460274653823*^9}, {3.7114604468651533`*^9,
3310 3.711460447272812*^9}, {3.71146054707407*^9, 3.711460547393828*^9}, {
3311 3.7119343879967012`*^9, 3.711934419497489*^9}, {3.711934482788884*^9,
3312 3.7119344829003057`*^9}, {3.711934977682838*^9, 3.7119349840989656`*^9}, {
3313 3.7132391866365013`*^9, 3.713239192845429*^9}, 3.718981942722555*^9, {
3314 3.719096783425748*^9, 3.719096783721126*^9}, {3.7190997594427*^9,
3315 3.719099779629488*^9}, {3.719115344529316*^9, 3.719115346169051*^9}, {
3316 3.719116319726327*^9, 3.719116345855208*^9}}],
3317
3318Cell[BoxData[
3319 RowBox[{"-", "1.1125276792559537`"}]], "Output",
3320 CellChangeTimes->{
3321 3.7114183464752083`*^9, 3.711419566832885*^9, 3.711419621000224*^9, {
3322 3.711420923995644*^9, 3.711420955803824*^9}, {3.711421079347582*^9,
3323 3.711421119335114*^9}, 3.7114261947730427`*^9, 3.711430764802004*^9, {
3324 3.711430885467979*^9, 3.711430889230792*^9}, {3.711459201827326*^9,
3325 3.711459214043144*^9}, 3.711459978829818*^9, {3.711460032811145*^9,
3326 3.711460036863051*^9}, 3.711460067646994*^9, {3.711460241153392*^9,
3327 3.7114602750539827`*^9}, 3.7114604477646427`*^9, 3.711460547869719*^9,
3328 3.711812736246251*^9, 3.7118178654933777`*^9, {3.711934399666198*^9,
3329 3.7119344202003*^9}, 3.711934483638721*^9, 3.711934525062668*^9,
3330 3.711934589372685*^9, 3.711934984425726*^9, 3.712864953448926*^9,
3331 3.712868114336396*^9, {3.712931083297576*^9, 3.712931127656201*^9},
3332 3.712937789051119*^9, 3.712964563825747*^9, 3.713208168786268*^9,
3333 3.7132084166531773`*^9, 3.7132090354913397`*^9, 3.7132091932645493`*^9,
3334 3.7132106298972282`*^9, 3.7132167127810583`*^9, 3.713223933677939*^9,
3335 3.7132361452011833`*^9, 3.713237297923936*^9, {3.71323917350189*^9,
3336 3.713239193369872*^9}, 3.713239335866802*^9, 3.713239401985285*^9,
3337 3.71324006825583*^9, 3.713241703397526*^9, 3.7132658396946373`*^9,
3338 3.718980543546117*^9, 3.718981193726304*^9, {3.71898194521637*^9,
3339 3.718981967169039*^9}, 3.7190259491993303`*^9, 3.719096784391693*^9, {
3340 3.7190997387370577`*^9, 3.719099779987813*^9}, 3.719114415719343*^9,
3341 3.71911531696736*^9, 3.7191153469867764`*^9, 3.719115676629991*^9, {
3342 3.7191163159783783`*^9, 3.719116346232561*^9}, 3.7191203759648857`*^9,
3343 3.719554984646324*^9, 3.7195589660207777`*^9, 3.719561162906705*^9, {
3344 3.7197049792228603`*^9, 3.7197049838157377`*^9}, 3.7197052267047586`*^9,
3345 3.719705266508914*^9, 3.719705478431093*^9, 3.719705540793421*^9,
3346 3.7197055888242607`*^9, 3.719705796483799*^9, 3.719776290175283*^9}],
3347
3348Cell[BoxData["0.013910837332354405`"], "Output",
3349 CellChangeTimes->{
3350 3.7114183464752083`*^9, 3.711419566832885*^9, 3.711419621000224*^9, {
3351 3.711420923995644*^9, 3.711420955803824*^9}, {3.711421079347582*^9,
3352 3.711421119335114*^9}, 3.7114261947730427`*^9, 3.711430764802004*^9, {
3353 3.711430885467979*^9, 3.711430889230792*^9}, {3.711459201827326*^9,
3354 3.711459214043144*^9}, 3.711459978829818*^9, {3.711460032811145*^9,
3355 3.711460036863051*^9}, 3.711460067646994*^9, {3.711460241153392*^9,
3356 3.7114602750539827`*^9}, 3.7114604477646427`*^9, 3.711460547869719*^9,
3357 3.711812736246251*^9, 3.7118178654933777`*^9, {3.711934399666198*^9,
3358 3.7119344202003*^9}, 3.711934483638721*^9, 3.711934525062668*^9,
3359 3.711934589372685*^9, 3.711934984425726*^9, 3.712864953448926*^9,
3360 3.712868114336396*^9, {3.712931083297576*^9, 3.712931127656201*^9},
3361 3.712937789051119*^9, 3.712964563825747*^9, 3.713208168786268*^9,
3362 3.7132084166531773`*^9, 3.7132090354913397`*^9, 3.7132091932645493`*^9,
3363 3.7132106298972282`*^9, 3.7132167127810583`*^9, 3.713223933677939*^9,
3364 3.7132361452011833`*^9, 3.713237297923936*^9, {3.71323917350189*^9,
3365 3.713239193369872*^9}, 3.713239335866802*^9, 3.713239401985285*^9,
3366 3.71324006825583*^9, 3.713241703397526*^9, 3.7132658396946373`*^9,
3367 3.718980543546117*^9, 3.718981193726304*^9, {3.71898194521637*^9,
3368 3.718981967169039*^9}, 3.7190259491993303`*^9, 3.719096784391693*^9, {
3369 3.7190997387370577`*^9, 3.719099779987813*^9}, 3.719114415719343*^9,
3370 3.71911531696736*^9, 3.7191153469867764`*^9, 3.719115676629991*^9, {
3371 3.7191163159783783`*^9, 3.719116346232561*^9}, 3.7191203759648857`*^9,
3372 3.719554984646324*^9, 3.7195589660207777`*^9, 3.719561162906705*^9, {
3373 3.7197049792228603`*^9, 3.7197049838157377`*^9}, 3.7197052267047586`*^9,
3374 3.719705266508914*^9, 3.719705478431093*^9, 3.719705540793421*^9,
3375 3.7197055888242607`*^9, 3.719705796483799*^9, 3.719776290186088*^9}]
3376}, Open ]]
3377}, Open ]],
3378
3379Cell[CellGroupData[{
3380
3381Cell["Ratio of density between cell centers", "Subsubsection",
3382 CellChangeTimes->{{3.708719060343804*^9, 3.7087190748614893`*^9}}],
3383
3384Cell[CellGroupData[{
3385
3386Cell[BoxData[{
3387 RowBox[{"\[CapitalDelta]R", " ", "=",
3388 RowBox[{"Table", "[",
3389 RowBox[{
3390 RowBox[{"Style", "[",
3391 RowBox[{
3392 RowBox[{"{",
3393 RowBox[{
3394 RowBox[{"i", " ", "dxMIN"}], ",",
3395 FractionBox[
3396 RowBox[{"\[Rho]", "[",
3397 RowBox[{
3398 RowBox[{"(",
3399 RowBox[{"i", "-", "1"}], ")"}], " ", "dxMIN"}], "]"}],
3400 RowBox[{"\[Rho]", "[",
3401 RowBox[{"i", " ", "dxMIN"}], "]"}]]}], "}"}], ",",
3402 RowBox[{"Hue", "[",
3403 RowBox[{
3404 RowBox[{"-", ".125"}], "+",
3405 RowBox[{".375",
3406 FractionBox[
3407 RowBox[{"\[Rho]", "[",
3408 RowBox[{
3409 RowBox[{"(",
3410 RowBox[{"i", "-", "1"}], ")"}], " ", "dxMIN"}], "]"}],
3411 RowBox[{"\[Rho]", "[",
3412 RowBox[{"i", " ", "dxMIN"}], "]"}]]}]}], "]"}]}], "]"}], ",",
3413 RowBox[{"{",
3414 RowBox[{"i", ",",
3415 RowBox[{
3416 RowBox[{"Floor", "[",
3417 FractionBox[
3418 RowBox[{"-", "rmask"}], "dxMIN"], "]"}], "-", ".5"}], ",",
3419 FractionBox[
3420 RowBox[{"-", "rob"}], "dxMIN"]}], "}"}]}],
3421 "]"}]}], "\[IndentingNewLine]",
3422 RowBox[{"Show", "[",
3423 RowBox[{
3424 RowBox[{"Plot", "[",
3425 RowBox[{
3426 RowBox[{"{",
3427 RowBox[{
3428 FractionBox[
3429 RowBox[{"F", "[", "x", "]"}],
3430 RowBox[{"F", "[",
3431 FractionBox["Rz", "2"], "]"}]], "+", "1"}], "}"}], ",",
3432 RowBox[{"{",
3433 RowBox[{"x", ",",
3434 RowBox[{"-", "rmask"}], ",", "Rz"}], "}"}], ",",
3435 RowBox[{"PlotLegends", "\[Rule]", "\"\<Expressions\>\""}], ",",
3436 RowBox[{"GridLines", "\[Rule]",
3437 RowBox[{"{",
3438 RowBox[{
3439 RowBox[{"{",
3440 RowBox[{
3441 RowBox[{"{",
3442 RowBox[{
3443 RowBox[{"-", "rmask"}], ",", "Thick"}], "}"}], ",",
3444 RowBox[{"{",
3445 RowBox[{
3446 RowBox[{"-", "rib"}], ",", "Blue"}], "}"}], ",",
3447 RowBox[{"{",
3448 RowBox[{"1", ",", "Orange"}], "}"}], ",",
3449 RowBox[{"{",
3450 RowBox[{
3451 RowBox[{"-", "rob"}], ",", "Green"}], "}"}]}], "}"}], ",",
3452 RowBox[{"{",
3453 RowBox[{
3454 RowBox[{"{",
3455 RowBox[{"1.2397783001618599", ",", "Cyan"}], "}"}], ",",
3456 RowBox[{"{",
3457 RowBox[{"1.137042892629939", ",", "Cyan"}], "}"}], ",",
3458 RowBox[{"{",
3459 RowBox[{"1.5003432045110259", ",", "Red"}], "}"}], ",",
3460 RowBox[{"{",
3461 RowBox[{"3.015323228152034", ",", "Red"}], "}"}]}], "}"}]}],
3462 "}"}]}], ",",
3463 RowBox[{"GridLinesStyle", "\[Rule]",
3464 RowBox[{"Directive", "[", " ", "Dashed", "]"}]}]}], "]"}], ",",
3465 RowBox[{"ListPlot", "[", "\[CapitalDelta]R", "]"}], ",",
3466 RowBox[{"PlotRange", "\[Rule]",
3467 RowBox[{"{",
3468 RowBox[{
3469 RowBox[{"{",
3470 RowBox[{
3471 RowBox[{
3472 RowBox[{"-", "rmask"}], "-", "dxMIN"}], ",",
3473 RowBox[{
3474 RowBox[{"-", "rob"}], "+", "dxMIN"}]}], "}"}], ",",
3475 RowBox[{"{",
3476 RowBox[{"1", ",",
3477 RowBox[{"Max", "[",
3478 RowBox[{"3", ",",
3479 RowBox[{
3480 RowBox[{
3481 RowBox[{"\[CapitalDelta]R", "[",
3482 RowBox[{"[",
3483 RowBox[{
3484 RowBox[{"Floor", "[",
3485 FractionBox[
3486 RowBox[{"-", "rob"}], "dxMIN"], "]"}], "-",
3487 RowBox[{"Floor", "[",
3488 FractionBox[
3489 RowBox[{"-", "rmask"}], "dxMIN"], "]"}], "+", "1"}], "]"}],
3490 "]"}], "[",
3491 RowBox[{"[", "1", "]"}], "]"}], "[",
3492 RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "}"}]}], "}"}]}]}],
3493 "]"}]}], "Input",
3494 CellChangeTimes->{{3.70871911509945*^9, 3.708719212063057*^9}, {
3495 3.708719243510171*^9, 3.708719333270446*^9}, {3.7087194430216017`*^9,
3496 3.708719463592902*^9}, {3.708719580590993*^9, 3.708719580634691*^9}, {
3497 3.708719728301474*^9, 3.708719765019312*^9}, {3.708719853526843*^9,
3498 3.708719881481165*^9}, {3.7087199623051653`*^9, 3.708719963911117*^9}, {
3499 3.708720079318451*^9, 3.7087200800091553`*^9}, {3.7087204426056128`*^9,
3500 3.708720444137804*^9}, {3.7087204810143223`*^9, 3.7087205986508512`*^9}, {
3501 3.708720698733912*^9, 3.7087207308928823`*^9}, {3.708721592384336*^9,
3502 3.7087216030346947`*^9}, {3.7128650234129868`*^9, 3.712865024848384*^9}, {
3503 3.7197050170101023`*^9, 3.7197050955554113`*^9}}],
3504
3505Cell[BoxData[
3506 RowBox[{"{",
3507 RowBox[{
3508 StyleBox[
3509 RowBox[{"{",
3510 RowBox[{"0.6796875`", ",", "1.092517982755111`"}], "}"}],
3511 StripOnInput->False,
3512 LineColor->Hue[0.28469424353316664`],
3513 FrontFaceColor->Hue[0.28469424353316664`],
3514 BackFaceColor->Hue[0.28469424353316664`],
3515 GraphicsColor->Hue[0.28469424353316664`],
3516 FontColor->Hue[0.28469424353316664`]], ",",
3517 StyleBox[
3518 RowBox[{"{",
3519 RowBox[{"0.6953125`", ",", "1.0937342164821393`"}], "}"}],
3520 StripOnInput->False,
3521 LineColor->Hue[0.28515033118080224`],
3522 FrontFaceColor->Hue[0.28515033118080224`],
3523 BackFaceColor->Hue[0.28515033118080224`],
3524 GraphicsColor->Hue[0.28515033118080224`],
3525 FontColor->Hue[0.28515033118080224`]], ",",
3526 StyleBox[
3527 RowBox[{"{",
3528 RowBox[{"0.7109375`", ",", "1.0951453705696292`"}], "}"}],
3529 StripOnInput->False,
3530 LineColor->Hue[0.28567951396361096`],
3531 FrontFaceColor->Hue[0.28567951396361096`],
3532 BackFaceColor->Hue[0.28567951396361096`],
3533 GraphicsColor->Hue[0.28567951396361096`],
3534 FontColor->Hue[0.28567951396361096`]], ",",
3535 StyleBox[
3536 RowBox[{"{",
3537 RowBox[{"0.7265625`", ",", "1.0967677995721683`"}], "}"}],
3538 StripOnInput->False,
3539 LineColor->Hue[0.2862879248395631],
3540 FrontFaceColor->Hue[0.2862879248395631],
3541 BackFaceColor->Hue[0.2862879248395631],
3542 GraphicsColor->Hue[0.2862879248395631],
3543 FontColor->Hue[0.2862879248395631]], ",",
3544 StyleBox[
3545 RowBox[{"{",
3546 RowBox[{"0.7421875`", ",", "1.0986212242874471`"}], "}"}],
3547 StripOnInput->False,
3548 LineColor->Hue[0.2869829591077927],
3549 FrontFaceColor->Hue[0.2869829591077927],
3550 BackFaceColor->Hue[0.2869829591077927],
3551 GraphicsColor->Hue[0.2869829591077927],
3552 FontColor->Hue[0.2869829591077927]], ",",
3553 StyleBox[
3554 RowBox[{"{",
3555 RowBox[{"0.7578125`", ",", "1.1007293942665395`"}], "}"}],
3556 StripOnInput->False,
3557 LineColor->Hue[0.2877735228499523],
3558 FrontFaceColor->Hue[0.2877735228499523],
3559 BackFaceColor->Hue[0.2877735228499523],
3560 GraphicsColor->Hue[0.2877735228499523],
3561 FontColor->Hue[0.2877735228499523]], ",",
3562 StyleBox[
3563 RowBox[{"{",
3564 RowBox[{"0.7734375`", ",", "1.103120940364039`"}], "}"}],
3565 StripOnInput->False,
3566 LineColor->Hue[0.28867035263651464`],
3567 FrontFaceColor->Hue[0.28867035263651464`],
3568 BackFaceColor->Hue[0.28867035263651464`],
3569 GraphicsColor->Hue[0.28867035263651464`],
3570 FontColor->Hue[0.28867035263651464`]], ",",
3571 StyleBox[
3572 RowBox[{"{",
3573 RowBox[{"0.7890625`", ",", "1.1058304793899019`"}], "}"}],
3574 StripOnInput->False,
3575 LineColor->Hue[0.28968642977121317`],
3576 FrontFaceColor->Hue[0.28968642977121317`],
3577 BackFaceColor->Hue[0.28968642977121317`],
3578 GraphicsColor->Hue[0.28968642977121317`],
3579 FontColor->Hue[0.28968642977121317`]], ",",
3580 StyleBox[
3581 RowBox[{"{",
3582 RowBox[{"0.8046875`", ",", "1.1089000579918977`"}], "}"}],
3583 StripOnInput->False,
3584 LineColor->Hue[0.29083752174696165`],
3585 FrontFaceColor->Hue[0.29083752174696165`],
3586 BackFaceColor->Hue[0.29083752174696165`],
3587 GraphicsColor->Hue[0.29083752174696165`],
3588 FontColor->Hue[0.29083752174696165`]], ",",
3589 StyleBox[
3590 RowBox[{"{",
3591 RowBox[{"0.8203125`", ",", "1.1123810598253947`"}], "}"}],
3592 StripOnInput->False,
3593 LineColor->Hue[0.29214289743452304`],
3594 FrontFaceColor->Hue[0.29214289743452304`],
3595 BackFaceColor->Hue[0.29214289743452304`],
3596 GraphicsColor->Hue[0.29214289743452304`],
3597 FontColor->Hue[0.29214289743452304`]], ",",
3598 StyleBox[
3599 RowBox[{"{",
3600 RowBox[{"0.8359375`", ",", "1.1163367554161874`"}], "}"}],
3601 StripOnInput->False,
3602 LineColor->Hue[0.29362628328107027`],
3603 FrontFaceColor->Hue[0.29362628328107027`],
3604 BackFaceColor->Hue[0.29362628328107027`],
3605 GraphicsColor->Hue[0.29362628328107027`],
3606 FontColor->Hue[0.29362628328107027`]], ",",
3607 StyleBox[
3608 RowBox[{"{",
3609 RowBox[{"0.8515625`", ",", "1.1208457587838951`"}], "}"}],
3610 StripOnInput->False,
3611 LineColor->Hue[0.29531715954396065`],
3612 FrontFaceColor->Hue[0.29531715954396065`],
3613 BackFaceColor->Hue[0.29531715954396065`],
3614 GraphicsColor->Hue[0.29531715954396065`],
3615 FontColor->Hue[0.29531715954396065`]], ",",
3616 StyleBox[
3617 RowBox[{"{",
3618 RowBox[{"0.8671875`", ",", "1.126006787167789`"}], "}"}],
3619 StripOnInput->False,
3620 LineColor->Hue[0.2972525451879209],
3621 FrontFaceColor->Hue[0.2972525451879209],
3622 BackFaceColor->Hue[0.2972525451879209],
3623 GraphicsColor->Hue[0.2972525451879209],
3624 FontColor->Hue[0.2972525451879209]], ",",
3625 StyleBox[
3626 RowBox[{"{",
3627 RowBox[{"0.8828125`", ",", "1.1319453318608959`"}], "}"}],
3628 StripOnInput->False,
3629 LineColor->Hue[0.2994794994478359],
3630 FrontFaceColor->Hue[0.2994794994478359],
3631 BackFaceColor->Hue[0.2994794994478359],
3632 GraphicsColor->Hue[0.2994794994478359],
3633 FontColor->Hue[0.2994794994478359]], ",",
3634 StyleBox[
3635 RowBox[{"{",
3636 RowBox[{"0.8984375`", ",", "1.138823195944415`"}], "}"}],
3637 StripOnInput->False,
3638 LineColor->Hue[0.3020586984791557],
3639 FrontFaceColor->Hue[0.3020586984791557],
3640 BackFaceColor->Hue[0.3020586984791557],
3641 GraphicsColor->Hue[0.3020586984791557],
3642 FontColor->Hue[0.3020586984791557]], ",",
3643 StyleBox[
3644 RowBox[{"{",
3645 RowBox[{"0.9140625`", ",", "1.1468524433185152`"}], "}"}],
3646 StripOnInput->False,
3647 LineColor->Hue[0.3050696662444432],
3648 FrontFaceColor->Hue[0.3050696662444432],
3649 BackFaceColor->Hue[0.3050696662444432],
3650 GraphicsColor->Hue[0.3050696662444432],
3651 FontColor->Hue[0.3050696662444432]], ",",
3652 StyleBox[
3653 RowBox[{"{",
3654 RowBox[{"0.9296875`", ",", "1.1563163335409028`"}], "}"}],
3655 StripOnInput->False,
3656 LineColor->Hue[0.30861862507783855`],
3657 FrontFaceColor->Hue[0.30861862507783855`],
3658 BackFaceColor->Hue[0.30861862507783855`],
3659 GraphicsColor->Hue[0.30861862507783855`],
3660 FontColor->Hue[0.30861862507783855`]], ",",
3661 StyleBox[
3662 RowBox[{"{",
3663 RowBox[{"0.9453125`", ",", "1.1676016898225952`"}], "}"}],
3664 StripOnInput->False,
3665 LineColor->Hue[0.3128506336834732],
3666 FrontFaceColor->Hue[0.3128506336834732],
3667 BackFaceColor->Hue[0.3128506336834732],
3668 GraphicsColor->Hue[0.3128506336834732],
3669 FontColor->Hue[0.3128506336834732]], ",",
3670 StyleBox[
3671 RowBox[{"{",
3672 RowBox[{"0.9609375`", ",", "1.1812507051850167`"}], "}"}],
3673 StripOnInput->False,
3674 LineColor->Hue[0.3179690144443813],
3675 FrontFaceColor->Hue[0.3179690144443813],
3676 BackFaceColor->Hue[0.3179690144443813],
3677 GraphicsColor->Hue[0.3179690144443813],
3678 FontColor->Hue[0.3179690144443813]], ",",
3679 StyleBox[
3680 RowBox[{"{",
3681 RowBox[{"0.9765625`", ",", "1.19804730400202`"}], "}"}],
3682 StripOnInput->False,
3683 LineColor->Hue[0.32426773900075756`],
3684 FrontFaceColor->Hue[0.32426773900075756`],
3685 BackFaceColor->Hue[0.32426773900075756`],
3686 GraphicsColor->Hue[0.32426773900075756`],
3687 FontColor->Hue[0.32426773900075756`]], ",",
3688 StyleBox[
3689 RowBox[{"{",
3690 RowBox[{"0.9921875`", ",", "1.219168277822001`"}], "}"}],
3691 StripOnInput->False,
3692 LineColor->Hue[0.3321881041832504],
3693 FrontFaceColor->Hue[0.3321881041832504],
3694 BackFaceColor->Hue[0.3321881041832504],
3695 GraphicsColor->Hue[0.3321881041832504],
3696 FontColor->Hue[0.3321881041832504]], ",",
3697 StyleBox[
3698 RowBox[{"{",
3699 RowBox[{"1.0078125`", ",", "1.2464638868201954`"}], "}"}],
3700 StripOnInput->False,
3701 LineColor->Hue[0.34242395755757327`],
3702 FrontFaceColor->Hue[0.34242395755757327`],
3703 BackFaceColor->Hue[0.34242395755757327`],
3704 GraphicsColor->Hue[0.34242395755757327`],
3705 FontColor->Hue[0.34242395755757327`]], ",",
3706 StyleBox[
3707 RowBox[{"{",
3708 RowBox[{"1.0234375`", ",", "1.2830186112760442`"}], "}"}],
3709 StripOnInput->False,
3710 LineColor->Hue[0.3561319792285166],
3711 FrontFaceColor->Hue[0.3561319792285166],
3712 BackFaceColor->Hue[0.3561319792285166],
3713 GraphicsColor->Hue[0.3561319792285166],
3714 FontColor->Hue[0.3561319792285166]], ",",
3715 StyleBox[
3716 RowBox[{"{",
3717 RowBox[{"1.0390625`", ",", "1.334382644433264`"}], "}"}],
3718 StripOnInput->False,
3719 LineColor->Hue[0.37539349166247404`],
3720 FrontFaceColor->Hue[0.37539349166247404`],
3721 BackFaceColor->Hue[0.37539349166247404`],
3722 GraphicsColor->Hue[0.37539349166247404`],
3723 FontColor->Hue[0.37539349166247404`]], ",",
3724 StyleBox[
3725 RowBox[{"{",
3726 RowBox[{"1.0546875`", ",", "1.4116395655217846`"}], "}"}],
3727 StripOnInput->False,
3728 LineColor->Hue[0.40436483707066917`],
3729 FrontFaceColor->Hue[0.40436483707066917`],
3730 BackFaceColor->Hue[0.40436483707066917`],
3731 GraphicsColor->Hue[0.40436483707066917`],
3732 FontColor->Hue[0.40436483707066917`]], ",",
3733 StyleBox[
3734 RowBox[{"{",
3735 RowBox[{"1.0703125`", ",", "1.5405397279535558`"}], "}"}],
3736 StripOnInput->False,
3737 LineColor->Hue[0.4527023979825834],
3738 FrontFaceColor->Hue[0.4527023979825834],
3739 BackFaceColor->Hue[0.4527023979825834],
3740 GraphicsColor->Hue[0.4527023979825834],
3741 FontColor->Hue[0.4527023979825834]], ",",
3742 StyleBox[
3743 RowBox[{"{",
3744 RowBox[{"1.0859375`", ",", "1.7973818496970773`"}], "}"}],
3745 StripOnInput->False,
3746 LineColor->Hue[0.549018193636404],
3747 FrontFaceColor->Hue[0.549018193636404],
3748 BackFaceColor->Hue[0.549018193636404],
3749 GraphicsColor->Hue[0.549018193636404],
3750 FontColor->Hue[0.549018193636404]], ",",
3751 StyleBox[
3752 RowBox[{"{",
3753 RowBox[{"1.1015625`", ",", "2.545844887664377`"}], "}"}],
3754 StripOnInput->False,
3755 LineColor->Hue[0.8296918328741414],
3756 FrontFaceColor->Hue[0.8296918328741414],
3757 BackFaceColor->Hue[0.8296918328741414],
3758 GraphicsColor->Hue[0.8296918328741414],
3759 FontColor->Hue[0.8296918328741414]]}], "}"}]], "Output",
3760 CellChangeTimes->{{3.708719164406589*^9, 3.7087192124840803`*^9}, {
3761 3.708719272687963*^9, 3.708719333757176*^9}, {3.708719419964313*^9,
3762 3.708719464204063*^9}, 3.7087195809768753`*^9, {3.708719729164742*^9,
3763 3.708719765385244*^9}, {3.708719860832692*^9, 3.70871988194841*^9},
3764 3.708719964359043*^9, 3.7087200804452457`*^9, 3.7087204113241653`*^9,
3765 3.708720444680757*^9, {3.70872050137816*^9, 3.708720599297099*^9}, {
3766 3.70872067938967*^9, 3.708720731252184*^9}, {3.708721587793214*^9,
3767 3.708721603510105*^9}, 3.708722377807382*^9, 3.708722828796598*^9,
3768 3.708723538707178*^9, 3.708723758336157*^9, 3.708869429705083*^9,
3769 3.7088695461696672`*^9, 3.708871055256262*^9, 3.709262053028285*^9,
3770 3.709264841171636*^9, 3.7092649110844793`*^9, 3.711812916234692*^9,
3771 3.71286502620045*^9, 3.7128681257140627`*^9, 3.71293114016813*^9,
3772 3.7129377993242207`*^9, 3.712964565203618*^9, 3.71323943080681*^9,
3773 3.718980616468231*^9, 3.71898206682342*^9, 3.7190260676030827`*^9,
3774 3.719121857235285*^9, 3.7197049955639143`*^9, {3.7197050540920973`*^9,
3775 3.719705096240081*^9}, 3.719705229245528*^9, 3.719705267990415*^9,
3776 3.719705481242876*^9, 3.7197055435294313`*^9, 3.719705590634597*^9,
3777 3.719705974513218*^9, 3.719776311762971*^9}],
3778
3779Cell[BoxData[
3780 GraphicsBox[{{{}, {},
3781 {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
3782 1.], LineBox[CompressedData["
37831:eJwV0ms01HkYB/AJG5MuErlPWJeyR7NisYWvpIaKTZfVKbdCt20laToSOhJZ
3784RWVNpuxpQiqqtedkc5lYtsSSLTuVURhbhjGM39+YcZ/Z2RfPec7nzfM9z3ke
3785m4MndsZq0Wi0IE3932tFFTo0mhgxtvSADww1Bjz9YbhAjBsi85bDGhtc+5hk
3786pyWGQJHvNGGlRuzGJWMBOmIcsedzFmtsUBwnvKYnhg73s76XhRqHo10ef7lc
3787DK3OgqMFJmoYiX8PZdmKwchJGncxUOOEtLE811+MF2Zb1hsuUKN/ufDn/lwx
3788POv7BJW9KrCLgn5hCcRIFFh68fgqHGihOYSYDuIRM6ssmqsC3aBqnHFwEFnl
3789wQ4WJ1UQ1DX3qMsGsVF3U3N+oAphF4SL71KDSB/bkXLHUoUNI0780fVD4NDb
3790ZRGyeXjVCLMD04bgt+pg9o7Geczeyb51tHUIxYWuyw7kzuOjjNNWtFSCzvqn
3791EaKweRj1/Jt8aqcE/kldDzKc5kEfZMYvLZKA3XaeJ6DmYLOnO50vkmD3QGS0
3792dt0clL0XhWu/GsbQS3eTtJQ52C6Kr/RPHMbXIc03Zn3mEM99evfH6mGUHjpd
37931Ko1h3P+tL59WlKwe7Nr4hpmUb6rzH0/SwpMpLy5nToLTmpQ56rrUvR68oUB
37947rPo2uoqy/ogxTkprFeNzsA7mb1a23oEdGZp0UTZDCJf1pb5HRvBjorpB217
3795Z1B6JmxTwa8jCM8rufdxyQzQ6hWVIx+BYd7ZvVebpnHDndG42XsUcDZy7Iyb
3796hqFeuO+K9FHsduSa1zOmsU1RpH23fRQxIUks4YspdF+wYHUby/CceW8o4fgU
3797ctiT9233ydChyy9cYzKFmQxBMLNUhnUfGGxu9SQuTy5d8Z1EhvI+HXlUxCQS
37989S+FGjqPae518gtLnUmYbdAScdljOB4SYG/FU6K/Q5jpVjeGgh/cWgZ8lXCF
3799sLpVi0Csev++4L0CuoGJz9LtCe5HiHwCTimQWbI2/QqLgL+NF2S+TIHPOZIj
3800Z48THAuMs43iTWCXwz+9JJdAJtpaZeoxgTvBz9iBTwhskpXqgSY5br5s7pB3
3801EZxvTC15HCxH6biqynFWM8/UziZcNI4rFR4N3tYU6k4YmJQfGkfWytuhPX4U
3802eG7Xr5nIKTh32ld2xFB4Etlfo0ij8JvFI6fibAopn8x01TQKLJNoN3UFhe+D
3803LssKLxH4RKpLCx9SePgi0Tw5k8D93i3jdY8oyOXbbcIzCOw8BMqYxxRiE9ob
3804rM8T0EI31/xVqclX6vqWnSGo5Tj6cKo0uVYng8oPEaxdOcJybqCAfv0ijj+B
3805fcSl6maNGaZS+0Q/AssyuzVRf1CgdGp/CvEl0HcPX5TfSCGe5jig70UwtKej
3806fepPCp9SvXtSXQmKCypDnrdQ4HDDusNtCbg925vCWynUMD1WfGtNcNVesm5S
380749fJCxyNGARpVTZGTm0U3n4T29dqRhD29vq7vFcU9rkczXddTrDLisla00HB
38086kxjyZJlBFtj2542afwugZ43uJjAU6HNVfxNweHyEeVNPQKmN4+e91qz74O0
3809hMSFBA4Xvc6ufkPBPyWzNUiHgPGqa7hR4/qFKbMOmr8wNj69f38nBZct0Xo0
3810GsF/Eitv3Q==
3811 "]]}}, {{}, {{{},
3812 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
3813 0.012833333333333334`], AbsoluteThickness[1.6],
3814 PointBox[CompressedData["
38151:eJxTTMoPSmViYGCQAWIQDQYHntr/mflY6UvVR3sw3+GZfcxLleL39VD+gWf2
3816l1Lfq21vhck/t4+oS0+J6YHJP7e/KRFw8/NkmPwLe+93D3OmzYHJv7D3DV+m
3817krQMJv/S/nHKP5/qjTD5l/YaO3f+4d0Hk39l/9eGSzTgDEz+lb1X7N+3zXdg
38188q/tn6fEfvv9Dib/2v5BVPxGeZZPUPk39uK2wVuLZKD8A2/sJ8q9WD3PAib/
38191j7BYdqnxkiY/Fv7Hgu3PtcGmPw7+5lrOWTq18Hk39lnRmxSTn8Gk39v3/sv
3820epmx9meo/Hv7p3wzZ2xrhPIVPtgfmXVDtuUjlJ/wwT6n4GerXfsXCH/BB/uT
3821vIvnLoz8CuE/+GB/rrYqTnjaN6j+j/bf/0T/4Vn2A6r/o33X99wK4UN/oPo/
38222neuWPnmcSyLAwDEnKqe
3823 "]]}, {}}, {
3824 {Hue[0.28469424353316664`, 1, 1], PointSize[0.012833333333333334`],
3825 AbsoluteThickness[1.6], PointBox[{{0.6796875, 1.092517982755111}}]},
3826 {Hue[0.28515033118080224`, 1, 1], PointSize[0.012833333333333334`],
3827 AbsoluteThickness[1.6],
3828 PointBox[{{0.6953125, 1.0937342164821393`}}]},
3829 {Hue[0.28567951396361096`, 1, 1], PointSize[0.012833333333333334`],
3830 AbsoluteThickness[1.6],
3831 PointBox[{{0.7109375, 1.0951453705696292`}}]},
3832 {Hue[0.2862879248395631, 1, 1], PointSize[0.012833333333333334`],
3833 AbsoluteThickness[1.6],
3834 PointBox[{{0.7265625, 1.0967677995721683`}}]},
3835 {Hue[0.2869829591077927, 1, 1], PointSize[0.012833333333333334`],
3836 AbsoluteThickness[1.6],
3837 PointBox[{{0.7421875, 1.0986212242874471`}}]},
3838 {Hue[0.2877735228499523, 1, 1], PointSize[0.012833333333333334`],
3839 AbsoluteThickness[1.6],
3840 PointBox[{{0.7578125, 1.1007293942665395`}}]},
3841 {Hue[0.28867035263651464`, 1, 1], PointSize[0.012833333333333334`],
3842 AbsoluteThickness[1.6], PointBox[{{0.7734375, 1.103120940364039}}]},
3843 {Hue[0.28968642977121317`, 1, 1], PointSize[0.012833333333333334`],
3844 AbsoluteThickness[1.6],
3845 PointBox[{{0.7890625, 1.1058304793899019`}}]},
3846 {Hue[0.29083752174696165`, 1, 1], PointSize[0.012833333333333334`],
3847 AbsoluteThickness[1.6],
3848 PointBox[{{0.8046875, 1.1089000579918977`}}]},
3849 {Hue[0.29214289743452304`, 1, 1], PointSize[0.012833333333333334`],
3850 AbsoluteThickness[1.6],
3851 PointBox[{{0.8203125, 1.1123810598253947`}}]},
3852 {Hue[0.29362628328107027`, 1, 1], PointSize[0.012833333333333334`],
3853 AbsoluteThickness[1.6],
3854 PointBox[{{0.8359375, 1.1163367554161874`}}]},
3855 {Hue[0.29531715954396065`, 1, 1], PointSize[0.012833333333333334`],
3856 AbsoluteThickness[1.6],
3857 PointBox[{{0.8515625, 1.1208457587838951`}}]},
3858 {Hue[0.2972525451879209, 1, 1], PointSize[0.012833333333333334`],
3859 AbsoluteThickness[1.6], PointBox[{{0.8671875, 1.126006787167789}}]},
3860 {Hue[0.2994794994478359, 1, 1], PointSize[0.012833333333333334`],
3861 AbsoluteThickness[1.6],
3862 PointBox[{{0.8828125, 1.1319453318608959`}}]},
3863 {Hue[0.3020586984791557, 1, 1], PointSize[0.012833333333333334`],
3864 AbsoluteThickness[1.6], PointBox[{{0.8984375, 1.138823195944415}}]},
3865 {Hue[0.3050696662444432, 1, 1], PointSize[0.012833333333333334`],
3866 AbsoluteThickness[1.6],
3867 PointBox[{{0.9140625, 1.1468524433185152`}}]},
3868 {Hue[0.30861862507783855`, 1, 1], PointSize[0.012833333333333334`],
3869 AbsoluteThickness[1.6],
3870 PointBox[{{0.9296875, 1.1563163335409028`}}]},
3871 {Hue[0.3128506336834732, 1, 1], PointSize[0.012833333333333334`],
3872 AbsoluteThickness[1.6],
3873 PointBox[{{0.9453125, 1.1676016898225952`}}]},
3874 {Hue[0.3179690144443813, 1, 1], PointSize[0.012833333333333334`],
3875 AbsoluteThickness[1.6],
3876 PointBox[{{0.9609375, 1.1812507051850167`}}]},
3877 {Hue[0.32426773900075756`, 1, 1], PointSize[0.012833333333333334`],
3878 AbsoluteThickness[1.6], PointBox[{{0.9765625, 1.19804730400202}}]},
3879 {Hue[0.3321881041832504, 1, 1], PointSize[0.012833333333333334`],
3880 AbsoluteThickness[1.6], PointBox[{{0.9921875, 1.219168277822001}}]},
3881 {Hue[0.34242395755757327`, 1, 1], PointSize[0.012833333333333334`],
3882 AbsoluteThickness[1.6],
3883 PointBox[{{1.0078125, 1.2464638868201954`}}]},
3884 {Hue[0.3561319792285166, 1, 1], PointSize[0.012833333333333334`],
3885 AbsoluteThickness[1.6],
3886 PointBox[{{1.0234375, 1.2830186112760442`}}]},
3887 {Hue[0.37539349166247404`, 1, 1], PointSize[0.012833333333333334`],
3888 AbsoluteThickness[1.6], PointBox[{{1.0390625, 1.334382644433264}}]},
3889 {Hue[0.40436483707066917`, 1, 1], PointSize[0.012833333333333334`],
3890 AbsoluteThickness[1.6],
3891 PointBox[{{1.0546875, 1.4116395655217846`}}]},
3892 {Hue[0.4527023979825834, 1, 1], PointSize[0.012833333333333334`],
3893 AbsoluteThickness[1.6],
3894 PointBox[{{1.0703125, 1.5405397279535558`}}]},
3895 {Hue[0.549018193636404, 1, 1], PointSize[0.012833333333333334`],
3896 AbsoluteThickness[1.6],
3897 PointBox[{{1.0859375, 1.7973818496970773`}}]},
3898 {Hue[0.8296918328741414, 1, 1], PointSize[0.012833333333333334`],
3899 AbsoluteThickness[1.6],
3900 PointBox[{{1.1015625, 2.545844887664377}}]}}}, {}}},
3901 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
3902 Axes->{True, True},
3903 AxesLabel->{None, None},
3904 AxesOrigin->{0.7000000000000001, 0.9500000000000001},
3905 DisplayFunction->Identity,
3906 Frame->{{False, False}, {False, False}},
3907 FrameLabel->{{None, None}, {None, None}},
3908 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
3909 GridLines->NCache[{{{
3910 Rational[11, 16],
3911 Thickness[Large]}, {
3912 Rational[49, 64],
3913 RGBColor[0, 0, 1]}, {1,
3914 RGBColor[1, 0.5, 0]}, {1.1125276792559537`,
3915 RGBColor[0, 1, 0]}}, {{1.2397783001618599`,
3916 RGBColor[0, 1, 1]}, {1.137042892629939,
3917 RGBColor[0, 1, 1]}, {1.5003432045110259`,
3918 RGBColor[1, 0, 0]}, {3.015323228152034,
3919 RGBColor[1, 0, 0]}}}, {{{0.6875,
3920 Thickness[Large]}, {0.765625,
3921 RGBColor[0, 0, 1]}, {1,
3922 RGBColor[1, 0.5, 0]}, {1.1125276792559537`,
3923 RGBColor[0, 1, 0]}}, {{1.2397783001618599`,
3924 RGBColor[0, 1, 1]}, {1.137042892629939,
3925 RGBColor[0, 1, 1]}, {1.5003432045110259`,
3926 RGBColor[1, 0, 0]}, {3.015323228152034,
3927 RGBColor[1, 0, 0]}}}],
3928 GridLinesStyle->Directive[
3929 Dashing[{Small, Small}]],
3930 Method->{
3931 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" ->
3932 AbsolutePointSize[6], "ScalingFunctions" -> None},
3933 PlotRange->NCache[{{
3934 Rational[43, 64], 1.1281526792559537`}, {1, 3}}, {{0.671875,
3935 1.1281526792559537`}, {1, 3}}],
3936 PlotRangeClipping->True,
3937 PlotRangePadding->{{
3938 Scaled[0.02],
3939 Scaled[0.02]}, {
3940 Scaled[0.05],
3941 Scaled[0.05]}},
3942 Ticks->{Automatic, Automatic}]], "Output",
3943 CellChangeTimes->{{3.708719164406589*^9, 3.7087192124840803`*^9}, {
3944 3.708719272687963*^9, 3.708719333757176*^9}, {3.708719419964313*^9,
3945 3.708719464204063*^9}, 3.7087195809768753`*^9, {3.708719729164742*^9,
3946 3.708719765385244*^9}, {3.708719860832692*^9, 3.70871988194841*^9},
3947 3.708719964359043*^9, 3.7087200804452457`*^9, 3.7087204113241653`*^9,
3948 3.708720444680757*^9, {3.70872050137816*^9, 3.708720599297099*^9}, {
3949 3.70872067938967*^9, 3.708720731252184*^9}, {3.708721587793214*^9,
3950 3.708721603510105*^9}, 3.708722377807382*^9, 3.708722828796598*^9,
3951 3.708723538707178*^9, 3.708723758336157*^9, 3.708869429705083*^9,
3952 3.7088695461696672`*^9, 3.708871055256262*^9, 3.709262053028285*^9,
3953 3.709264841171636*^9, 3.7092649110844793`*^9, 3.711812916234692*^9,
3954 3.71286502620045*^9, 3.7128681257140627`*^9, 3.71293114016813*^9,
3955 3.7129377993242207`*^9, 3.712964565203618*^9, 3.71323943080681*^9,
3956 3.718980616468231*^9, 3.71898206682342*^9, 3.7190260676030827`*^9,
3957 3.719121857235285*^9, 3.7197049955639143`*^9, {3.7197050540920973`*^9,
3958 3.719705096240081*^9}, 3.719705229245528*^9, 3.719705267990415*^9,
3959 3.719705481242876*^9, 3.7197055435294313`*^9, 3.719705590634597*^9,
3960 3.719705974513218*^9, 3.7197763118256817`*^9}]
3961}, Open ]]
3962}, Open ]]
3963},
3964WindowSize->{808, 751},
3965WindowMargins->{{4, Automatic}, {Automatic, 4}},
3966FrontEndVersion->"10.1 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 23, \
39672015)",
3968StyleDefinitions->"Default.nb"
3969]
3970(* End of Notebook Content *)
3971
3972(* Internal cache information *)
3973(*CellTagsOutline
3974CellTagsIndex->{}
3975*)
3976(*CellTagsIndex
3977CellTagsIndex->{}
3978*)
3979(*NotebookFileOutline
3980Notebook[{
3981Cell[558, 20, 246, 4, 62, "Input"],
3982Cell[CellGroupData[{
3983Cell[829, 28, 99, 1, 35, "Subsubsection"],
3984Cell[931, 31, 2701, 73, 223, "Input"]
3985}, Open ]],
3986Cell[CellGroupData[{
3987Cell[3669, 109, 155, 2, 35, "Subsubsection"],
3988Cell[CellGroupData[{
3989Cell[3849, 115, 13156, 242, 466, "Input"],
3990Cell[17008, 359, 831, 12, 28, "Output"]
3991}, Open ]]
3992}, Open ]],
3993Cell[CellGroupData[{
3994Cell[17888, 377, 112, 1, 35, "Subsubsection"],
3995Cell[CellGroupData[{
3996Cell[18025, 382, 3407, 69, 168, "Input"],
3997Cell[21435, 453, 1305, 18, 28, "Output"],
3998Cell[22743, 473, 1325, 19, 28, "Output"]
3999}, Open ]]
4000}, Open ]],
4001Cell[CellGroupData[{
4002Cell[24117, 498, 89, 1, 35, "Subsubsection"],
4003Cell[24209, 501, 1991, 70, 200, "Input"]
4004}, Open ]],
4005Cell[CellGroupData[{
4006Cell[26237, 576, 177, 2, 35, "Subsubsection"],
4007Cell[CellGroupData[{
4008Cell[26439, 582, 2359, 42, 147, "Input"],
4009Cell[28801, 626, 1046, 14, 32, "Output"],
4010Cell[29850, 642, 1044, 14, 28, "Output"]
4011}, Open ]]
4012}, Open ]],
4013Cell[CellGroupData[{
4014Cell[30943, 662, 110, 1, 35, "Subsubsection"],
4015Cell[CellGroupData[{
4016Cell[31078, 667, 7849, 182, 386, "Input"],
4017Cell[38930, 851, 38498, 705, 236, "Output"]
4018}, Open ]]
4019}, Open ]],
4020Cell[CellGroupData[{
4021Cell[77477, 1562, 111, 1, 35, "Subsubsection"],
4022Cell[CellGroupData[{
4023Cell[77613, 1567, 3671, 104, 284, "Input"],
4024Cell[81287, 1673, 27451, 455, 242, "Output"],
4025Cell[108741, 2130, 3180, 44, 28, "Output"],
4026Cell[111924, 2176, 4478, 77, 239, "Output"]
4027}, Open ]]
4028}, Open ]],
4029Cell[CellGroupData[{
4030Cell[116451, 2259, 162, 2, 35, "Subsubsection"],
4031Cell[CellGroupData[{
4032Cell[116638, 2265, 888, 27, 72, "Input"],
4033Cell[117529, 2294, 45774, 824, 236, "Output"]
4034}, Open ]]
4035}, Open ]],
4036Cell[CellGroupData[{
4037Cell[163352, 3124, 160, 2, 35, "Subsubsection"],
4038Cell[CellGroupData[{
4039Cell[163537, 3130, 1094, 31, 100, "Input"],
4040Cell[164634, 3163, 1935, 27, 28, "Output"],
4041Cell[166572, 3192, 1940, 28, 48, "Output"],
4042Cell[168515, 3222, 1940, 28, 48, "Output"]
4043}, Open ]],
4044Cell[CellGroupData[{
4045Cell[170492, 3255, 183, 3, 46, "Input"],
4046Cell[170678, 3260, 445, 7, 28, "Output"],
4047Cell[171126, 3269, 444, 7, 28, "Output"]
4048}, Open ]]
4049}, Open ]],
4050Cell[CellGroupData[{
4051Cell[171619, 3282, 106, 1, 35, "Subsubsection"],
4052Cell[CellGroupData[{
4053Cell[171750, 3287, 1722, 28, 89, "Input"],
4054Cell[173475, 3317, 1966, 28, 28, "Output"],
4055Cell[175444, 3347, 1951, 27, 28, "Output"]
4056}, Open ]]
4057}, Open ]],
4058Cell[CellGroupData[{
4059Cell[177444, 3380, 130, 1, 35, "Subsubsection"],
4060Cell[CellGroupData[{
4061Cell[177599, 3385, 4352, 117, 285, "Input"],
4062Cell[181954, 3504, 10966, 272, 131, "Output"],
4063Cell[192923, 3778, 9783, 181, 282, "Output"]
4064}, Open ]]
4065}, Open ]]
4066}
4067]
4068*)
4069
4070(* End of internal cache information *)