Mathematica/Functions-4.nb at main · sampad95/Mathematica · GitHub

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 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    395045,       7313]
NotebookOptionsPosition[    390676,       7246]
NotebookOutlinePosition[    391017,       7261]
CellTagsIndexPosition[    390974,       7258]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"(*", " ",
  RowBox[{"If", " ", "degree", " ",
   RowBox[{"(",
    RowBox[{"highest", " ", "power"}], ")"}], " ", "is", " ", "even", " ",
   "then", " ", "the", " ", "nature", " ", "of", " ", "the", " ",
   "polynomial", " ", "function", " ", "in", " ", "the", " ", "left", " ",
   "and", " ", "right", " ", "side", " ", "of", " ", "the", " ", "x", " ",
   "will", " ", "be", " ", "similar", " ",
   RowBox[{"(",
    RowBox[{
    "either", " ", "both", " ", "will", " ", "go", " ", "up", " ", "or", " ",
     "down"}], ")"}], " ", "when", " ", "x", " ", "is", " ", "very", " ",
   RowBox[{"large", ".", "  ", "If"}], " ", "degree", " ",
   RowBox[{"(",
    RowBox[{"highest", " ", "power"}], ")"}], " ", "is", " ", "odd", " ",
   "then", " ", "the", " ", "nature", " ", "of", " ", "the", " ",
   "polynomial", " ", "function", " ", "in", " ", "the", " ", "left", " ",
   "and", " ", "right", " ", "side", " ", "of", " ", "the", " ", "x", " ",
   "will", " ", "be", " ", "opposite", " ",
   RowBox[{"(",
    RowBox[{
    "if", " ", "one", " ", "goes", " ", "up", " ", "the", " ", "other", " ",
     "will", " ", "go", " ", "down"}], ")"}], " ", "when", " ", "x", " ",
   "is", " ", "very", " ",
   RowBox[{"large", ".", " ", "If"}], " ", "degree", " ", "is", " ", "even",
   " ", "then", " ", "then", " ", "both", " ", "side", " ", "will", " ", "go",
    " ", "up", " ", "when", " ", "the", " ", "coefficient", " ", "of", " ",
   "the", " ", "term", " ", "with", " ", "highest", " ", "power", " ", "is",
   " ", "positive", " ", "and", " ", "both", " ", "will", " ", "go", " ",
   "down", " ", "when", " ", "it", " ", "is", " ",
   RowBox[{"negative", ".", " ", "If"}], " ", "degree", " ", "is", " ", "odd",
    " ", "then", " ", "the", " ", "right", " ", "side", " ", "will", " ",
   "go", " ", "up", " ", "and", " ", "left", " ", "side", " ", "will", " ",
   "go", " ", "down", " ", "when", " ", "the", " ", "coefficient", " ", "of",
   " ", "the", " ", "term", " ", "with", " ", "highest", " ", "power", " ",
   "is", " ", "positive", " ", "and", " ", "the", " ", "reverse", " ",
   "occurs", " ", "when", " ", "the", " ", "coefficient", " ", "is", " ",
   "negative"}], "*)"}]], "Input",
 CellChangeTimes->{{3.948693632259342*^9, 3.9486938619276047`*^9}, {
  3.9486939177194014`*^9, 3.948693949333688*^9}, {3.948956331521479*^9,
  3.948956367538686*^9}, {3.9489563985652227`*^9, 3.948956633061359*^9}, {
  3.9489566651040497`*^9, 3.948956689707681*^9}, {3.94895691300924*^9,
  3.948956913729521*^9}},ExpressionUUID->"df57a015-c339-45c2-922d-\
1a6c75c412b8"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", "x_", "]"}], ":=",
    RowBox[{
     UnderoverscriptBox["\[Sum]",
      RowBox[{"n", "=", "1"}], "1000"],
     RowBox[{
      SuperscriptBox[
       RowBox[{"(",
        RowBox[{"-", "1"}], ")"}], "n"],
      SuperscriptBox["x", "n"]}]}]}], ";"}], "                          ",
  RowBox[{"(*", " ",
   RowBox[{
    RowBox[{"degree", "=",
     RowBox[{"1000", " ",
      RowBox[{"(", "even", ")"}]}]}], ",", " ",
    RowBox[{"coefficient", " ", "of", " ",
     SuperscriptBox["x", "1000"], " ", "is", " ", "positive"}]}], " ",
   "*)"}]}], "\[IndentingNewLine]",
 RowBox[{"Plot", "[",
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",",
   RowBox[{"{",
    RowBox[{"x", ",", " ",
     RowBox[{"-", "1"}], ",", " ", "1"}], "}"}]}],
  "]"}], "\[IndentingNewLine]",
 RowBox[{"Plot", "[",
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",",
   RowBox[{"{",
    RowBox[{"x", ",", " ",
     RowBox[{"-", "1.5"}], ",", " ", "1.5"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.948684133461703*^9, 3.9486842110102572`*^9}, {
  3.9486842490023203`*^9, 3.94868431268908*^9}, {3.9486843460429583`*^9,
  3.9486844275405517`*^9}, {3.948684468588086*^9, 3.9486844971714673`*^9}, {
  3.9489555925026736`*^9, 3.9489556168708353`*^9}, {3.948955985168045*^9,
  3.9489560469742785`*^9}, {3.9489561569816675`*^9, 3.948956159057374*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"cf02f9f5-9f72-45a3-be8e-57f73369c48f"],

Cell[BoxData[
 GraphicsBox[{{{}, {},
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVkHk81Pkfx8c9UjKutJEjKucW0tLx+Wy2QrFRRIershVRWopKWEqboqK1
shJyRHLmSN6UGllylHPGfJsxM2amnfnaGWJV/Pr98Xq8Hs9/no/H62UcHOF1
TJ5CoeR+y/97evIIY4gugu8enHGxvqKNW7eE1oZ+42S3FlfrJG3cuVTzSEeV
CHTiVlStM9LGH2oCWhOuiGC6TPQwNkgLL/oyFzv1vQh8pOPPvJU08Y3KwqLr
Ft98VqIw0SQNaxzz6DcxE0HdRfORQiYN67x9YO75nQjmmuadr9XSsFGey/Bj
RRE05zH9lEJoeMNPdzf8MiKESmvWm+geDRyYun5yJFEIFoUat9rPLsWxtbev
dF8SQvXPiskW3ktxJlOm33ZeCAEa57rBYSnutHrqWhIuhJ2x24uj59SxXbdT
QfQBIehdlRtSTVLHyuo/+WjZCsFe8dfZsPtLcHmaT/NutgAu6TUuy5pSw6/r
670wUwDan06ds2SoYTahJ7QbEoAv/VA1p00N665j6KzoFkCrwdrUZ2lq+HJv
QISwQQAxWfPN6tZq2It2wuRKugBiNQtpX08twrO3L6QAEoBHVN3e71VU8YR+
m2iHkwAadoUkkiQVDxYpu7+1F8D1p0HevcNUXNN0izZmLgDSDwalj6g4nFOc
PaclAEK67FPNHioeX/++fINgApIej5yWPFDBb3ut+srSJ0Bmbt9f6KeMmw9E
2tldnwAnh208uR3KuIxbn9mUPAFaCU/3nLdVximz2w68iZ2Aq+7JpyrVlLGz
kd84/+gE/GPcnegCSrghInna2HECAjP12kkLJVygzlqexeZDCvPGHYmmIr59
EKk4Mvlw/MNuZri8Ik4syZsaGeTDj5PWcfJSBRy87UjPii4+FCr2bz/Sp4BN
ogVJ95/yodPY4keVWwo4f0xKFl3ng33pyfZmLQWcV67yum4DHxoXz/iqrZbH
6f8dr/FZx4dw3kRy0zJ5HL+jM2/Ggg+KQp39MaryOPBD6gVHIz6UxqjHm4nl
sKG25vrni/hAc2qz3lAnh3Mv6Oe0EzzQbg+u0neRwzlu6yPfXeMBXVc9KOw8
BZuquXX2JvEg/L12e2MYBZf9HWzy9jIP0p6836MZRMFNuzP6O6J4kDPTV8x1
peARjxnbliAeHNLIzFisT8G6e5/LShx5wN2pbdiQtIDSDrpGxQm50LKJ07nW
eh4lhgWdN3flgtniJHmzus+IddM/p8mZC47nLD8I8j4jp6qDrbu2coEyn3YG
Uj8j6bQ3NdyOCzqxji6FRz+joMtuWdUGXMjPUvjiqvMZ4dt2DZuk4+A/8Ppv
MmYOzdcrzbrfGwdL62UnKHv+QxcUHp2LFHOgeYHWk24xg8L/9FcOFHCgZKo9
8uiKGRT8vVam+zgHeMV33jkvnkFuBy9Wrx3hwCaV9XfNJJ+QXo2HmNXOASOt
muKz1Z9QbbAseFcOB/z7X8fbbPmEJG2bPUx3cUCcediGfmAaBcX3mA6WsKEt
325goUaGfEbubx0rYENVlLxiQbEMudme9uXmsmH29k3wuCdD9lyNVGkGG/bJ
LjZCogxRXbxk6glsEDMfv1T2kqGKpQNtO/3Y4Ga/sdJYKkWfc0f9G1XZsNfJ
cqPnD1KU+ZyXlXPyA+QEh378ODqJmoi1i8tNWFCY4mwhiPkHrdLA2/blMoB+
/3jcezcBqrZIOckZH4b50rqFq4e5iHhVZeTgMAjKXaN7POTZiGeVaQtP38HM
kvX9bpeYiBZX6mAj1wc/L1joe64dQlYOpNVDWRf4ya+xo9b1o99+Evc2nqdD
kdB76+zzLqSzryLdb9kLULyqK31Me4WqP71a2mHaBKYxQUEKK5+jhwzeDWFS
BdxNHtqo6VSJDnvq1zKOZIAs1SRX0J2BGhddGHgRdQct87S5Oap3BzZw5FYm
+D5BtkFVNbeuPYZVk8/+c3rRiIzK/TsDf6kH14KRbg/fF8imLMv4nlorbHfX
VJiuo6OL0QmlrnLtkBYwFL+uvgulLXjo2v9KB7qHwZI9mn3o4HC/j/ZUJ4iN
deL6s9+hruwnLLbCW4j61TIoTXcQvU3/s6o5tBeGmBpeIR3DKEHtpTRsrA8C
YzZPqOxmINUNX5llJu/gpeXG318qsVBA9M24exHvYbVqs6DQ5QMaWJLXfiVz
AAyaQ7crpbARf0vWqFLxIFDm5EsjORwUmMeISm4dghnP5/6vzLgoQ0upXKNp
GBj2ASvMknhIXH4sYt2zETi9X4NmwuQjK8sLIWZlo7A8g+uraCBAbA17x7x4
BlQczCuWnRciAx1pRMZhJuzfctml47kInY3dpZRvMgZV/qdMnL58REzy320N
jDGYXeSs0OgtRqu1ilpUc1igKVHPeHFAjPYmyG7Qc1lg2Tdq2hUgRqati0VJ
D1jg/0fkDuKEGD3S1nadL2LBy1X515TixCi578bDj1UsuLlZTsOrSIxcFndP
VtJZYBYO+h8/iZFqReYdvpQFWz2vP576LEZLXHJs706zwNd+/9Z5igSNHxUE
bZ9lwe9zkgCamgQZyrecyf/KgskrKws2GkrQKoaP334qAc33L5kn7ZQgmyZO
QLkBAV59mxwMsiQo16JBSdGFgEWb1Nqa/5Igyt41jlNuBLQVju46VCBBJnEp
vHF3Atadjwm6VyFB/ai6tG0vAeqG9anLX0mQv2f2eHQAAW/CbMd1pBJUZeW6
pSOagPhBufC6GQmy8KJrVMYQ8APum933VYJeWZ4L+OMiAUVap9UzqCQaXz0X
fjSRgKSmx46ahiT6K/PUgdkbBGCqebr6bhKVhLxOUHlIwOyZ2e8qPElkl9mj
N1FMwBMG/aH7fhI51RpYv35EwMonIc9Sg0m0/HJkd2IlAV+8C/mLYkjUg7eN
TD8joBbOnnkURyIr3ZStfS0EhJo7f3FNIpEwwlauvI2A0S9s2rU0EmW7Nc76
0wm4FVKVszaTRO2tfxxz6CTApTd+TUc2ifY6R2xS6yagvsBwi0oRiewHRBX5
/QSELyHpRWUkSncjXvgOELD6XIvXjioSmdJGPv4zRMDYhxtjvKckcvdd2rNl
lIAMt8PHk5u/7Tn0cpDKJGB3rZXM9AWJDPJOrnnzjRVWfrnUTifR6yvUzigG
AU1X/6Ye7SZRYufZ9Plv/sh/s+8ovCORT0P+ip0dBFgcPLmyYJhEAyWKeYbf
/mC3O5ZuY5GIW6S9b3MoAVk2qvaccRIlc8Lk1n9kwZ6s4ZYEIYkWuNHevwnH
gCpf4mpMkuhEdK2vKp8BEHrufesUiYjh7B4jzhBED+wICJwj0ZTe1dW4owds
kK5oYYFEFMrGCvOQ6Zb/ARYNNy8=
       "]]},
     Annotation[#, "Charting`Private`Tag$1151#1"]& ]}, {}},
  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,
  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.4978506932188809, 5.131032115874655}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02],
     Scaled[0.02]}, {
     Scaled[0.05],
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.9486843584777985`*^9, 3.94868437603642*^9}, {
   3.948684406060377*^9, 3.948684428561076*^9}, {3.9486844725260024`*^9,
   3.9486844985277786`*^9}, 3.9486847214127216`*^9, 3.94869339632292*^9,
   3.948693972712639*^9, 3.9486978011851563`*^9, 3.9489557719298325`*^9,
   3.9489567533652096`*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"3ee62f4e-177c-4f30-81cc-6a827e5a5d67"],

Cell[BoxData[
 GraphicsBox[{{{}, {},
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJw1Wnk4Ft/7tm+hLClLFGVXlrKmM3jtr12yJ0vKEsqasidLUWSXLIVKthQK
R3aRD1lC9pD9nZlXRNL3/f3x+2fmeq5zn/Pc9/08Z+bMdc0JZx9zNxoqKqp1
yuX/7lnNh7y3u8jwM4BDWJSaRfqHqF+3KbFOU4tWM5WyxW9qTSuvNjIsp/3p
+Tf3lIWtPnWtQzMZXt4ZKqO7xWXR8Kj5iEkDGQqpHLGuuUttITgaHozUkeGF
E3D8jS/JPEIIjMnVkOEHA38mRfUJ87mr+yoilWT4VAcPOWLTbU4ob8zmLiND
69f3Xbga35sX/7rzh76UDJ3+jnyKc35uzqR+3n67iAwJ7a1c17RSzD1i/jQs
PSPD/xQG1sRsI8x7ez4cG88hw557ciX+Wt7mp7luh/VkkGGZN95ML2Vr/shW
ZbohlQyli+SEc5x1zfGC36A8mQxPJeYnPpg7a265XJv/LJEMr/TxN84WCZu/
lw2ifnyfwjfi1rhW/iHzo8GKzlHRZOia4tE/XfTX7Db81XIrnAxLeLpyLd1X
zCYY3om4hVLw2lPPrkZ+M7tg7B9jFUSG9MEqX4KX28zy0xQWdG+Roeyh9Z8N
GdVmNJO4tooPGbYKq/mduJdv5nqyuljSkwyb038cirJ6aNbh6cco4E6GqxWr
WsVMt83E38peY3MhQwn55R01HnezhF1S174jGW4wW0YOBliarWlUSKC2ZPik
le/SsqCmmXH8jYRZK4r+vqMR/cyyZpX9Mqtfzclwd/2gj/plATPOo+uGbcZk
+AUEPT3LzWzmf7ms7J0BGTqaJqlYiG2ZjhR7spXokGFE4ZfG+0k/TJU3JG9k
apKhhpXSWAcyYJp9bqUv/gIZRtMVPJ73bDLdu/PyTKgqGbJobk1Hf3ll6th2
7ZGXIhkSQxuoHbMyTJsPiGMO8hT9d7o5W1pjTIUtfpqZnCbDtxJMISqaN01j
sourEUkyjB9efn7tgJPp4qwbl7woGQpw6QUsyBBN9SRO+YsIk2HTXFMX/KBs
as+4cdJWkAx9L2YTT6+ImvouvB9+xEeGva5fuVKUD5vGtIbHdvKQod9GegH/
c1rTjAI9pX1Oir9N80UcUrjJq3COpbMHyZCnPQLp75kxaXIYz/Q8QIZGHfmf
HjH/Z/JVrUi/kJGynovT7t/SBpNFXq/dUVoy5JaF/UdvvTLZ3T77+iAVGcax
8SopuWWasI/8tdPZwyFrBxXj4J1YE+GaDta7v3FYrdidF1frb3IuJbnx7SYO
vZ/yRB/mcjHR87W+sYLi0PeeOv2lh2Ym9sYnhE6s49BP/QRJ7yRi4iu98t+l
ZRz28Lp6MJXJmMSwvI1IWsBh8LC8Y6gGv0nmUqhc+ywOq7REKuLpmU3KOghz
fyZxGHmtTIz+15Zx83O2VPlxHF7m4mFAWReMB6NGtK6P4PBkzuDr2waDxotO
zzaffcVhrMeGA/XrT8a7F669GOnDIW3eMg+LdKUx+zE5K7YeHP4bmR6KSX9q
LPxnh4HQSeHnybq1y5porDjWUnu7FYc84f/RutYGGxvUJl6rgjhsU1b7ij6+
auyYZsm79BGHHMQCEkeWpfHNW8c+C9bhkFsx/oR/t6ZxrNni7Ys1OLwbU0v/
V0jOOPtMhdSDShwaRn19k6wgZFzOFjzRUoZD/uLsl4RrrMafVpGHO6U4PJvj
+JRrbMdoqJv5guwLHFJLXs03jfxptFTydeNqAQ5Hn01OFdkPG+3dy3n29CkO
z/3WDKJzbzU65OpqOpSFw91P3hlvc6uMTmrKUB9Ix2E82065z+YzI+XjW1Ua
KTgsd4cFVb8fGBH3m5yDk3DoUWc5fQ65beQ0cZ+rIgGHexYJvwPb3Y38P5i2
LcTi8JmdTK1N9EWjuEzeAIFoHPbP2TGKBmgZ5QbOnbIIp9THFNOOSJczqrB8
PRIfSvF/TWGmvUPIqEXe/35zEA41RBEnuUpWo5FD6srbtyh+H+C+7z23Q1zZ
oF+W8cXhC0Ur7zOXfhL3e/uyXL1wmJn46kcZ0zCR83WGQc41ip47X8VTsRai
aLzTnwFXHH6hkzy7z1pFVHWXKGO6gkN3m1S+2bI8opE2bg8cKP1QH2ORkZpI
dBL5yBZoQ1nv5pknjzuCif7UMU1lFynx5LO8+QtXiXHTRJ8fZjhkGdGnV9uy
IOY2Hj7OZ4zD/HT5lO5FDWJlzlS/qQEOrZ1GQggHZIltISWR93VwmD58OfdV
owBx9JKvfJMmDnlBgJHIB2bi6jmVH5sXcEiTF7QwT7ttuM9F80RKDYfGtqe+
ZaTOG3LinwnOSjh0fhul+sD5q6Fof+qvTAUcpkUUb7/2aDZULbcv/u8MDhd+
DeHfiW8M3wwfkn0nhcNp3sYaFq9Mw+N/2+qzxSj+jy5/cbgUY5h6MkQrQgSH
A19Mlfg3fA0ZiDJf3IRwKJnNUG0tYW8YcmvWypCfgj+yKVzqrmu4lp02I3sE
h3RakI7BV8Hwcou+Bw8XBT86eCPxxHHDr8t/yX/YcehDtPYT+cRiqM1RfXeW
hZIfO8/wSWrLoE75KmMnAw5b3lzL2rabM5By4ntcRoND0alV2XPOfQZ59/v4
UvYxSOii30oVqjfgqIh6HrSLweKjRY/OtTw3iBlRPO2whUHn48lSLSKPDbb/
rtRq4hgMoGp8baN3x8Dj1DMN8Q0Mki6JTjmZuRtMEi162FYwmKucXL1yzsLA
1J/xInkBgwcv+VdfLQAGrTkfp0ZnMdg/1eloSy9poNjqc61pEoNnXgZk7bgc
Nni5IoIXjWHQXFvCQT2F2kCAczQ0fhiDtKX5m3B0TT9Z5QG9zwAG0w96ZVi8
/KZPcwVJtvyCwaJbdrenXVv1A+I2j6p2Y/DlQb/NjbYK/aWK0kKhdgz+rCoo
u0KVrW/3zV6a/hMGQRQauax1T79v/9D7lQYM7nD/vsB8xU9fQ7Qd9NdhUFVl
bOCZs71+jVFI97saDO4iH75sSujqiwXIWORUYpDpk6Lasx/y+tm5sxMRZRis
6h3teNclqM/Wlnb1aikGldOOFeweYtaPWNVHDZ9T9EhLFBu6beqROfdD5PIx
uMKls0tMm9G7qlpNeyQXgzJfAnxu4p/1xq5cfbiXgcFh5wra1pl3esR4viNz
qRhUSClZnoIFerCyL78zGYNxYRt+QZ0P9ORHoyTfJGJQyQxtCjUN0nvxT7Em
5T4Gr9PFOxZMO+sdFVtVD47G4IPihwmbccZ6icbPOh3CMXjn24MbX8uV9fYD
LMy0QjH4vhJ08qEien5PGb+LB1HqszZ6b+XIIb35to+u7LcwmE1Dlyi3taN7
ac1ng3wDg9Ey6ZE/1+Z1P3OdDB7zoOgn4aa54/266mqj1PAqBq+alBxTO/FR
t9L5QeJzZwxea+aW/j7wQlckATmc4IjB8TsG0pbxj3XTqzbzfGwxmPZqthGX
vKPLPFYqftEKgx3J7PBEzlXdO1QO1armGJR+E6x16oS5LkmM4/xxY0o+roNH
F9nVdZ1N2tvpDTDowXiL9rK2mO5wYIjJqjYGJ7+vV8c/49TVy5MZ69fAYKbd
DyXz7r86H9tnnd+rU/qdyZu258tPndPraWs5KhhEyRc4g2kGdQq4DQIjz2Ew
SvTXstalJh3u8/v/rsph8N2evrSBfKnOfZfqeKIMBql76AkBeqk6uwlXueQl
MLgcK9tQ9T5MpzzGp13yFAabxeMz0r9f03EOCw4SOYHBqYN8Gxt8ljo8wZES
AscwaLY9NXwaQXQ++yV85+bFYCuN1KMpRFInzDP1IdthDOY/EaC7LHdYR94t
FzBwUPq3ZGKp5yi1zqLjC2yfFYMpcU80DB+vamdblxdtM1H81M8sFFYc0TY2
r72I0mGQZxK9Hjv3SZuG2My4TIVBKkGe8a6uMu332t31s3sorFd0kxcSzdD2
AF89x3+jsOQyyyX6nChtQZXvxwY3UWjk/qe2/4e39lf5+f96UBS2eAgG1+xf
0o6VXo9sW0Oh5elXo9aIlraK6JZC4xIKmcpma5OnT2uvCf1beDePwt+70jfH
G49q5/MyZZbPoFALLN3hGKDVtuTiMCiZQCGzFS2B5QOJwMTGt/dsFIUj2EF9
decxQgODSHnmEAq56gkjF4ltBF8qaafH/SiUrticE1SpJJzcPcuZ0ItC4OZw
5tJqFmGUrN4W1YVC+cK797eqYggP1nUCQ9tQ+ONmwoJQjC8B+Wki7t+MwhNX
6svibGwJmzPW414NKDxuGmsRSaNNKB2/8sCtDoWMx9R4yptkCfZDHhcca1DY
iU/XyJbzEQ713UKtKlHo91490xLQE9o67xSalKGwgk06gm8F1Qr+dM9SrxSF
ZqdyNDpXx7WkPyYxaDxHYcLHj1/febRrzdRk1Knko/AxNWO5P1OV1pPyfA/5
XBQqyWcr/zuco6VX+lJAKhOFmYqM9aT797T2Cqr7RJ6g0N/ya8sLAT+typyP
EQKPUGgTv92zLWen5ZrWJn/4AaU+cTHl4TnaWkeSv8yzxaEwfea/imxJOa3P
cSPpDDEoPPqg5maiDr9WWNS03r9wFIpVnjjq9JpeS/7O0u52KAofTM3FJShh
mosBWBkahEK+6rS8Yfvvmtk+u47Ltyj+9JtTx8F2TePrtBxzPijMi7Ob9DWo
0qRxYW0d90ThlYOeSoKROZrv7Q8HDLqj0DPC51Xf3D1NDytBsV4XFGrwe6St
ePlpCpqKjbVdRqFyT69LXJud5ld92cRGOxSahHwfeXxSRzNWS0X9/SUUfpP6
azlSJqepqq5JKrdA4XIVzxIREdDcUDQsKDFB4W3z4TekHAbNQllLi3xDFL7t
HvR9IoRrWEk60GfpUvQrmMhdFJjUYDl5tfaxFiW/2Q/7pBudGk3HfK4nABRy
WM4zHVqu1rh5JJg/Wg2Fu1mwgDYvT0OUI/JLqBIKJzNK621n4jTGWRLC/RVQ
yB/JW9FB9NdIokuV8z6DQlSBOeFbsZOG5n7ODzcpFLrL6eyl3zXU+LX9PM1R
DIWrmuQztFOKGrZxtRm5IijM1T/j5WtzUqP56OescSEKH+fYiz6GnBqiLydy
jgqg8PRTY/ruUiqNByqkp1ZHURiuKnPcb2QDwbup859wU/z/J7o4fXISuWTL
Xfj1EKWfudX/aRB7kYYV0eeH2CjjVRZx/rcaEOFQlWJjZhQOVIqJiS6+QeIO
EEsf0KPwnYvGNfX0fGQjx/HVZ2oUztqylYdlpyIl1nPWHHskKGHC4V/3Xxxy
M4TR4eEmCR5ifIl97o9ALmRLX2FeJ8G463mPo/SCEeaPZm73FkhQi9ez6WLM
TWToe+B16ikS/FM2kGh63xvJ38vxvjtCgkAj6MIx12uI17FPfjt9JHie/74Q
9s4VUbqwGBDQSYI57q4SA9tXEJrLB25TTguw56VV/JN3l5G+cNkw7zoS1A97
XCdlb49k51+MWq4kwZnHt693PbdB3D7djnV7SYKu79j2odslRHbuWcJsAQkq
DU698Y66iOzRtCc5ZJNgfYRRY8KiBdIlspIylkKC6VFPT9pHmyOphIMZFxNJ
cHCm9seGkRni6HY2ZyCaBPl3pKR+qZsikrE2z4zukGCJiMbQgWxj5FdxWFG3
P4XfqFnE2TUi0txZVKLtTYKy1Dadbh6GyIOlrtef3EhwI/Ll8hl2A+QS80aF
uiMJRr7MsL/4VQ8RluSqqbciQYeHLwZjq3WRDQPlunMmJEhu7H8q+1oHqfd0
aKjSJUE7EnSzrNdGYh5ENcsgJFj25iHJc5yAmL4paXupTIIVdvP+5qwEhL+v
t+uUHAkWfEtC5Y20kOqDRwaOCZPg5P6kb88vDSRM9vxwFh9lve3g1W1bDUTf
7MrYYS4S7NU5w7PdjSAzKa9n2ehIsIgZe/E1GiBlb/sX4vc2ILvdyr/3KReQ
oKFfy/S/NqCMdVnQ6Qp1hJ0Hwf8ubMDYj4Lu4aznkXFFt62QqQ2ob2BtFmCo
hry4lLD7a2QDHhsaxM48UUXOZw3RbHRuQDya//lxRAVh/LDD4NG8ATnQk+NH
CpWRr+OCBxbrNuBHfm0x8wPKyHWB61xTLzdgzfHk7ReYInJWPemIbeEG/Nz5
omveWxGhcnzLP5K9AYevXDhcQTqHpD/7K9KXuAH3xU2kk2jOIW3CKWebvDeg
cFJZRKCDAmI88nAlw20DliRHMKC/5JHR+Ph8P4cNSDdKn+GXIo+soRGsp4w2
4MPDt+HzETkk8Pmdln3CBvyv/dX22l05hMo6OHj0/AYkpOS9uy4uh3BBn/lE
6Q1oo/CH92KsLJJ70zPb7eQGzBm4oxOgIouIirqbAoENyGkiy2ozdQZRfejY
gB/YgKJjycKNracRZzujJzar65CbKs3zWos0ssaub6DwYx1WiN583mQojQS2
EKjYvq9DyPpiMHtUCkmQOO/V/HkdFl4UZdLfk0SqtiUJYq/WYZUOKanCXQJR
fS26S1W4DpP4lm2tmCWQNkfhyvGsdVi590Qy7I04MtrOK5AUvw6fMw64re+J
IVRPmDY3r63Dkz6e1SPvRJEEXbpXfU7rsJ/m/gLjdVGE+8+/y6XW61D/itr3
Q4KiiLjzdo+d3jpklz3f4P7wFGIiu1jUIrYOb+rKv4gKP4mM/pi1yRVah8e4
Zk+3g5OIc8bkwcAj63D8v2ckL+qTSOD+UKgE4zoUXD4i3RQnguT1tlo8WlyD
jqLOKUixMCIeAZk9ptagGomaKcpXGKlW+Ai1RtZgmnSmz6iaMNKeXS213b4G
qaT/GRQNn0DWrhXQOr5Yg9sWtwQmuU8gavThb6Vc1+Dbo9d+aQQLIeKLD5kf
2a9BWWuBSZ7TQghPZ+7lTcs1KPzx1Q2hBUEEjftwoFF7DeZ+2hUqtxJEilm3
XIzF1qAnL8GLSvcYwsntze23sgpPGU3/5bnEj1D9CvUYnluFVEO9ySeO8SPr
wwnNKt9X4ZmWQ9tU83xIV0apF03vKizofqIo7c+H3OWfb0t9swoT/z6ka3zK
iywJ2wW8912FTY33Cq9zHkVGaD16+K6vwj+EtJCZH0eQ1vngE+FXVqGmlHIu
+u4Iklec/kXXfBXSjX3nHrA7glhIfj01prAKP0T3HtYu50Ga5PRH/mytwK/S
r4NaPA8jZZzW0k6kFXhJuEokVfswkkW+GtX2cwWWh0Z/HxY6jPi/izn9cHQF
jga4J7wc5kYkVJpjBT+swDvBjacu6nAjTxAlJY27K9DBGwtRUeVCaDtIkz0B
K1CrWXePzMeF3DQsjbG6sQIlpl9r0OxxImZWvF89L6/AVwxus9yQE2H3+uOV
rrEC1U1vR5L0OJG4DFi4Sr8C/VJqBYI8OJBtgWD9wP1l6KsZODllwoFcLZRF
qbaX4b/ubzZx5zgQ7TcF6jxLy3CMl745l5oDoWmNHkU+L8Nw2QtjVbmHkDsb
uuzpSctwrQWPefbxILJ6i+rd8fvLcLvzyMbww4OI7U6d3evwZWjaU+IW4HQQ
UaGTfNnsuwwzv+YuLjMcRLZ4WQmr5svwStdZ+2hrdsRXuz8EObIMqx7/yrVn
Y0Nccq0XVp4tQaYeF8+xdyzIo5qf6oMZS1CO5KG+nsyCNPUGpn9MXoKtF+6l
WHiwIHx/n+g+CF+C3VljWVzHWZB+h4GXMpeX4GcVyRlCMjNyQcjghq/gEhTy
4NjLCGVCeAvVtn/l/oTfaO7QCsYyIDofPptMPfkJL20LpnRcY0D8v9qUdjz4
CX306ixKDBmQfppgm4w7P2GLRcsGOycDEutS81HZ/ifUTFONcCugRzZPykSE
8v+EvRVsChXddMh/JYLM1NmLEDiOoIfVaRGn9WZq/5RF2HFM/KS2GC2Cy7vs
LiYswjpvN5kMDlqEu6lktTd0Eb6NxAMKF2kQ6yHZvkyHRcr70ZnBKIUGmaPS
SpU9sQijOk/Hl5OokS0b92NOpQtQcz08sqaZCrn/jJlnMH8BPqQ5pV5RToUc
XXjNrpO1AOkap4TbcqkQNV/0n1TCAjw3sRKvFkKFRMSGzG17LsBDVYRaWwUq
hOVtYknymQVI+1dfxNr6HxBkrZSD7+dh2BuEIc7hL7gxLz6RXD4Pqb7N3q0/
/xc0NRTEOhXPwyM+rjp8An+Bg3fqd+r0eXg8fEH+2vc9kNsXeI8QMA/XtBfS
Je33AO9j9bFuhXlY9j7/7y+3P4CbpydiqPIHdE/owy5k7gDXDS2pF6U/oLcO
7UTpnR1Q09EwHJD/A7ZQu2grXdkBFkHlkkceUfChHgHNkjsgZfTxkI3PDyiT
LJByB/4GB3OsxadlfkBN6zx9J9I2YDm++N/yqznoKlWoLeC+BSZymXpmCudg
0jKtIL3pFnjDK9XxLXsOlq2ffMWssgVMuXwb2hMo8THJI24HtkA6w25pgccc
3HdKQy9X/QLC62xRNpJzsMB0OPA8zS+g9uHc2e6Xs9D8rvoJh/dkwKpkfaa5
YBYGf9tycC0kg6m3tyVrs2ahzZWP85FJZBD1Bh5/ET8Lpb9/Vvt3lQy68vXZ
Iq/PwhnhNxz/jpKB5X2HRWWJWUhfa+i9GYEDL8t7maWlM3BpbD37y2UMFOx/
UJAsmIHNPqGicSYYGClF+15nzcDd1zv3zQEGkL929BUJM/CK3ktfHiEMcBfL
33znNQMzr1U4WE+joHF72rBFdgaWKurbVjmjQEAxYL/WbxoaTr0uNFzaAE6t
0z2CKZOQ8Z41x7/QVaCr/tttMnKSwp8ct3V5FZyuPUSV6zcJ2TgtnZgIq2Dv
lcZZXrNJKJzKkX2bdRVkphTlch2ahD5eiGpa3grov+LuzZQ0ARfYIw7GdC4D
DSoSOx7/HWZ+Sxeyl1oCwur7Zu2RY7B/f+ec2dkF0M+hLp11cwxqdJRMOwkt
gLDFUAZvlzE4ycG4H8GyAMaTdz5wa49B3lthhvjMPEid2xRxZRqDp/tcOTOS
5gFd3OovmuRRSHVDfGd07QdY/DqaheR+gxH3PM9+qpkDL6+9nf34fhhyOIa0
JN+YAUPOz4QMi4dhKrNAQYvdDKBySHQYTxuG0qw0XHT6M8DKzGXst/8wvM5O
7V0tMgNoVLkGzikMw4xbFcTAt9PA9sCt5oqKIRjrgfVMPJoCLOXyz4pKB6GW
KlfW5OUJ4EGusk/MHoBsVJFzHnqjIEsRU3NPGIBuZ95gTRKjoCtEll/r9gDs
TXDUFz8wCk5RVYzt2gxAnVAsRLXvG5hhLbPy4B2Ah67Oh9pe/AYuihab6mf2
w2X7A9qB7iMgsvpsPLv0f1Bc22v0QfYQOB1Gb8Mg0gPr17zHDygPAK6QoQPp
Oa0wTKLIIVesE3xz9ZKs+PEezpir5LGJ1IOg25JJ3Wl58IiCfORY7DPwKlkZ
eS77FExdITDEXcmFSdcjR5yiaoFlxIC/TNw7yLZJVCszawUTDHTyAt3NcMa/
42xgTA/IbRf5SF3cATfqjVqCugZAZPKPMZHhHlh8v8DJNX4YVEUuFSke64en
tl5zBeeMATh+vOyowVc4VS3UqHZtEhRmRnKIiA7BixkzcauPZsANtQXj4qFh
mPfiQSMxfQ5Yl8i1kaK/QTo773X6kHnAwP6M2en3KOxzelliHrMIZDIfKdD5
jMN3bHwO215LwErdpt+q5jsUzT6xxEhcAVPR0qHZUxNwNzDm72uLNeDeRfI9
xzYFWYY71oHdGlgfH0oP5piCfArMU4POa0DMaurVh8NTUIX0sOmP3xqIu7eb
pyY4BYPdM8INH60B7pBHLbJnpuDWpVfUq71roMnZ1HTJdAriyv30kjrrQLiy
jpCcOgVpMji3Go3WgUbCH7wyYwpy/rJcNLu4DvJK5nIGcqagXNVYR4jrOgju
OT598PkU9JX4cb87ah0siy2di6iZghu8W8zX4TrYuu4SLDs8BVd3+dlLlTdA
RuvdhYHD0/B8x33iFLIBbMdcrkrwTcOkx+QEbv0N4PxAoSVccBrKivcwRtps
gG2ay6wSYtMw8OJtatvbG0DTM3rbW3kaUlWObh5o2AA1/acefrKdhuahBAXN
tg1QzO2HM1yehkU6lX7BvZT59zpVDF2moc7k/Y35iQ0goWDl2+85DRNZlJYa
/26AtuYz8V/uTEMet7TvPoAEZLxqP6fkTUN3WWq+Yl0SEKmtj+konIZ1f7ys
J0xIILEqS2yneBrapRCG9ZxIYDhkUNyuYhrmQ3LfiUgS2EnPGuJonoZ4wmU2
63gSuPtQSvt82zTUsuoxTHpMAuhL54euXdPwyQmlhLYsEuinxjrieqfh4lph
124BCWSy3HpX1D8NlerYGeVekUC0fTSpeGgaxkXf1navJoFJk+Fhj9FpOG68
GP30Awk0zYlkRH2fhlJ85i2DLSSg5XaztHViGt5ZaKRi6SGBz2U9A38o+L5K
CYAMkoBArv6kR+c0FLqTdjfwOwm4tX2MPfFoGvrqUjeU/SABvomltXpsCrZw
eu/OrZJAeXtMfJXKJOSaGlXm3SSBhAfvZrQiR6HrS0KQyR4JPKoUJc6d7YR2
qqPjmjQoIAgbvNFP/QbojrPvOjCgYGtmtSd25C8ooyfwhrCg4G0t58y3hiPI
xdUQ5SfsKGhLKHuv/FcW2e+vuFTBiYJUb7nPt8N0keL3C4GfeSj4b8D6AIsT
YpLLn77Ah4K5/xAhxu4A5Hek2TsqIRT8WUp3ro1+iOS73x/iF0FBU5UijcpW
EcIUeq1HRAwFOi11hUZ3PiC+SfotUlIouGng7xHycAAZLZCsVziDAuL02SNs
F34i4N2BSjUFFFg1KnWeh/tIcddasZYSClh34vNumHFrsE98eWqohgKvk6mL
04OSGoGk8icWAAVXany4R6o0NKZoHiXaaaEgI9K+ccLskoYOj1+Uiy4KXsl/
fWhQc0OjXMI8xNMQBStxN54MycVo8Kgr+N4yQcF6VoW0fEK2xl1TbvdQCxS0
50/nGntVacy7/HKIvoQCjoVThoPjHRrEoBHLRDsUlMXWHa8lT2rUJNQapl5G
Qa+L9g7MIWsI5GVq5rig4LzUp70rxcyaMVUhKkXuKFAhElb6Wo5rrrXZyr72
REHg3bWD4XPnNC1H1cTe+qAgen7X2ucBUfPjqoDgx1uUfAX0OvHZzprC//5y
twah4Lnz0SwzlWDNBM7pAz2hKOD8KrXqFJ2siZ9qphkMR8HiB7EPlbefa9qq
FOyMR6PA0uex0HjGB80WYhQ6d59S/5zLg4LIgKakk8vPlURKrMDAyme/qJly
izCFJ1P8Vh3Kat3c09yJPTW8m4qCeF3gE/CRU8spm6GXJhMFLC8v9uCK4lpd
b362sOSiQDzh0u9dbaAl+6mrnjMfBSHRRfzqMpZamUMvK/meo6DO487rXzQe
WlRLCSXCpSg45z0edLs5QuvaH888yTIU9NWmMLYmpWn1sxulyVeioHjT27Ck
9rWWkvDpB6o1KAirfFsf9uWTVt65g9GadSiIUsq+Thwb0WLQR0MMGlCg6feb
Nou4rnXDfsDXvBkFI8E2/R1tNIQRn2p32zYUTLBfCjBiOEq4EJ3q6NyFgtOD
/uPl9acJxen+Fz16UTD05ZOYeYEWgf3VReLNfoq+y6hwwUEbQkCjotbtIRQc
vTrr6rbtQ5joP6IaNUrh6+yQnuQYQyDM/5ZNmEDBZPOUOCRlEcq2x8RSZlAQ
Z8UlmhBeSeA+8FEwex4FeI/qkcjfbYQ7grmHC5dQYP3yasJ6wThhXu4u66s1
FASJd/OkLaAEorYjbTWKAjuBK1XLnvTab63Bbv0mCjbDiPqewvzafF7HsU+/
UcD4qO5mhZScdlQ49VL3HkXPs6PtTu+1tVdS5qYGqDDAfMroWMoNO23z4tbh
MToM5L/Zm/My9dP+UP+8d5YJA33i1428Ru5pC3+517rMioEfj/0S1mNytBNm
rn7ADmHg51Aj6aRFlTZG1q3a4cbAF1kmjgc97drWjBKl1LwYOPrmGqLj9l27
mY/lGfMxDHwm0z7bVsC0xU+vpnGcwABnS5vq+XR6nUcavQ94T2GgueCZccEh
fh2dpiKFCXEM6IwwiCTOnNHZUw0dz5PGwL70Hq9Ki6ZOda155BVZDJxlntfo
PGilc+2spPjJsxgQ17bftl+/riNYRf3fohIGCpU8XxXfDNMZkhkLeKmGAdUa
wYT7k491El5VCnhRzq0GtqXK4uTnOohYXOtpLQzc5rFyePigTmer6LIHpoOB
C4b3p5eaenXKjitx1BhgoGqIOsNmYEbH+Sl7XaAxBsqzL+VzvSLrHOVbdFQx
x4D0Lw6mpR0G3b70Rvq9ixiQGb2w+mSQTzeGK62syQYDv5dCv5cRz+iqPvKy
iHTAgHercsW/C5q6KCthV+sKBohGddOMmhd1i+P5CxjcMDA4lMjQB6/p2jOQ
dbuvYUCNfECKv+eOLmf0541ELwzoHkafNjQ80u36V5Bm7IuBWImZ9s9+Rbph
d0LOc/hjQH21Wmo05b3u2R3TH4NBGPjzaCyETfaz7kqAeEJ6KAbc2aNVfthN
6ebj/2Rtwin+1V2Xq0/DdK18vn3jj6bouYM9d7ej02NdKw+bisVATBU1d92D
I3ot12JPFSRgQE9f2txURUoveMGh1yUJA0GfdnHqW0DvtPO5W6IpGEhnPV3P
LGauNz/FyrechoGOLWulbtRVL9tuvvl1FoXvzEWqUZFgPZPRj+43nmJgOqJd
mvu/RD26i6nscgWU7wzi3Mc31Pl6HwY83pGfY2Bm+7744vVqPV9jTfv3pRgI
+E/XhlGqXU+0h5c2pAwDDGj0Z3OzUb0JXeylWiUGuHp/7D5fWdVLaesy3X+L
gRtm/x2zpKXS19PI326uxcAT5xOVsXac+vuNQXnRHzEwHiIQtMB4Sr9G1URb
B1L6//VIYxWXsr5HregaUyul/gvH/mUlGuofP7uf0tOBgSm/Je+Fu5f1RyqH
VZI+Y4Cjc0Pc/K+f/gOZNzOmfRhQpGsex+Nj9DVfxdzn+ooBR/abQTs3MvR/
i9qfHhnGQGs8a29X7Sv98iKF4cwxDBBUvhBF/Zr0XY8fuGM3iYH6mn71KssB
fb6nc8KCsxjYjh3r1Kz7od/P+6F7Zh4D/sX7zojXln5s+mPfoiXKfhnrcKu+
zWxwnuv6katrlP10uXKyb0PAAE9GmsRRDCyIrREfesgalLIedVslU/yP1mnr
eKpp4BhPOlC+TdEvZWQ7efSiATdDZ7XvHwzcb4jnC5t3N/gclWej8A8Deeet
a8xYQg0i/gVQbdHg4Hql5gZPWpKB4h2jkjoGHJQ3qQ5c1iswWPt90jiUBQc6
9fXqevfeGhQG7G2qs+MgU+rgSAFTh4E1PphDxYmDodWTfhnjowbsPq81Ww/j
IPxNtZ0i3ZqBW2HGoW+8OLDKK1HGFqgMG4ajp1aO4UDy40aWoyO3ISezb9n+
Ccp6UBy4xYkbXj9vf5tTFAcT/f/S78WqGzb76OmJSuKg2vzZhZlmM0OeorM8
qqdx4P5B1sPlopuh98jxeSN5HFz29zOseBpi2MbMVn1FEQdzvCbKtA1Jhvzq
O+EBqjgo/ByQHexVaHjTd8Eo/gIOfBeNggHne8OuogH+p5o4UHynrtng+dlQ
6FvjcqUODkrp/8sIy542DGR5VdtmgIP1J3WLXD9ww1719Hujxjg4W/BWqjGJ
gSjiF2WxZo6D9INbPj2rfMTbz2+coLqEg1ke0Ww7NlniwDdbEpcdJUZzwyaO
axHFD+g2il3GAa1CovdchxUx7IJCopoLDo4dk3jxjdeTOOwnZGPijgN6fxjq
JBBBlH5xQMzFEwed4Vor1CdTiVGj25uBPjjgPqUqJlpfTBw7MN+ScAsHXPMP
6Xo3PxBlQf+jvCAczPT2TZ/b/I94/2aDY3UoDrL4vgf1rc0Rp16USneE4+AE
rY5HxNUt4tmxJ7tj0Ti4yeQ2khjGYpTIGtm1fh8HthpP2uVMhYzmgHc69QMc
3Pehrc29K2+kfMvG9fAjnPL8Pxtj+VXbKLlYW17iCQ66ZLJufvloY7Q4Jkel
nokD0S53H16LG0bqbIJ9prk4UCD0nSsfjzR6grDkuubj4C3jiKsSTZrRyq2t
68HPcYDf3fnX87bUSKNkTulBKQ5ujP27Ic/QaJQ53kefX4YDm21uq5/MA0Yb
bB8H31ZS9HHnPMr4+8NIW6OkoLMGB5p3J/ZGfLaNcv1Tfb7X4aDMQ2GKO+CA
MbkkXJ3UgIPEiXyeQM7jxgbfPQ/QfsKB63tnLuMv8sb57NZjPO04GB89tdm1
q228rUEokezGgZx4ZhXNGxtj4wDZgAtfcLA/OcE/8tvb+HmpgJb5AA6ikmgv
nQiNNP7znYnj6jAOlG/EKvg6PTE2P/hrKmSMUo9200a5hhLjl5qzZQ8ncbB3
MhbPzP9oTBX45XbBLA4eBlIbanH0G1u9rNd7t0AZdxGr3SybM34z8YKne5nS
j0S09HDVL2O6QynzE+s46MjVNLKSYTax1QqrRjEcfA0vny9ROGZSFegRQbeF
A5U51xHtNVkTpldWxkd3ceCUn7j/LkvL5PKkpoD0PmX/JC1cj6iwMnl/6MwK
oCED8es8WTPnPUxYCfx1FgxkwOhd6S5nEWbiEsQY685CBvYyI/580Y9NPrwi
W4Syk4FUVG2evOJzk0NT0yeSOcmgc/BKeYlJrYk7Ry+pkIcM1GX64/cmP5s0
Eeoa3/ORgQWwrnqJTZm4zGar3RMkA/KBJ9PIGGrCFHa33kKYDNoi1rpkrWhM
3/A5KQmLUvigVAYVGJepea3mO1SCDJ56Cqctvjllum1xSgHKkEGe0oeWEw+V
THNRxqqHchQ87ED6HuubajxcOW1/jgxks9n07jbZmS5KfCmTVCGD2U1lq4XD
N0wTOyokd86TQWEv1YifUYSprEtKaSdCBktPlH9eKH1sOvzPXzSdQAYpn4/e
wwSKTG/nXnruqkcGiczzfxTf1JgKqagKKxDJwITw6d9X2w7TtmGBfGpTSnz4
h3e+2Kjp9Zv/jvVbkEGtjRRryuEVU/aDczl5l8iAoJSg81Z0z/Tt6zZebzsy
uDZhuCzuwG5mrVeSoXaZDJpnGlczHY6b/Z2PP8ziQgaa8uenUgvkzAojvVJH
r5LBca4f3+EfTTNdQROOEg8yYDrLGenmbWm29kEuOeAGGbTL32j/vu1m9vgS
NxvhJhkM/ePTicsNMlPc3ErgDCSDIwK7CdP28WbfH40xzYaQAQ6sddxUc8wi
ZBpiK+6SQauTX1KZ4huzU5/z6MIiKf5ayByytoBmn69GRhHvkUFco8oxtu5+
Mx9aVyr+eDKgoa2rtN2dNePO1wlbfkAG7w8/Xrt7gWxWf15ir/YRGUSdJtBe
S6czdxw7cDv2CQV/21GBk5bHnDZwY9sykwySPV61370nZl7KORAgkkup16lS
+hpBFXOjirdk7BkZhDluK3T8Z2COG6b7NRdR5gva3fySZW+esRRMSiohA8n3
VC9X7t4wP3/PztvhNRncUrGVL7oQYT574sKqVAUZcPz5ZhVHfGwe23T8+m41
Gdw4b+2JXC80l7Kj/dn1ngx8W2kKPdLemvdvL7hmfCADt7+n0l4OtJkHPOma
c2siA9JpHeEiwRFzPrnXTmdbyODowQaE6u5Pc/jl4RRNBxmcz28Z9Fr/be7q
4Ws/0E3RPz8SlOHLYsHMaDH+7AsZ8NUYG8oxCliUF52zvjFABh/4DlavV8lY
0DV2/ro4RAb////6/wBwGySl
       "]]},
     Annotation[#, "Charting`Private`Tag$1549#1"]& ]}, {}},
  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,
  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.5, 1.5}, {-0.49784938287628594`, 8.966707272812996*^92}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02],
     Scaled[0.02]}, {
     Scaled[0.05],
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.9486843584777985`*^9, 3.94868437603642*^9}, {
   3.948684406060377*^9, 3.948684428561076*^9}, {3.9486844725260024`*^9,
   3.9486844985277786`*^9}, 3.9486847214127216`*^9, 3.94869339632292*^9,
   3.948693972712639*^9, 3.9486978011851563`*^9, 3.9489557719298325`*^9,
   3.9489567536585984`*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"1080782b-3db7-438d-a9c6-748e3fe9287f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", "x_", "]"}], ":=",
    RowBox[{
     RowBox[{"3",
      SuperscriptBox["x", "4"]}], "-",
     RowBox[{"1000",
      SuperscriptBox["x", "2"]}]}]}], ";"}], "                       ",
  RowBox[{"(*", " ",
   RowBox[{
    RowBox[{"degree", "=",
     RowBox[{"4", " ",
      RowBox[{"(", "even", ")"}]}]}], ",", " ",
    RowBox[{"coefficient", " ", "of", " ",
     SuperscriptBox["x", "4"], " ", "is", " ", "positive"}]}], " ",
   "*)"}]}], "\[IndentingNewLine]",
 RowBox[{"Plot", "[",
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",",
   RowBox[{"{",
    RowBox[{"x", ",", " ",
     RowBox[{"-", "10"}], ",", " ", "10"}], "}"}]}],
  "]"}], "\[IndentingNewLine]",
 RowBox[{"Plot", "[",
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",",
   RowBox[{"{",
    RowBox[{"x", ",", " ",
     RowBox[{"-", "25"}], ",", " ", "25"}], "}"}]}],
  "]"}], "\[IndentingNewLine]",
 RowBox[{"Plot", "[",
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",",
   RowBox[{"{",
    RowBox[{"x", ",", " ",
     RowBox[{"-", "100"}], ",", " ", "100"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.948684737918474*^9, 3.948684821080386*^9}, {
  3.9486848644683805`*^9, 3.9486848722508783`*^9}, {3.9486850111485686`*^9,
  3.948685063162801*^9}, {3.9486852087038565`*^9, 3.948685210196806*^9}, {
  3.948685272868388*^9, 3.9486852943008184`*^9}, {3.9486926976615715`*^9,
  3.9486927251603127`*^9}, {3.948955631438214*^9, 3.9489556404057393`*^9}, {
  3.948956065671069*^9, 3.94895606721146*^9}, {3.948956142053338*^9,
  3.9489561685723743`*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"29df28d1-873b-4616-a165-96936d869700"],

Cell[BoxData[
 GraphicsBox[{{{}, {},
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJw112k0lW3UB3AkIZmiDCnc6lGhQYRw3UgSSUcpNBkfSiVT5p4yU5nJnDFD
po4GomuHQ0VkJjJkyJTOMRN5e9d63w97/b/stdf+9F/rJ2Fxm2LNwsTEtPZ3
/je9f5yeWV8ngE3g6cz6NgaMem6b71kloO/KHsr0VgYY8PYvvl4moGGd9raH
lwHiyg5rt2cJMPDiKKZyMqAqJJJ9YJSA4OnMAxf/0IFdrnMnfCZA2pou6TxC
h2jna3r/JRLwKpwSufqCDvnMTplMRwn4rnb8j7MeHTZa6xwWviwJkWIrpXSY
hq1dNPv0CAkoPuH8sHFuCijVCZZ7P4lD0dvA9krJSfD8pWYfPrQLpC918deK
jcObuwnXi87sBA3veMVrCj/AIPK8+J/4HWB8xbfkjeQI6CRXGpycEgF6frzr
MbEhyK5z73AyEwaKLVdshcYgXPGLFmzK2Q5hFrVN5tF94HNtQ+HmrdtAylvE
UpStB5hkd2EtfwGwUfrmLfS8E76Gxgfmt/PDZeXtHocU22AHp23unCYfFN9x
1AvZ3ww3FPZt7NnBA7Zndohekm8Ay6N9OdXVm0FBzvxk3/Na2Oemsn4rkx0E
ycjvW5irIO2bUY27xkZ4qGNX8HutHH7cF1TVEWIBJqEdVncLqMDpXfQripMF
zD8fD5QJp4Kcm27GwCoz8C2KeC44UsH1ljenxyAzhD0IGPygRAU2s5Gu53nM
kLPewmxLewFSR1668Ksxg0GOoH7k9xKwGD1X9M2cCapnB2yeyxRDeYy09pjx
Gr4yO+wnz5wH7GY/LJlV13AQs5i7QEsuGItnPxCRWMMWgR8ZOzNyYSaPAP3J
VXx7ftW3WDsX9sLOYyX3VrGKpyq19mEOPJkQOOSR8xsHbei0q5Z8Bi6IWYxr
ZRkLTaqV7LyVCVWscGx3/zI+XpB+Rvl4JvB+8jFVr1nGVivNG31EMuH5udU4
h8fL+A/t8yf/ugwYtlvkb5dcxpEXfsqFERlAif7JnqK3hL/3ZXE/GkqDg+Pd
cweSF3ASf+jNDLZUcKbL7t3ut4AzuPfan69KgTeL9y//ub6AOQM5ws/6pIAG
277aBqUFPN7986r0YjJQCI84u7Z5bLb71EfDqSRwuSyikrF5Hm9v2jsXMZwA
5c2m97Z5zOLT+lWta1xx8KerkLp2bRYXyUfUrjfHguYAy9iwziw2LQmI1o+L
hfrpPEOq4Cwef97dUSsZC72bf0sYlsxgp/kzAepqMbCunVgTPMbAjIFnG9B/
UXC8vIdjzZiOPWmN+dnq4VCYl6Vcd4yOq2pZJofYw0Eo8bZdhDgds+ZTK2ez
w6BjkS1Sr+0XXnSImr/a+hh2exrzJq9M46XPoqqhRx5B1f15LlLnJ46qs3yo
KBQCsRbB9m28P7Gc0+/ShtfBYKcl1mD7dQqrLmxjCFwMBt6N2qERN6dwkkpH
/duEILgaFM0xFDWJHzSTu6ykA2H1sTxbwMA43kq9nPKPtR98uV1nLZI3ju1C
uwOHePwgw9CMVug0jsOmj++gvPWFU/y+fp1s45gRcthOR8AX4mNaWPbKjmGR
tOMBUY33QTHpznq9+yhe83yn7/jRBxxyi5b4tg5hD0ubjkE5VzjIfctXc+A7
5nDZyu5Q5gIMRxlup4LvmGi0szmq7QKOqrlEm8533PpFrfXONWdwaUo3iPUa
xJSUO49jsxxhdmK/rkJDP57q1LQzbL8FzqU5V2Jt+nFJaMDnRL5bsOC923mR
qR8HPHpYZWp4E5Z4d6WWKfRhL+nxTPn2G7CqyD+vltqLW7szpY1WbYHNd+np
CcduvOmbw5ULYAmB+i6vnnF14/31oY+GCEtg3zZTz/6sC8/mZ+gNB1sAZ+7k
wqeeTrySH/Bc67I58DT16Z/R7sCf8t3nFzSvQPgTM4vi/nZMWx5RNjt0Gfgt
uu7yebTjrrWU27lSl0Bgvjm9tbANPy+U5GUVMQUhUdrSBaFWPCWVUFqKjCF+
WIO77EULrvR6JXjj/HkQKXxHiJxuwcqNnTu5HM6BmMYbg977zVggZZMXdykF
tBqNdd93NOH344YistMGcMLc0Nl3cxMmOI+UnbQ9DSfndFO1yUacHnKpV2VK
D/RF1OY/5jbg0JRUpQw+XTC2IdJavD7ibtXPHYEtWhByxyko8uUHfKPRS+Nq
miZUelXfpkzX4SdmWQeeu2uAVJSlesvVWuws47t8+pE6XEyh7o58QsMnmnOF
81xVITR3wxZKcw2WZdbYOOOoAjM4o6dZsxq/PiHI0M5UhD31s1URnlVYNNHs
BKX7CJh0aOWdLX2P+Zak+PQk5AGmhtyadwOG2bPqG9sOwNivf0Gy8h2Oy7x5
zrddBs6wsYely1XigSO9zj2rf9tJ/qRMOl85vkbkNYlUSoG/7tiKhO8bbN6i
dY/FWBKmrgZ9TJt7hW+yZBE0AXEwcpV+ImHzEvfspfTRZkSh/OEHm7ROKmZp
fivxZpMQSGTYKkjovsBzJZvszG0FIKiMnTWtvBhjH9GNVQJ80Jd6NkvjYiGu
qPP9r1SYCwoaIjQ1juVja97zFefS2MBzubmf3JmDuUXajloDM+ju4fcmmbOw
ltIYbvi5grcbUUTI4TRc7j8sXRI8i+vXpW7fe5yMNSuNU+k5E9jWJCvX51wc
vvut0ls7aQCzUncPe4tE4A7Z9oTqr82YFNZXWwF/vKQW2HToewWmP4m3YsQ7
YmmZaI1/d8ZgL5Zo2gklE6QaYpvGY2eJ5RIs6wQU76HvRvmeXuUFuE+4ZHoz
z0Mkr3dgooLtAzaS76oI0IhGmbh/2x/Obvyq+8KDQM8EdKRxPGfbvyN4C0wS
NaZPUdQhSraKER2jqPyAmrsZKFq0bK1BYhHfsbkxXhOdjZh7sqs0dq3jdOX9
+rSSXFSkYyzRsJsV2rgmC2mNz9Hc07td/xpxANtAHl/tZBF6M7M1ykmIB5JM
FFQs/UpQcru07d1yflDQirkxxE9F1bG89+2PbINGmfkky7RSVG2bUiu0IgxM
TC/XLd+9RhHjXHDqiATEjwscGtYvQ2+NviW+CCLgcKuzhVVPOTrOUnp2nmUP
WGUfoVktVaL8jy3XOe32w1pY9MJwAEZ7rwed7z0nB/WqK1EvQgBJFoUJHKce
BKs9prTDwlVoquutyqs1eTgoytnnOFCFdDWSZSlYAdZ4yhdePKtGFTX0+1+j
jkLssrC0vCIN1ajTcotcjkFdQ3eIvNEHpNxEC5Hn1gRbt691Zvs/IqXXNkap
57SAXaqH1W/DJ8RDlfspk30cTnn2+rRR65Ebhy17wXUdaNjb7+gi0IRMPAY/
qbqfBvv2/qLkqSY0i8X4qUJnIIB0WLCw+IJ0H8auZJobwj9TDvKhKs3IRejg
7akdFLDVcizomWhBKbq7BY91nAel+Jn6X8atiF6ZK+naYgzsvxwnNlS3IpXa
tndk2wXITXD6RyaxDRFFqUp+YyYwwXBO89LrQOstIdLvja6A/dO7MWLPu5H/
/tc2XiJWoLqwSD0k9BUdNHn5iIdmBVz6bi3afl/Rkxt9/naO1lCw6MZz61IP
OkXZnX6n3QamDTyC33F9Q09oRf5fKuzgjc+7d0WKA0jy6BTdjN0Bnub++Vxm
P4AMf30K73RygKA29W/V6QNo50zE8ssBB7i4D//u5B5EuzKnlhLe3YHldqzE
9GMQrfRctmcNdQIV2fcvDOOGkOMHi4RTNndBoa0j9t3HITSpnn1Iuf8uHPSc
8pBZHULDd4W2XTJxgz0ft2uxmw+jgKysBPWz7rDV+lYr3jeCLFq3m7ic8YSp
JNE5uXejSEuf7p/qfw9SuVwVtoyMI0aN+6COvR8kUEOFPbdPoGtT1ReX3vpB
rGna2pjuBFJhy5DR5PKHhzkNtJrCCXRzUe1zWqE/uB0njL3cJpHkYqFU+EoA
ULy+uE5u/okW7ynESBYFA4urYK+VMB09XWKZGA0JA9NreS1vjtCRID2njmUh
DF6cQh+5DOmIba3q89jBcLDYZfeqNICOXFd3rVYnh0PVh4pw1jk6shdbF8/3
jABfUSvtzEYG6prlu3z0ZBSwvn9ROOQ7i+TWhhV2SMXBpXydrKOps6jtjRbt
s1UclMb0JoaWz6KV6DG2rqw4sLrOFizPmEUDQbb+C9JPgLbV1NL3yhzilBvO
N5WPhwAbZiFCeR4JhrtalV1MhE1chvctphdQ663q8qSRVLj4jykociwiZfrC
6PL2p5CnabXOKbWI2tXr3p5RewoG7m7eVJNFdKqXdtQj6CnEjj51Z6UtIqWT
v7k+iafBnveMO9mJS6h+svjtWZN00HaNspg4uYKe8ItXDI9ngu9Ah5Zjxhr6
kWFK/hOUB31lejfdKtbQcPiCRlhpHqhEQaxP+xq6118gKjqYB3TtvPGQTX+Q
l4C1TopKPlzJ9w7LuPEHxQcucFN+5YOKq1RPm/w6ekVNrb9xtQCWNyqXiVow
kdMZAia7ZYuhODHA0GeGmSzimHYYuESF2+lWvMPGG8m13y88T8m/hSvXE8QC
77OTwxoSA7lN7yH4rKuyfNJmkiXsoO6XW7XAKhAzem+Fmww+VXRJaqkeOuv9
6X48fGQxG8+J4vovcN7TQjGhmp+U3zLZrszfBvabJyUbTQVIZtNZ8ypKJ+zK
r41lmxAk1VW3EnP5X8HzjZYRT+J2Mswi8B6bSx84ZNu/UjwgTCot6o92bhkE
LpajFnIjImQWtcWxQmAItG+ei9kXtYO0Li1edhEZAaEysdvaUjvJwk/qumVM
PyDSMSjiYOcu0qyN+0cf9zhQAs7IJr8SJxWupj1wnJuAfWZ+5zO9JcjIed+N
RbVT0DHKkR51XpJsWKbyaxVPQ6PFiAb/LoLMO2zoTjlMh0HWZ0sxkgSZasmr
x6ZIh7ls2yLhPQQ5fPSLZJkyHYQnJ3dIyBLktvpnA6IadLBymlk8cIwgT6jv
8Go/Q4cV3/WC0xf+3ksutxK6SYc9WcIiwWF/96kswR3ZdFDW6fnCFUWQd7bm
Uuzy6KA/nhQYHkuQ5Fka6+8COtyRFZ+PSybIKEb6TtGXdKh4uedLdj5BJilV
cRtU04FSKx9QU0eQo8X3uH366WBtO696sp4gD/gL/vrznQ5unK9n6xsJsndB
NNdnlA7JBirmre0E+dCPmuXxkw5jHaTq9yGCDM6KyLb6/fdfN5ZZ6x8E+fjn
IaXevz7eIlqTOz5BkDmixYkUFgYcvqqzncEgSJlU97ZjHAzQZuZodJ4nyK9a
fc8KuRhwMeOT39ISQUreNNIV/+vv69oPj3mtEuTVCyOvw//6/P/8Tv6/3/8H
8URdDw==
       "]]},
     Annotation[#, "Charting`Private`Tag$2896#1"]& ]}, {}},
  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,
  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->{{-10, 10}, {-69999.99673469373, 0.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02],
     Scaled[0.02]}, {
     Scaled[0.05],
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.948685065623265*^9, 3.948685219670061*^9, {3.9486852788420277`*^9,
   3.9486852957139497`*^9}, {3.9486927125921526`*^9, 3.9486927256955423`*^9},
   3.948693396708681*^9, 3.948693973074736*^9, 3.9486978015585723`*^9,
   3.9489557724093294`*^9, 3.9489567537130833`*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"94ac5b28-6891-4d1a-aa4e-cff725d9cd36"],

Cell[BoxData[
 GraphicsBox[{{{}, {},
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJw1mnk4lO/3+Me+FqkU2deZse9jqblHlniXLUmhiCyRlKxJQnZlS6Qk2dqE
VJKak1R2ylbIlr0wZp5soe98ruv3+2fmel3nXs59tmfOPY/0qXN2p1lxOFwK
8+N/385uo/P//pFAopVQE1QhRRkWdaYLrZPATqnoAkuBFOVUd+8f+RUSROI4
2rNvSFG8zVvX/6OR4GSi5vEhfylKoMor3pwREnC/Ou07oiJFSVpNUVB/TwKj
YevdTk6SlNfppBOu0SSo86u9+NBbnCJcf6MN2EkAD2e1UK0IhWva/sAVHAk2
3xeuZeaJUFa2iH7Yu64Hv1XGQ9cjRCjfjxXV1DL0QJ1w9RIfEqHcWax5UD2m
BxXXpl5Ifd5NkZEeCysDPSA9Ic9Kfd9FUY3SVkiL0AP607sMMr8wxXzf98iT
mC7Y+8o7GjwVosS93FD2pOlCSv0dnMZNIconVZkBv9+6EM7duqF3WYhiIumr
Fz6uC7sec/0IPiREMcZtLGR160LkS/nIV/PbKEb1Um7N1bqg0Ilv3Ke9jaJu
5r1fJ0gX6E5eRoHZAhQRq2UuviUdyA7wZee15qVUBTc9kqfrwMUJ8/hERV6K
5b28Q2heB3bHpwTJ43gp4TRyZtCkDkSlVntWVfJQ+jMSJEZ6dSCuus5ZUpiH
cqdPROfFKx2YrTMoMxznoki5GZ06GaYDrvElj1VvclDwF6/WPV/XBsG+qcgU
cxaKKk9+b9iKNljVxu/kkWOhaOfX0siYNtB+i3U/wLFQUCNDrvWXNjg/SUzX
qsVRjol5po73a8N6Qm1CrSqOktRgeWLna21oZJByqg020a8dO3AhQdoQYW9b
ziK9hspflOw3mNeCqHFvr9FsOmK9K5N+YFYLjCKGi4bd6OhobP6Qw6QWVB/6
HsOvQke4w9lhgUNa4CoU1rn4YREdpl179qRdC/ySDxycZtDQCvH0HslnWrBy
Sk13vGYeGRfIMtgCtGBaK6+mMX8aZcffQ0J+WoCa/Dn3oGn0y3/PdSlvLRjp
KbX4ODqFsvZuJ+x11QKaXie3tMIUmupnPRlsw9Tv/ZU+WtUEStk51jytrgW4
k+f3tQ2OoZ6kgsK2RU0QdGLxKB/pRzlDnl7xc5oAzw2NSoj96LimijJlRhNc
3Z9HuwZ9R0PfX7+oHtEE3KfpWtEt39A0vqsxr0MTpL6du3rbtAetf+JY8HnK
nJ+ruPK9ugPJsfkacvpoQlQ9V6yR8Us06aCBAw9NQKp4dp3G5+jho+WGMFem
/A2dhd22EqnaxVrNHWWuf9bFel9vGSLdv+vWbcbkKL39NO44dJDcGV8ox5wv
vWwuvaUCAi/pdO8b0QDXuRGhd+1NcP3Kw1T+QQ3AiXVdnuhvhkcx4ub9fRow
8p7zw6eJFhhJ5qgN6mDKg7bWv15uA6s7PfeevNMAqWr+GQPOL0B8G+Qrepe5
nr5vF2O9G0Y2X7AuHdMA9Lfov/6Lg7DOSqz7cEQD1GNyq/dODcIurvygdFum
POB6KM+xH2AlEDetbKEBgulRYQMGQ1An6dDuTtKAqBS6ZuDyMNxCS7lfhDWg
Jp7x6+SjUbCK1tV42qUOBVt3ckt8GYeabzwSHzrU4dtPR0PGxjjIqP3g/d6i
Dkbf6KbJxAlYGogZZ29QB/yuAX/2mAnI1/lyy7laHabjUuYkNCZhbtp3k++m
OqTR+gO3R09BivX9ljMO6tCdvz1/YXkGloov1kTZqYOgx+l6d/FZcF03L862
UofdB0f33DOeBe2H85H1ZurgyDWz7JsyC4OsRpqiekz9Ej12nhL/BUove3Oa
dqmDdtWx7h/avyFLf3erTZUajHQ7ybIYzoMJ9XBW10M1wM7VlKg7zwPD5Iaz
w3016GardJO5PA92NpxzTmlqcFEiC3/o3TwIemFbvPzVIMc2KL9h7wKkZnVa
XyaqQcTIxPaK3TQwEuXfjZNRA8tAz0h3RRr8vmc+Ei2iBlIkJ4dVHRocfPwu
IIFbDQo19xe22tGAt/5JeuakKjxxM6BvT6ZB3EJC18NCVTC7E3pfb4kGukEN
ecq3VcFx0b1oD9siTKz9c3+Wrgq7uV+4/hRYBBPOEKw6ShXeKb09KkFYBDbx
0zvhhCpz3+zLJscXIcqScrRXVBXYxVC8+6tFCCte7WfNVIHmYwEu4S50+NTB
4BFOVgEJx+E1J086CK3NkQgxKmCQSFJQPEeHJ1Zj2daBKuD3xtArPIoOQ8vN
dncOq0CkdsYR4UI6GFveadbZoQK/Pz6d0xilw/WL2asH+JnyjJnF59N0GMhP
wzuzq4D9a7dYKRodLjJi46IxZbBbjMl8vUmH0jtnjTu6lUH7OJfwnCgD+Bf2
1XrfVAZR7ZQwL2sGOIroz1xKVQaHcN2m3CMMKN6vtfvGNWWALyIPXjkxYF+O
YvCLIGXw12JovfRiwHmKoCargzLQUr5ehkgGvPPlddtppQwul027bGIZwJvN
noY3UwaNTmu1tkQGFM2uzFnpKoO9P5d+UhYDejNHH+YJK0NVlsj+XQ8ZIPNu
4Fv5VmUoWoq4zFPOgHPTPVz1nMogWAH601UM4N7bfHp6SQluHjQM8q1jgOFk
lbROnxIsnLcoSmpnQAEpNrf9lhJ8pTB09RcYkP/heyVPGpOPF6xO0Rlw10qt
2SRBCY45yM7GLjHgtkf/Wm2oEsCmb2riBgOy0tSdS48pwTvNcz5UXgwy9sRd
HLNVgvJoK8XRLRiklwykiFsqwc+X4rGLghhcr4t7m2mgBDhotRsSxiBhelAi
ao8SHOk/3DYjjUFcoKbem+1KcLa3mi9aDoNrm/HWS3xKMJ0ieYxHEYPoHVpR
futEkOPqcpxQwiDqXkJOKUYEYxJdwUAVgyvEoYqx30S4tPnZMFIdgwiUOOr4
gwgB4rvPd2tjEN4ytJrZQwThoQNPJ3UxCHPQFupoI0IJ212vaRIGwX7Dxqbv
iNBrSkutNcLgfI5OkcY9ImSsKcrm7ccgQDa5zu8WEbwMg74STTHwLx/pLr1B
BCHXf2cfmWHg15DMIRFFhFCu5IIwCwzOWI+KHwslAnV0zK7JEgOffl3drAAi
rFvJ4XkOYuBJG/XkdSPCn8Tx88esMPC4pHfF9BgR2h7mspyxxsCdM/VWlC0R
OnHFs2dsMDiVPvbsjQURnF7eMnC2xcBVjNS4RGGeZ3Fzc68dBidKU0c0DIiA
63M3FTyMgYvmzxU/TSJ4p/63p4vJzm9J28qIRPhN0rseZ4/B8QPXCT9liHB1
48Fj4hEMHLt+UiT2EMFzk/cqlclHT+gfP7adCNonRveYOmDgMHP9QhYfEb7u
y0l8w2T7i+NJHWxEuPj+Tp/MUQzs/uk/4F0nQBmn4/ZLTLZNuvHGFCOAmaqa
ZQOTbXZOdEX9JkDk0ZjETSZbFRj8fjNOgPaCyiGCIwYHldLYlwcJwIHfftSM
yf+9nBDT7CGAOe/Gv8NMtqQY6pxtIwCnB0zaMflAa9qhso9Mtn20ez+TzY5O
nv75lgCuv9keyDHZdMwwUuIlAcJthDKXmfuZnE3PPlZOAMFbwktvmGy8Mlme
VUIApe+Hvp9nspjzlxcK+QT4TrqzexuTl6hv6mpuEmAyt9zzHvO8nbIlHyxT
CVD+y6VbjMmP49OaB2MJ4J9++UIi015xv8K/+EcQwPrUgO0E076u1qe/4S4y
9XlIjlFnssFz6+EMXwLkyp/d5cv0x45dBpNy7gTo55GWvMn033y43NzL4wSY
Wxd6XM70b+PQVuyAHQFiRf60vGL6/3LJT5azFALEXdYVyGXGiyNvO/c/EgEG
9w7ZnT+EgaZ/jUC6OgGui3D56zPja1InVfyFJAE6BdTP5jLjEXJD5Mx3ESDV
+OAFjQMY3N5wU/q+lQC499Lpr5nxa/1RV39jAw8urQyX28x4JxKk0Y0/eHgl
OKLMoGDAnspnLj2HhyKB00eNEAY19iP2poN4ECsdwBUw8yWjptmprwsPR7PT
CmoNmPkg9uKUTwsekuY8fnxk5pf0eGJAai0e9kW8OFfOzMekQK2Unhw8kAU/
vGti5rNHn3imVxoeHHm8BHwJGOwz5L69Go+Hd1EqVzYUMGCw/igVD8HDT4Ha
9T/MeuGcEffh9BE8qAg2aOrtwkB3KaB5+SAeBDRukt13YCB43OlLogkeSkbw
v6O2YfBRWn34qRYezl2P9Ejnw0C18vvan214QLS1G9z/mPVyZwNLAg8evBQl
j334y4Cx0HJuURbm/svGlIAVBvP3RozwPpoihMe8e1qwyABcp7JmXLsimEbW
V7j8ZMDX+Ss+wsmKEMFfLezQwACLZXwfKUYRcGzBy1HAAPj3xcTpkiIg8W95
Bcx6/ExQTqrAVxFOf3rl9q6aASmajb2Eg4pAep6NgooYYBYsaLJ3iyK0brmp
OXCVAW82CiQ8bihA1fzogSFtBmhyWqbExStAXPOXwtdqDHi0lbFadkUBLmzT
tUwmMiBH0rRn7pwCiJZHVG6TYkAwZSY5xEYB7puvazzhZYD6NY3VpG0KULDa
5CczRIci/vquykx5OFTHftkzkg7Lc//UlJLlYaToX2heCB0sO/amFEXLQ1ST
YuunADrQ0l+b3DovDwG2eVU4dzoY7ap8EWEtD/Nb+ETYzOnQLV1wy5xPHlhP
DuGst9CBXS/S6Ue0HPix7KryylwEdzeDn9wXZKHjTITR0wQaeD/owj/ykYW3
X92HBKNo4Dfh5/+fmywIXh9J8Q+hQbDPvdVUG1kQ5U2j7PakQdJ5dsHtarJg
EXDYU2E/DaquthuJ/5aB2TKDkYCVBcAVnsrW8JSBiP0em9t65uHuWJLF8ePS
oG5Hdvp98TdoCfNQk9ok4FwibmC6bQq4e7x1vqWLQgK1aUCrcgxcx0T5juUL
w7K2Y9m8wSBkuegr2ToIQc2mKnelQReM5wQMRZkKgbPm3q4+kS7Q6S5Nr9AW
gviuEuKO1a/Qaym8IrBdCPzuV/9oe/UVREiMhvaObXCQi2vWXPcr5As9PXHQ
YhtUX5nYOKP3BR5+lsowNxKEQjM1y13Z7bDG6mgaoiQIGTF901LH28Fy342V
ElFBuKvGR3aSaIc+n79v+ekCEMZ/ofZUaRs4m7w4muQrAOszapHv37SC1yo+
+dqJrfCLk6Y+NtcMEe6C9Esm/GC2u2fzU+hnyPALY4jJ88MOkVXLVrPPUBo0
hr3l4IeXe0LNcDs/w9f46uV/n/jAiCW0Hqv8BIpPHDdiLPjAg9DBtX3+I3zF
CrhTrHjh+d+98vvONQAhTkPyjiM3qA6FNghlv4d9N25L7dXnBo2UK3LyZ96D
fQ6bzJAINySwcjzx2fceIh/1yEkNcMGrgcFbiVMA3e1hxCIXLqgilJcqGgFE
7arXeXKKE9DxIw3jP95Cb5ndwTo/djjX2BX3dakGju8U4H5tyQ4kl5grWcU1
MHS15cMLPDtMN+Yc6bKvganjJobPxtmAM0b1YmP1K1jh1yUWOrNB0WDEiezw
lyB6XoQ74SArxL7s7ZkXr4b8Hz0fYoms8D7UKexW93OQscy4cpWbFbxj4/Uh
+TkoyfIthzewQPv5nV0Zf6vAqGd94qwRC+galz+ljFbCCf2RD4eVcVD8fr7z
R+IzGCu+c8WGFwerwS6ME1zPoE2uKvh25z9qQ/TXnZPXymGo98Hp1AP/qDub
nJ9zxT0FnGH8/kDSJvVjZ27W/YzHYMpm9W/f7nXqS/PRypAfpdCeORDc27dM
3Tzy/dVHw/tATbeQO5yzTBWHq/E8owVQcePVlw7HZWqN4NUZ/fgCSE/OVG76
vkTtdv7uUf/kHtjH/Df2ZuAPlXdr4ov8f3eg/8KbQ/eHGdQqNfyDss1b0BJA
+CtewKA+dwlNpXnegjr/W2W3XRlU9b/yqbu+ZMPdM4FsWaN0Kq4hS4b98U1w
PaX0Ou7nIvV0QWy9a1AmtDzQtfjWvkAdjo6w6W+8Dk/uCRV9sV6gjl0RDMzp
SYXrefObzZ3zVEW+HYESkylgk1lS/fbrHPVD8QulWKFk6I0WlnrQ+4vKkoKm
GnLioSaSHn7n6C8qmAb5dX6Ig9zw9p6b32appDlGbyn9GjhfiEtO6J+hLiWb
6tY5xcKY29LS2aEpKtnT+G6801VocPlq63Vyihp1c+fAZlEUFB8rf+I6Mkll
+d6AJY1fAW9bz1OHxyaonsk7xmPVL8M86m0jTf6ktkQmv+KTC4VOoyq8ptdP
6ocx6k0OLBgqSddjlKbHqOeoi7uKWoLgorqZvsTsKNW8eKL4S3ogMMh+FlyD
w9SBB5nXcJg/YIfSiMtjQ9SyFALbx11nAXOq5pua+UEVNHFs3G/pC1jIetun
5QGqwfH92y4OeAF2TerZy81+KoNac1HRwBP+ZJqklXD0U0ms+sM5pR6w9CzF
Lm77N2p9hoj663I3WHpboRUs2kf15ah84XPAFZZbund4SvdSvxjEsLwadYGV
KbE+U7Vuqu6P7bf5Bh1h5Q+q0dHtopp0zR27cs0BVtlO58rv/Uo123ND8tJB
e1iTfOrE8V8n9WDYrWsCWjbwx6kwbPZBO7Uor7nBvvggLIXMGjZXtlIzxm5c
eiBpAcuZmpsPqc3UR8T9e7b0mMLKs3BIbGuk/p7wOpf50RhWW+qjfQY+UaWJ
V80CxsiwNsVrajHTQOW9cTdm9ZkB/GU7zEVYrqcO6Zb4fmTowLpkXhM3x3vq
kUu3M3ufasBayKddX+TfURVLF+6dqFOC9WcOd9IotVSnskCfBzzysDk1KWXj
8pKaXud9ZDNOAv5JhhQLhFVRszuMt8927QDWiq32+YSn1Mjw208kMB7gkFJz
EXcrptbXuuY2TfylbpO610rSyKOeFD5lUZ02SVXHwduzKJ4q9NHWFq4Alf3f
SrBj3DnyLoLuMbz9dep3cv5669VMsk2u2eAz/T7qzDPVIK/E++Tct4sM8kc6
dYK81W/a9iF5SW3h9vU0NlicCq7UTq0gR5p8wUfWCMLCs0nloPPV5M7/7n6i
XRWBuRCHshdHasgmG1qqh4Rk4Bf5k+ySfh05gmfguoENHv6w5VnvEQBylier
xNtwNcCm7FINWerJz4OqwqYbtYDRwtvixPhA7use/FpjSQL6s3ruiImPZNzy
Mfk2472wmBludqfvM3mpA1zSHSlAC9GMrWtqIjt/y7IesDSBeXLhv/WnbeTh
tHGRTyOWMCd7fK94QQf5ue/icfdYK1hiS3wr0dRJXvKiWaRo2MLSFPq7781X
8u+bwyqj3kdg6buYqHV1F3ljNA//veIo/GlZIZ182k1W3t51zVH4OGDPKoKv
3OslW2f3ik3rnwTsfsrNGzl95Mer5xvW/roCI9O7+l76N/IX+WWXep9TQA+R
olNj+slZZ/h2pp8/DTRy2lmc9xC55s7z+h2afhAq/OW1ZvAw2ew/XqcYNX+I
WuKO0TQeIacNliFZyQDgabPo8LAZJYtukNPHzC+AaHiLV5PfT/JewfqVvSwh
cGLiV+oY4yf5fMogaJmGwgMb/uq/4ePkfUbJM23pYaCseAinmjhBdppz/PfL
JAL2drfnZBRPkW0tAg2deK5CNHnh3WPlafJJjyC7gbar8OmRwETD82kypWSQ
8TA7Gqyu2mgsv58hX+AbaFPXiQVX1a9NTkO/yE3de3l7i+OB0nDmcgYfjRyY
6/5t0/4GjK+GC0pa08iEb3/8hdTSIE4t+cHjDBr5Iekve+OLNGi+/bipQWSR
PAYBqblN6WB3/vfOZUU6OVfeW7uVNws8JPzLnUwwsq/GoLcYIwc47SMp0/EY
2dvdvuVJbi6UJV7vvtiCkc3pLx8eM74Nv7HytVS7P2TdqARZrtt5ENSyYAau
S2T2GwffFZ3Kh7jQ88Nyl1fIQ5LXmyjKhYASU4xU61bIMgWHd+YlFsJabmmu
3t8V8ufmhrDBqULwf/PjsGXYKjloq8tL4dIH4LBp0XguaI08d6OI3V29GORj
ZSprz66Tx/D9Zwj+ZTD22YeCV8Mh82fkvR+zngHZZnnhiRUO3YqOnT7KVQF3
vsXma/jj0DXpkx5vTSqY/ea9vwZPceiF/rzHN6iAZt7eF4eUWJC8rM89y3eV
UHXImBioyIoqnsi1/Gt7DtFdotvfSbKj3qD2wrvkGghYseeaorCjScPIwFtp
NXBC/MZfAQ92VNOtayowVgMGXmzjbmXsCE6M8ofGvQbG2q9qDg0OFCYYhcP3
1IKHzFuHQ8acaNHVcLQ98S2Ynj95e9CDG6V6nLQ+UPoeuAWKpP8+5EcORXtW
avY0MvuJgIDYFn6EPrqGrtk2wpHDe6lb5vhRWnJnXkBCIxTe6nWWUt+CrHHx
umt/GsFQiifH9OUWlHhS/XZkVxP4a/hvTavfik54rUcTc1pglnDncsZZQZT9
5r3uqlkH2B70PKMYJ4ScbnKY5uV0QZ5x2bj4OWE04nLe/uOXAeBpubzj7hNR
5KWVGy37ZQwwdpaJ6fsSaDJ9UGJL7hT8oc+wFVCk0cXXdIqb4W+IVhan3XCW
RcoxG/pJF2jQYi9g4eshi9YOYYfLwmmw4zJLoZmfLCKKROq+j6ZBadvE4Y1L
sijBaEbpZwYNWv3LX53Jk0XBIokvJqtosLOSfMW0XxZFPkqV/rlIgzKdU1v/
HpVDBt+6z3r5LsKii71X70k5JIONkpsvLIJBnBlUesmh1pBL8Qrhi9DWS7zg
HSKHFDz7/2tJWGTWA0ZPT7YcemPEH9pQvAiGtbF3K3rkUI5SySffoUVo31eq
7HlYHnHlixUhS2b/cZ391qyTPBrKy1s1t6XDwx9uLOc85JnzRddNHekQGyHW
GxIkj46Zc7bLe9LBoDb9SuIteRTxfXxL4FU6lOhEfH0yII9klCVU9F7SYce1
70Ya4/LIyO5NaGEdHa5265a++C2P0hZC49g+0ME5cPHSuw15lOHT9aSkgw5C
lZ7ynZIK6FmiZsy5aTpcVrYNZbgrII2TvDqbuxgwe6l8LMRPAaXoB999J84A
xxa+Q+sXFdCEmVNfoCyznzvzSZojTgGpt9+JrlNlwHSpYYtwmQLaksnP99GE
AfayChIGvxUQ2zWJ88X+DKi/EJPwDlNA9N0J8DiQAWr1I3TjDQVkGPN3tjiU
AbxueZ//26qIXMtyM4Kimf1nvuB5F3VFJL+1KDjqJgOURf9+iLqoiMajrrTr
vmbAekPu54sRiqh704FD+S0D2s6RWrxjFdH1c27NO98zwP9j0FebLEW0ZYdw
y6dGBlQE0EakqhVR3xOSwd0+BkTtuTG+o04RFTfhgnUGGGD7SWWau0ER5Z++
1fd+iAH0Pb4LtC5FRHB51PdyggFanyc2gKGIvOiNxwUZDGC/EMvy4q8iUgi6
Zn9giQHdYrIcD9nwyKoqg/fiKgMuXnDlT9+OR75/UoJLmP36S/EBUTctPEp7
lPg9iNnPG1zs1GMJxCPBySsiz6Uw4JU8Z/gnHI9aTnPekpLFYKBpC3kmGo/4
ZbPXouQxiJD8z+xLBh6l5BfvFSVi8K75o/39KjzyPuus91QTg+tBHo43a/FI
7IKsT4U2Biel2JwT6/FId52wo0QXA1wwcj//FY/80N573gYYUKTfnKfQ8agP
LvFYUDAQaj0WpLOGR2FzzteGjDEYC14JJbASkFH2bX5PEwyiW3WitgkR0JnD
kxz/mWNgF9IdwyFKQFaTZs5lBzCQlQmMX5UmIAq9LG7ZAoOGkIrroxoEdGL3
pKTvQQyyZKwzevQJaDCOduHGIQxOt83dbKIQ0I5dTqeKrTDQDU3JfWtBQJzB
miNPrDHglFW6W2lLQL6/IoeKbTDobWsqKD5GQG+OmVin2WJQGupdlOtGQPh9
0XJ+dhgcaC9+fPU8AdW7WzcsH8bAc/fMx0NhzPX0b8oX2WNw7ZTyiMhVArpO
aDAzPoJB0ZNzaxMJBBTWdlP0K5Prl6p2VKUxz/OUmnnYAYMRtKQamUNAqxRG
0Scm/0vSt7AsIKAv2A+kdBQDiZ4Id+EyAsqRJBy/ymQjSbg89oyA/PjDfzYy
+bgPW075KwIa+nO+g8URg7DnZlXhVAKa5CwXVGZyzkYis41l2uP451xzJr80
b5sU6iCguA07F3smd6cLsgz3EpDAr9FD/7s/ZAwc3vN4iIC2CLKcoDBZSOGW
TsgkU38L/ShpJqsH9Fvvnyeg1x4CpfT/3VfWip8RWCKgbEn2j9VMPsvuFjuw
QUAm+KxWLyanWBXll3IQkbM4qYKPyY9ypmoCtxDRSKrHqQLmeRvHiF3knURE
Xk3skWfylLL/HJ84ERl37FjPY9qLM6SS65scESkFnG1kZbLce0y6SJmIspRX
lI8z7W3MRzIK0CaiFNOdYoVMf7gdueRgZEREkb+lEvrt/ncf/i6A24SIzPYH
urMxOX+GJbn7PyKSc3YtEGP6t07LtLjgMBHV6ZM0FJj+H7icQPVzIiLZDjNu
KWZ87BYSwNh9iSj3nqzdODO+dJ3ttn65QERtF4Ielv+HwZGSm/i74UQkqsoh
6GOJQYaBmItOEhHVjtZ0PWXGb0XsyRCWDCIK+EPeSTLDoKO9ML0tl4g48C2q
Vcx453cnfDr9kIi4guKrgpj5QXzqN6JRSUQ7Vf/iqGQMLJafrW3UENH+/SsL
y3sxiEvWVctuZK6/fSqExMwvXPX+nE9TTH2GJR/SNZjxshlXlbFARPVhMUGv
1DDYe6C59cQyEX3deHXBVwWD8EEblmVOJfTr1JnPBXiM+Tw8cUZRQQlFXV+w
Jksw/W19P5ahooQmuhZ3R+zBQCN3PJ+qo4TMH3MXlu7GwF/Ft+uoqRJ6+abx
TbMQBjNHQo0SPJSQ1+N/V8icGCh/VvDe8FNCKJmmVcbKHE/qybwQpIRihVZ3
rG8yABPV/OUcp4TCEo7sPL3MANzIr1yNMiV05biUgMEUA/bb3v5YUqGE5Hf3
K62NMSCu/sDintdKiFVX5mcRs17yFRcf4GxWQkaS5X2vexggfObkcv8vJUSs
eto1XM+AYwNbZG0wJbTUs0alM+v1nYN1Vh/XlZCa5UTVQg0DpNVESp5tUUZJ
raqnSsuZ9R77ah+rpoysOQoH+XIZYBxpVqUSqIyeRXMM5/gw4NoC9qPwkjKq
Wh0+v9+dAY2uD3h2xyqjafN9w73ODDi0H+fGelMZLVi82Xj1v/+/uGsF+l4q
o1nteR03bQacy1A5G7WmjCJZo8b2rdKhim0w5w+rChp/paDuv0gH7GJSwxk+
FbRWlqNwbYYO4Uen9hwRU0FVRx6Dz3c6xIndbybsU0HNT38n89XQ4U7JDnzX
VRXE3xN4pSCADsaB7HOvElVQrECF4JgXHabJWOWddBUkWLzbdctJOmh97zL0
vK+CHCYSV6UO0aGZL9N6FZi8WutggKfDSsC2EEmcKtIMbn6k2L8I+XtZjNi5
VdEjVZncjY5FMOFdxM0IqKKqBFmTuo+LcONBZ1KVpCpiJajcYFQsgkLvjXxT
sioKCHyucSBuEY4Ybv3kG6mKlDkPuFxSXoQ1rs0kmzhVZLM9I6BHahEKuues
da6rogO7qAa7di7C77Nt3zfvqiJhgTeVths0iC1ImUt/q4o61fc4FbTSoIqD
b2fNuira+jNqR7YnDbZ2cnmwX1JD6lfUdwxuXYBvH04ZZMSoIe17Y9dhfh4K
X70VlEpRQx5HigW92udB917gW8O7agj7MnBpNWUeTvoPCwdS1dCKyx81Na55
cIwbGKexqKMAvZjhVwu/oUzu+a2TZuoI+/M4hDdtFlLzR6JLLNXR7oEfv/q9
ZuHC7q3+c1bqqKLu6bgXeRaM+H1MLh1VRyOzDRUv52agkyGxmO2tjpBzSqOM
+Qys1CdZtiepo2kqXN4yNwUH3E5tGHWoI/b/FDvm2SagmzjGONfFHC+iqfGj
axxcMbfZwj51VF3fyHftwTiExrv1cY+oozurBy7hjMeh7KlrZTdNHZGk14Pu
X/oJPGsnTvsJaSCbpESL06Oj0Jzh1JZ3RAMJ1hUcvPRrEBycBz60H9NAIxcz
gDdsEMbknWpZTmigCt8JTlbOQVirOV7q5amBCsok7ytIDABx+NhVrRAN5Gql
IbfP/DskKznqtORoIBTlP+wQ0QMHG+zvrg1oIKnQJ1wuw82QZBjkOjHMlFf/
uS8x0QSfq27Kdv7UQFEWbhEfZhrB+H7vw+JfGghCl7KqFz4BKdLxpc1fpj59
hh9l5+tBnuTcUSKqiVDO4bOnfF7A5mN3lsPHNBFOfETulv8jZCQb27DXRRNF
KaYsp86Wo7DbRfF4N+b4E/kqhS8qEZYwsWXTmzn+tfHHiL0v0expL9GHoUxe
7GwZ96GiXklfrX+3mPNLLxUf2NOEnmVeOP24VxOpd5pkrvv0osj8A5Wz/Zoo
7fey/jfRPmT1UGKDMKyJBIVYxC609qH5d81ZZVOaqOJdCX5M4ztSnpVpKF7R
RAX9+vHvOAbRI9QlUyCqhUItNIdGpkdQ8ZzWSNYJLYS3z5ka2ZxEeeZ/jkdO
aiGanMMlMTU6EsP5BQbNaiGSnuSQvgcd5deMJfvNa6HW7Sfd43LpqIDQWXd8
SQsV0O4qP2VnoCK+xxJ6nNoItxQnof2Dgco7XMcW5LUR3updpcGtPwiOtvq4
ndZGd+pLuD6qraJJrwehJuPayDv4hPS3SzjK1gC/O4rT2qhhfEV7Iw9H0Q3V
Ad7f2iinuSTfsA5HiU/4zPWFoY1Kbp67x76Bo+Af/sp2YdNB++rirzVeYaGc
mdV6ESyjg/Al667SSayUOb+GxTJXHXRAuKzUvYqdgp2fOLPlhw7y7N5/L/Mw
D6V8i8cu01EdVKZGnKu8zEPxeTj2IWJCB53h4LdeLOWhDI0Mi/2e00EvX0cm
dK3zUD5b97c3b+ogE9VxT8UyXsptlQ7NBCld5OwwHyXCwU9BMzVrrB66yPsO
ppP6bSsl2TUlaWVWF9EC72wLvihEufrmxNfeST0U7Hzy1onx3ZTdnzqDDX/p
oQuFg/3xbCKUik7jPQULeqiwV5zzs4wIZWhCwcNnRQ+5DmXrxbuJUIwEF/78
5SGh2qkzOMEREcqKxxURaRUSUqjR+Wc5Kkrx31rg6htIQredxaqLMTEKp4gQ
R2cICZ1yqj9yV1icclc29qF2BAkl1dz/95gkTmkledM3YknIbiohbetlcQrR
XT02LZuEjmu+KZnhlKBMvILSF6+Z69lIlv2TkKRE1GseFH1HQsJ6trv8jCUp
O9qKaJH1JJT13leadlqSYjyWoH+ghYRmf5CVyE8lKQX8ti39gyQ03cHCf1lC
ikLa9eEceZTE7E/j1TPUpSgd0jo7iiZIaPfVS+bPjaUom7oiLmfnSehHg9FJ
ES8pSjYlmeUrnYSikJ3PiTApisrBjWLdZRKSMfcKfZYsRWlwOGeZ95eEhERl
0vnzpSj/731F9P/fV/w/WmfKHw==
       "]]},
     Annotation[#, "Charting`Private`Tag$2949#1"]& ]}, {}},
  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,
  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->{{-25, 25}, {-83333.27278422387, 546874.8596938883}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02],
     Scaled[0.02]}, {
     Scaled[0.05],
     Scaled[0.05]}},