-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathchannel_mobility.nb
3322 lines (3245 loc) · 156 KB
/
channel_mobility.nb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 11.3' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 159714, 3314]
NotebookOptionsPosition[ 154534, 3231]
NotebookOutlinePosition[ 154872, 3246]
CellTagsIndexPosition[ 154829, 3243]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
RowBox[{
RowBox[{"cn", "=", "0.6452124576429801"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"ct", "=", "0.635779246332329"}], ";"}], "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{
RowBox[{"cn", "=", "0"}], ";", "\[IndentingNewLine]",
RowBox[{"ct", "=", "0"}], ";"}], "*)"}], "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{"Remove", "[",
RowBox[{"cn", ",", "ct"}], "]"}], "*)"}], "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{
RowBox[{"cn", "=", "0"}], ";"}], "*)"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"infplaneN", "[",
RowBox[{"z_", ",", "a_"}], "]"}], "=",
RowBox[{"1", "-",
FractionBox["9",
RowBox[{"8",
RowBox[{"(",
RowBox[{
FractionBox["z", "a"], "+", "cn"}], ")"}]}]], "+",
FractionBox["1",
RowBox[{"2",
SuperscriptBox[
RowBox[{"(",
RowBox[{
FractionBox["z", "a"], "+", "cn"}], ")"}], "3"]}]], "-",
FractionBox["1",
RowBox[{"8",
SuperscriptBox[
RowBox[{"(",
RowBox[{
FractionBox["z", "a"], "+", "cn"}], ")"}], "5"]}]]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"infplaneT", "[",
RowBox[{"z_", ",", "a_"}], "]"}], "=",
RowBox[{"1", "-",
FractionBox["9",
RowBox[{"16",
RowBox[{"(",
RowBox[{
FractionBox["z", "a"], "+", "ct"}], ")"}]}]], "+",
FractionBox["2",
RowBox[{"16",
SuperscriptBox[
RowBox[{"(",
RowBox[{
FractionBox["z", "a"], "+", "ct"}], ")"}], "3"]}]], "-",
FractionBox["1",
RowBox[{"16",
SuperscriptBox[
RowBox[{"(",
RowBox[{
FractionBox["z", "a"], "+", "ct"}], ")"}], "5"]}]]}]}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"MCSAN", "[",
RowBox[{"z_", ",", "a_", ",", "LL_"}], "]"}], "=",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"Sum", "[",
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"-", "1"}], ")"}], "n"],
RowBox[{"(",
RowBox[{
FractionBox["1",
RowBox[{
RowBox[{"infplaneN", "[",
RowBox[{"z", ",", "a"}], "]"}],
RowBox[{"(",
RowBox[{
RowBox[{"n", " ",
FractionBox["LL", "a"]}], " ", "+",
RowBox[{"(",
FractionBox["z", "a"], ")"}]}], ")"}]}]], "-", "1"}], ")"}]}],
",",
RowBox[{"{",
RowBox[{"n", ",", "0", ",", "5"}], "}"}]}], "]"}], "+",
RowBox[{"Sum", "[",
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"-", "1"}], ")"}], "n"],
RowBox[{"(",
RowBox[{
FractionBox["1",
RowBox[{
RowBox[{"infplaneN", "[",
RowBox[{"z", ",", "a"}], "]"}],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"n", "+", "1"}], ")"}], " ",
FractionBox["LL", "a"]}], " ", "-",
RowBox[{"(",
FractionBox["z", "a"], ")"}]}], ")"}]}]], "-", "1"}], ")"}]}],
",",
RowBox[{"{",
RowBox[{"n", ",", "0", ",", "5"}], "}"}]}], "]"}]}], ")"}],
RowBox[{"-", "1"}]]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"MCSAT", "[",
RowBox[{"z_", ",", "a_", ",", "LL_"}], "]"}], "=",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"Sum", "[",
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"-", "1"}], ")"}], "n"],
RowBox[{"(",
RowBox[{
FractionBox["1",
RowBox[{
RowBox[{"infplaneT", "[",
RowBox[{"z", ",", "a"}], "]"}],
RowBox[{"(",
RowBox[{
RowBox[{"n", " ",
FractionBox["LL", "a"]}], " ", "+",
RowBox[{"(",
FractionBox["z", "a"], ")"}]}], ")"}]}]], "-", "1"}], ")"}]}],
",",
RowBox[{"{",
RowBox[{"n", ",", "0", ",", "5"}], "}"}]}], "]"}], "+",
RowBox[{"Sum", "[",
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"-", "1"}], ")"}], "n"],
RowBox[{"(",
RowBox[{
FractionBox["1",
RowBox[{
RowBox[{"infplaneT", "[",
RowBox[{"z", ",", "a"}], "]"}],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"n", "+", "1"}], ")"}], " ",
FractionBox["LL", "a"]}], " ", "-",
RowBox[{"(",
FractionBox["z", "a"], ")"}]}], ")"}]}]], "-", "1"}], ")"}]}],
",",
RowBox[{"{",
RowBox[{"n", ",", "0", ",", "5"}], "}"}]}], "]"}]}], ")"}],
RowBox[{"-", "1"}]]}], ";"}]}], "Input",
CellChangeTimes->{{3.811455429259741*^9, 3.811455446216917*^9}, {
3.811455507152445*^9, 3.811455509232451*^9}, {3.8114555435545807`*^9,
3.811455675783544*^9}, {3.811455736544202*^9, 3.8114557436464376`*^9}, {
3.8114559515617447`*^9, 3.811455955319701*^9}, {3.8114559950151176`*^9,
3.811456007687305*^9}, {3.811456143184099*^9, 3.811456198781674*^9}, {
3.8272537474615927`*^9, 3.827253747797418*^9}, {3.827253798709461*^9,
3.827253846149357*^9}, {3.827253877388769*^9, 3.827254073373932*^9}, {
3.827254123651622*^9, 3.827254138581278*^9}, {3.827254889888237*^9,
3.827254915288109*^9}, {3.827255195674251*^9, 3.827255228641636*^9}, {
3.827255363467864*^9, 3.827255369762867*^9}, 3.827262228939938*^9, {
3.8272622744873457`*^9, 3.827262322470293*^9}, {3.8272624084611273`*^9,
3.827262410836513*^9}, 3.827262683053616*^9, {3.827263270719962*^9,
3.827263274463214*^9}, {3.827263341672544*^9, 3.827263358015877*^9}, {
3.827263477408592*^9, 3.827263544168985*^9}, {3.827263576873521*^9,
3.827263622880794*^9}, {3.82726382897425*^9, 3.8272638365781927`*^9}, {
3.827263918411029*^9, 3.827263926762594*^9}, {3.827263964611362*^9,
3.8272639991412086`*^9}, {3.8272640524194593`*^9, 3.827264054747449*^9}, {
3.827266664613055*^9, 3.827266679063089*^9}, {3.827266804255969*^9,
3.827266813831111*^9}, {3.827266844223847*^9, 3.827266846583179*^9}, {
3.827266919168455*^9, 3.827266981705907*^9}, {3.827267070610828*^9,
3.827267073104547*^9}, {3.8272671612205467`*^9, 3.827267198361011*^9}, {
3.827268020691959*^9, 3.827268032708436*^9}, 3.827268157104458*^9, {
3.827323273842945*^9, 3.8273232795452538`*^9}, {3.827323321910631*^9,
3.827323341247208*^9}, {3.8273239765154753`*^9, 3.827323993294463*^9}, {
3.827324040113718*^9, 3.827324050498468*^9}, {3.827324099426931*^9,
3.827324103735475*^9}, {3.8285648179386263`*^9, 3.828564822104892*^9}, {
3.8286449435265827`*^9, 3.828644964385296*^9}},
CellLabel->"In[41]:=",ExpressionUUID->"94f9489b-e2da-420e-b7d8-c7376510efe4"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"MCSAN", "[",
RowBox[{
RowBox[{"1", "*",
SuperscriptBox["10",
RowBox[{"-", "7"}]]}], ",", "a0", ",", "width"}], " ",
"]"}], "\[IndentingNewLine]",
RowBox[{"MCSAT", "[",
RowBox[{
RowBox[{"1", "*",
SuperscriptBox["10",
RowBox[{"-", "7"}]]}], ",", "a0", ",", "width"}], " ",
"]"}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.827254798942917*^9, 3.8272548011749496`*^9}, {
3.827254919842875*^9, 3.8272549199994926`*^9}, {3.82725524489736*^9,
3.827255254353518*^9}, {3.8272553869072523`*^9, 3.827255395315441*^9},
3.827262269252479*^9, 3.827262388094975*^9, {3.827262427389717*^9,
3.827262438797532*^9}, {3.827263310527309*^9, 3.8272633145035343`*^9}, {
3.82726336520761*^9, 3.827263384936034*^9}, 3.827263670033272*^9, {
3.827264008323303*^9, 3.827264039227132*^9}, {3.827266883943671*^9,
3.8272669111137753`*^9}, {3.8285648408722363`*^9, 3.828564868023861*^9}},
CellLabel->"In[39]:=",ExpressionUUID->"b04a81eb-2cc0-40fd-8440-df3f0dc2297c"],
Cell[BoxData["0.8674136921574905`"], "Output",
CellChangeTimes->{
3.8272548017600937`*^9, {3.827255235878121*^9, 3.827255254960102*^9}, {
3.827255380169066*^9, 3.827255399616816*^9}, {3.82726228580459*^9,
3.8272623255442953`*^9}, {3.8272623884303503`*^9, 3.827262439474312*^9},
3.8272626861772223`*^9, 3.827263278781026*^9, 3.827263311622541*^9, {
3.827263362275421*^9, 3.827263385760252*^9}, 3.8272634835662403`*^9,
3.827263597222661*^9, 3.827263627867552*^9, 3.827263670163622*^9,
3.827263839095401*^9, {3.827264008440645*^9, 3.827264039597633*^9},
3.827266851896253*^9, {3.827266885108963*^9, 3.827266935398692*^9},
3.8272669844700603`*^9, 3.828564869063285*^9},
CellLabel->"Out[39]=",ExpressionUUID->"36c31632-077e-4ef9-a1d0-8959f2f0e268"],
Cell[BoxData["0.8764019083419519`"], "Output",
CellChangeTimes->{
3.8272548017600937`*^9, {3.827255235878121*^9, 3.827255254960102*^9}, {
3.827255380169066*^9, 3.827255399616816*^9}, {3.82726228580459*^9,
3.8272623255442953`*^9}, {3.8272623884303503`*^9, 3.827262439474312*^9},
3.8272626861772223`*^9, 3.827263278781026*^9, 3.827263311622541*^9, {
3.827263362275421*^9, 3.827263385760252*^9}, 3.8272634835662403`*^9,
3.827263597222661*^9, 3.827263627867552*^9, 3.827263670163622*^9,
3.827263839095401*^9, {3.827264008440645*^9, 3.827264039597633*^9},
3.827266851896253*^9, {3.827266885108963*^9, 3.827266935398692*^9},
3.8272669844700603`*^9, 3.828564869066695*^9},
CellLabel->"Out[40]=",ExpressionUUID->"9d29b6b1-71f6-4fa4-b122-e588adce3337"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"width", " ", "=", " ",
RowBox[{"6.53", "*",
SuperscriptBox["10",
RowBox[{"-", "7"}]]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"L", "=",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"1", "/", "2"}], ",",
RowBox[{"1", "/", "4"}], ",",
RowBox[{"1", "/", "8"}], ",",
RowBox[{"1", "/", "16"}], ",",
RowBox[{"1", "/", "32"}], ",",
RowBox[{"1", "/", "64"}], ",",
RowBox[{"1", "/", "128"}], ",",
RowBox[{"1", "/", "256"}], ",", "0"}], "}"}], "*", "width"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"a0", "=",
RowBox[{"1.29", "*",
SuperscriptBox["10",
RowBox[{"-", "8"}]]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{"mob0", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"L", "[",
RowBox[{"[", "ii", "]"}], "]"}], ",",
RowBox[{"MCSAN", "[",
RowBox[{
RowBox[{"L", "[",
RowBox[{"[", "ii", "]"}], "]"}], ",", "a0", ",", "width"}], "]"}]}],
"}"}], ",",
RowBox[{"{",
RowBox[{"ii", ",", "1", ",",
RowBox[{"Length", "[", "L", "]"}]}], "}"}]}],
"]"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"fitfunc0", "=",
RowBox[{"aa", "+",
RowBox[{"bb",
FractionBox["1",
RowBox[{"(",
RowBox[{
FractionBox["x", "a0"], "+", "ctf"}], ")"}]]}], "+",
RowBox[{"cc",
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
FractionBox["x", "a0"], "+", "ctf"}], ")"}], "3"]]}], "+",
RowBox[{"dd",
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
FractionBox["x", "a0"], "+", "ctf"}], ")"}], "5"]]}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"fit0", "[", "x_", "]"}], "=",
RowBox[{"fitfunc0", "/.", " ",
RowBox[{"FindFit", "[", " ",
RowBox[{"mob0", ",", "fitfunc0", ",",
RowBox[{"{",
RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd", ",", "ctf"}], "}"}], ",",
"x"}], "]"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"p1", "=",
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"fit0", "[", "x", "]"}], ",",
RowBox[{"MCSAN", "[",
RowBox[{"x", ",", "a0", ",", "width"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", ",", "0", ",",
RowBox[{"0.5", "width"}]}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"p2", "=",
RowBox[{"ListPlot", "[", "mob0", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{"Show", "[",
RowBox[{"p1", ",", "p2"}], "]"}]}], "Input",
CellChangeTimes->{{3.827268812783227*^9, 3.827268842391882*^9}, {
3.827322855889412*^9, 3.827322892762216*^9}, {3.827322923073464*^9,
3.8273229938597307`*^9}, {3.82732302601009*^9, 3.8273230513745813`*^9}, {
3.827323086943204*^9, 3.8273231805618467`*^9}, {3.8273232171364813`*^9,
3.827323256128448*^9}, {3.827323291577174*^9, 3.827323291694508*^9}, {
3.827323735758873*^9, 3.827323949590185*^9}, {3.8273241207988663`*^9,
3.8273241667549763`*^9}, {3.827324215857533*^9, 3.827324324387941*^9}},
CellLabel->"In[47]:=",ExpressionUUID->"b505cad7-9200-4e87-a737-729bbbbde5a0"],
Cell[BoxData[
TemplateBox[{
"Power","infy",
"\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,50,3,16656177925788115164,"Local"},
"MessageTemplate"]], "Message", "MSG",
CellChangeTimes->{3.827324325107183*^9, 3.827334378925128*^9,
3.827334719477652*^9, 3.8273352963184843`*^9, 3.8273353328518476`*^9,
3.8273353668337593`*^9, 3.8285644191451473`*^9, 3.828644975952407*^9},
CellLabel->
"During evaluation of \
In[47]:=",ExpressionUUID->"66d74eb9-530f-4bd7-8bad-577304c1b937"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"3.265`*^-7", ",", "0.9421043014214118`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.6325`*^-7", ",", "0.9155170038275593`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"8.1625`*^-8", ",", "0.8409505021371599`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"4.08125`*^-8", ",", "0.6938526549415817`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2.040625`*^-8", ",", "0.4605873706114608`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.0203125`*^-8", ",", "0.2244011284313122`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5.1015625`*^-9", ",", "0.09340176846310269`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2.55078125`*^-9", ",", "0.0392481714938876`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.`", ",", "0"}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{{3.827323028874057*^9, 3.827323051906082*^9}, {
3.8273230954771347`*^9, 3.827323113163554*^9}, 3.827323181337311*^9, {
3.82732325678792*^9, 3.8273233086189337`*^9}, {3.827323736552369*^9,
3.827323757835012*^9}, {3.827323789075142*^9, 3.827323832326799*^9}, {
3.827323868894788*^9, 3.827323950162839*^9}, {3.82732410918575*^9,
3.827324167133129*^9}, {3.82732423695471*^9, 3.827324325155188*^9},
3.827334378985344*^9, 3.827334719528338*^9, 3.8273352963644342`*^9,
3.8273353328940163`*^9, 3.827335366885714*^9, 3.828564419155312*^9,
3.828644975988689*^9},
CellLabel->"Out[50]=",ExpressionUUID->"46a9a363-c953-49d9-be85-2d120a52bce0"],
Cell[BoxData[
RowBox[{"0.969255379751814`", "\[VeryThinSpace]", "+",
FractionBox["163.29898320660382`",
SuperscriptBox[
RowBox[{"(",
RowBox[{"2.7045884373271436`", "\[VeryThinSpace]", "+",
RowBox[{"7.751937984496123`*^7", " ", "x"}]}], ")"}], "5"]], "-",
FractionBox["36.291193098485245`",
SuperscriptBox[
RowBox[{"(",
RowBox[{"2.7045884373271436`", "\[VeryThinSpace]", "+",
RowBox[{"7.751937984496123`*^7", " ", "x"}]}], ")"}], "3"]], "-",
FractionBox["0.7064170342375157`",
RowBox[{"2.7045884373271436`", "\[VeryThinSpace]", "+",
RowBox[{"7.751937984496123`*^7", " ", "x"}]}]]}]], "Output",
CellChangeTimes->{{3.827323028874057*^9, 3.827323051906082*^9}, {
3.8273230954771347`*^9, 3.827323113163554*^9}, 3.827323181337311*^9, {
3.82732325678792*^9, 3.8273233086189337`*^9}, {3.827323736552369*^9,
3.827323757835012*^9}, {3.827323789075142*^9, 3.827323832326799*^9}, {
3.827323868894788*^9, 3.827323950162839*^9}, {3.82732410918575*^9,
3.827324167133129*^9}, {3.82732423695471*^9, 3.827324325155188*^9},
3.827334378985344*^9, 3.827334719528338*^9, 3.8273352963644342`*^9,
3.8273353328940163`*^9, 3.827335366885714*^9, 3.828564419155312*^9,
3.828644975990411*^9},
CellLabel->"Out[52]=",ExpressionUUID->"0eccfd69-4234-4eff-b872-eac5c3e56b26"],
Cell[BoxData[
GraphicsBox[{{{{}, {},
TagBox[
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6],
Opacity[1.], LineBox[CompressedData["
1:eJwVznc8FIwfB/DLk1BKj1lWEUeUlNElvl9lVFaeCyUNIzN7q+jsjGSdIpGR
9URSSSUpGUVDSvY+5467EOGh/O73x+f1eb3/+nxk7L3IjlwEAqGFk/93Ammx
lcT1R5tg0ST+SMQOG95FyS7E9OoQpgu9jlpdwI69QtIvYiZ1CJVkUUMLF7Rf
9bH8XTinQ6i5WFTN54G9jj0Sd2KWdQhRxDBnkg8qOcn4SKuvAcJYbcSvQ/7o
lGlpwS5cCwRpeePWnCDMb4vbXyfCC4RSYzltk8s4uPpSPClmAxC8E/dWHbmK
kmqzv88ubALCDWNfi+Zw3KWWNi2q/jcQlB/VWglEoYtTc8d4oTAQJi/f1OCN
w3UUu0azs6JACC4seledgIWZy9XVIluAEOu3+0R0Eg637cmKiZEASn0D3zpM
Rcr4uwQ2SAGF19NmS0caShMuhFotSAOh0iRYPICK5VtNVIXUZUC3zesn3/At
ZJhQhEYL5WBofVArD/Eu1lib8ouFywNlpfMORSYPrzmJcxufJYJuyR19Tdl8
JFIe/6oSUQSKsqttxr5CtH800R0RowyEXIHNCvEluLf+yZdq+11wlyZGDykr
RcKHiFYm7Ia7B6wEiz+WYe645EvyggpQoo0D5mXKkZ2oaP63+l6oHFwiqS5W
olL9GbXhQnXwdr/f/YanGvOJjUuUmINQU9NNK3Cqx+zH/p/7fx8EUn7HE7em
esw4LFesFaAN5sdN6GeJrzH+XKTFnIMOTMzwlDwZf41+GYceOB9CKHkZW1Hi
0oCyf53fpxB2CGruusSs8WzCWd9e+sYDBkD4oRz4xrkNfxxQO1HrbwDe96fK
mY1tOEVIqHOrNIBbOQzp3h0fcDxJi9qsYAhdmQr8mwY/YE9Z5uFw0SNQwndM
OIX8Cd+MnLwz9/MoCJYVKviItmMq+Su5t8IEiIVBc8yODlSqStenjpvA+ljS
97TlDnzzt6XmcWlTOEoLdBbb8RVnP3/b2nDdFDqPzP0u9/mK5OPfh8rczcBW
vypSZOM35CN67NcRMQeXRxHTNdqd+E7Wu5G/4x+oXauiwHO1C6lk8zoG+x+w
SPv4djSvC+0iVJ82rScDZbZhPvNtFy4NT5dQDpNBu577aBpfN+7M80mce0gG
raCIMy9SujFum9+JvuQTQLkxbTeT1YPHJAOH/zWzBFUn2yu3UvpQl1nKXnG1
hCvbDU+THvShZk3/smm0JZgbHVOsbutDOQsD0ekXlpCqsbzBhKcf/yQIG6vv
tIK+5tN6Y5f6sWq56nHtXyfhStyfh8M2Ayje+yP2Q80pUFSo8ljiGsLNpTuo
0l9PwaL8T75mgSHkCTqZ7/XjFHgN5BZESw7hnOCr2r+J1qC5N0ewU2MIPxol
zVimWUN1Cs/TRuchjHy+y2bA4zTUeS19ZbcM4VSmq8oP2TMwqJPv1k8ZxubS
PbPJumdA24TXuSdxGPOfzT/Zd+4MtEq47m65NYzW3eE6gZln4Eubvltg5TA2
bcky+S1wFsaD/xvcNjiMuTffu234fRYibkaerzkwgmSqcrHC9/NQ0tC8cG1s
BHffm3F7N3ce4qnp9xvZIxjVY3NTg88WShJOZc4vjqAtU8bmO9EWbuYrO+zZ
OIqi6ytGxO1tQcuAq4JfYxQjjjXN5HXZgjOJei00YhTPtPwSqGy0Az/jmQ0P
hMfQ+5dfR2SHHYStj60akBzDaLmZjJPDHLfrreeWH8MKyqTU6oodjCoRVzU0
xnCVNKRspm4PsgkFp5QsxzC/9N2RqXx7+NQ15uicNob0+OyrihQHcBhoDovi
o+FKzVa9lesO4FLjapK3mYab6RnrPt92AG0XJ+1qMRqS9FKuBz11AJZaUnmL
PA3jl6NvN7EdIIaiuph8iIa73L2eXjh7ASJGByVqgmjoa3r4x10tR0gk0Lfd
G6BhcDbvpjvHHMH2nYXuORoNr05+3JV5yhHeNrxMFpiiYWKcjVtKoCPcSzNh
n16iYXGjPy28yhE0X4l/oQqNY59Oca+9khOs/SRedc9wHI+o8LfIiTuDp76j
RGDxOJqFfhnfvtMZQrjDHxwrH0eLtlvcUiRniB61eC76aBzt3eT1RKycofj2
xKk7deN4pQjquFOdYcnox9Oz38axStrn8TifC3Q+d66vWkNHSYHOuyVLLiCO
lQYMSzqSdje9O8frCtrmLR1jp+loYVw9KyzmCpIPjon1nqdjYmyGfri6K3QS
hXqfutJxZdVqwtrLFUjW8hJqoXTsnf6+ZwPNFRbahKI1C+iY9aW7zuOzGyQP
fJXOnaSjWEZ/375id+hSmJo96jWBp3uc6ZOP3SHV98+1Yd8JzJaenSl84w4S
P50+BQZOoGzxOh6xAXcgO/GE3gydwF01e/YuC3vAuXxmy8OECTzcEx7dEOEB
9pOZV0yLJ9Bdmqhicc4TnPiK+A/2TaDdiaevnq/3BsM3fQ/u6zBwhTvPV1nQ
G67GGpm26jIwoyZePnurNxgv2XDR9RjYKnUuIVTRG1ZSSl+LGDFQY2LtSV1D
bwh+E79gbsVAvlAyuzHcGzof39A/5MnAh0UsyfZFbzC57Ry1PZuBa/7bcYk+
7gOqagIfIqcZWPGq5043ywcWLcO2fp9l4JnolNetcz5wcvRKlOI8A2s2r/JW
cvmChbReXeMSA70Vem4GS/uC1UapJQYXEwctkp/wWfmC9L3v+r3CTHz5YGVa
udEXDsYfCvbcz8QQx2/O3gV+oMPj3/4siIlVgnnJWOYHQf9JpGeGMJH5yv3Z
pod+IPGL+2fQZSbaiK/dUF7nB+w9uxNUrzJR59O+Cka3H4QlGhqnxDBxzYHk
OfvN/mCQQjwgSGViHL9xuGWoP+QsPJkUf8jEzEf1WVonAyCJ2/RtAo2JRjOq
M3fOBcBsmPkNoDNxRSXvyBqnAOhk6AlOTzDRtix8rtk/AESntA2OTzGRmHfY
zDI1AIYqJiP/zDLxcdLbNd4fAoBklBghQ5jEj64tLvf0AqGu1UA+Yusk/rX9
s+Zm1SCQtsrSYh+dRIN/5NYdZgRDW8F1M/6bk9h+NxuuNl+CihsVNlsHJ3Fd
h1nt7+wrUD6SmJMmMYVC7w08ushh8Ky9IizBZAqfeFXqDYpSILiWa/vqpSls
O2PrRpmjwH1PkQ5i3hTyWucbFI+FwwqpOKShcQpvGYY3eH6OAH+uCFI5bQrT
M7hsLtyPhOR8lf0XCCx8Mi9SPJgVBaITRfzh4iw8/LSVPy4kGsY9L19MVWWh
nJu0SMeJGPCoIr4g67NQeddfX/J1Y+HVIz2tiZMszDGPL7krdQ3O/2JeK3Vh
oWZUgZrcxjgYDgvgORvCQtlSa7uji3GglbvTx/8aCy+pVpVkdcSDACV9MYzK
woWm7ELf1wnw1v1bTF4+C4de7XwenJsIyTafuTdUsFCq7ITvtpDr0Fm23ymy
hoVXCwQGjR2TgD5mzJJvYKHpqodj0aEb8F2l6LlfGwtlNPaY621JBhNbEj/r
Gwvbbwdfeh+bDCkap1NxgPP/8uZfMvPJcPvgKnmexkIx+xnj2osp8GnqkXof
i4UHLhVUePSkgNK99SadcyxkZ+ZM2pFTwcMj/c3qMmdv30QIsSUVhr5MFZVw
sXFkmUuESzMNxIl3E5J52cj3wSl+e3kaWNeOFJVsYqPTp9v8VpLpcMIngV9Y
mI2eRtuGbOLSQcokd1RhKxt5P0xeL1xNBzXRHI2L0mzsosQdXetJBZV9d3Sl
drCxroJn+4wXFeTWuL/dy/G9vuiFfh8qaCrZ6Bty7EuKKHoaQAUrrlySF8f8
05fWXgylwupC72w9x7rn3evbE6ngsCL7wEGOjaU6x0m5/1JBzeCGWZE8G5Mv
fhBILKeCgW7CqeccB2Ya04MfUOF95PtzHznWnz+SQX5EBXmimO0vjgfu685x
v6DCYtI6TUMiGwUl91W6v6dCv4WSKo3jxWOVsdZtVNB/0f1nkePBIJXzhh+p
IKXX/45fgY33O5Q2bf9CBd/BMQt1jg0Tdrh3dFPBw0wIIzne9SxPr76XCnzN
lOkMjoXo2yTK+6ngUmyUU8bx0GHJ9zHDVFB8scBu57jJOyvPb5QK7st9KTSO
y3O2hNjSqHDwpezeJY7T2zLMTelU4F/3vo1fkY2X/hNW1GJQYaGn48J2jv8H
QnYELw==
"]]},
Annotation[#, "Charting`Private`Tag$2991#1"]& ],
TagBox[
{RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6],
Opacity[1.], LineBox[CompressedData["
1:eJwV1Wk41AsbBvAiVJbKEpW1hGyVZCvPE9oUpbHUFLI0yRqSRofsZD2Y+Vsm
R5FosSVaEFpo1UmEyBrGYCYcQinv//3wXPf1+3Zf1/3hUXI5T6HxLVmyZJi8
/2eCwdw7A74/u6fpNdm5vu7GL95EbZyN6TKm8M0rnrRXxpbtEvLVMWPGYuf/
48Q5m6HLop/t7/xp4/NC98yWNNpgF61zwz8xv4y11Upl2q45o/pZJT953aUw
VZl6lmvqgWezbG14+csgdeOicuhqf8x7H6dfK7Uc0jw7VHQjL2Hv4tP1yTHC
0LtKcO1GWgjK7pj67TArBraj9QzXT+GouYMxsVZ3DVgJCEuz1kXjubOvWobz
JcE8T5P6ViAR+99vZcXEbIB7Ff99EPcmMGz4TQIP5ODfnxNRQycyUH7JmRC7
WXl4rPH1Vop5Fhavs9gmoasEBsL8Fa/1/kGORZjEt3xl8KlXc7jGykOXByNf
ImI0QKZCqjTz013cXl/56aGLJmy7VvbSpPceLmmKeDcKWrAFCuxtuUV4fVj2
KWVWG4797BqdFi1FXqKa1Rrd7aA1m7LP/P59VK+339GfrwvMq673j29/iHkq
DfNhMbtgrnoDY91oHWZXBHzs/r0LUjJfqV+1rMd0U+VCo4u7QeEYK/avgnqM
d4y0mXY1Bvn1lt3V1Gd4Id2k1M0EIUc2x8Kg4Tlu5D+to3rFBI7nLRNNLGrA
Kf8utqjhPtDwiXoqdP0dplFaKV0lFqA2Ki6sc6sF1cuZe4lhC+hgFkZxPrTg
8zW2ekflLeHEU1f1kLkWnPr4ed2LJEtYzJT4o3e4FSlH2/vueh2B4mAtvhFe
K65Q8dY3lrKCrYsOhhztNnyz0bdBpOUYbKXvFmf83YEExaqWwzsGEwkFClsr
OtA5YtujxpUU6Imt/ft6RwfO90/cDjOlAK2tlv5b8QtuyfVLnL5Pgf+UZtYU
l37BOIUL1l9TrOGJPE+/92UnmssG9t87YgtDf+3YIfjvV9wzeoe34G4LvABx
vQLuV9R73P3LMtoW5Fokw+VFulHZZt/aiWpbQGnh0MyD3fgnQfKw7hY72DRj
qPGwrhvLf5VX1PAfB8mhmMyqgh5c3/U9tunxCajZED0Yq9mHq+9sIuRbT4DY
Af2HkYZ9KHTpeN757ydA0ZN2zGd/H06L19WsUaHCk516e1Y79eGHQ8mTtgwq
ZO37EBWX1oeRVZqnerxPwpNk1TbadB+OZ7lrf99oD+2FrLe0on58dWfrVMoe
e7jZTKXYPu7HvCczlTqO9tAQJz6142U/Ur+EGwdm2YN9dfpIbVc/NsqwLH6v
cgBpdfdKsZUDeD3jrYfwbwfo1reIKHYdQAqhUajafhrkOpfH5gh/Q61bkx5v
pk9D8NEAer7UN4zqPJWxc4UTHD3zoipb4Rs6jSqdaldxAiqb9feZHd9w7cqS
gfUuTlBj82aJzclvGGHeOJnb4QRG1KonDbe+of3rH6vKGpwhsmmSFb9jEH1/
XGiJbHGGnuEbZQG7BjFaeTL9eL8z8L3+pmprNoglYWNyiwvOkF1sTp+nDOKi
QZ/GEV0XoM9/3d/sN4h5d94cGM9zAdOAOvrb4kFkx2eHqoW5gsRRsT97FYZw
4fE6s4UkV5hONRSQVhnC1ex0wY/XXKGdGqHarzmEBmapSZceucIhViDPwWgI
439FX2vkuUKxmVfHT5sh1PQ6/+iMwxkwPZzh8f7qEPpbmn6/YUQD7DFskB0b
Qnr2crF/zGnQ0vX2T8zkEIaOfdDMOkGDpd8fpnFmhzAx7pRHaiANclmevzKW
DWNhQ8BQeDkNtogzVa/JDeNX48IuF/WzYH+YdmLfkWE8oC3yWnm9G4R7fpy+
dHcYj4R8Glbc4gaCnpdG+MuG0eZ9poCcgRvcOqfFiqscRhePzWZSdm6ge6zb
MaJ+GIMLoFYgzQ2CAnouq7cNY7m8X8XwinPQ9jBf22EJG2VXtd24PX8OCLGt
cfFWbDTQanzjuNwd4sYl7c1t2Whz+OGUpLQ77PdI1OU/ycbE2PS94brukNnr
KnHOlY0Li3Yj1PPu0HTVgDJ7kY1dE+1bhYfcoSfC9Md2FhtZn77Uen/0AMf6
Cuf9vWyUTu/+qlPoBX5Gy9J2OYzgyU439liFF7RxNp0qcRrBbPmpyfznXnBf
w0tG/swIbiwUFJLu8YKfPfevTHuMoObjrdt/SXpDeJCzawh9BE07w6NfRHhD
4q+ol3yMEfSSV9G2cfSBn/H+9OmGEXS2flRXtdIXVlJ8Tqgqc3BBINdfQ9wX
zvmqjmipcjD9cfzm7HW+0J+a2bxdnYPv5BwTQtR84X1wR+32bRzcObLs+J79
vrA2R8FRfDcHV4RQeA3hvqB8KyCIas3B+wVc2eY5X1io7vKRDOPg0p+bLrOH
/WD2tex8xycOltR1/vOF6wfu2SaUTZ85aB+d+uzdtB+8NNed8Wzn4OPVi8vL
+PxBIKxZYa6Lg76qnRl0eX+IKogwWhjkYK9NSuUKO39Is6GJV/7g4NPShQmN
Bn8wCdmwc0ZmFINon918b16AzqPbnYSoo5j1oJ5ldPwi6JRG7mx8NYr8ih/1
Vm+7BEESbkpFWmO475iyoCmHDs3GlxMkQsew+UY2hL66DH3KXVVW78ZQsOVI
ze/sYPhO/zVsLDKOEm/3eXdQrsDUsQF1usk4Vp4vM+tdGwabpQJPRgaM43t7
J4+w6TAY+64825ozjsupefsKB8Oh/f0Og7pX45i5P/yFz8cIKGl2O3d9bByZ
6XynzhRFwvM2qm7DCi5WzkgV9rKiIMzjnYiFKhdNH70TiQuKhptRqp/37OGi
soe8VIt1DIypRq1PsuOihib/p7w9sdC6RUiM6cXFHKv42zfkrgKPVl5tFcpF
vaibO5RF44B3ZSd/RyoXN96hOh+ci4PHBybmzuVx8fK28tuslnh4IhS1OrGM
i7ON2fn+zxLg38JVtmm1XOyr21JFv54IvLWxnLi3XJS7a+2vEJQEXhnPay0+
czH05qrew7Rk2BPuWznXy0XLRW9agcnfIBmd4yTK4aLSzq1WZjIpwF9S3b50
iovN1+iX38amgJ1QjHf6PNn/r9U/lGZSoPJpVbnNEh5Ku0wervFMhSWqxcOj
gjw0vHyzxLszFQ7ITLR6iPCQl5Uz5kxJg+r5WxUVa3hoqTMSpPI6Df5UpL3C
tTwc+MUnxafHAPtPhVa8dTxUSehI7tFngLfJgOJv0p7rS5ZXGzJAp9+RLbye
h9MG1IULxgy4paB8fAtpocDSb0N7GfDg5LLnrqQ1J06Vv7FmQGHx/sY20oGD
FUdT/RjggbOplRt4uKLpbLxiMQMuCYgG28nxUDz3vFN3CQM8GzZIupCWvUjX
Y5UxoGvp1E1v0tpy8QMSFQzwSp+7G0XaxrvYSKiaAYGMWLty0jdEp0e5rxnQ
0HBRWUSehwZHwg9XDzJAK/BhLvmj8ey/10TsZJlwKr7YakGBh5RuzqaV8kx4
VG55X0CRhzCmv6tWgQlsC6OVq0ivFWp1V9nEhKRbv/KVSL8CkVc/tjCB5qNz
ZT9ptZLg8Ax9JuiwVtYnkx5NdPjRQWFC1w/pmHVKPGxj3RNNsmFCv1nGpBLp
57fnlU3smNBmR7dVJ816SVjfoTIh4ZiL4C7ShxeayoKcmDAjyhaxJ13kCZ7r
fZgQf9y4OJu0zyGFvlNxTPhtbYEyG3lID27j25nAhGxru5OKpCNLkjaLJTGh
TibUS410pviCR30KE66/2RpoQPpZZ8eMciYTRi8oKZwgLemZJswrYMLGl32v
CNLVCQL6YS+Z4NccHLRyEw8bn9ZQqY1MeGBZFrSG9MfvF4J1XjNhVb20nwzp
QeuBZ4PvmNA8F7VPhbSYbJ2FeQsTTt/jRJmQdimiu4gPMGF8jbNjIOnlTWNJ
+Ytkf2ehsC+k283aRByXEtB5XJC/l3RBVX2CND8B12S9rgyS3nebiIsXJCC3
ztvxO+mISIz2FSWAELB9sUyZhwuGjODdGwgICxZT0iY9UWDk2apHgLbdsPZf
pOvkNo8mGRBQtzKqLpR0MnOV+wEjAsy6mQejSGtFDJ6tMibgCa7Zm0TawyHZ
5cZeAg4xr/TlkB6UGKB6UQgo9Q4srSfdERZ3cJkPAa3PJW//IV1bIqQ4eZ6A
QBu5B3ybeXjra/Rstx8B7q1vKgRJ+xtEFDy6SABbbXW2GGmRicvLPEMIkHpk
/1OO9J7TXvXNiQR0bDrww4i0StJoRm0yAb95VZ5AWrT63Pl7KQTs9OhoNyHd
uZYmH80kYPb5GuZB0gEfHIINsgn4KhybbUv6jvFRg+v3CNBLf8b1Jp3i2bQq
sZiAQb0fTb6kA7MOs+mlBFR5fsm/QHrvzIF0ygMCnhUV6QWR7inaMy1QTUCN
dPJoJOmXnbXvpmoIcB6DsBjS95Yb3+ytJSDE/4ZIHGn6GUPKk+cE2LICVyST
FpfVKfN6S0DOhkBGBuk587JY6nsCek496Mki3XtJ+/T+DwS0699UzCZd1KIu
pviJ3Kfg2tUbpPcnbPJq+ULAbs+ZkdukNZ/kmtV3EbCQ1cS5S1qCrbChuJuA
FqmT/UWk+0xl38b0E6D8NKWijHSjLyv3wjcC7h7alVJOujhHJshpiAAPDsul
gjTzfbqVJZsAeF2q8ZD05Z+SakYcAnSlLo89Iv0/9Q/n1w==
"]]},
Annotation[#, "Charting`Private`Tag$2991#2"]& ]}, {}, {}}, {{}, {{},
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[
0.012833333333333334`], AbsoluteThickness[1.6],
PointBox[{{3.265*^-7, 0.9421043014214118}, {1.6325*^-7,
0.9155170038275593}, {8.1625*^-8, 0.8409505021371599}, {4.08125*^-8,
0.6938526549415817}, {2.040625*^-8, 0.4605873706114608}, {
1.0203125*^-8, 0.2244011284313122}, {5.1015625*^-9,
0.09340176846310269}, {2.55078125*^-9, 0.0392481714938876}, {0.,
0.}}]}, {}}, {}, {}, {}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
FrameTicks->{{Automatic,
Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic,
Charting`ScaledFrameTicks[{Identity, Identity}]}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
ImageSize->{651., Automatic},
Method->{
"DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" ->
AbsolutePointSize[6], "ScalingFunctions" -> None,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& )}},
PlotRange->{All, All},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{{3.827323028874057*^9, 3.827323051906082*^9}, {
3.8273230954771347`*^9, 3.827323113163554*^9}, 3.827323181337311*^9, {
3.82732325678792*^9, 3.8273233086189337`*^9}, {3.827323736552369*^9,
3.827323757835012*^9}, {3.827323789075142*^9, 3.827323832326799*^9}, {
3.827323868894788*^9, 3.827323950162839*^9}, {3.82732410918575*^9,
3.827324167133129*^9}, {3.82732423695471*^9, 3.827324325155188*^9},
3.827334378985344*^9, 3.827334719528338*^9, 3.8273352963644342`*^9,
3.8273353328940163`*^9, 3.827335366885714*^9, 3.828564419155312*^9,
3.8286449760945377`*^9},
CellLabel->"Out[55]=",ExpressionUUID->"0c9d88b7-e24e-4b35-907d-4b75d7d0b99a"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"fit0", "[",
RowBox[{"width", "/", "2"}], "]"}], "\[IndentingNewLine]"}]], "Input",
CellChangeTimes->{{3.82732434525854*^9, 3.827324349572555*^9}, {
3.8273347313301067`*^9, 3.8273347443139153`*^9}, {3.827334883203795*^9,
3.8273349115863657`*^9}, {3.82733501203272*^9, 3.8273350183702793`*^9}, {
3.827335092943247*^9, 3.827335181322894*^9}, 3.827335245840356*^9, {
3.827335341097643*^9, 3.827335397964061*^9}, {3.828564434679278*^9,
3.8285644385277643`*^9}, {3.8285646143476343`*^9,
3.8285646270407553`*^9}, {3.828644982964079*^9, 3.8286449927556057`*^9},
3.828645039385956*^9, {3.8286451957941923`*^9, 3.828645198086316*^9}, {
3.828645243714286*^9, 3.8286452618792143`*^9}, {3.828645828210743*^9,
3.828645837225354*^9}},
CellLabel->"In[68]:=",ExpressionUUID->"9d7f3f58-3713-4557-aacc-ad10fb0fa522"],
Cell[BoxData["0.942398259650387`"], "Output",
CellChangeTimes->{
3.827324350149548*^9, 3.827324653260119*^9, 3.827334746015224*^9,
3.827334920802603*^9, {3.827335086717141*^9, 3.827335181715939*^9},
3.8273352462399178`*^9, 3.827335305296214*^9, 3.827335399774811*^9,
3.8285644395312977`*^9, {3.828564619375683*^9, 3.8285646272717257`*^9},
3.828564784689293*^9, {3.828644983389371*^9, 3.828644993339381*^9},
3.828645039979307*^9, 3.828645198658731*^9, {3.828645249531026*^9,
3.828645262206304*^9}, {3.828645829913299*^9, 3.8286458390594587`*^9}},
CellLabel->"Out[68]=",ExpressionUUID->"d0051767-c453-4cfd-aca2-53794d1573f8"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"width", " ", "=", " ",
RowBox[{"6.53", "*",
SuperscriptBox["10",
RowBox[{"-", "7"}]]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"L", "=",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"1", "/", "2"}], ",",
RowBox[{"1", "/", "4"}], ",",
RowBox[{"1", "/", "8"}], ",",
RowBox[{"1", "/", "16"}], ",",
RowBox[{"1", "/", "32"}], ",",
RowBox[{"1", "/", "64"}], ",",
RowBox[{"1", "/", "128"}], ",",
RowBox[{"1", "/", "256"}], ",", "0"}], "}"}], "*", "width"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"a0", "=",
RowBox[{"1.29", "*",
SuperscriptBox["10",
RowBox[{"-", "8"}]]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{"mob0", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"L", "[",
RowBox[{"[", "ii", "]"}], "]"}], ",",
RowBox[{"MCSAT", "[",
RowBox[{
RowBox[{"L", "[",
RowBox[{"[", "ii", "]"}], "]"}], ",", "a0", ",", "width"}], "]"}]}],
"}"}], ",",
RowBox[{"{",
RowBox[{"ii", ",", "1", ",",
RowBox[{"Length", "[", "L", "]"}]}], "}"}]}],
"]"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"fitfunc0", "=",
RowBox[{"aa", "+",
RowBox[{"bb",
FractionBox["1",
RowBox[{"(",
RowBox[{
FractionBox["x", "a0"], "+", "ctf"}], ")"}]]}], "+",
RowBox[{"cc",
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
FractionBox["x", "a0"], "+", "ctf"}], ")"}], "3"]]}], "+",
RowBox[{"dd",
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
FractionBox["x", "a0"], "+", "ctf"}], ")"}], "5"]]}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"fit0", "[", "x_", "]"}], "=",
RowBox[{"fitfunc0", "/.", " ",
RowBox[{"FindFit", "[", " ",
RowBox[{"mob0", ",", "fitfunc0", ",",
RowBox[{"{",
RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd", ",", "ctf"}], "}"}], ",",
"x"}], "]"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"p1", "=",
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"fit0", "[", "x", "]"}], ",",
RowBox[{"MCSAT", "[",
RowBox[{"x", ",", "a0", ",", "width"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", ",", "0", ",",
RowBox[{"0.5", "width"}]}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"p2", "=",
RowBox[{"ListPlot", "[", "mob0", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{"Show", "[",
RowBox[{"p1", ",", "p2"}], "]"}]}], "Input",
CellChangeTimes->{{3.827324484104504*^9, 3.82732449219636*^9}},
CellLabel->"In[22]:=",ExpressionUUID->"e8375f5c-22d8-44d7-a392-bf4aebcdc7c6"],
Cell[BoxData[
TemplateBox[{
"Power","infy",
"\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,25,2,16656177925788115164,"Local"},
"MessageTemplate"]], "Message", "MSG",
CellChangeTimes->{3.827324494193142*^9, 3.82733472448846*^9,
3.827335315620091*^9, 3.828564782434752*^9},
CellLabel->
"During evaluation of \
In[22]:=",ExpressionUUID->"19f62dbb-6303-493f-a0c6-26b3648d86f5"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"3.265`*^-7", ",", "0.943312467099779`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.6325`*^-7", ",", "0.9189299102518521`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"8.1625`*^-8", ",", "0.8526691026139357`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"4.08125`*^-8", ",", "0.7306794785040371`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2.040625`*^-8", ",", "0.5457124525461928`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.0203125`*^-8", ",", "0.3359444329037441`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5.1015625`*^-9", ",", "0.16935682069579716`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2.55078125`*^-9", ",", "0.0708954675914193`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.`", ",", "0"}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{3.827324494194599*^9, 3.8273347245564327`*^9,
3.827335315671543*^9, 3.828564782494416*^9},
CellLabel->"Out[25]=",ExpressionUUID->"220274d6-12a9-45e2-b76c-15bb3ef065ea"],
Cell[BoxData[
RowBox[{"0.9855703107777551`", "\[VeryThinSpace]", "+",
FractionBox["13.950807532088119`",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1.8265310813162516`", "\[VeryThinSpace]", "+",
RowBox[{"7.751937984496123`*^7", " ", "x"}]}], ")"}], "5"]], "-",
FractionBox["6.837351895616442`",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1.8265310813162516`", "\[VeryThinSpace]", "+",
RowBox[{"7.751937984496123`*^7", " ", "x"}]}], ")"}], "3"]], "-",
FractionBox["1.0061630675994033`",
RowBox[{"1.8265310813162516`", "\[VeryThinSpace]", "+",
RowBox[{"7.751937984496123`*^7", " ", "x"}]}]]}]], "Output",
CellChangeTimes->{3.827324494194599*^9, 3.8273347245564327`*^9,
3.827335315671543*^9, 3.828564782499692*^9},
CellLabel->"Out[27]=",ExpressionUUID->"ae50c8e1-39b6-4012-8594-6dbb80f50d93"],
Cell[BoxData[
GraphicsBox[{{{{}, {},
TagBox[
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6],
Opacity[1.], LineBox[CompressedData["
1:eJwVzmk4FAobxvE5llJZKmsaQpItSZLqeB4R2WlsOSS7TJaxlZychlCWpDKK
lCUllXJEVMKpyFqKyG4wMwYzIaUseef9cF//6/ftVvQKIfnyEQiEp7z9vyn6
P1v0+X7/SSi3Mf1bhlT7pileaT6xz4BALFZ3yLHDjl3i8i8TJw0IY7eFNsaS
sc+3d/OtxEUDwqPGB8QjVBxaeSWblrgOCP4p6V1jV5G4e3b52LwoEFw2i/S/
paHm7mvTUrobgPq6hOvw7Aae8HvXwSyUAMI6yc7KpttIb92ZnZi4Geq+fBxL
ab2LVGZTChfkIC+yNjw3sgjlCT4xTvPyoOAv+4mgXIwlm6y0xXUVQeGoNt3s
8iNkW1HFRwuVgfBahhXT8i96PR3viUvUAMrv0EW61HPcVVfx6ZmXJlAJLVRv
gRdIaItrmYAdUEp2CIyafYG5TOIr0rwWENTEz/O3VyM3VdVug+4uMJMdt9Y5
XIfqdW676YW6MD3m7J4j8BYLVOp/URMPwE+9hRMWdi2YUx7RPrB8AIQWTroe
bGnBTCPlov2Rf4LZ7522j01aMdn9vMOctwE0VskND+q3YXjmwSf+BxEkQu9L
OMp8QCX+4zrb/zkIFvGLZt/dPuJsWB9LZJ8JpJ+zJVnWdeLXfbvtqyNMQJth
rFj2rROnCCk15FITgCjHm29VPiMzbT/t3XZTsBuy0OOkfMbeB1lGsVKHQaZi
3QMSqQtfjzjfmvtmBtV+m+qKP3TjVVInqe+xFSivNMYLXu5F9bKMQzSmFcQt
EONeVvTi6w2Oerby1hDvEsvY1d+Ls+2fN725ZA3Z1/J9PFX7kGTbPfwg0AZ0
u10Eul714RqVoL0GknbgoEO6EjjQj01KlHrhjiOgPyCstWp2EGkkuxo2l+dC
CL64YQg947QrG9aSQIte796tPYS/6NP3qUYkKDg929wfPIRq+aGpc/+SwOip
sWj6+BAmbQm370+3B5e4SueIgGE0J56iP7RxBPnksAcMIzoaThRzlwIcoeOj
ut1FWzrqVQ0sWic4gqJJW4K0Gx2VHUykpl86wuaA57uXIuj4O0XCUlfNCQ6o
qaSP3KVj2WJZeTW/M4SeE1Q2EhhB2b6vF9qqjsK+N5pGeuUjuL54K02+8yik
Hk4yLqkZwdWnnQtCvh6Ffwq9ZySaRnBuY231BhUXWBycq382MILvLdJmHK+5
gLtvYtDhVaN4/oWm62DQX3D5t2lHucMoTmUFaH1VcoOHNTP3Ilmj+K5452y6
oRu0bPE/8m16FAuef6/QcXcDxbuZVV4Lo+jSE2twKssNyIUFWtIiY9ggk221
LHYM/nEdre/ZNYa515vJ65aPgUySs/5A1BiSaBpF27uPQ47mmfeXlsdwx90Z
ctPccagQk74SKcjA+F7X63vWeMDaPdkaJBEGekwounareIA8qdBggshAqbWP
R2S9PCB57w2FGwcYGGfeMJP/xQO6hum5S6cY6Nb4Q6y03hO8LzwKC2IykPIj
vON8hyfIk3OfFk4xMEF5JtOZ7glr5wJNOmcZ+Jg6Kbey5AlhhD/SiSsMXNEf
1rDR9QKpq+vU7aWZWFDcdHiqwAsk+2e8vU2ZyErOOadK9QYFrbwQr1wmLlVt
Ml665A2Kz/hsXxYycT0rc1X7TW9IUzD8JvKAifrGVy6drvSGy/fHyvLKmZi8
mHCzgesNWtQslZgmJmoGhlT6HPMBG2LUMdlZJoZZG33N2+8Lbka3t6sgC6Ny
hERvmfvC71mZTTsOsfDc5HvNrKO+QGnME9EyZ2Fqkiv5yilfEBVWU5W3Z2FR
fQQjtswXHv6q0a/yY2G/QVGfl7ofKET76PSnsvCwlnCjsqw/4DuDSaXPLLSJ
+cRUUPMH73d37c72sNCh9YagnL4/rDk22dU+wEIv8jZjSSd/SGzV9z3JZOHZ
e1AjeNUfBvmzjvvPs7BMPrScueYEGCw32cbKjCNRrCvv/q8T4Ktw2j7YeRz1
dzQ0uQsFAPn0hKqq6zg6WD6blZAOgL4ZNaVB93FMvZB5KFY3AErnpK+D3zgu
rTiNu4QEgCD/LbVPEePYN929cx0jAJo9djSYXRnH7E89NUHtZGi+2BB14904
SmcO9OsUBYJscsOWJnU2/tXrz5osD4TGLdJasTvYmCM/O1P4OhCidQtG9LTZ
qFS0arX0YCDc22RmcXMPGzWrdu5alAiCtVXjvmaGbDTqjU14ExcEmjW9tnqO
bAyUV9FycA+GzfI+YhExbPS0r6x9sZYCW8IHWXyNbFwSzA/T2EiBq1pnRk40
szGzKnlbziYKvJchdLS2srFFzj0lRpUCfsaieWkf2bhnXMDZ0JQC00os7YVe
Nq6JIXHrYynw3FTdKZzDxn/vcYgff1Kg2mNW7ff6CfxjYWs0ixkK59qFzbmk
CXxc23urhxMKtZEfLF87TKBbwpX/WuZC4cSa1uUMpwmsWr8iVMoXBvmxkpF6
f00gZXvv9Sj5MFhfyukO8JzAIYf0ijVOYUCRuZh3LWQCXz1ZmtaoDwOBGM+T
S8kTeMb3sz/lTjiY80m/8auZwKynddn7nSPhWLHPk0bpSeRXaNdbr30atlZ4
qb0iT6LJEeVVRuwoyNlmUVJQMokf83Lg3LtooL6NXJicmsRVHTbVyzlnofgd
O528dQrFm02CvpD+gdXGDgo37KawIqTUeEiKCnvpZPGQs1PY6uZBps5R4dI2
d6JB/hQKuRSYFI3FQq6FlZhV/RTeMI19E9weB2NFMX8fZ0xhRiafq8+j8+D1
tehHFYGDFd8li4ay40F23YfGqc0cNKpsEU46kwBTPQwlq90cVCbLS3bYJ4Jd
rfvbC2Yc1NDk/1RgeAHmk2umRo9x8LZd8v08uYvws2vxK5nCQb34O7uVRZLA
5MKAh8J5DioVu3ia/UwCttEIATM4GK1ddj+7IxmGqto899zh4HxDTmHYfynA
3TY5SCnj4HCt2ouo3FSItx8/96GWg3IP7MO2nLkEEpKQot3KwXN3xIYsfdNg
35/n9w9/4aD1SpDvvYOXIfF0YsGGMQ4q7tlpZyyTDkdc5UbTvnLw482o6OYL
6SBWvZf84hfv/9/rfyh+TwdHqWihvfxclPaasaw+eQW6rbYOEkS4uC/6zuOg
3itwvOHltaeSXORm3Z70JF2F64LSh57Ic9FaZ/yMSuNVcDYv9JHazsWRRT5J
Pr1rYC8QapqhxcU1bX7JCiXXwFLmZriLHhf9PtwUdiJmQIiY+kZLAy4GW2wZ
dk3KgG2Ss2MdxlwUapu8VLiSAchVcc234OIXapKZQDANCjtTqc/tuFjzeLXC
TAgNCA1hWp083+1PmB8IpUHmt9fdXJ7D9OPuVUbSIKzhHlH5CBeFp6MFTsbQ
4OHFWyFpPBseD6z7mEqDxY12B7xIXCw2sNXPfUiDi5E/Q1c5cDH9ZJtYagkN
Yu4EXlbg+VSWJSvqCQ2S3Sn39/N86PvhTNJTGuiu02gL5nnwkeGc4Esa3Be/
RO/ieSNRpzSwmQaehn/svefIxZ/mpRdcWmnQsP+HSB3PQ6e1jpu+pwHxU+pw
D8+POtRFFT7RQMjmTpSIExdNU7YGdvTQ4GpBRkQEz5rP843r+mjQ/bhCNY1n
cdaWzSUDNOA/EPuliOdhI2JzIp0GTgZEjT6eGyjZ+eGjNHjC4rTN8VxyW+aM
B4MGpOjgQFFnLma0ZtpZs2jgL5q7SpXn6AUJ1f1sGlRWU3MO8vw/EHxeeQ==
"]]},
Annotation[#, "Charting`Private`Tag$2471#1"]& ],
TagBox[
{RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6],
Opacity[1.], LineBox[CompressedData["
1:eJwV0nc81YsbB/AyMkIy0kDZMy1Z5XlKIRepYycys3eEVChc89I5XySVRCoZ
V3UTMhq2bkWRQ7bjGMeI5FJ+398fz+t5vV/PX5/P65Fy9qe4sa1bt26OnP/v
JK2frVpsvw/7sd943rQUqPum+br0UhxdN8L3kNz8gd3YsU9YsipuUtfmT/WX
0Rom6LwWaPkrf0F3cp1Dcn6xA9LdenbcjlvRjVYYbXzm4IXK56UCJdXXw1Wr
TfN2rGA8f9PSgpXPAVrmEtV3Gi9hXluCZo0oN/AuuPvXnYzB/rVX21PjNoLt
iM1YnnI8ih+Y/2W/JAD318T8Pb2TUfUAdXaL+ma4P1MtJc6ejh7nGzvG8kXA
73d+0+jmTBxs25MdF7cD5s9PCVsZ5WHUWHMSCyRgRxW1C0XzUXKd62WrJUlQ
mGmVq2UWYPE2k73C6lJgR+Mqd374CJkmUcLD+bKQWi5Q51Rehs5Px7/GxKmA
f6//4QdFFbiv7vmnf5xVoWEtUi3nyUtc1x7TOgG74X6Wjnx0cSXeHRN/RVlS
A490L56SkmpkJSue2qy+D745BQeLWNWhct3ZA4P56lDnVhD0Re8t5sm/W46K
OwSdMymhs5WtmPPswoe+X4eA6I/U267Zhhl6soU6IYfBZ/mMSXJ5GyY6XLNY
cNGFdt8r/fqF7RiccbTU/SiCUMDJwN/x/6I0+7n9CleOwlEjZrwc9SPOB9EZ
/Nr60MHryGJMduKM9gHz6gv6sOeNlkCw5GecWpdU41WmD5qstu8Fpz7jWKoO
0ahgAG+uCLVyPPuMPY9v6kVvMYT6qYd6T0O/4Osh69sL30/AcGwRH0x14Q1K
J4VeYgIKQpmH7tzqQeVy2nFizATU/q5q86jvwdebLTXMJE3BRW/7jYWxHpz/
8HnbmxRTeOP6LfT0PjpSzLoGHvucBMrP/1pU39CRR95XU1f0FPhxCbY103ux
WTrgHV/HadD6eFYycfgbEpRTNUzWaajcYFVhwtaPTjF7XzTwUiDU0a6qb1c/
Lg/OPozSo4D0JvsoH/t+VLoXmLzwNwW2cJ6+YtjZjwk7g81708yhvKM7Mu/s
ABqJhw4WnbSEHM4qpuu+QTwy8Yi16mkJ7Flr197pDqJGRd+KaawliBuWxQn/
MYiyFvpbZqssIWJPk2WY8yD+ThIxVleyAu38db89bgxi+Ur5s2p2azhtE5zP
MTOI2+kz8e0VNiAivDWCO2cIBR/JEJKdNjA6OTBi9WAIuS5a5/nP2EDCd4MX
GWVDuCBUW71Z3haasXX95NshfP9H6pwl1Rb6QtoUmVNDeK1S1e6b7xnQs/Dv
pugM49RNT7UZ6bNwpOGnWkLrMDY+2jOfduQs+P2Ka5jrHMa8l4vP9zuchW3G
71pMvg2j7ddo3dCbZ6Gy//P1ntlhbNiabfJrkz2wAoXyrEVH8G5mi9fGX/aQ
HBPznmU3ghRCpVCh6xzQyuQTNAdGcHfBnFfzwjlw3Ur3kBgfwes9dpkHeRwh
5ovQ/Z8zI+g4IWXXJe8IptxyF/9aG8EtvCVD250d4UJe4NsjkqMYY9Qwd6/b
EXyn/TNe247i2aYfm8reOcHLrleZtc2jGPAjuONahxOsrMsRZfswirGycxnW
g05gADwHdb+MYknUpMTaqhN0HklKuD00imtaAyon1Z1hyuBSD9fKKOY9ajac
ynMG5rZPlinKY8hIzLmqGOUCPVvprx5eH8PVim3HVlNcYML5qYto4hgKMjI2
fLjlAuvZYjZE/jWGWsfSUy6+cAG51XEPzewxTFyJvdXAcgFBx00P3EvHUNXH
/4WrvSv4KZnPPO8ewyBTvZlcHTfY0Cl9V1+BgWE53AK3jdxAulTY2EOVgVcn
36vetHGDkKErcrH7GJicYOeVHuoGU5SQpOJDDCx8d2E0utwN7t2/tLPSjIG9
uoV0Z+XzIMXLadgSykBDNb4m2e3ugFdrmOvrGXjy8qexXUruoLL+o+mldwy0
aMvilNByB40Di5MzzQx09pI7JmrlDnvFSr+3fGJg5AOo4bzhDl6vff87McLA
csnAZ2M8HiDsk83uvWEcxTd9yX247AEy/FkGIYbjqLW7odmB2xNKdJYaTxmP
o4XxP/MiYp5QsFgYpmg2jsnxGcej1T3h8LWKy21W47i6ZjVu6+8J81einzDc
xpE+27Vn46gnNNBOqPpfG8fsT19rfD94gZHfQbPRqnEUy+jr3V/oAzumldvc
ZZh4psedMfnMB7wM0lZQnok5kvNz+a994Piv/nZRJSZKF27gEvvmA7s4Ms9X
qjFRtWLPvhURX+CL7fqHoc1EvZ7o2DcxvrAsu13rsxkTfSTl1Swc/OCk86yg
QAQTncxf1FbyBsDO3ResLjcxcZXzXpCKUADYFCxYc7QyMaMiUS5nWwBY15of
T2hnYquEQ9JlxQBol89iJH9i4sFxDusjBgEQbt+Sc6mXiTyXKax30QHQacjR
83OGiX8/mBb/+DMAYtJa8mNEJ3D9fzIRjLFAqH39s/eE3QSW1Pbc/jodCCH8
q6Va9hN4Nja9vnUhEAL5auQUzk1gheAadxlbEJwX5F1bc57AAIWezDDJIHi/
U+2ve14T2G+R9pzHKggGqkXNC8In8FXp6qzKuyCgX4gLr8iYwHC3z+4B94OB
f1kq/FT7BN58WpetYx0CH42UVC1VJ5F91wcNwb0XQVSjNzH++iTqn5bdoMcM
g5Bju/5Map3Ej7k5cLUxAnrl2FdjBaZwQ8fJ6l85kaAYjd9ZhlMo3KLv2025
ApcOaRXqXZzC5/5lx/q3RMHAwo/D/flT2HbW0StqIQr+zJBpordMIbdtnn7h
SDS07i0WrZ6ZwiyD6Dd+H2Ig5+D08l7BaaRlsNm5PrkGnpYcSykq0/h8UbSw
P/s6uAe8fO9nMI16L1r5EsJjQSz33MpB+2mU9ZIU7TCPg3/FSvtuBU6jiir7
p7wj8SCtoSjaHjuNd04lPsyV+BMONxmfYcucRo3r9w/I8idAPVW5gP/hNEo/
snU68TMBprzvBp16MY0Re8sfZnckAs3Jef+Zt9O41JCTH1SfBIXH1DxMPk7j
QK1SZdjdZAiXMnM90zuNEo/Ng3aGp4B/8Fd9k7FpvHp/U7+xWyrEHLwcrTQ7
jaZrvm4Pjv4Ftx4Viab+nEapg3tOHduaBsd1dvF2rmPhx1thES3xaSCgOBrT
wcVClUuCP6QW06DA5aLpRgEWijnPGVd7p4N5Dce1HSIs1I64X+Lbkw65j5Ou
K25jIevmnUknyg1IzN43sibBQtP94+HyTTegyirqo4w0C4dW2ETZNKignxX9
PFyOhfJJ3anfNKlwhBEpEk/ae3sJd5U2FTaXa3nRSC9o2a4G61JhOvzHcglp
rtDS4dHjVLDpKno8TFp11q682ZwKFzjZKcbyLAwdeWaWHkiFnY0OdcIKLORp
P5+4q5gKb+ntNgmKLBS65+/YV0IFPhO3Z1TS4iFhGtllVNjipMR9h7SaROKQ
8DMq3M3TySonbeFbrMNVRQXOqMwzdNK5/AsT001UKAsd91BRYqHWyWjjqhEq
SPxQ//sd6fP/3uKzEqeB9zB967AyCyl9TBleSRrER0jaTZKGSc1DNTtpEJfL
lfGd9BauTk95GRp8//3vIrsKCxuBr/GHEg22lxrZy5JWLImMztSkgZyNa5sL
6Ylk+x/dFBpcaDy4p4/0l+wi/hQLGqxKeMaPkH79cFn2qBUNZOQsuydJZ78l
zB/Z0uCHq63rf6SNV9vLwh1p8NZTSk5MlYVPvMF7ux8NIipl/jAj7ffHzgG7
BBrQW0PlKkmHRX5hO5hEgyV9H6l60tdKUuQEUmjAdnxYpIl0ltCqV10aDbYo
2wx9Jl3f070om0UDS24/sTnSIt43NrIe0CBnsWVCbjcLq5I4NaPe0sAxXFkn
gXTDq2pb2wYaCB/yUPiL9IeZ4Mj9TWQ+fm0+gvSI+VD9SCsNFEeJ6lzSAuK1
JkYdNEiBPypekHZ+EuYsNESDut284iOkudsnU/LXaNCwKJelocbCrmNf+BzW
ExCsEyJ3iPSDyrokMXYCUOZSEZLWf0gkJG4ggKn55N4J0jHXMDaAn4DI4ica
Z0ivalMjD+8g4ACXP3sk6dayyyuL4gSEZZqJR5HOVvCIKJUkYI0xufs6aW1R
3TBpaQIEf9scSiYdOjsWzK1EgNFJ/rVbpGcf6Hh3ahCgADuVK0nXSshNpGgR
EN/17f0r0qm0TZ6GOgScfuvgU096d8zI+UpdAkwe56Y3kfayT3XOPU6AFI96
7BfSI8JDtj4UAuodPgnOke6OSjjB4Uf6162qXXtYWFPCtWvOn4DN1KVmGdIF
vbFLfYEEuB6w+FeedJBWzIMXIQQUPt1cq0qabzaCw/syAeJ2Bfu1SB8551P3
MZkATbqnlylp+ZSJzJpUAlo5f4ybkeav8vAvSiNAzDregUK6Z4ubZCyNAG2b
SjVr0hfe20dq5RDA2OTh4kj6ka6Z1t0iAvZd3ywZSDrNu31TcjEB5sM8/MGk
Q28aM8JKyf6f8X6/QPr4omEG5Sl5d5HPDyP97cmRBc4qAtJft2RfJf22p6Z1
vpoA+fiNetGki7h17/fXEBAlajUQQzrMVZvy8jWZX5WHLY60kPj+Mp8WAjLO
TH5NIv3TqCzeto0ApZQr2imk+y+qnTN4T4BfsXhaKuknHcoCuz4R8Fg7Qjqd
9I31j0b5OgkYH9F2uEE6fI/Cq+XPBDiucqRTSRskyfh0fCXgn9FXdIK06st7
x+roBDjPFn3PIC3M2LmjuI+A4e4CtizSA3riLXGD5D88ecWZTbohIPte8DAB
x5vpy/938Z2t4Y6jBIwobhi9RZrWlnHKlEH2N3S4MYd0xH8iijpMAuI2RuXe
Jv0/EQk7DQ==
"]]},
Annotation[#, "Charting`Private`Tag$2471#2"]& ]}, {}, {}}, {{}, {{},
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[
0.012833333333333334`], AbsoluteThickness[1.6],
PointBox[{{3.265*^-7, 0.943312467099779}, {1.6325*^-7,
0.9189299102518521}, {8.1625*^-8, 0.8526691026139357}, {4.08125*^-8,
0.7306794785040371}, {2.040625*^-8, 0.5457124525461928}, {
1.0203125*^-8, 0.3359444329037441}, {5.1015625*^-9,
0.16935682069579716`}, {2.55078125*^-9, 0.0708954675914193}, {0.,
0.}}]}, {}}, {}, {}, {}, {}}},