-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathAutomaticDifferentiaion.nb
More file actions
3716 lines (3658 loc) · 200 KB
/
AutomaticDifferentiaion.nb
File metadata and controls
3716 lines (3658 loc) · 200 KB
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 14.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 204565, 3708]
NotebookOptionsPosition[ 200349, 3624]
NotebookOutlinePosition[ 200819, 3641]
CellTagsIndexPosition[ 200776, 3638]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["Automatic Differentation", "Title",
CellChangeTimes->{{3.9207900999024677`*^9,
3.9207901153798237`*^9}},ExpressionUUID->"faacbdb7-af05-4d96-bdda-\
1414c6a437e7"],
Cell["\<\
Brian Beckman
March 2024\
\>", "Subtitle",
CellChangeTimes->{{3.92079012035867*^9,
3.9207901383142023`*^9}},ExpressionUUID->"7d58ef5c-a8ec-46d1-9bfa-\
a4e474c181ab"],
Cell[BoxData[
RowBox[{"If", "[",
RowBox[{
RowBox[{"Or", "[",
RowBox[{
RowBox[{
RowBox[{"PacletFind", "[", "\"\<DualNumbers\>\"", "]"}], "===",
RowBox[{"{", "}"}]}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"PacletFind", "[", "\"\<DualNumbers\>\"", "]"}], "[",
RowBox[{"[", "1", "]"}], "]"}], "[", "\"\<Version\>\"", "]"}], "=!=",
"\"\<1.3.0\>\""}]}], "]"}], ",", "\[IndentingNewLine]",
RowBox[{"PacletInstall", "[",
RowBox[{
"$HomeDirectory", "<>",
"\"\</Documents/GitHub/DualNumbers/Paclet \
archives/DualNumbers-1.3.0.paclet\>\""}], "]"}]}], "]"}]], "Input",
CellChangeTimes->{{3.920793071720848*^9, 3.920793150475687*^9}, {
3.9207934168925657`*^9,
3.9207934904430304`*^9}},ExpressionUUID->"0c7752bd-2b26-4ed6-99b6-\
6ff845e58921"],
Cell[BoxData[
RowBox[{"<<", "DualNumbers`"}]], "Input",
CellChangeTimes->{{3.920791326288361*^9, 3.920791331462639*^9}},
CellLabel->"In[2]:=",ExpressionUUID->"51f4dc28-785e-4162-98be-9292366041b3"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Normal", " ", "@", " ",
RowBox[{"Series", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"a", " ", "+", " ",
RowBox[{"b", " ", "\[CurlyEpsilon]"}]}], "]"}], ",", " ",
RowBox[{"{",
RowBox[{"\[CurlyEpsilon]", ",", " ", "0", ",", " ", "4"}], "}"}]}],
"]"}]}], " ", "/.", " ",
RowBox[{
RowBox[{"Power", "[",
RowBox[{"\[CurlyEpsilon]", ",", " ",
RowBox[{"_", "?",
RowBox[{"(",
RowBox[{"GreaterEqualThan", "[", "2", "]"}], ")"}]}]}], "]"}], " ", "->",
" ", "0"}]}]], "Input",
CellChangeTimes->{{3.920791036766117*^9, 3.920791046872119*^9}},
CellLabel->"In[3]:=",ExpressionUUID->"3e47b7ed-fce0-492b-9f52-d1850929e86d"],
Cell[BoxData[
RowBox[{
RowBox[{"f", "[", "a", "]"}], "+",
RowBox[{"b", " ", "\[CurlyEpsilon]", " ",
RowBox[{
SuperscriptBox["f", "\[Prime]",
MultilineFunction->None], "[", "a", "]"}]}]}]], "Output",
CellChangeTimes->{3.9207910486470346`*^9, 3.920791390513191*^9},
CellLabel->"Out[3]=",ExpressionUUID->"1fb5266c-5da9-4ff9-b76e-39e79612cef0"]
}, Open ]],
Cell[CellGroupData[{
Cell["Fixed Points of Cos", "Subsection",
CellChangeTimes->{{3.9207911937981787`*^9, 3.920791204737803*^9}, {
3.920793038954172*^9,
3.920793050900928*^9}},ExpressionUUID->"c4eaf6a8-e006-434f-b4be-\
4b07f07acae8"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"f", "[", "a_", "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"x", "=", "1."}], ",", "y", ",",
RowBox[{"i", "=", "0"}]}], "}"}], ",",
RowBox[{
RowBox[{"While", "[",
RowBox[{
RowBox[{"Not", "[",
RowBox[{
RowBox[{"(",
RowBox[{"y", "=",
RowBox[{"Cos", "[",
RowBox[{"a", " ", "x"}], "]"}]}], ")"}], "==", "x"}], "]"}], ",",
RowBox[{
RowBox[{"x", "=", "y"}], ";", "\[IndentingNewLine]",
RowBox[{"i", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"Log10", "[",
RowBox[{"1", "+", "i"}], "]"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input",\
CellChangeTimes->{{3.92079109141987*^9, 3.9207911128797293`*^9}, {
3.920791245815022*^9, 3.920791268487605*^9}},
CellLabel->"In[4]:=",ExpressionUUID->"f9672390-664f-45ef-a61a-d7e65662854d"]
}, Open ]],
Cell[CellGroupData[{
Cell["Value and Log10 of Iteration Count", "Subsection",
CellChangeTimes->{{3.92079129119748*^9, 3.92079131086549*^9}, {
3.920791441906639*^9, 3.920791443955442*^9}, {3.9207930214579973`*^9,
3.9207930353405848`*^9}},ExpressionUUID->"8e48b07f-fba9-4168-aab3-\
b50a9ff1b6a8"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"f", "[", "a", "]"}], ",",
RowBox[{"{",
RowBox[{"a", ",",
RowBox[{"-", "1.0"}], ",", "1.0"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.9207911159328537`*^9, 3.920791169324136*^9}},
CellLabel->"In[5]:=",ExpressionUUID->"f096f6ab-7b96-49ce-90af-37c8eccedeac"],
Cell[BoxData[
GraphicsBox[
InterpretationBox[{
TagBox[{{{}, {},
TagBox[
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2],
Opacity[1.], LineBox[CompressedData["
1:eJw113k01N//B/CiIlTySdJiKwohLaQ+etlJ9kpKivqgUEnWKEKFKNn3JfuS
kWjs1xoxyjoqIcSMwbwt2cX3ds7v98ecOY9z7rznnve59/l6vYRv3DOyZFm3
bt0f/Pn7LQ07GWtrBDIMZv8Vnk6De4v7/RaXCJQOC/E7MmmQ/15WbGaWQN+G
ep1Ds2hw9JDujZExAu078ejp61wayG/3/U7pJtCmlSzeVwU0UBqaaoomEUjV
MGb1VSUNjJ635By7TiAqyviaSaWByxffO9aVTHQl9uanE2x06OzkZFRbTKDW
C9LneBzosK/q3g75veOoqlM1s6ybDkW2dRu39TLQzY5j3hyKo2AeKDv5zXsU
cfR0TkXmjsJCiLsfAjqiytxicO5kQMrWPv6ogRGUXJef7unPgDhtWYcO/2Ek
rnv/YdYyA7ztLFzFz/5C2mrkAA+rMXBnzXZxmBhEv8GpU/L7GFh4fTlAzRxA
84VvklzUxyG8YjgqzuYnemVmLHrz7TiU9h/iyhXpQzYiTg1TeyZgP7eSyoWE
HiQURHop7zUBBRJ+NoNDX1Ec/eGRUvoE9Ne/E5KTo6LLHlcMZ84yYfhw+FH0
oQMdV/wvqjSBCdsfZ8lJr29DDi78YetnmHBYjjicNkNBl4q21esoEGAl7elZ
0ktB3Hpsc7dPEZAotq29pYGCNvituD07TQAPn4zLXCwFaX957lahSMD8/N1q
TTUKarKq1N2vQkBNCfMiI6wZbZQYXGvRJsBEkflYRq4JharuORVvSoCP2kRr
iWsD+udC8U9ud7xea1z/+M0GVJEoObSMvU537HOebgPqqv8jMeJBgMfFUUqK
SAMqjYj0L35MgLPVcGMQ5SNq84x6eMGbgFt+vVUWQh9RmBTn+C1/AnQoLfmb
G+uQ++bNfCyRBAS0UmR8C+oQf5KtQhd2Y2dz3mpcHVLTUY3KiCJAvfdT7sz9
OkSSUeLQjiHgDLM+s3dPHRJxXyU/jSfgCHdl0rt7tej+qfi17hQCeC/kBV/m
q0Fzm7gcRkgEFIi9KFVnrUG7VSwkwvIJMFi0/iVLVKOaCltZ5Xf4/xOET3I0
VCOhFqpEdAEBq/Sw/lLnamTSHFCvVETAyCN36b3UKnRok/C9u6UE3NV/HVUh
jtBv+SRllToCMn9rj4evR8iMvMvhG/Zg9Aalu98qkcGHc2P36gkw/uVCE/Cv
RLcypMgxHwkAt2tyXvQKlNjOkk9rJIA7RbJTJaMcBRrErF1rwfudq9/WeKAU
TQ8XTFR3EfAy+03NmcUS1FVFSdShEmB7zdOpqKUEDUhpOlKxD3w82fPGuQRV
+kb50LoJiAjPSX/UWIwY6iZya98IeHj8teIxOzKSGQyp2dCH90O/M5mlREaf
WqR9n2Afi9NOEeIlo/dn5S3/YI+zbti8tfIDurKxx3e6n4BrHc6d9G0f0F6P
6BPtAwSoOFy1TXhfiERUtOWthwkQEFMQ4PUrRP2U8z1d2MvfeNteXC1E5YFC
caojBBQqf5Fz21iIrLpuPthLI0BsuwrLhUvvUXiVqmMtnQCO/IPRm5ffofVp
K/E4RyCtZzho1DcPPR1Vj/CaIuC7x87E+GN5KFnUV6QFe6uAZr7h4Fsk00X9
tWsanzfzzPYSeIuUdplw5mFrDNvwBSzloEgk1ft5hgA6k0iSsM9C5VI8XoxZ
AvYGCxX0CWQhn4G8GxJz+DzIGtaGtGSi2ck5t9vYxQ8KhpckMhEjRl5jGNt/
wVGieTgdffHSO98xT4AEy9J7W9NUdENPRcZ/Eb+fFIl6QY5UJPIp8Hw5doia
KbWjOAVN9V3OYWIvPStfOL0zBR2MODVrsERAM6enIldbMorJNp3kXMb36S1J
r8ozGc1kr+adxD6u9/O6o3Qy2nY7M+k/7LhgZe8fL5LQ6x3de0uxv0qwv7wc
lICarwq5mK4QoHTndn41Ix5JvnOmPMHOJDW1i2vFo4jbty5kYLsdD+JbYolD
qxoTywT27jM8yTGu0SiFXS7T5Q8B3l4PalmoUahgneDrSOyxms5hm2NRKPqN
Vu4H7HLNSInTzAj0zP2E2zS2meHewp6bYSj63G0781V8XmZmFZzqQhHT6egt
N2yPiC9oq2goksyejX+NHdfj3aw88hr5LJ0jI+zDj68a9mi8RoyI1pgu7DIh
uW7HjGDUp3i0mIFd2Nxer9/2EoVfckjiWSOgk/tZm3dIEBo7rWYrij1zUaG3
6HwgWt3y/Z489tGfib/3UP2RNOdpscvYhqLn1+lH+iEiern7Fra9zSYub5Pn
qLLXptYFm/Tbbj/9uy+yXVTRDMX+rCAksyfOB2UdTOlPxGY+7jilZ+aNyshJ
73Kwt9Q903gi8AS1TspXfMA24XFMvYU8ka+JJUs1dmTc97LPyo/QQIHokyZs
qphyx/G6h8iaxVmhA3vHuwxGjIYr4vI7L9mDff70Vpb1n5xQem2Z8SB2SL0j
v/W5B0jQIbeMjt2q33OkpcUehQfvv8LEFij0CbZKskP0y4JHZ7BjGw3Q0TRr
9EgzQXUee1fvPuZq1g0E2xNfLmFLDnUpRJiZojdvhf75gy3GZR8pbW2IkgxF
2laxvToPde6pVUTF9imNuM7D4W29NhulDsB0ecriX1OnvBO5F7RgWGz/f389
qX9w+p6DMaT0CrP//b17qEaT7XFzaNFLGl7GXn3sFpsoYwkBYokrC3+fb5Nr
1yFhAwH6grqz2KzG/YpsYveAdUa4exK7Vsj/eTy3A5BcM2PGsH0jROzlXzpC
+7PCyGFsDa5ykzZOF0hdr/W5D5vN+6Kyrb8b8G2xPNON3TjPFN/I5gGxHFvp
n7ED7vjxJPo+BvMY9eZ67PSp4Ed7n3gBT+xWehm2tbWE1YdVb5B8Y/E5DVtL
xOWKj6IvHEiYjozGPtRbq2fg8RQOzonEBmIzjMzkGYvPYfa8g549dtOWbEny
SX8IUIlZNcfOaZwT9HUJgPfXHtANsO3OBLMLzAaCUKLubWls3cUfK4xjL6Er
4fK6vdjSheJTZIdXMO99uI0deyFsYPzQQjBoXgWhn/i8l3C4d9U4hUJ4Zpvj
U+wkKd4OkkgYODZoltlgPzMgtcZ9CYPbt4t26WNfiBhqdhaPAJP7Sbt4sSeF
dWokeqPAduOoVAS+n91qI4gvIBouGuhIOWJXWntVbJCPgQRdFjVD7BdvC4v7
gmOhzzCGzI4tprCPFKKWADNfFortcD5wXSXnek4lQFXaHUdV7JnHhtl2CYnw
tTxNkx/bfLDGaL9HErzVTDhRg/NI+tC87p+uZBh+4Sa7GfvT++tq7/xTwfTk
8WJbnH//1h+uPfgzFRrVB+ePYedTF5UT5NKgU83RYHkB16vFUHgxlAapNZE6
z7H/g8ZTlooZsC/75IMwnLdrTUdk+aey4NyN9iAfnN8OP/6QXmlmw2qngpUi
9shEk/SmhGww9Fs0mftNAIXb8vCMdg585WQEWWLHGEcfbEnNBech95MKuB6c
GFwv8MSEBHEhrZlFk3j/pZemjmSRoIV/T78VtljI27qfiyTQ0p/U48PmTM49
kaSbDzuGEnucCAJWDEx+rDHzQenDrxxxJgG9+SRxJFsAvHeMwA7Xr0T7a3WK
5EJY9jdZMMP1MO7q5rzw/kIwSzYNn/tFQJRWYeQEWxFAos+9l9jBQhy28SZF
0NJe11M2hO9Pa9H2P4tF4CiSHbllkACLI1uul/9LBsGUrNJAXJ/3T5Ytnqop
gdEoifQlXP89WlR9f0+UgFDdsQf22NTs5q15/KVw81qq+TDuHwIse/YL3y+F
f3Y8jad04vPyfUmXTagMhso7U4Pb8fmoV3jT8agcSu7w8xG4/7gSS9a2U0DQ
6rLMyob7mUJX6BK1RMDpkaRmUYvrr3HD9f5gBNrgkVtaQ0A1d7ejER2BR2Lt
tE01zjtVd/24c1XAfmK7eXUlzoviGDfvpSo4V+I4rV5CwNmUby16JjUgEPIi
i/QW7+dpnlX9nRqwpHykTOfi93PLZ+20Tw34pMaIncCmS0nJiufVQA2NzZOc
TYBfsVcY64ZasFEe+VSQgfOg5aBpMakWUsoa1nySCdBccKILs9WD9TQXOSQM
94+6PKyzRQ3wxniHur0r7qcsNk8tfmqAPjk+vlAXXE+d1vWv9jbAwfJWrSJn
AmwSmKXsmxpBXtiEMu+I1xNNDnuNG6FD2fCK0328/rXPoOpcI2yQ5GowssHr
qb+rQ+SaYKfz4Oso3D+/ut7tdYRMgVRfao7ZvwQ06O3bYsDTBgo/QkfZppgw
Icz7uD2mA/Zv4hrResMEJ0dJi1c7qdAkHyaorceE7h/cRlaNX+FSU5FE+fgE
mLv9S2PT6YEMyzrjhsAJqJWUD6jd2Adyfeq23kITILa5nJ6q9RPOBuvNmReP
w75yW/WNfgPgn/k9SclgHNYtsWQ5DA5C8+FFrfbeMZg3rLhWL/oLWoW1dmo6
jEHP8et7RH2HwWBXZ0jQHwbYX+LeLvJjBIZpOpF6LxjAH/bLZMM+OoxCzoyD
MAPyTJMyZlxHgbWyy+EzaRQuKXpqNVYwYCxs94YtmqPw7todkVMrY6Bzc9OP
1gE6LHCospZcnAAn8xp9ihMdjNpOy+2LYgKaN5Xo5qEDx2nO6vJ4JrhGvfEQ
3k6H6tTv566mMOGiltJv2210OOLqZhGbx4SMsbjz67nosFWQHMhfz4Si+PgO
qY10+GR3dIh3Gs9N6qS+oHk8b7KLB2/VIUB2IlvP5gcNFu4v7M4zxLnkWGhS
8p0GpJ6GNN1LuG+RHPJj/0YDAZJVWeANXDedG0wzumiwcjF1hMONANVYHcrI
ZxqQUwQV2dJxnc8/3mtXTYO7W4iG9BzcF0Qp6FQiGoi5VBpp4Dlid0f5wDY8
34Zpm916Wk7AZpPzXu9LaeAwFRPK2kHAKSWjwJX3NJAwtRFI+Yqfn94jo4/n
44E6hSwVfK+1M7iWkvNpYBD1tfLJKAHiD91YtN7SgJ0l86wwzh01eaQUm0MD
ZOvSWYVzbcWyKo2J52/nLo3r5rivFB15IquC5/P/m9/h/+f3/wH3vagG
"]], LineBox[CompressedData["
1:eJxN2mk0VW3YB3AlZEhSoULmJMkUEd0IkblSBylSUZSKjB3k4SmFzAmhiKjM
mXPMZKhknukg46ESx9j7vO/q3Nd7Puyzfl/23muvtfe+9v9/C15yPHVlIx0d
3Y7/Nv/7L4W4Jv/8mSWtthtF7QtYR45Lwg+XlsFZuTJiv36Df9xA1dNzsyRi
rOs9dqd1JCtucGlsCuz0zZxuaAycF2cX3z0MXjjrotLaB1bc5tfT1DlLuhEQ
qpRxfh0V+ydwlTeDVZaLT+VWgYl59XNvy8BlNzuCU4pmSQZjrmubtNfRH/ER
ycQ8sBr5R8OzTPCpB81v5C7OkryOaKqq0a0j189+N2zLKKS9V0v9/f3XUFsb
62SF9QyJsufipvyQVcRX7rhDkXeatFZG9vtWsILe21czbO2fJBEd5RQsx5aR
VaDMXLfvBGleurQlU2gZUcM8H5LQOKmZyXg/3d0llMQ+sCt6eIwU/yAi2yeP
iuJOytxpDRgleRHqRHh2UpGvg7Xbft0R0oSN/e2VK4tIOduiXO8Y+Odv0803
5cCGPKcl/xwEpysbG4eIj5D4hdmknuxbRIyWBs6CwmBr75PROXzgL5uR+CIT
WC1MrvDoTzJ21h5xHZ8+8N5XvF3VteCOCS6B7yXgYKltdszZ4Elj9sCYN2QS
cagkq39sAWk7sWYdSAG/jNzcVpoIXi9goBrEgvsbKNydjuDS/k5FK02ws9BX
b18lsKRtU12yFPhhwMepw/vJpE9zZO6SpAU08qZ2a50wWO1TlRyBHxw3V35u
ggfM5vH++0F6sCd9uuudmW/YJy3u5Yh3g3lyDWcGqsF/BgpYiovBYyyC4pFZ
4J7E9nzfN+BmhUdat1LA5U3H2ixffCP90cg6t2C5gPIu/bqkFwc24YzuKnAC
UypUDEX0wNY+n0U6Xg+T1kNYLxF2LqDID6PRcdeHSJQkN/kQj9+oeFCc7a3Q
AMl7YF/bppZ5JMyhpnEmvpdE/GiUEL1zHjlv12ViPAGu5TrVVDDbgx1zLkJ1
pBvsGN2RwVEN7il0/S5W1EN6StQ7PJX5C2l28wioZoAzlooIp5PAPLstQq9F
gytiB50qHcDX+S6f3aMOLhW4sad5ohubXcRlyCsMXPBqubLzKthqn/cr6aPg
hhMCA9rSYHm7Ci5LUXD8w0tGTru7SevuCcbbNX8h5jT6hwFbwQMTWkvvl7qw
cyQeXv9GBhNDOQmuR8A61DgttqBO7PfxdyNMfcFCWobkeFdw8JSY7LhDJ+kP
l8M2rZafaCX0j4/MJXDbQBZ/tT4448Cl0rOKYOua6kVPNvCOi/vkXgx3YHuE
TadNPQYP1mQLKCiAjVc/Zx9jB5fLUjROjLVjUw2Ij/W+gqWvsbUZlYGbFk5T
TfLAdn6xvGfSwZs4yWpnE9tJ8ZojZo/O/kSJCRJXCFHg+2y2D65pgy+5J6V5
LLRhHx8bbHycAhY5zUuJOwuOCFD2fiUF3lRO4MhgBKv0fifk/GzFdl5weZE/
AObwK6spbAO/3cY4WdwA1kkwYP9Q3koy5Cw9nv/1BxqVjJQl5YOl1WN+mTOD
PU0T8hYsvmIHxwwlP5cGJw4KRmoygCV8NbZEz7Zg54rY+E91g6l3ndR3fgar
1P2zdqy6heSVQw46rfkD3eeJKLIrAtdeS74blgGe/iV2dugceJtXmoLUBrCk
wqzkq19NpJs1xlaP0+bQ4uLNihOa4MoiiulkRCP24XT2Fc5r4NcxUolHVcHD
YWU/jfY1kuj+7zeHdj821Lq8DXzmn4GnbisN2EGeNycDR8F3zmfIDwSBCaoU
r0MKYEr5TKpzZz32P5ozX4rc6rDpDKY+ZRiA75lONCUJgYvNxvX4t4CXLL83
RC/WYh+5NKa7/RvY5epofVBT7d95iIIcXYerXV3Adg/7y60FwObp7YWHnWuw
9Zuas5jrq7GPUWpe9+8BS3OUJWY7VmHvFyyOi90FFpLNj/avqsROUM6L8ogG
8x7PiXC8ATY/kb198hw4Wi8r7LLGf1aYpfKOTaMOo8xtg5LgnWcyQsy4wWNE
TynejnLsm0ah0R/2k7CR+wUFn/EP2BxJB9o0Ukux/WbiPX+dBVMVOYWTGcGy
/Y0u9wZKsB18/RvO5INT9iH+g8ElpGNNbqysrFNouIl6m+EquMF6sPxqTTF2
zkLN1noRsId8qKqcQwG2xp3z9vG5edh56p8V3BnAYts0Np45l4u9sYb/fcMB
8KDbiq06XS5pLdXV6fnYOCqV7Npd2JaDHT2U1yyVBjbRuSnHewrMkrXvGfNK
NjbFcIs0KT4L+1XvaNCEXwa29uh17kfLb7DHKbOJErfSsAudckaXJV5jB1Cd
JRpHU7DLnr066h2R8nc+GEM/lTv05Y6DxfoYL3z/8QrbnKjoGJsIriRFh9Kv
J2NLbFzOtbcAN7J6q7K1vMDuktgcbBYUj+0uH8S9vDEOe/cxzhcxbs+wpyrb
Rq/LRWOXnngqcZQShS3yiKqfpAcObDJzZE2LxJ5nLwl1YgRbmvDm9dpE/H2f
klFe49cao5Zg7Mx5B+HxHj9silersqGlLzaB0znZjuSN/TSup+STOhG7Q0y9
Vb7aA3tHdupkjLYb9umj7Bs3fLz7934bQLH1xiTZV7bYPm3ibXuqVLE9w7Ub
7OWtEM1VAgEPnnPcwfaLErqlGOyMrc1WSmhhdUW04zH5mqrbB7hj1y9S9jMw
3cNO+RFC5L3vg21rK3E1f90X2+FYyGb+34HYRSye7ZV3w7ETD+5szRSKwP7X
OPNL3OcIRLveN5x0PwXci8Q+E0VudNkfhS3Ux11n/M9T7DlB/UqJ/mjsx+/y
CgdCYrHFlPgywzTjsaXEFw3W2l9gf8y9qJkdkIyd1bGkHq/wCjtqKRw9JoNZ
WK3LNiinYBN5pVTdQsBzB1dKKGMpiHa/XEb1yldUU7Fl/VcPo6evsf80SMvs
+pGGHXP22b7m5LfYh79t4L9PyMReNSb0/aFkYfdnZe4nyeRgdzxkWLvpC/5k
ZfGFvxXcoM9Y7LICrj2SnfRJOBfRnkeVIueDxPTBZRxMrl7O4IzyHL6BnXnY
CbcuVKsWgK2lt1wsVSnAFp4rWVKuLMJ+dKVXWPB2MfZcz7IBk0AJ9slC365y
PXByJIuNhyt4/U7YjFwS+JzxbreZTyWI9nxnYZUIshIrxS6rUXrZSgQHZrkt
JPR+wDaPLTjpoETC3nHc0yhOrxzbszDG3XcZLOWUHvzbpAL728HiJLs0sAqr
hpRQOzhq/GNhL10l9vHOLV6FXOC5GpPjkZLguLzIzXc0wLpJ3c2GhEpEe9/W
N++zKMyswj5BvTsuyFSD/e8WvsyOHHCtUPXdxxdqsbnGb6S6BYCvvuPuvpIH
Zg+Zvt33EZx/p4Ll9GAtos0rF0yjkj7OgxmP2KuosdRhp1SWJey2AmsZcNL/
fg9+crHTR7qgCdHmuTpDvi3GnC0Iz4u6KhZWNuCQ4xZpt/LAfUJ7c8PKwPs3
kkvz6sEuwym1HV9bEG2erSy//oXaBz7v/ZOs8gP8W9Vj0YfhK7Z4SQA/sxTY
/MgzrdCzYJGDncPZVPCM4E6vrzGt2L5tB69kZYC5HmjrB1eCrYa+ImJTK6LN
/+lKF+UcOsDzYVNiFkPgY9Ouu09Ogq+apI0zcLZhP8nvya9QAg/5qJ5WCgDL
6CXOZnWBfXfSB4qLt2O3Dl4RT3QF24V5bfV6DF7VfLpgkQDWjheePJnWjmjf
XyGLmf1KueAeY5UW8Q9gkfT6au46sP7W5bBWCviu8wHrJ1wd2L6COqjBARz8
6TIfQxV4h6hToBAFHON5fwXt6sTuT9mc+0kKLPD1yXVLTXCl7elaESOwzRqX
0LQZeFN4DzH3MjhFPL7bw7ET0b6ny3w7I+f2dGF39nGculoPToyysU+cA9sZ
5/v18HRj96yzsE4IgfXfXQxdlOxGtLygzCKPm1ERLMPCHL9DHcxlm5MuYwpe
rrIoMLwGfqy4YbKyCMz7JoVXkaUH28pd5TuTfi+i5StvP8daoCTwkujKZ5dl
cOAK5ztNjj5sgRaJR5xi4MmSfLclaXBuiobt0FHwvdBPpnXaYO175poZJn1o
a8WKae3deeSw79G6LhEc9rWocPQ1uOqA4qMqhgFEy5fEmEvHk3WGEC1/4iu1
12J4OIxo+RTd8sa0O9++IVr+5ZNwoS11AfxHs/hPHwsZu4zbLnJxB9hrcucB
zr3ggdbpu3tFwMc+VJVL7gfHp8SwKkuREc4fn9w+e0IOvNYj/i7bArwqOkTP
6wcupQY9UwgG32s8esgkGtyXx+lx4TlYJX6i2v4lOO5B+Vb3VPDKrafm/74l
I1p+6sH1y7+kHLxcYpg91wamMjJutlgDL5p8uFAjOoLt253Zf+zACKLlw+zW
L88XSoNjxiN6ZRTAYrcemL85Clb1diDEa4PPBJucDTUB+77dc8rVFpzVMGpg
SQRfO86u+rttBHn9Dh/VfbmIoq27jvROgmu9X8pX0I1in2KKzFVmBPcHP5DN
YwXbcXlkH9wGnn/uIJ3KNYpGbQk74vsWEes7E6kYQbBQqYJkkCTYuIdO3EkD
7EVtEDYjgCOZsgT1bcBvuSL3opvgI/EP4gudwNWiHnyy7v9v/+8c4t54gXvl
L+4R9fvvfP/m+1JmO4tFMsE+xEaCSA+YReOlvt8gOJLRXW1kBCzQaCSvOQlO
fyImnjw7imaKR7Ta9aiojKdt6+VlcOuL+4vCDGPYq7l9tUm7wWK1ilHC0mBl
o1EiWRls1BV2JUkL3BN3zYxeD3zZWs3AxhhMEeVWrzIdQ1znnZjnfKjIbXJG
XtgC/HJVZ1PSLXAje3Kr0L/gW+c4tgn1jSFaP6IcG3RYeg7MMMhifmzTd2zq
IQmyOjN40kfXQYsd3N9i91tnO/iL0EMvfZ7vf+dnKnpfXRtyWggcc5UhyVwS
XH13WT783nfkbTWWZc69hHZFjBA28Y0jWp8TZvzFoEoWzLalVMNXB6wzJfPB
+jTY/2OqovoFcHLht/ksG3BlKl+OwDXwUBTBMeTmOFovNXrN/HIJrfuHS9I5
g0dcNehWG8bRObaNdxaal5ClvNTv4iFwx9yuSfcF8PzgmdSJFfD2z08um22Y
wJYtaxD8yAg2fscweIRtAvEru6E26hIKfOxpxsMN/njtR+uiIDjDIjH1l9sE
ovVfJadS9Xf/A67XzfihFgQ2qpHRPBMG7lB7H2X7FHy+9MiER9wEuuGbuDlS
bxmRFUuPBr8Ar4s2+Pe+B/Ps6Pos3gAWZR10NmoDy24c2+UyAC4iXnMIIE8g
IhvdYrDTMlJbmi6LGwfXOt/aljUDNpj7ZVP1E2w3sCGDg2kS27dpK9VyD3iz
TvjJ2wLgJ1Vcz/1EJ9F6Z9V8aswy4kIxs08lwHHFfBpvDoHTs0W+tyiBC14f
CKQeB1cnyMrsNQR/jVLq0CKACZwfxM0swYNBap4Ol8BXmaubvW0n/zsuNWOi
fBlN+50QCHcAMzmZXh/yAQtZ2+QdjAS/7htjVI8BHyJcNzuTAM5vnXljmwxW
Mbq97pH23/X425ee1HZLepELPqfqrVP/AZx94YaQ8uoUovWtVJbj9EWmM4jW
x55qOarAF01B65RDjDP2a4jlKGtF6XNwRXKP3vkkCqL1uW7s6R0rr8HSbu7W
sRngBD0e154iMPvegsBdNeDah/9yFzVQ0CkB+u0V8WuI+NP0JeELWP686EFq
O3i6Zr7gaS846VC1huIw2PxZeHPHGAXd+zfhxMuCNcRJb0NwmQZ/dJAl7/wJ
Vtu8P4RdfxbR+urM3rpXBufA/JlXSwIvgTt4FLQl7WbRVi+99c/c6yjIl6Gl
8QZYc7rNwt4JvGqaPMbiDs4jOd1O9wLb7z++qus3i4IObBnjOLSOhMI5H0wE
gHtWh7cFPAEXJO1VZUqZRbS+/eaW2bqUN2Ax17JT2tng/qGg/tF8cMRJSzv/
0llE6/fp+VeJ1XXgOz9iwulbwRIW1/mTumYRbT3BcLVSmsYAOFqKWf4bGWwc
3VV2fwK8eeNrXcFZMMneta18fhbR1ju4tGtftFoG/10vgf0/fzSo9A==
"]]},
Annotation[#, "Charting`Private`Tag#1"]& ]}, {}},
{"WolframDynamicHighlight", <|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}],
StyleBox[
DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {},
Slot["HighlightElements"],
Slot["LayoutOptions"],
Slot["Meta"],
Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {},
Annotation[{
Directive[
Opacity[1.],
RGBColor[0.368417, 0.506779, 0.709798],
AbsoluteThickness[2]],
Line[CompressedData["
1:eJw113k01N//B/CiIlTySdJiKwohLaQ+etlJ9kpKivqgUEnWKEKFKNn3JfuS
kWjs1xoxyjoqIcSMwbwt2cX3ds7v98ecOY9z7rznnve59/l6vYRv3DOyZFm3
bt0f/Pn7LQ07GWtrBDIMZv8Vnk6De4v7/RaXCJQOC/E7MmmQ/15WbGaWQN+G
ep1Ds2hw9JDujZExAu078ejp61wayG/3/U7pJtCmlSzeVwU0UBqaaoomEUjV
MGb1VSUNjJ635By7TiAqyviaSaWByxffO9aVTHQl9uanE2x06OzkZFRbTKDW
C9LneBzosK/q3g75veOoqlM1s6ybDkW2dRu39TLQzY5j3hyKo2AeKDv5zXsU
cfR0TkXmjsJCiLsfAjqiytxicO5kQMrWPv6ogRGUXJef7unPgDhtWYcO/2Ek
rnv/YdYyA7ztLFzFz/5C2mrkAA+rMXBnzXZxmBhEv8GpU/L7GFh4fTlAzRxA
84VvklzUxyG8YjgqzuYnemVmLHrz7TiU9h/iyhXpQzYiTg1TeyZgP7eSyoWE
HiQURHop7zUBBRJ+NoNDX1Ec/eGRUvoE9Ne/E5KTo6LLHlcMZ84yYfhw+FH0
oQMdV/wvqjSBCdsfZ8lJr29DDi78YetnmHBYjjicNkNBl4q21esoEGAl7elZ
0ktB3Hpsc7dPEZAotq29pYGCNvituD07TQAPn4zLXCwFaX957lahSMD8/N1q
TTUKarKq1N2vQkBNCfMiI6wZbZQYXGvRJsBEkflYRq4JharuORVvSoCP2kRr
iWsD+udC8U9ud7xea1z/+M0GVJEoObSMvU537HOebgPqqv8jMeJBgMfFUUqK
SAMqjYj0L35MgLPVcGMQ5SNq84x6eMGbgFt+vVUWQh9RmBTn+C1/AnQoLfmb
G+uQ++bNfCyRBAS0UmR8C+oQf5KtQhd2Y2dz3mpcHVLTUY3KiCJAvfdT7sz9
OkSSUeLQjiHgDLM+s3dPHRJxXyU/jSfgCHdl0rt7tej+qfi17hQCeC/kBV/m
q0Fzm7gcRkgEFIi9KFVnrUG7VSwkwvIJMFi0/iVLVKOaCltZ5Xf4/xOET3I0
VCOhFqpEdAEBq/Sw/lLnamTSHFCvVETAyCN36b3UKnRok/C9u6UE3NV/HVUh
jtBv+SRllToCMn9rj4evR8iMvMvhG/Zg9Aalu98qkcGHc2P36gkw/uVCE/Cv
RLcypMgxHwkAt2tyXvQKlNjOkk9rJIA7RbJTJaMcBRrErF1rwfudq9/WeKAU
TQ8XTFR3EfAy+03NmcUS1FVFSdShEmB7zdOpqKUEDUhpOlKxD3w82fPGuQRV
+kb50LoJiAjPSX/UWIwY6iZya98IeHj8teIxOzKSGQyp2dCH90O/M5mlREaf
WqR9n2Afi9NOEeIlo/dn5S3/YI+zbti8tfIDurKxx3e6n4BrHc6d9G0f0F6P
6BPtAwSoOFy1TXhfiERUtOWthwkQEFMQ4PUrRP2U8z1d2MvfeNteXC1E5YFC
caojBBQqf5Fz21iIrLpuPthLI0BsuwrLhUvvUXiVqmMtnQCO/IPRm5ffofVp
K/E4RyCtZzho1DcPPR1Vj/CaIuC7x87E+GN5KFnUV6QFe6uAZr7h4Fsk00X9
tWsanzfzzPYSeIuUdplw5mFrDNvwBSzloEgk1ft5hgA6k0iSsM9C5VI8XoxZ
AvYGCxX0CWQhn4G8GxJz+DzIGtaGtGSi2ck5t9vYxQ8KhpckMhEjRl5jGNt/
wVGieTgdffHSO98xT4AEy9J7W9NUdENPRcZ/Eb+fFIl6QY5UJPIp8Hw5doia
KbWjOAVN9V3OYWIvPStfOL0zBR2MODVrsERAM6enIldbMorJNp3kXMb36S1J
r8ozGc1kr+adxD6u9/O6o3Qy2nY7M+k/7LhgZe8fL5LQ6x3de0uxv0qwv7wc
lICarwq5mK4QoHTndn41Ix5JvnOmPMHOJDW1i2vFo4jbty5kYLsdD+JbYolD
qxoTywT27jM8yTGu0SiFXS7T5Q8B3l4PalmoUahgneDrSOyxms5hm2NRKPqN
Vu4H7HLNSInTzAj0zP2E2zS2meHewp6bYSj63G0781V8XmZmFZzqQhHT6egt
N2yPiC9oq2goksyejX+NHdfj3aw88hr5LJ0jI+zDj68a9mi8RoyI1pgu7DIh
uW7HjGDUp3i0mIFd2Nxer9/2EoVfckjiWSOgk/tZm3dIEBo7rWYrij1zUaG3
6HwgWt3y/Z489tGfib/3UP2RNOdpscvYhqLn1+lH+iEiern7Fra9zSYub5Pn
qLLXptYFm/Tbbj/9uy+yXVTRDMX+rCAksyfOB2UdTOlPxGY+7jilZ+aNyshJ
73Kwt9Q903gi8AS1TspXfMA24XFMvYU8ka+JJUs1dmTc97LPyo/QQIHokyZs
qphyx/G6h8iaxVmhA3vHuwxGjIYr4vI7L9mDff70Vpb1n5xQem2Z8SB2SL0j
v/W5B0jQIbeMjt2q33OkpcUehQfvv8LEFij0CbZKskP0y4JHZ7BjGw3Q0TRr
9EgzQXUee1fvPuZq1g0E2xNfLmFLDnUpRJiZojdvhf75gy3GZR8pbW2IkgxF
2laxvToPde6pVUTF9imNuM7D4W29NhulDsB0ecriX1OnvBO5F7RgWGz/f389
qX9w+p6DMaT0CrP//b17qEaT7XFzaNFLGl7GXn3sFpsoYwkBYokrC3+fb5Nr
1yFhAwH6grqz2KzG/YpsYveAdUa4exK7Vsj/eTy3A5BcM2PGsH0jROzlXzpC
+7PCyGFsDa5ykzZOF0hdr/W5D5vN+6Kyrb8b8G2xPNON3TjPFN/I5gGxHFvp
n7ED7vjxJPo+BvMY9eZ67PSp4Ed7n3gBT+xWehm2tbWE1YdVb5B8Y/E5DVtL
xOWKj6IvHEiYjozGPtRbq2fg8RQOzonEBmIzjMzkGYvPYfa8g549dtOWbEny
SX8IUIlZNcfOaZwT9HUJgPfXHtANsO3OBLMLzAaCUKLubWls3cUfK4xjL6Er
4fK6vdjSheJTZIdXMO99uI0deyFsYPzQQjBoXgWhn/i8l3C4d9U4hUJ4Zpvj
U+wkKd4OkkgYODZoltlgPzMgtcZ9CYPbt4t26WNfiBhqdhaPAJP7Sbt4sSeF
dWokeqPAduOoVAS+n91qI4gvIBouGuhIOWJXWntVbJCPgQRdFjVD7BdvC4v7
gmOhzzCGzI4tprCPFKKWADNfFortcD5wXSXnek4lQFXaHUdV7JnHhtl2CYnw
tTxNkx/bfLDGaL9HErzVTDhRg/NI+tC87p+uZBh+4Sa7GfvT++tq7/xTwfTk
8WJbnH//1h+uPfgzFRrVB+ePYedTF5UT5NKgU83RYHkB16vFUHgxlAapNZE6
z7H/g8ZTlooZsC/75IMwnLdrTUdk+aey4NyN9iAfnN8OP/6QXmlmw2qngpUi
9shEk/SmhGww9Fs0mftNAIXb8vCMdg585WQEWWLHGEcfbEnNBech95MKuB6c
GFwv8MSEBHEhrZlFk3j/pZemjmSRoIV/T78VtljI27qfiyTQ0p/U48PmTM49
kaSbDzuGEnucCAJWDEx+rDHzQenDrxxxJgG9+SRxJFsAvHeMwA7Xr0T7a3WK
5EJY9jdZMMP1MO7q5rzw/kIwSzYNn/tFQJRWYeQEWxFAos+9l9jBQhy28SZF
0NJe11M2hO9Pa9H2P4tF4CiSHbllkACLI1uul/9LBsGUrNJAXJ/3T5Ytnqop
gdEoifQlXP89WlR9f0+UgFDdsQf22NTs5q15/KVw81qq+TDuHwIse/YL3y+F
f3Y8jad04vPyfUmXTagMhso7U4Pb8fmoV3jT8agcSu7w8xG4/7gSS9a2U0DQ
6rLMyob7mUJX6BK1RMDpkaRmUYvrr3HD9f5gBNrgkVtaQ0A1d7ejER2BR2Lt
tE01zjtVd/24c1XAfmK7eXUlzoviGDfvpSo4V+I4rV5CwNmUby16JjUgEPIi
i/QW7+dpnlX9nRqwpHykTOfi93PLZ+20Tw34pMaIncCmS0nJiufVQA2NzZOc
TYBfsVcY64ZasFEe+VSQgfOg5aBpMakWUsoa1nySCdBccKILs9WD9TQXOSQM
94+6PKyzRQ3wxniHur0r7qcsNk8tfmqAPjk+vlAXXE+d1vWv9jbAwfJWrSJn
AmwSmKXsmxpBXtiEMu+I1xNNDnuNG6FD2fCK0328/rXPoOpcI2yQ5GowssHr
qb+rQ+SaYKfz4Oso3D+/ut7tdYRMgVRfao7ZvwQ06O3bYsDTBgo/QkfZppgw
Icz7uD2mA/Zv4hrResMEJ0dJi1c7qdAkHyaorceE7h/cRlaNX+FSU5FE+fgE
mLv9S2PT6YEMyzrjhsAJqJWUD6jd2Adyfeq23kITILa5nJ6q9RPOBuvNmReP
w75yW/WNfgPgn/k9SclgHNYtsWQ5DA5C8+FFrfbeMZg3rLhWL/oLWoW1dmo6
jEHP8et7RH2HwWBXZ0jQHwbYX+LeLvJjBIZpOpF6LxjAH/bLZMM+OoxCzoyD
MAPyTJMyZlxHgbWyy+EzaRQuKXpqNVYwYCxs94YtmqPw7todkVMrY6Bzc9OP
1gE6LHCospZcnAAn8xp9ihMdjNpOy+2LYgKaN5Xo5qEDx2nO6vJ4JrhGvfEQ
3k6H6tTv566mMOGiltJv2210OOLqZhGbx4SMsbjz67nosFWQHMhfz4Si+PgO
qY10+GR3dIh3Gs9N6qS+oHk8b7KLB2/VIUB2IlvP5gcNFu4v7M4zxLnkWGhS
8p0GpJ6GNN1LuG+RHPJj/0YDAZJVWeANXDedG0wzumiwcjF1hMONANVYHcrI
ZxqQUwQV2dJxnc8/3mtXTYO7W4iG9BzcF0Qp6FQiGoi5VBpp4Dlid0f5wDY8
34Zpm916Wk7AZpPzXu9LaeAwFRPK2kHAKSWjwJX3NJAwtRFI+Yqfn94jo4/n
44E6hSwVfK+1M7iWkvNpYBD1tfLJKAHiD91YtN7SgJ0l86wwzh01eaQUm0MD
ZOvSWYVzbcWyKo2J52/nLo3r5rivFB15IquC5/P/m9/h/+f3/wH3vagG
"]],
Line[CompressedData["
1:eJxN2mk0VW3YB3AlZEhSoULmJMkUEd0IkblSBylSUZSKjB3k4SmFzAmhiKjM
mXPMZKhknukg46ESx9j7vO/q3Nd7Puyzfl/23muvtfe+9v9/C15yPHVlIx0d
3Y7/Nv/7L4W4Jv/8mSWtthtF7QtYR45Lwg+XlsFZuTJiv36Df9xA1dNzsyRi
rOs9dqd1JCtucGlsCuz0zZxuaAycF2cX3z0MXjjrotLaB1bc5tfT1DlLuhEQ
qpRxfh0V+ydwlTeDVZaLT+VWgYl59XNvy8BlNzuCU4pmSQZjrmubtNfRH/ER
ycQ8sBr5R8OzTPCpB81v5C7OkryOaKqq0a0j189+N2zLKKS9V0v9/f3XUFsb
62SF9QyJsufipvyQVcRX7rhDkXeatFZG9vtWsILe21czbO2fJBEd5RQsx5aR
VaDMXLfvBGleurQlU2gZUcM8H5LQOKmZyXg/3d0llMQ+sCt6eIwU/yAi2yeP
iuJOytxpDRgleRHqRHh2UpGvg7Xbft0R0oSN/e2VK4tIOduiXO8Y+Odv0803
5cCGPKcl/xwEpysbG4eIj5D4hdmknuxbRIyWBs6CwmBr75PROXzgL5uR+CIT
WC1MrvDoTzJ21h5xHZ8+8N5XvF3VteCOCS6B7yXgYKltdszZ4Elj9sCYN2QS
cagkq39sAWk7sWYdSAG/jNzcVpoIXi9goBrEgvsbKNydjuDS/k5FK02ws9BX
b18lsKRtU12yFPhhwMepw/vJpE9zZO6SpAU08qZ2a50wWO1TlRyBHxw3V35u
ggfM5vH++0F6sCd9uuudmW/YJy3u5Yh3g3lyDWcGqsF/BgpYiovBYyyC4pFZ
4J7E9nzfN+BmhUdat1LA5U3H2ixffCP90cg6t2C5gPIu/bqkFwc24YzuKnAC
UypUDEX0wNY+n0U6Xg+T1kNYLxF2LqDID6PRcdeHSJQkN/kQj9+oeFCc7a3Q
AMl7YF/bppZ5JMyhpnEmvpdE/GiUEL1zHjlv12ViPAGu5TrVVDDbgx1zLkJ1
pBvsGN2RwVEN7il0/S5W1EN6StQ7PJX5C2l28wioZoAzlooIp5PAPLstQq9F
gytiB50qHcDX+S6f3aMOLhW4sad5ohubXcRlyCsMXPBqubLzKthqn/cr6aPg
hhMCA9rSYHm7Ci5LUXD8w0tGTru7SevuCcbbNX8h5jT6hwFbwQMTWkvvl7qw
cyQeXv9GBhNDOQmuR8A61DgttqBO7PfxdyNMfcFCWobkeFdw8JSY7LhDJ+kP
l8M2rZafaCX0j4/MJXDbQBZ/tT4448Cl0rOKYOua6kVPNvCOi/vkXgx3YHuE
TadNPQYP1mQLKCiAjVc/Zx9jB5fLUjROjLVjUw2Ij/W+gqWvsbUZlYGbFk5T
TfLAdn6xvGfSwZs4yWpnE9tJ8ZojZo/O/kSJCRJXCFHg+2y2D65pgy+5J6V5
LLRhHx8bbHycAhY5zUuJOwuOCFD2fiUF3lRO4MhgBKv0fifk/GzFdl5weZE/
AObwK6spbAO/3cY4WdwA1kkwYP9Q3koy5Cw9nv/1BxqVjJQl5YOl1WN+mTOD
PU0T8hYsvmIHxwwlP5cGJw4KRmoygCV8NbZEz7Zg54rY+E91g6l3ndR3fgar
1P2zdqy6heSVQw46rfkD3eeJKLIrAtdeS74blgGe/iV2dugceJtXmoLUBrCk
wqzkq19NpJs1xlaP0+bQ4uLNihOa4MoiiulkRCP24XT2Fc5r4NcxUolHVcHD
YWU/jfY1kuj+7zeHdj821Lq8DXzmn4GnbisN2EGeNycDR8F3zmfIDwSBCaoU
r0MKYEr5TKpzZz32P5ozX4rc6rDpDKY+ZRiA75lONCUJgYvNxvX4t4CXLL83
RC/WYh+5NKa7/RvY5epofVBT7d95iIIcXYerXV3Adg/7y60FwObp7YWHnWuw
9Zuas5jrq7GPUWpe9+8BS3OUJWY7VmHvFyyOi90FFpLNj/avqsROUM6L8ogG
8x7PiXC8ATY/kb198hw4Wi8r7LLGf1aYpfKOTaMOo8xtg5LgnWcyQsy4wWNE
TynejnLsm0ah0R/2k7CR+wUFn/EP2BxJB9o0Ukux/WbiPX+dBVMVOYWTGcGy
/Y0u9wZKsB18/RvO5INT9iH+g8ElpGNNbqysrFNouIl6m+EquMF6sPxqTTF2
zkLN1noRsId8qKqcQwG2xp3z9vG5edh56p8V3BnAYts0Np45l4u9sYb/fcMB
8KDbiq06XS5pLdXV6fnYOCqV7Npd2JaDHT2U1yyVBjbRuSnHewrMkrXvGfNK
NjbFcIs0KT4L+1XvaNCEXwa29uh17kfLb7DHKbOJErfSsAudckaXJV5jB1Cd
JRpHU7DLnr066h2R8nc+GEM/lTv05Y6DxfoYL3z/8QrbnKjoGJsIriRFh9Kv
J2NLbFzOtbcAN7J6q7K1vMDuktgcbBYUj+0uH8S9vDEOe/cxzhcxbs+wpyrb
Rq/LRWOXnngqcZQShS3yiKqfpAcObDJzZE2LxJ5nLwl1YgRbmvDm9dpE/H2f
klFe49cao5Zg7Mx5B+HxHj9silersqGlLzaB0znZjuSN/TSup+STOhG7Q0y9
Vb7aA3tHdupkjLYb9umj7Bs3fLz7934bQLH1xiTZV7bYPm3ibXuqVLE9w7Ub
7OWtEM1VAgEPnnPcwfaLErqlGOyMrc1WSmhhdUW04zH5mqrbB7hj1y9S9jMw
3cNO+RFC5L3vg21rK3E1f90X2+FYyGb+34HYRSye7ZV3w7ETD+5szRSKwP7X
OPNL3OcIRLveN5x0PwXci8Q+E0VudNkfhS3Ux11n/M9T7DlB/UqJ/mjsx+/y
CgdCYrHFlPgywzTjsaXEFw3W2l9gf8y9qJkdkIyd1bGkHq/wCjtqKRw9JoNZ
WK3LNiinYBN5pVTdQsBzB1dKKGMpiHa/XEb1yldUU7Fl/VcPo6evsf80SMvs
+pGGHXP22b7m5LfYh79t4L9PyMReNSb0/aFkYfdnZe4nyeRgdzxkWLvpC/5k
ZfGFvxXcoM9Y7LICrj2SnfRJOBfRnkeVIueDxPTBZRxMrl7O4IzyHL6BnXnY
CbcuVKsWgK2lt1wsVSnAFp4rWVKuLMJ+dKVXWPB2MfZcz7IBk0AJ9slC365y
PXByJIuNhyt4/U7YjFwS+JzxbreZTyWI9nxnYZUIshIrxS6rUXrZSgQHZrkt
JPR+wDaPLTjpoETC3nHc0yhOrxzbszDG3XcZLOWUHvzbpAL728HiJLs0sAqr
hpRQOzhq/GNhL10l9vHOLV6FXOC5GpPjkZLguLzIzXc0wLpJ3c2GhEpEe9/W
N++zKMyswj5BvTsuyFSD/e8WvsyOHHCtUPXdxxdqsbnGb6S6BYCvvuPuvpIH
Zg+Zvt33EZx/p4Ll9GAtos0rF0yjkj7OgxmP2KuosdRhp1SWJey2AmsZcNL/
fg9+crHTR7qgCdHmuTpDvi3GnC0Iz4u6KhZWNuCQ4xZpt/LAfUJ7c8PKwPs3
kkvz6sEuwym1HV9bEG2erSy//oXaBz7v/ZOs8gP8W9Vj0YfhK7Z4SQA/sxTY
/MgzrdCzYJGDncPZVPCM4E6vrzGt2L5tB69kZYC5HmjrB1eCrYa+ImJTK6LN
/+lKF+UcOsDzYVNiFkPgY9Ouu09Ogq+apI0zcLZhP8nvya9QAg/5qJ5WCgDL
6CXOZnWBfXfSB4qLt2O3Dl4RT3QF24V5bfV6DF7VfLpgkQDWjheePJnWjmjf
XyGLmf1KueAeY5UW8Q9gkfT6au46sP7W5bBWCviu8wHrJ1wd2L6COqjBARz8
6TIfQxV4h6hToBAFHON5fwXt6sTuT9mc+0kKLPD1yXVLTXCl7elaESOwzRqX
0LQZeFN4DzH3MjhFPL7bw7ET0b6ny3w7I+f2dGF39nGculoPToyysU+cA9sZ
5/v18HRj96yzsE4IgfXfXQxdlOxGtLygzCKPm1ERLMPCHL9DHcxlm5MuYwpe
rrIoMLwGfqy4YbKyCMz7JoVXkaUH28pd5TuTfi+i5StvP8daoCTwkujKZ5dl
cOAK5ztNjj5sgRaJR5xi4MmSfLclaXBuiobt0FHwvdBPpnXaYO175poZJn1o
a8WKae3deeSw79G6LhEc9rWocPQ1uOqA4qMqhgFEy5fEmEvHk3WGEC1/4iu1
12J4OIxo+RTd8sa0O9++IVr+5ZNwoS11AfxHs/hPHwsZu4zbLnJxB9hrcucB
zr3ggdbpu3tFwMc+VJVL7gfHp8SwKkuREc4fn9w+e0IOvNYj/i7bArwqOkTP
6wcupQY9UwgG32s8esgkGtyXx+lx4TlYJX6i2v4lOO5B+Vb3VPDKrafm/74l
I1p+6sH1y7+kHLxcYpg91wamMjJutlgDL5p8uFAjOoLt253Zf+zACKLlw+zW
L88XSoNjxiN6ZRTAYrcemL85Clb1diDEa4PPBJucDTUB+77dc8rVFpzVMGpg
SQRfO86u+rttBHn9Dh/VfbmIoq27jvROgmu9X8pX0I1in2KKzFVmBPcHP5DN
YwXbcXlkH9wGnn/uIJ3KNYpGbQk74vsWEes7E6kYQbBQqYJkkCTYuIdO3EkD
7EVtEDYjgCOZsgT1bcBvuSL3opvgI/EP4gudwNWiHnyy7v9v/+8c4t54gXvl
L+4R9fvvfP/m+1JmO4tFMsE+xEaCSA+YReOlvt8gOJLRXW1kBCzQaCSvOQlO
fyImnjw7imaKR7Ta9aiojKdt6+VlcOuL+4vCDGPYq7l9tUm7wWK1ilHC0mBl
o1EiWRls1BV2JUkL3BN3zYxeD3zZWs3AxhhMEeVWrzIdQ1znnZjnfKjIbXJG
XtgC/HJVZ1PSLXAje3Kr0L/gW+c4tgn1jSFaP6IcG3RYeg7MMMhifmzTd2zq
IQmyOjN40kfXQYsd3N9i91tnO/iL0EMvfZ7vf+dnKnpfXRtyWggcc5UhyVwS
XH13WT783nfkbTWWZc69hHZFjBA28Y0jWp8TZvzFoEoWzLalVMNXB6wzJfPB
+jTY/2OqovoFcHLht/ksG3BlKl+OwDXwUBTBMeTmOFovNXrN/HIJrfuHS9I5
g0dcNehWG8bRObaNdxaal5ClvNTv4iFwx9yuSfcF8PzgmdSJFfD2z08um22Y
wJYtaxD8yAg2fscweIRtAvEru6E26hIKfOxpxsMN/njtR+uiIDjDIjH1l9sE
ovVfJadS9Xf/A67XzfihFgQ2qpHRPBMG7lB7H2X7FHy+9MiER9wEuuGbuDlS
bxmRFUuPBr8Ar4s2+Pe+B/Ps6Pos3gAWZR10NmoDy24c2+UyAC4iXnMIIE8g
IhvdYrDTMlJbmi6LGwfXOt/aljUDNpj7ZVP1E2w3sCGDg2kS27dpK9VyD3iz
TvjJ2wLgJ1Vcz/1EJ9F6Z9V8aswy4kIxs08lwHHFfBpvDoHTs0W+tyiBC14f
CKQeB1cnyMrsNQR/jVLq0CKACZwfxM0swYNBap4Ol8BXmaubvW0n/zsuNWOi
fBlN+50QCHcAMzmZXh/yAQtZ2+QdjAS/7htjVI8BHyJcNzuTAM5vnXljmwxW
Mbq97pH23/X425ee1HZLepELPqfqrVP/AZx94YaQ8uoUovWtVJbj9EWmM4jW
x55qOarAF01B65RDjDP2a4jlKGtF6XNwRXKP3vkkCqL1uW7s6R0rr8HSbu7W
sRngBD0e154iMPvegsBdNeDah/9yFzVQ0CkB+u0V8WuI+NP0JeELWP686EFq
O3i6Zr7gaS846VC1huIw2PxZeHPHGAXd+zfhxMuCNcRJb0NwmQZ/dJAl7/wJ
Vtu8P4RdfxbR+urM3rpXBufA/JlXSwIvgTt4FLQl7WbRVi+99c/c6yjIl6Gl
8QZYc7rNwt4JvGqaPMbiDs4jOd1O9wLb7z++qus3i4IObBnjOLSOhMI5H0wE
gHtWh7cFPAEXJO1VZUqZRbS+/eaW2bqUN2Ax17JT2tng/qGg/tF8cMRJSzv/
0llE6/fp+VeJ1XXgOz9iwulbwRIW1/mTumYRbT3BcLVSmsYAOFqKWf4bGWwc
3VV2fwK8eeNrXcFZMMneta18fhbR1ju4tGtftFoG/10vgf0/fzSo9A==
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
"HighlightElements" -> <|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
"LayoutOptions" -> <|
"PanelPlotLayout" -> <||>,
"PlotRange" -> {{-1., 1.}, {0.4771212547196624,
1.9084850188786495`}},
"Frame" -> {{False, False}, {False, False}},
"AxesOrigin" -> {0, 0.47712125471966343`},
"ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True},
"LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1),
"DefaultStyle" -> {
Directive[
Opacity[1.],
RGBColor[0.368417, 0.506779, 0.709798],
AbsoluteThickness[2]]},
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
Identity[
Part[#, 1]],
Identity[
Part[#, 2]]}& ),
"ScalingFunctions" -> {{Identity, Identity}, {
Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" ->
False|>,
"Meta" -> <|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" ->
Plot, "GroupHighlight" -> False|>|>]]& )[<|
"HighlightElements" -> <|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
"LayoutOptions" -> <|
"PanelPlotLayout" -> <||>,
"PlotRange" -> {{-1., 1.}, {0.4771212547196624,
1.9084850188786495`}}, "Frame" -> {{False, False}, {False, False}},
"AxesOrigin" -> {0, 0.47712125471966343`},
"ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True},
"LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1),
"DefaultStyle" -> {
Directive[
Opacity[1.],
RGBColor[0.368417, 0.506779, 0.709798],
AbsoluteThickness[2]]},
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
Identity[
Part[#, 1]],
Identity[
Part[#, 2]]}& ),
"ScalingFunctions" -> {{Identity, Identity}, {
Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
"Meta" -> <|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" ->
Plot, "GroupHighlight" -> False|>|>],
ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
4.503599627370496*^15, -4.503599627370496*^15}}],
Selectable->False]},
Annotation[{{{{}, {},
Annotation[{
Directive[
Opacity[1.],
RGBColor[0.368417, 0.506779, 0.709798],
AbsoluteThickness[2]],
Line[CompressedData["
1:eJw113k01N//B/CiIlTySdJiKwohLaQ+etlJ9kpKivqgUEnWKEKFKNn3JfuS
kWjs1xoxyjoqIcSMwbwt2cX3ds7v98ecOY9z7rznnve59/l6vYRv3DOyZFm3
bt0f/Pn7LQ07GWtrBDIMZv8Vnk6De4v7/RaXCJQOC/E7MmmQ/15WbGaWQN+G
ep1Ds2hw9JDujZExAu078ejp61wayG/3/U7pJtCmlSzeVwU0UBqaaoomEUjV
MGb1VSUNjJ635By7TiAqyviaSaWByxffO9aVTHQl9uanE2x06OzkZFRbTKDW
C9LneBzosK/q3g75veOoqlM1s6ybDkW2dRu39TLQzY5j3hyKo2AeKDv5zXsU
cfR0TkXmjsJCiLsfAjqiytxicO5kQMrWPv6ogRGUXJef7unPgDhtWYcO/2Ek
rnv/YdYyA7ztLFzFz/5C2mrkAA+rMXBnzXZxmBhEv8GpU/L7GFh4fTlAzRxA
84VvklzUxyG8YjgqzuYnemVmLHrz7TiU9h/iyhXpQzYiTg1TeyZgP7eSyoWE
HiQURHop7zUBBRJ+NoNDX1Ec/eGRUvoE9Ne/E5KTo6LLHlcMZ84yYfhw+FH0
oQMdV/wvqjSBCdsfZ8lJr29DDi78YetnmHBYjjicNkNBl4q21esoEGAl7elZ
0ktB3Hpsc7dPEZAotq29pYGCNvituD07TQAPn4zLXCwFaX957lahSMD8/N1q
TTUKarKq1N2vQkBNCfMiI6wZbZQYXGvRJsBEkflYRq4JharuORVvSoCP2kRr
iWsD+udC8U9ud7xea1z/+M0GVJEoObSMvU537HOebgPqqv8jMeJBgMfFUUqK
SAMqjYj0L35MgLPVcGMQ5SNq84x6eMGbgFt+vVUWQh9RmBTn+C1/AnQoLfmb
G+uQ++bNfCyRBAS0UmR8C+oQf5KtQhd2Y2dz3mpcHVLTUY3KiCJAvfdT7sz9
OkSSUeLQjiHgDLM+s3dPHRJxXyU/jSfgCHdl0rt7tej+qfi17hQCeC/kBV/m
q0Fzm7gcRkgEFIi9KFVnrUG7VSwkwvIJMFi0/iVLVKOaCltZ5Xf4/xOET3I0
VCOhFqpEdAEBq/Sw/lLnamTSHFCvVETAyCN36b3UKnRok/C9u6UE3NV/HVUh
jtBv+SRllToCMn9rj4evR8iMvMvhG/Zg9Aalu98qkcGHc2P36gkw/uVCE/Cv
RLcypMgxHwkAt2tyXvQKlNjOkk9rJIA7RbJTJaMcBRrErF1rwfudq9/WeKAU
TQ8XTFR3EfAy+03NmcUS1FVFSdShEmB7zdOpqKUEDUhpOlKxD3w82fPGuQRV
+kb50LoJiAjPSX/UWIwY6iZya98IeHj8teIxOzKSGQyp2dCH90O/M5mlREaf
WqR9n2Afi9NOEeIlo/dn5S3/YI+zbti8tfIDurKxx3e6n4BrHc6d9G0f0F6P
6BPtAwSoOFy1TXhfiERUtOWthwkQEFMQ4PUrRP2U8z1d2MvfeNteXC1E5YFC
caojBBQqf5Fz21iIrLpuPthLI0BsuwrLhUvvUXiVqmMtnQCO/IPRm5ffofVp
K/E4RyCtZzho1DcPPR1Vj/CaIuC7x87E+GN5KFnUV6QFe6uAZr7h4Fsk00X9
tWsanzfzzPYSeIuUdplw5mFrDNvwBSzloEgk1ft5hgA6k0iSsM9C5VI8XoxZ
AvYGCxX0CWQhn4G8GxJz+DzIGtaGtGSi2ck5t9vYxQ8KhpckMhEjRl5jGNt/
wVGieTgdffHSO98xT4AEy9J7W9NUdENPRcZ/Eb+fFIl6QY5UJPIp8Hw5doia
KbWjOAVN9V3OYWIvPStfOL0zBR2MODVrsERAM6enIldbMorJNp3kXMb36S1J
r8ozGc1kr+adxD6u9/O6o3Qy2nY7M+k/7LhgZe8fL5LQ6x3de0uxv0qwv7wc
lICarwq5mK4QoHTndn41Ix5JvnOmPMHOJDW1i2vFo4jbty5kYLsdD+JbYolD
qxoTywT27jM8yTGu0SiFXS7T5Q8B3l4PalmoUahgneDrSOyxms5hm2NRKPqN
Vu4H7HLNSInTzAj0zP2E2zS2meHewp6bYSj63G0781V8XmZmFZzqQhHT6egt
N2yPiC9oq2goksyejX+NHdfj3aw88hr5LJ0jI+zDj68a9mi8RoyI1pgu7DIh
uW7HjGDUp3i0mIFd2Nxer9/2EoVfckjiWSOgk/tZm3dIEBo7rWYrij1zUaG3
6HwgWt3y/Z489tGfib/3UP2RNOdpscvYhqLn1+lH+iEiern7Fra9zSYub5Pn
qLLXptYFm/Tbbj/9uy+yXVTRDMX+rCAksyfOB2UdTOlPxGY+7jilZ+aNyshJ
73Kwt9Q903gi8AS1TspXfMA24XFMvYU8ka+JJUs1dmTc97LPyo/QQIHokyZs
qphyx/G6h8iaxVmhA3vHuwxGjIYr4vI7L9mDff70Vpb1n5xQem2Z8SB2SL0j
v/W5B0jQIbeMjt2q33OkpcUehQfvv8LEFij0CbZKskP0y4JHZ7BjGw3Q0TRr
9EgzQXUee1fvPuZq1g0E2xNfLmFLDnUpRJiZojdvhf75gy3GZR8pbW2IkgxF
2laxvToPde6pVUTF9imNuM7D4W29NhulDsB0ecriX1OnvBO5F7RgWGz/f389
qX9w+p6DMaT0CrP//b17qEaT7XFzaNFLGl7GXn3sFpsoYwkBYokrC3+fb5Nr
1yFhAwH6grqz2KzG/YpsYveAdUa4exK7Vsj/eTy3A5BcM2PGsH0jROzlXzpC
+7PCyGFsDa5ykzZOF0hdr/W5D5vN+6Kyrb8b8G2xPNON3TjPFN/I5gGxHFvp
n7ED7vjxJPo+BvMY9eZ67PSp4Ed7n3gBT+xWehm2tbWE1YdVb5B8Y/E5DVtL
xOWKj6IvHEiYjozGPtRbq2fg8RQOzonEBmIzjMzkGYvPYfa8g549dtOWbEny
SX8IUIlZNcfOaZwT9HUJgPfXHtANsO3OBLMLzAaCUKLubWls3cUfK4xjL6Er
4fK6vdjSheJTZIdXMO99uI0deyFsYPzQQjBoXgWhn/i8l3C4d9U4hUJ4Zpvj
U+wkKd4OkkgYODZoltlgPzMgtcZ9CYPbt4t26WNfiBhqdhaPAJP7Sbt4sSeF
dWokeqPAduOoVAS+n91qI4gvIBouGuhIOWJXWntVbJCPgQRdFjVD7BdvC4v7
gmOhzzCGzI4tprCPFKKWADNfFortcD5wXSXnek4lQFXaHUdV7JnHhtl2CYnw
tTxNkx/bfLDGaL9HErzVTDhRg/NI+tC87p+uZBh+4Sa7GfvT++tq7/xTwfTk
8WJbnH//1h+uPfgzFRrVB+ePYedTF5UT5NKgU83RYHkB16vFUHgxlAapNZE6
z7H/g8ZTlooZsC/75IMwnLdrTUdk+aey4NyN9iAfnN8OP/6QXmlmw2qngpUi
9shEk/SmhGww9Fs0mftNAIXb8vCMdg585WQEWWLHGEcfbEnNBech95MKuB6c
GFwv8MSEBHEhrZlFk3j/pZemjmSRoIV/T78VtljI27qfiyTQ0p/U48PmTM49
kaSbDzuGEnucCAJWDEx+rDHzQenDrxxxJgG9+SRxJFsAvHeMwA7Xr0T7a3WK
5EJY9jdZMMP1MO7q5rzw/kIwSzYNn/tFQJRWYeQEWxFAos+9l9jBQhy28SZF
0NJe11M2hO9Pa9H2P4tF4CiSHbllkACLI1uul/9LBsGUrNJAXJ/3T5Ytnqop
gdEoifQlXP89WlR9f0+UgFDdsQf22NTs5q15/KVw81qq+TDuHwIse/YL3y+F
f3Y8jad04vPyfUmXTagMhso7U4Pb8fmoV3jT8agcSu7w8xG4/7gSS9a2U0DQ
6rLMyob7mUJX6BK1RMDpkaRmUYvrr3HD9f5gBNrgkVtaQ0A1d7ejER2BR2Lt
tE01zjtVd/24c1XAfmK7eXUlzoviGDfvpSo4V+I4rV5CwNmUby16JjUgEPIi
i/QW7+dpnlX9nRqwpHykTOfi93PLZ+20Tw34pMaIncCmS0nJiufVQA2NzZOc
TYBfsVcY64ZasFEe+VSQgfOg5aBpMakWUsoa1nySCdBccKILs9WD9TQXOSQM
94+6PKyzRQ3wxniHur0r7qcsNk8tfmqAPjk+vlAXXE+d1vWv9jbAwfJWrSJn
AmwSmKXsmxpBXtiEMu+I1xNNDnuNG6FD2fCK0328/rXPoOpcI2yQ5GowssHr
qb+rQ+SaYKfz4Oso3D+/ut7tdYRMgVRfao7ZvwQ06O3bYsDTBgo/QkfZppgw
Icz7uD2mA/Zv4hrResMEJ0dJi1c7qdAkHyaorceE7h/cRlaNX+FSU5FE+fgE
mLv9S2PT6YEMyzrjhsAJqJWUD6jd2Adyfeq23kITILa5nJ6q9RPOBuvNmReP
w75yW/WNfgPgn/k9SclgHNYtsWQ5DA5C8+FFrfbeMZg3rLhWL/oLWoW1dmo6
jEHP8et7RH2HwWBXZ0jQHwbYX+LeLvJjBIZpOpF6LxjAH/bLZMM+OoxCzoyD
MAPyTJMyZlxHgbWyy+EzaRQuKXpqNVYwYCxs94YtmqPw7todkVMrY6Bzc9OP
1gE6LHCospZcnAAn8xp9ihMdjNpOy+2LYgKaN5Xo5qEDx2nO6vJ4JrhGvfEQ
3k6H6tTv566mMOGiltJv2210OOLqZhGbx4SMsbjz67nosFWQHMhfz4Si+PgO
qY10+GR3dIh3Gs9N6qS+oHk8b7KLB2/VIUB2IlvP5gcNFu4v7M4zxLnkWGhS
8p0GpJ6GNN1LuG+RHPJj/0YDAZJVWeANXDedG0wzumiwcjF1hMONANVYHcrI
ZxqQUwQV2dJxnc8/3mtXTYO7W4iG9BzcF0Qp6FQiGoi5VBpp4Dlid0f5wDY8
34Zpm916Wk7AZpPzXu9LaeAwFRPK2kHAKSWjwJX3NJAwtRFI+Yqfn94jo4/n
44E6hSwVfK+1M7iWkvNpYBD1tfLJKAHiD91YtN7SgJ0l86wwzh01eaQUm0MD
ZOvSWYVzbcWyKo2J52/nLo3r5rivFB15IquC5/P/m9/h/+f3/wH3vagG
"]],
Line[CompressedData["
1:eJxN2mk0VW3YB3AlZEhSoULmJMkUEd0IkblSBylSUZSKjB3k4SmFzAmhiKjM
mXPMZKhknukg46ESx9j7vO/q3Nd7Puyzfl/23muvtfe+9v9/C15yPHVlIx0d
3Y7/Nv/7L4W4Jv/8mSWtthtF7QtYR45Lwg+XlsFZuTJiv36Df9xA1dNzsyRi
rOs9dqd1JCtucGlsCuz0zZxuaAycF2cX3z0MXjjrotLaB1bc5tfT1DlLuhEQ
qpRxfh0V+ydwlTeDVZaLT+VWgYl59XNvy8BlNzuCU4pmSQZjrmubtNfRH/ER
ycQ8sBr5R8OzTPCpB81v5C7OkryOaKqq0a0j189+N2zLKKS9V0v9/f3XUFsb
62SF9QyJsufipvyQVcRX7rhDkXeatFZG9vtWsILe21czbO2fJBEd5RQsx5aR
VaDMXLfvBGleurQlU2gZUcM8H5LQOKmZyXg/3d0llMQ+sCt6eIwU/yAi2yeP
iuJOytxpDRgleRHqRHh2UpGvg7Xbft0R0oSN/e2VK4tIOduiXO8Y+Odv0803
5cCGPKcl/xwEpysbG4eIj5D4hdmknuxbRIyWBs6CwmBr75PROXzgL5uR+CIT
WC1MrvDoTzJ21h5xHZ8+8N5XvF3VteCOCS6B7yXgYKltdszZ4Elj9sCYN2QS
cagkq39sAWk7sWYdSAG/jNzcVpoIXi9goBrEgvsbKNydjuDS/k5FK02ws9BX
b18lsKRtU12yFPhhwMepw/vJpE9zZO6SpAU08qZ2a50wWO1TlRyBHxw3V35u
ggfM5vH++0F6sCd9uuudmW/YJy3u5Yh3g3lyDWcGqsF/BgpYiovBYyyC4pFZ
4J7E9nzfN+BmhUdat1LA5U3H2ixffCP90cg6t2C5gPIu/bqkFwc24YzuKnAC
UypUDEX0wNY+n0U6Xg+T1kNYLxF2LqDID6PRcdeHSJQkN/kQj9+oeFCc7a3Q
AMl7YF/bppZ5JMyhpnEmvpdE/GiUEL1zHjlv12ViPAGu5TrVVDDbgx1zLkJ1
pBvsGN2RwVEN7il0/S5W1EN6StQ7PJX5C2l28wioZoAzlooIp5PAPLstQq9F
gytiB50qHcDX+S6f3aMOLhW4sad5ohubXcRlyCsMXPBqubLzKthqn/cr6aPg
hhMCA9rSYHm7Ci5LUXD8w0tGTru7SevuCcbbNX8h5jT6hwFbwQMTWkvvl7qw
cyQeXv9GBhNDOQmuR8A61DgttqBO7PfxdyNMfcFCWobkeFdw8JSY7LhDJ+kP
l8M2rZafaCX0j4/MJXDbQBZ/tT4448Cl0rOKYOua6kVPNvCOi/vkXgx3YHuE
TadNPQYP1mQLKCiAjVc/Zx9jB5fLUjROjLVjUw2Ij/W+gqWvsbUZlYGbFk5T
TfLAdn6xvGfSwZs4yWpnE9tJ8ZojZo/O/kSJCRJXCFHg+2y2D65pgy+5J6V5
LLRhHx8bbHycAhY5zUuJOwuOCFD2fiUF3lRO4MhgBKv0fifk/GzFdl5weZE/
AObwK6spbAO/3cY4WdwA1kkwYP9Q3koy5Cw9nv/1BxqVjJQl5YOl1WN+mTOD
PU0T8hYsvmIHxwwlP5cGJw4KRmoygCV8NbZEz7Zg54rY+E91g6l3ndR3fgar
1P2zdqy6heSVQw46rfkD3eeJKLIrAtdeS74blgGe/iV2dugceJtXmoLUBrCk
wqzkq19NpJs1xlaP0+bQ4uLNihOa4MoiiulkRCP24XT2Fc5r4NcxUolHVcHD
YWU/jfY1kuj+7zeHdj821Lq8DXzmn4GnbisN2EGeNycDR8F3zmfIDwSBCaoU
r0MKYEr5TKpzZz32P5ozX4rc6rDpDKY+ZRiA75lONCUJgYvNxvX4t4CXLL83
RC/WYh+5NKa7/RvY5epofVBT7d95iIIcXYerXV3Adg/7y60FwObp7YWHnWuw
9Zuas5jrq7GPUWpe9+8BS3OUJWY7VmHvFyyOi90FFpLNj/avqsROUM6L8ogG
8x7PiXC8ATY/kb198hw4Wi8r7LLGf1aYpfKOTaMOo8xtg5LgnWcyQsy4wWNE
TynejnLsm0ah0R/2k7CR+wUFn/EP2BxJB9o0Ukux/WbiPX+dBVMVOYWTGcGy
/Y0u9wZKsB18/RvO5INT9iH+g8ElpGNNbqysrFNouIl6m+EquMF6sPxqTTF2
zkLN1noRsId8qKqcQwG2xp3z9vG5edh56p8V3BnAYts0Np45l4u9sYb/fcMB
8KDbiq06XS5pLdXV6fnYOCqV7Npd2JaDHT2U1yyVBjbRuSnHewrMkrXvGfNK
NjbFcIs0KT4L+1XvaNCEXwa29uh17kfLb7DHKbOJErfSsAudckaXJV5jB1Cd
JRpHU7DLnr066h2R8nc+GEM/lTv05Y6DxfoYL3z/8QrbnKjoGJsIriRFh9Kv
J2NLbFzOtbcAN7J6q7K1vMDuktgcbBYUj+0uH8S9vDEOe/cxzhcxbs+wpyrb
Rq/LRWOXnngqcZQShS3yiKqfpAcObDJzZE2LxJ5nLwl1YgRbmvDm9dpE/H2f
klFe49cao5Zg7Mx5B+HxHj9silersqGlLzaB0znZjuSN/TSup+STOhG7Q0y9
Vb7aA3tHdupkjLYb9umj7Bs3fLz7934bQLH1xiTZV7bYPm3ibXuqVLE9w7Ub
7OWtEM1VAgEPnnPcwfaLErqlGOyMrc1WSmhhdUW04zH5mqrbB7hj1y9S9jMw
3cNO+RFC5L3vg21rK3E1f90X2+FYyGb+34HYRSye7ZV3w7ETD+5szRSKwP7X
OPNL3OcIRLveN5x0PwXci8Q+E0VudNkfhS3Ux11n/M9T7DlB/UqJ/mjsx+/y
CgdCYrHFlPgywzTjsaXEFw3W2l9gf8y9qJkdkIyd1bGkHq/wCjtqKRw9JoNZ
WK3LNiinYBN5pVTdQsBzB1dKKGMpiHa/XEb1yldUU7Fl/VcPo6evsf80SMvs
+pGGHXP22b7m5LfYh79t4L9PyMReNSb0/aFkYfdnZe4nyeRgdzxkWLvpC/5k
ZfGFvxXcoM9Y7LICrj2SnfRJOBfRnkeVIueDxPTBZRxMrl7O4IzyHL6BnXnY
CbcuVKsWgK2lt1wsVSnAFp4rWVKuLMJ+dKVXWPB2MfZcz7IBk0AJ9slC365y
PXByJIuNhyt4/U7YjFwS+JzxbreZTyWI9nxnYZUIshIrxS6rUXrZSgQHZrkt
JPR+wDaPLTjpoETC3nHc0yhOrxzbszDG3XcZLOWUHvzbpAL728HiJLs0sAqr
hpRQOzhq/GNhL10l9vHOLV6FXOC5GpPjkZLguLzIzXc0wLpJ3c2GhEpEe9/W
N++zKMyswj5BvTsuyFSD/e8WvsyOHHCtUPXdxxdqsbnGb6S6BYCvvuPuvpIH
Zg+Zvt33EZx/p4Ll9GAtos0rF0yjkj7OgxmP2KuosdRhp1SWJey2AmsZcNL/
fg9+crHTR7qgCdHmuTpDvi3GnC0Iz4u6KhZWNuCQ4xZpt/LAfUJ7c8PKwPs3
kkvz6sEuwym1HV9bEG2erSy//oXaBz7v/ZOs8gP8W9Vj0YfhK7Z4SQA/sxTY
/MgzrdCzYJGDncPZVPCM4E6vrzGt2L5tB69kZYC5HmjrB1eCrYa+ImJTK6LN
/+lKF+UcOsDzYVNiFkPgY9Ouu09Ogq+apI0zcLZhP8nvya9QAg/5qJ5WCgDL
6CXOZnWBfXfSB4qLt2O3Dl4RT3QF24V5bfV6DF7VfLpgkQDWjheePJnWjmjf
XyGLmf1KueAeY5UW8Q9gkfT6au46sP7W5bBWCviu8wHrJ1wd2L6COqjBARz8
6TIfQxV4h6hToBAFHON5fwXt6sTuT9mc+0kKLPD1yXVLTXCl7elaESOwzRqX
0LQZeFN4DzH3MjhFPL7bw7ET0b6ny3w7I+f2dGF39nGculoPToyysU+cA9sZ
5/v18HRj96yzsE4IgfXfXQxdlOxGtLygzCKPm1ERLMPCHL9DHcxlm5MuYwpe
rrIoMLwGfqy4YbKyCMz7JoVXkaUH28pd5TuTfi+i5StvP8daoCTwkujKZ5dl
cOAK5ztNjj5sgRaJR5xi4MmSfLclaXBuiobt0FHwvdBPpnXaYO175poZJn1o
a8WKae3deeSw79G6LhEc9rWocPQ1uOqA4qMqhgFEy5fEmEvHk3WGEC1/4iu1
12J4OIxo+RTd8sa0O9++IVr+5ZNwoS11AfxHs/hPHwsZu4zbLnJxB9hrcucB
zr3ggdbpu3tFwMc+VJVL7gfHp8SwKkuREc4fn9w+e0IOvNYj/i7bArwqOkTP
6wcupQY9UwgG32s8esgkGtyXx+lx4TlYJX6i2v4lOO5B+Vb3VPDKrafm/74l
I1p+6sH1y7+kHLxcYpg91wamMjJutlgDL5p8uFAjOoLt253Zf+zACKLlw+zW
L88XSoNjxiN6ZRTAYrcemL85Clb1diDEa4PPBJucDTUB+77dc8rVFpzVMGpg
SQRfO86u+rttBHn9Dh/VfbmIoq27jvROgmu9X8pX0I1in2KKzFVmBPcHP5DN
YwXbcXlkH9wGnn/uIJ3KNYpGbQk74vsWEes7E6kYQbBQqYJkkCTYuIdO3EkD
7EVtEDYjgCOZsgT1bcBvuSL3opvgI/EP4gudwNWiHnyy7v9v/+8c4t54gXvl
L+4R9fvvfP/m+1JmO4tFMsE+xEaCSA+YReOlvt8gOJLRXW1kBCzQaCSvOQlO
fyImnjw7imaKR7Ta9aiojKdt6+VlcOuL+4vCDGPYq7l9tUm7wWK1ilHC0mBl
o1EiWRls1BV2JUkL3BN3zYxeD3zZWs3AxhhMEeVWrzIdQ1znnZjnfKjIbXJG
XtgC/HJVZ1PSLXAje3Kr0L/gW+c4tgn1jSFaP6IcG3RYeg7MMMhifmzTd2zq
IQmyOjN40kfXQYsd3N9i91tnO/iL0EMvfZ7vf+dnKnpfXRtyWggcc5UhyVwS
XH13WT783nfkbTWWZc69hHZFjBA28Y0jWp8TZvzFoEoWzLalVMNXB6wzJfPB
+jTY/2OqovoFcHLht/ksG3BlKl+OwDXwUBTBMeTmOFovNXrN/HIJrfuHS9I5
g0dcNehWG8bRObaNdxaal5ClvNTv4iFwx9yuSfcF8PzgmdSJFfD2z08um22Y
wJYtaxD8yAg2fscweIRtAvEru6E26hIKfOxpxsMN/njtR+uiIDjDIjH1l9sE
ovVfJadS9Xf/A67XzfihFgQ2qpHRPBMG7lB7H2X7FHy+9MiER9wEuuGbuDlS
bxmRFUuPBr8Ar4s2+Pe+B/Ps6Pos3gAWZR10NmoDy24c2+UyAC4iXnMIIE8g
IhvdYrDTMlJbmi6LGwfXOt/aljUDNpj7ZVP1E2w3sCGDg2kS27dpK9VyD3iz
TvjJ2wLgJ1Vcz/1EJ9F6Z9V8aswy4kIxs08lwHHFfBpvDoHTs0W+tyiBC14f
CKQeB1cnyMrsNQR/jVLq0CKACZwfxM0swYNBap4Ol8BXmaubvW0n/zsuNWOi
fBlN+50QCHcAMzmZXh/yAQtZ2+QdjAS/7htjVI8BHyJcNzuTAM5vnXljmwxW
Mbq97pH23/X425ee1HZLepELPqfqrVP/AZx94YaQ8uoUovWtVJbj9EWmM4jW
x55qOarAF01B65RDjDP2a4jlKGtF6XNwRXKP3vkkCqL1uW7s6R0rr8HSbu7W
sRngBD0e154iMPvegsBdNeDah/9yFzVQ0CkB+u0V8WuI+NP0JeELWP686EFq
O3i6Zr7gaS846VC1huIw2PxZeHPHGAXd+zfhxMuCNcRJb0NwmQZ/dJAl7/wJ
Vtu8P4RdfxbR+urM3rpXBufA/JlXSwIvgTt4FLQl7WbRVi+99c/c6yjIl6Gl
8QZYc7rNwt4JvGqaPMbiDs4jOd1O9wLb7z++qus3i4IObBnjOLSOhMI5H0wE
gHtWh7cFPAEXJO1VZUqZRbS+/eaW2bqUN2Ax17JT2tng/qGg/tF8cMRJSzv/
0llE6/fp+VeJ1XXgOz9iwulbwRIW1/mTumYRbT3BcLVSmsYAOFqKWf4bGWwc
3VV2fwK8eeNrXcFZMMneta18fhbR1ju4tGtftFoG/10vgf0/fzSo9A==
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
"HighlightElements" -> <|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
"LayoutOptions" -> <|
"PanelPlotLayout" -> <||>,
"PlotRange" -> {{-1., 1.}, {0.4771212547196624, 1.9084850188786495`}},
"Frame" -> {{False, False}, {False, False}},
"AxesOrigin" -> {0, 0.47712125471966343`},
"ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True},
"LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
Directive[
Opacity[1.],
RGBColor[0.368417, 0.506779, 0.709798],
AbsoluteThickness[2]]},
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
Identity[
Part[#, 1]],
Identity[
Part[#, 2]]}& ),
"ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>,
"Primitives" -> {}, "GCFlag" -> False|>,
"Meta" -> <|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" ->
Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]],
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0.47712125471966343`},
BaseStyle->{FontFamily -> "Arial"},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
Method->{
"DefaultBoundaryStyle" -> Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" ->
AbsolutePointSize[6], "ScalingFunctions" -> None,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& )}},
PlotRange->{{-1., 1.}, {0.4771212547196624, 1.9084850188786495`}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{{3.9207911402884398`*^9, 3.9207911697546597`*^9}, {
3.920791253406253*^9, 3.920791271889214*^9}, 3.9207913906674232`*^9},
CellLabel->"Out[5]=",ExpressionUUID->"94e7217d-c475-4058-866a-a555ca87f3db"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Derivative", "Subsection",
CellChangeTimes->{{3.920791741841815*^9, 3.9207917497712584`*^9}, {
3.920793009536714*^9,
3.920793017299152*^9}},ExpressionUUID->"ff3ef1a3-16db-46b9-bd87-\
41e7a8cf8cce"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"NonStandard", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"Dual", "[",
RowBox[{"a", ",", "1"}], "]"}], "]"}], "[",
RowBox[{"[", "1", "]"}], "]"}], "]"}], ",",
RowBox[{"{",
RowBox[{"a", ",",
RowBox[{"-", "1.0"}], ",", "1.0"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.920791431020568*^9, 3.920791528167341*^9}, {
3.920791702284697*^9, 3.920791728016447*^9}},
CellLabel->"In[19]:=",ExpressionUUID->"d5c9ba18-9050-49dc-a536-db1c4f2372cd"],
Cell[BoxData[
GraphicsBox[
InterpretationBox[{
TagBox[{{{}, {},
TagBox[
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2],
Opacity[1.], LineBox[CompressedData["
1:eJwt2Xk0Vd8XAHCNSkWDDKGiRNJAyBBbZmlAKnOIBpVQ0WjKUMmQKA1mlTJV
lCHsBlQiw7tX5uG9+56hbyhUpPyOtX5/WZ913Xv32fecffZZT9rlpKXbdD4+
vsZpfHxTfzeASP/k5CBqjL9rqp/LgpNjq66MjQ+i4cBVfft5LHiap7RmeHQQ
++74BPHms0BZfqcL7+sgNkbmXxgXYsGWRcEt1V8G8dsNY6uVIizQ5XyvupM7
iJHUMeeDMiywDKvJ3HxgEP1PvftXrskC39rgE4fLBrBiskGb584CiprX/8b5
G96Y0X05v5YFUq9PCm+R/A/v0V6H5eUpeHGsfJZQez+Kc8PX9fhSoL7SQ+nh
l36s6dlptvEcBcWUqIN2Qz9OBnyv8DlPwWvtY/nH3vfj3GTLjzMuUVAltPjg
h2f9uF3v7s+lQRR05R14HRjaj/zKLbbLrlMgMDF+fmRjP/L8k54lJlHgdF1p
qDmoD83/yZ89WU7B+fyY0JpLfbhE5p+JTwUFcW3Dkm/O9uHRvtqDFyvJ8xVf
mmZ49GG33LQzoR8o2FyjmeZj24d7JXJGblRTMFvQYN8S5T4sSn7ZFUJRkBW1
r2RHdy82R/1Y2s6hoLKgwFK3rRcjv4eOfmIo6O4U69v8pRffPVGaV8ylQGRT
61KJml5MC1BrvNlDgX/dgZN9hb3oqdjdpP2VAstFR2VCo3vxp13uP/cfFPyO
uXAFoRf/ad9aK8tHQ4/km34jzV5U2qmnP28aDY0PZ+/8rNKLVT4l+4aI84pv
LGpf24vBincPF8ygwYP96O74kl5sOmojpsFPA0eJylLt7cHGUPXBuYI0fK5T
rM+M7sGVp8VXtS6jocTWe/Pm8B4UePyuOFGChkymIK44pAdTtfQ3OkvScOW3
nu3H8z1o9GdaJluKBv2VNhyeK/Hl5awvK2koPBkyKq3Rg8E2GxZdW0NDmmCH
eHw3DwUVZofwK9EQYwf8Gm08FLdg86USB2UkjzQ38lApQM9IS5kGF72DtRLV
PBSpKV/rvpkGGZ/e4KSXPLx0caNGkSoNqe0/Bh+G83CexvQ0CU3yPAWrduNQ
HtaMeBukEgf5vqjqDeChqeScZDkt8rxFZx8o+PDw1/qCwA1baZA2/Gub48RD
MHjOUtShITmLv/KFKg/3R7VR/dtoiB47krdvEw99Dtuk2uvREGBUlfxLgYch
d6SX1RA7dV2/oLGShzkKETOf6NOwQnixUqkADz+ZhWbsMaRB0PnUcsdZPAyN
FskqJv6XTc2bnOTiZvEmi5VGNHQY3+bpjnLxV1+Tfw9x4gXJ++WdXBTrkTR1
M6Eh8sOlq24tXPQsC9n2hthvaafPbJqL+t49LAlTGhxzUyxMqrjI1vF8W00s
xVnDX53Pxa0Pzz6WMqPh/nYlb9ZVLlZuZ+ef30nD6nnbq+qCuTgiZKr2ijjz
k4vMZ38uHj+X4DVOXLwjtuHDGS7e6Lu7+MwuGpp3/VIuc+aiqNs9ru1uMl6h
heGv7LnY90t++Q3i3lp5TuF+Lu4QfTq3kvi3ue3NvJ1cvCCq8HOdOQ0ie0qH
MzS4OCC1eX4vceKSRrOHKlyEqNF3SyxokKUG0tI2ctHm7kM5HWKVvSutEmW5
6LfXZDCSuGSpRta9lVysW+ht8YJYv9Fi5h0JLmZdnLBrIbbcfzn/5iIuenWn
HFppSUOL6P35N+Zzcd2XH67biJ2b8l0j+bnIGl84x5nY04YnfPUvg9HeUhr3
iX+LTx4P/c2gpBZUFBAHtIhWXB5mMHtZ3I964ig70zN+fQwaqOqun76HjEfS
peYCw6C/VKW6GHFi23nZc50MHvXt7lYkXpNw85JPC4MrSh7L6RLnOGTRp2gG
TeerzbUkVltesd6rjkGjTQkhLsSlHe0hHp8Y3BI/es+L2CDpZ/uxSnK//V4z
f+LqA0JqR98wOKnVEBNObLVSPvJQCYPfkwK9bhG3dunyDhYwqBF/lpdE7JJi
o+P8nEHv9k9Dj4j7nb1vOWYz+KQuKiqH2FsmfMAug0GPC01v8ojH2GlGNmkM
jkUVhRYQB6SVJO5LZDBEwai9iHiOK/1zzx0G1WtvlBcTR68e2GURy+COvhyt
KYtyZz/aFcXg58+52wqn8vFgxaTZNQb/+D2k86fycUh9v2kIg6Gp6T9zp/Kx
xiLXKIDBiPBXaY+n8tFzlN/gAoOtqhOtKcRlj4IObPNhcLqxb2I8seGRewU6
XgyeEdTuj5jKh3y+0Nbj5PuEOJQFTuWjr/qwxmEG95r3ip8mbnvMRTUXBh1K
/vvjSuzq/k9UxYFBhbfnDloR/6cg6qlkzWDpzMTdesSnvm78sGEPg+X1h3ED
cdBx57NrTRmMil+1ZgZxR6Tj/WJ9Br86HJneR+aD5jO712Y6DP77yCyrIf4x
uneOx2YGj1Q9+RNFvEtsj+LkegYv7w1940H8RNPcPFqeQdkXpWVmU/PRf3v8
cykGYxMcbPmIS1KMS/TFGKReW/38QuazWLlBF7WYQRP58vJs4ro5IP+Ln8HH
AatG9hDrxmwu1PrBwcnzXuevkfV0P39TW/V/HCya+ypsD/HvxvV8jj0cfI3J
pcuIn0rImwS0cVBg7fbENLI+VzyQbCqv5OAZEViYRNb3+ffiE3vfcNBO6jbY
EDf2iazsecXBmomYiEXEkRsWHZn7jIPTO70CLpL68K9g1u+d9ziYKBuXqLWD
BtuW6ZKdcRzcK9eUxCP15uXEJHhGc9BaJPNFFLHHtvGwmBAOChYMiLdtp6G9
akD0y0kOnj+6P8WB1Cv1b1+1jrhz8JlS2KoxUt9ihfoOjLly8Od0sacxxDus
OI8kbDlo463NQWOSr/YvW5wMODh49UHEdFIvxfhou+86HLwUNKATSerraZkG
/yANDspb7x4SJVY8XP0+fQMHbzsp7pI1IPkaer2/T4yD22znNMiR+n1hxhNf
729s1FRJbqzSJvHecZzt1MtGT81+NhC7bFwSt5PDxtzzI8vzyH6x3e7ic/lm
Njra8MnEkv1ELG/Xt45yNrIyGFVdDRryXYZdzO6zcbTzZBqo0JDx+9F39dts
LJS6qXCb7F/3Iu0D1sSwcdJeqe4/sr8FFVckTLvCxg7FYO8Ysv9ZLI5vKjjF
RsPMsZHKDTQMvNm6a7UZG18enDHBkqeBvf972yIjNl5xy+mZT0x/e3BsUpeN
2Vo7uvTlSH7Eha62qJH4K0aHM2VpCPfqfhctw8ae+jmhrjI0yEuHavwd60Ze
5nN7H7KfOwfUrm7M6MarBkUzl86nYV9zkk57WjdqPU29t3geGa+ypzWT2I2L
HO5uEhQg9ZlZeP1HbDeOrPY2nyT9wxwTy2HBwG4cG+8z/Uj6ixwh+o2xTTc2
K2Wq/Bmn4E9ii2PR3G582mR/uJb0N0O/npx9PbMbfUqFs6/xKGDML8S8n+xC
H6vAz/qkH/o8XbKSHu3CJ+KyyblsClIPOaz/0d2FV/VNnU60U2CyoeuPQnEX
xvAZOQc0kH6tlBt/370Li7zXVE8UU+B49q7fFrcufFvJKthdRIH85t2uDQe6
UPrRtNGkAtJPZhRunLO3C2dN7HRUz6eg42Z45SnoQt0nuRUm2RTIuSuNbBfu
wtv273J5iRR4rx9P/HGhE0/Uzdq8IICCmWkH3eW9OjG+xuc+vx8Ft8RqVB0P
deK+Y4zC5AUKXs1Irv5o3oknX8k/45J+dmaL4XiybCeKnQ7aGn2S/H/ojb27
azsw+4yhmK0jiadTfn6WTAcW8kdpFmhQcHHrtOy7Yh14QuXLvYtbKNC+07zz
qmAHzr9tbQuqpP+1vBZ1aLwdh8Jv95dsouB9xdfF0g3t2BIySyNejgIqM0f8
VmA7lk1a3PosTMGAr4pcQFcbsqub0pW/kX6fmv/Bo7ENI/tSwlP6WeClxD3i
UN2Gq78nZC3oZcFIf9wTzcI2TPnZFd/OZsEfh1/rR6PasHpeyIRdEwvmGBSr
uEMbOpb94Wt4y4JVC3X1rBJbcfGWBfH34lgQuan7vPvNVtzfMfzBM4ZF+oGg
vIArrXj4uUy0XhQLqm+Ur872bkVdjRVtrVdYcHqJKf9s41Y0dJM14l5gQaWI
ZXXBYAs+k1LdZunMAncp130S21owRM5uKHwtC54rXHFnc5pQdANdr5HbACvq
nYrWNTfhiVcjtdqZDXDdV2POmc9N6LbujobOowZwK+9/wF/UhM8nrM1UkhpA
zHFnt2JkEzZqmu0YjWyASzcWW/uqN6Ei7GM+nmgAk9/3DedHfMHP6bVZL+Ub
oLPi2Uo1tUYMEmbh8Zv1cHHPmIG6YiNGxO+WbI6sB7Fu3aOaMo34LV1jnd61
ejCfqH2mI9iINlwxR4HAenitPKBnzKNRYs7dOac86iE5ScHN+haNBxnXsXST
enA5l/b4/E8K/0Y0NoSN1wFXMU4ZX7LQ3Wm1iLJVHSzye6y2YVo9HjvZ5LHq
XA0oqg0qPhiuxto2alhsQRVcNvhWV3T2PQ7cO6YR21kBS61yom1E36Ko5Y5K
Zt8beP6zQujD6mLc5MCWfRtdBA9auRF9wTmYF6k2S9U0BxwsJPNbD8bixl0J
uU4HYqFI4AL99sxNCCr7/LDd6yaqsqctD7TOhSNWtn5fRHNx1dCrMc23RfCC
9v8TpVKEpmnNNbus34JkRuKV9qg3aLhz8YzRF+9BLXzFaMnCSow68CVgU0E1
tPq++x3W/RHf75JaYL64HhYsmf+0IbIGv0kv9Wu4ywKP3pVbZhvWofqFFK83
6Syoe9zc6LG9DoOo9W5Pc1ggmH9NnNpdhyJhRjsiyby7aJV9Jda2DnX+8122
ncxjt11Kwt9O1mHUy5aXb8g6KrVcIvr3Th0qmSUPPm2iYHrd0fq7X+vwzOl1
zlEijfCDFdzTHVyPIgKDJfukG+HbzagTzVfrsTDpudhyxUYQOtq8rCayHieq
NOqytjXCV9G/3zLi6zFI2gSqjjcC533qNeWseoz87Co1610jHB2L1Y9sqMeH
8onN509+gcLlR9VOSDbgl7aFloc+NIFoRXnPWHoDbg93azrd0ARznaJKSjIa
sESj2PFyWxPoisPRi1kNmHzr4LHkoSYYO5y380deAx4xfxncItYMY9KMbeHb
Bhx/Z1ew62gz6HXmmuR0NqBk5kPJLQItsMXlXZaxKAsjbf6kGgq3gNtbHeVH
y1jIN8d8rdXyFrjva5A1YzkLybRT9VJugeIjeYF5q1mYvXzH7kzbFth/Lq16
QImFOjHfA1dktsACX74iyoyFTue29vDvaAVR/tYS10ssVHD9QA/sa4XDtz9K
PQhg4fAuq3LauRXCPscJsS+zMHT18ZQ031YoGvn+xOIaC7Nq79lBWiucUxDg
8t9m4Zjsn1qf8Vb4UuIaXp/LwpiGokJuRhv4P//OZXew0L7U8FF1XhusDJMb
LOhmoWxGfVxeWRu8geK8qwwLCy/1eQdSbdC/3v30qn4WdsiLr5fiawdVNfXx
jaMkPv+zKVb726HKQNIsR4DCd+u2XHs3qwPMvSzyTDdT6LjRKu27UAdInBXJ
iFKl8LeyV8mKZR3gxoz3NWyhUFEzc+DChg64ZFZoY7GVwliTFXtU9ncAa836
uRsMKTzkxi/5IKMDZJpaHx/eR+GcpC/ZoWad0PePNZfxoTA1daQyf28nqP7J
7qDPUuQctqiLfaATIkQyZSvOU+iZbbYYTndCZniB4H0/Cptfoc+v+53Qplhy