-
Notifications
You must be signed in to change notification settings - Fork 0
/
Best_MS_Approximation.nb
3436 lines (3407 loc) · 184 KB
/
Best_MS_Approximation.nb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 12.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 184967, 3428]
NotebookOptionsPosition[ 182431, 3375]
NotebookOutlinePosition[ 183274, 3399]
CellTagsIndexPosition[ 183231, 3396]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[TextData[StyleBox["Kirill Zakharov\nBest mean-square approximation \
polynomial",
FontFamily->"CMU Serif",
FontWeight->"Medium"]], "Subsubsection",
CellChangeTimes->{{3.794922041594387*^9, 3.7949220642875085`*^9}, {
3.7949220949614267`*^9, 3.794922095159244*^9}},
TextAlignment->Center,ExpressionUUID->"4af91afe-90bb-4ce0-9e38-06da174d746b"],
Cell["\<\
fun - \:0438\:0441\:0445\:043e\:0434\:043d\:0430\:044f \:0444\:0443\:043d\
\:043a\:0446\:0438\:044f
n - \:0441\:0442\:0435\:043f\:0435\:043d\:044c \:0430\:043f\:043f\:0440\:043e\
\:043a\:0441\:0438\:043c\:0430\:043d\:0442\:0430\
\>", "Text",
CellChangeTimes->{{3.7949261642853117`*^9, 3.794926189689954*^9}},
FontFamily->
"CMU Serif",ExpressionUUID->"1143b380-ad54-4ccb-9188-3efe3f910c03"],
Cell[BoxData[{
RowBox[{
RowBox[{"hermite", "[", "n_", "]"}], ":=",
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"-", "1"}], ")"}], "n"], "*",
SuperscriptBox["\[ExponentialE]",
SuperscriptBox["x", "2"]], "*",
RowBox[{
RowBox[{"D", "[",
RowBox[{
SuperscriptBox["\[ExponentialE]",
RowBox[{"-",
SuperscriptBox["x", "2"]}]], ",",
RowBox[{"{",
RowBox[{"x", ",", "n"}], "}"}]}], "]"}], "/",
SqrtBox[
RowBox[{
SuperscriptBox["2", "n"],
RowBox[{"n", "!"}],
SqrtBox["Pi"]}]]}]}], "//", "FullSimplify"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"aCoefficient", "[",
RowBox[{"fun_", ",", "n_"}], "]"}], ":=",
RowBox[{
SubsuperscriptBox["\[Integral]",
RowBox[{"-", "\[Infinity]"}],
RowBox[{"+", "\[Infinity]"}]],
RowBox[{"fun", "*",
SuperscriptBox["\[ExponentialE]",
RowBox[{"-",
SuperscriptBox["x", "2"]}]], "*",
RowBox[{"hermite", "[", "n", "]"}],
RowBox[{"\[DifferentialD]", "x"}]}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"approximant", "[",
RowBox[{"fun_", ",", "n_"}], "]"}], ":=",
RowBox[{
RowBox[{"Total", "[",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"N", "@",
RowBox[{"hermite", "[", "k", "]"}]}], "*",
RowBox[{"aCoefficient", "[",
RowBox[{"fun", ",", "k"}], "]"}]}], "//", "N"}], ",",
RowBox[{"{",
RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], "//",
"FullSimplify"}]}]}], "Input",
CellChangeTimes->{{3.794922137804615*^9, 3.7949221426886063`*^9}, {
3.794923449413291*^9, 3.794923452426345*^9}, {3.7949236008573627`*^9,
3.7949236850837245`*^9}, {3.794923778260174*^9, 3.7949237786528473`*^9},
3.794923809601536*^9, {3.7949238939974775`*^9, 3.794923900977405*^9}, {
3.7949239685499897`*^9, 3.794923979506354*^9}, {3.7949243516282043`*^9,
3.7949243575138397`*^9}, {3.794925382021181*^9, 3.7949253866482286`*^9}, {
3.7949255025387974`*^9, 3.7949255254536753`*^9}},
CellLabel->"In[1]:=",ExpressionUUID->"6ad28a98-ab6f-4a16-9eb1-5d8f69b5761c"]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["Test",
IgnoreSpellCheck->True],
" 1"
}], "Subsubsection",
CellChangeTimes->{{3.7949257818617764`*^9, 3.794925800653006*^9}},
FontFamily->
"CMU Serif",ExpressionUUID->"66e2ac13-07fc-4cc9-9649-0fca80beb048"],
Cell[BoxData[
RowBox[{
RowBox[{"polynomial", "=",
RowBox[{"approximant", "[",
RowBox[{
SuperscriptBox["x", "2"], ",", "2"}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.7949254124867415`*^9, 3.7949254258047333`*^9}, {
3.794925478120637*^9, 3.794925481705883*^9}, {3.7949315107516165`*^9,
3.794931522243678*^9}},
CellLabel->"In[9]:=",ExpressionUUID->"384a9161-fbb6-4d3d-92d9-0497456c6544"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Show", "[",
RowBox[{"{",
RowBox[{
RowBox[{"Plot", "[",
RowBox[{
SuperscriptBox["x", "2"], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "10"}], ",", "10"}], "}"}], ",",
RowBox[{"PlotLegends", "\[Rule]",
RowBox[{"{", "\"\<\!\(\*SuperscriptBox[\(x\), \(2\)]\)\>\"", "}"}]}]}],
"]"}], ",",
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"polynomial", "/.",
RowBox[{"x", "\[Rule]", "k"}]}], ",",
RowBox[{"{",
RowBox[{"k", ",",
RowBox[{"-", "8"}], ",", "8"}], "}"}], ",",
RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",",
RowBox[{"PlotLegends", "\[Rule]",
RowBox[{"{", "\"\<Approximant\>\"", "}"}]}]}], "]"}]}], "}"}],
"]"}]], "Input",
CellChangeTimes->{{3.794924151408663*^9, 3.7949241758426075`*^9}, {
3.794924215780755*^9, 3.7949242230465965`*^9}, {3.794924256987507*^9,
3.794924273808598*^9}, {3.794924313319188*^9, 3.7949243176521134`*^9}, {
3.7949244151912932`*^9, 3.794924418752349*^9}, {3.7949244773212414`*^9,
3.7949244788522897`*^9}, {3.7949245146034746`*^9, 3.794924516975458*^9}, {
3.794924654588639*^9, 3.794924684482316*^9}, {3.7949251855496025`*^9,
3.7949251868225927`*^9}, {3.7949252653650546`*^9, 3.794925265704017*^9}, {
3.7949253966682186`*^9, 3.7949254087480783`*^9}, {3.7949254725946355`*^9,
3.794925473796607*^9}, {3.7949255590548143`*^9, 3.794925563608343*^9}, {
3.7949261330624475`*^9, 3.7949261390434127`*^9}},
CellLabel->"In[10]:=",ExpressionUUID->"0b8461fd-ccd0-473e-90bb-aff35c941842"],
Cell[BoxData[
TemplateBox[{GraphicsBox[{{{{{}, {},
TagBox[{
Directive[
Opacity[1.],
RGBColor[0.368417, 0.506779, 0.709798],
AbsoluteThickness[1.6]],
LineBox[CompressedData["
1:eJw1WHk01W3UNWfKlDITN1KKQpTUeSQks8QtGkxF9VIImSpjSoN5SpJShlCi
eOX54Zq9ZCZE5imu8SK6X99a3/fXWfufvfba66yz9tnSdq7mjkwMDAwCjAwM
/zv9x40W6HQSQamo6KfTyWjMd8dy7waJcA94HCi3SkbGfAO0z2skIp1z1c6Y
SkY7j9zcdF0kEfExOZ1pg2RU8TCKfXCMROS6RIdblZMRu2KXJPEfiSg6Spb4
E0hGMR6XDe4lkwiJI2Ub6lvIKJvR/TWDOonQLP+ddHGbFWJ11FMWuSBD0JsO
XInbdhZt66668SpSmkitf/A14/QZZF6ZZL+nfidhlFwgbvTCDPnOHbvxbFiK
MAnQltCoMUFfvJKu5ZlIEiFR5WeVigyRcdTZnX8SxQm87XG17TN9pJfy1fjU
jCjhM7dToTpDF2XU3Ol0txYhSl1jraeETqKLwTHbm98JEcuqr5V3BWihgMvM
uVzbdhAcwib1nh7HEcN+KawdIkjYHFA7e9dMA31/lBiW3SFAVBWfuDSuoIbE
OZ0yl07wE0WjvCKXU5XR9UN7WXvFeQneQdlLTEgR2av/eFdZyUXoXz1Wv0VI
Hu311qC7vGYnVJv43BbXZFBa/xnKHS1WYiuTZcy0pjhSHlFeb1dlJWy6lIMv
iIkjyhT/gQPyrER7YL7r8JoYGqM1J4/xsBJqNk+OKHwWQ3sFDN3P9LEQLcLt
CVnKYuij7kmZ/V4shF1xWIjTflFEyVO9N5jDTPyOfyr086AwGr+/XVNPmImY
rZeWrPIURJz+eXPRnEzEgu6TnjYrQaTorZ8+uMFIqEc4cq0fFkSeLv6cPj8Z
CX83i9aI39sQm/Vod04WI7H+XuVXw/1taJdq4W2BY4zEp0GaZX6UALIbs8jr
t2UgDh+KX+ev5kOhP2ft9lowEDt6bIJ4s/hQVt+DHV66DISy7uPAXU/40EJr
qT+fAgMh76c4EmPJh5ju6ieETtAxU+6Ik2QLL4KDky1mW+mY+ozO3y7Ng0pi
5XUmLDfxhKo9y60xTsRuPW7PqLmJOdlPc6oUciLLnRmBotKb+FXYMwOZYE60
kEUiDKc38MEIzXsPZDjRHkLy6Ie7G7gpi++juy0HSpgSPOjz7jfmOp6pXjW+
Bd0GRgnu9TUcWJpcb7GDFVWwEEdlB9awkaS3ZtkUC+KrDzh/nLKGn+77NGmB
WVCOxUb8zSdr2MPYYIXDmQWNONMEOmTWcNnb5a6oMmZkHvOL/YXBKjbJ1/gq
5caEDkz2LCmlrOAJZW4pwxU6eFD37xEKXsFbzcOUAvPo8IV2/8KfayvY6Pip
32zOdNBi21vdeHgF7wpIpmz0/QFzkk+8c/syFk8Ok0ys3YTbF0Q10rmWMTrt
OReT+xtKWs7f3eGziE/5v2dNLKTBn+7cgs3Li3gYhgIyvGlwYpBpYkRvESc2
2xQwadKgYTbLtGD7IraxJBm/rVyBPq7f0qYfFvA+xpXTaZ3LQNdJpoRPzGN6
wwdbMtcSnCzp5di0pGJHtSDmtjwq5Ga9OVJzlIrnZHXq//GmgnCyq3PkTio+
H5Ar4ahFhU4aW5RB+xxOaZttb303B7K+lnwp67M40JKiHrn5CyruL3MjvV/Y
N1+ttKJuCuLswm+08/3Cqdlvf4RfmQJnbYlGp+8zOND7qignyxTwseo8ivxn
Bj8Ja+s/pDUJlx7EcAxHT+MCnwsxGpRx2HiiwhY6OIn3Fx4mVmdG4JtrjaNo
1iS2bYzzMosdgXRT66pc90lsUah9yv74CJwWCAruYpvE9zbCD32MGobE2Fam
Pfsn8NilWtjUHgK157foDXfGMLEsLPcsagBuZuat8m8bxgrMDs62XzvhAI9L
0InBIby5Z99c38lOmHfbx+P+fginDhxUSP6vA9w0M0ntekPYiLZcNTDUDreb
XxnH+f3EVt2XQ8PF22BxSkH/UOMAVqkIdCxLaAaPT+8uxl0ZwG8mKYe5vzXB
ir+sB41hABcqBnoPcDTBKp9UavGhH/gdv8uxHSGNsKEmsHwstQ+PaXD1UxLr
gC1o9aWuWw+uFbV2l9OkQJjh7aK33D2YVdyEpyG5Eth3LDSwv+3GAxpl25c3
K4Azc3qlvrcLO7dsvdZTVw68zT8MTXQ68fvKEdNqehk8S7C2yx/owAupAcZX
xr+CgF23F79PB/b4zCPL314Kgsstr9py27FUAv+FsNISEBarWrUSbsNyO1+t
LtcVQeKIFk/xx1as3vnr60xPIYjmlpFEjVpxYI2SzezsJ5DQ+mLcd78FV1vH
kQTkC0C7yVK/vLMZr8b2/fv5fR7o2pp6BHE144LCrg5zyVw4taSfqoOa8KAB
TmNOzAFD0WPLdZmNOKr3jElGTiZYXiGltfrVYZsHUYxUw9fw8Jb7g6jCWvy2
cpHPTjAdvvpVuprP1uC7/f9eDxlNg13R9sdbL1VjfI5xC6GfCuQXBbJRCVW4
ibJ+T1EuBR5lMm81b6HgtZnySPr2ZFjA6b0tJypxtkexV51SPMg1LFZE+lZg
lfZJw4pzsXCuUzvL7FM57qKOf5GIjwZiZti7RZbAvrZGZzcMnsHE3FVC5msZ
pl1z5qKHPgYTNvanrxS/YuXHbYn1zx+CpMqpfa/4S/Al5AMfNEMgRH9iXTro
CzZtKbJsrA6EmUsP6tKWirB/35PkHK97cMZTPkH6SiFurGQRf/3CD0oiaq+k
dRVg4UoZmzvJ3iCd7nRIWv8j7i/yonWPesCDYnaWtJJ8LJrKPFvhfwt+pJq9
0SLn4jRaxF2X6hvwvjHyhNbRbMyYdK/n+r6r4LvWMoAk32Fz2aFJ//12oC8n
4I8Y3+DdKva2+tHWIHTGXBSNpOGnv/qtCUYLaKDvcr37JAUXLTqFlhsagNO5
N5kBFvFYMP8/xbNMWsBSIDviLxqJb+1st/U6pQxIxPDYOhGCxdKoju+iJYCa
kOgwn+iGC33U9eVfLh/3Y4qp0j18DnaYbHlsNlh5XDHJvkZQ7S6sOt19R7rF
Az9EPsxy8UaAtdzUknWSPJxR6S4N1YqBhnv6Kv2vj0BRj1VgmG8SrCdV8yZO
6cBWYppEOf8Ssrm/KT36bAoQnR1K8fq7FykJJxfzrODWleuTlJgMKGA4Vh38
4xK8OqJgWPUhEyhJF7+npjlAO/d0blVTDsi84GYXmHMGtsEs/urpPHB7KD+T
0OUKz88d0rAP/gDflc5pJ+13h0PasdeHBQpgiafj+kKpJzTtW35un/YJQofC
5toTfYCBoZBuX/YZHqnoB4u/uA+Jk4IHRwyLgZN72bifIRiU2zzsHHpLoOqi
pp79w1BwyFCtclj9+vfOpBBl/BGw+TRmZSQUg63qZ60Y3qfQoLke/fEhAVsO
q3kLiUaCg9z5KmWRCuDNtpju8Y6BA2KcP9wGKwDuCW8x0YmDTd6SlY9vK+Gp
QFaxnGwCxK2JyKuoVUG4i9rwpuRzqGnseahyphYWGNfT3/i/Aifv7zXWCnXQ
8ml593pDOrDv6mUJZq6HT9lVU0Wyb+C0b19Ae0EDPHMc2uf8+y007hlwuy3Y
DBEcvOn5Srlwo2MgL2WmGRL6ciT0evIgFN1csbP7Bh13nk7L1OTD7pmbKo80
WmBhBZiPP/4ITtpu73unWsE4PCl79EIRHE5caJizbIPpQI0Rs8ufgX3ObYq5
sg0iXpzUdHP6AplJ7rv3JbdD99H4083hJTA175HmZ9AJkTxqg+t8GG689IqV
yOmBU5zvaY8SKKC5Qis4KPwdFIWMee31qoDb0LtVJ/g77Dj0Wk1wrQre07x5
XWx6YTrd9ROLYw3MGvuEl3H3Q4ZR0A3JS/XwJaCsLE9tEPInjK+KunyDl5l/
/iu+MQhKtJqbln3f4EH78f7KV3/xE7FAukELkPfi3108PyH/rHlpglIrrHXg
wwzjP+Hr6T9Pxre0g8b+8o+m8cOw2mjyfmWjCw61d8aV1Q3DE7Msd8E73XDA
d8Zn38Yw3HV8LHFzpRvk6oS02W1HwOvoL7GfSz2wzdGlDe8dhZLUbZWZDH0w
81xsSbFsDMpf+/dP7RmEce2D3c+pY/DLdq5v4tYgDE3plnKSxqHmimxTSMkg
9Bx2Cx4LG4dQvR8hz41+QnV7reALswlQcAw6fcx3CFK5PQ9tHZ2EHfzJ8oZL
I5BU8EjEV2gKSPpmJ4/ojkLc+bTNCf0pGKhtMKtKGIWId41VlNwpuJi69UQJ
jIH3SZKln/c0hLyjeAnFjoO53zfPaa5fcEeB4XDqhSlg8tze5yBChaU7nawL
ylQ4fzmr9YsqFQy4WS9JXaPCx9NQx21KBX5dR4GsNCrYSTkXfQqlwlxeSVgX
/zxU1JY+Y1miwrRNcU7UyjwEiTnovG6ahxkxtsHwlkVgKf+YOxy0CGyK/dO+
/9HAJlvvjXrqIlzORY8s+FbhU2xf8qOSRVDo7Ah+eGYVHK6xhavMLwK/eGwo
T+8qVG07bx90cQmk71+leM6uQegVRmHSkWU4mW+9p1ZuA7Zwm963m10BsxZk
+NmFAZF3nyfUOGiw5p1trRXLgLJOONA5d9GA/mDo6uq/DMj4jrd/wTkakIYK
PX9xMKK4sZd3WKpoUOU9/8/iW0YkVz5/KyN5FXzUSytcZpiQjme03dSpdUhb
T2UlxbOioMFObbf0TRiPf0m9786FfhQb/ONdugndeUPG1DQupBFNxAV0bP7N
FU7fQr5xIapO1uTDLX/gbRA6JqfIjS5m+z9Nv/4HeDSkyjSnuZGG567edhU6
1LEl2hA3eNAa65FiMTsGtMELbJF/83x+cqhpwAIjSpTf8vyttCBq2BY6zsvA
hEp8N2tJSBCNPQoJSNvKhOZFvNeKLgoicb/gHIo8E3qhvu4g81wQPbAJZOf6
+xkt0w5e2Sq8HV2WCCDiG5hQUoQrv6rgDsSXevvAh9fMiGAlcVEkhJHrKwe+
EUtW5KN+/dHsbXF08VqSRNh9duTcxLBqSZFB4WaeR1Sec6GKqeKRZ627EYtg
7NjddR6UEl1HkDf3o66GEGowLz+q/p4XwXFQGZ31tVNLqhRALx6LgBujGrrB
NS3TdF4QgeqnfLbRI0gquzqObWo7+nkt1DCf+Tjy/aJ9hjdZCO0yVXLocNZC
NzNuFKkpiSCaopQcV6s24mZSt1McFUX7zEtwe5Iu0vnHInZvtDhKtq21UArW
R8LFEq46uyRR6hV5IwUHQxTl9iDyQJcUys0dVYzNNUHmoSb7U4p2osfj/yRc
vG2G9loHn33tL41yTDnauyTPoM4xjlfRZ2XQbfnAobNMZ1GT3aiWgBQJ9a1a
FGz5bol+srxdjZUhoazd1+ddhizRUoZTnogcCemtVZR0TVkikelpcen9JDQe
rD73/rclcnBfoCkdJaG2Y6oDNySs0HoQ/b2RFQkZqfn1qtpaIbk3IqLhT0mI
oqWr82vSCh3R6/3GHU1CZ+qfTYcsWCHDyedhz+JI6MOyuMTO31bo1v6dy/Ep
f/lU16XPcZNRaaHct4xsEqqwqP3Yr0hG5tUqoZQaEjohVkA94EFGjk7Lmqca
SOjjNyGDIT8y8ub8vNjQREJU+bIDsSFklGKsYdvW8ZevvDmFHkdGE51Ic2iY
hE7GstHHislo3Ztp0XGchKRtvQteV5DRVjFK5uQUCTU3KyzaN5CR8iU9ofl5
EoqKtRIc7yMjHUaOJo/lv/7MNC9njZIROb0+eHWVhCLHwu1uzpLRNZ2Io34b
f/UFhZxXp5HR//Uh6P/7kP8BcSByBQ==
"]]},
Annotation[#, "Charting`Private`Tag$19873#1"]& ]}}, {}}, {{{{}, {},
TagBox[{
Directive[
Opacity[1.],
AbsoluteThickness[1.6],
RGBColor[1, 0, 0]],
LineBox[CompressedData["
1:eJw1mOk7FGzchq1Zw4hKacZS9kSkVPzuSpIyEwlFlp4HRamQiNAkISQpRFIK
LXZld481+75kl4zd2DNE3uc9jvf9dP4B15fzOiWv3DSyZWNhYRFmZWH5XyrD
1omNDRLNwVupbWODgm6uSAesrJJo57+RuxeWKCg9S1VmYYlEc8245To+SUH7
5QyujEySaDZzWf92dVLQQYJfd10niTYeefBAXRoFoV9zNdFpJNpbH7WX61YU
ZPS4/rOaFYlWkLdu+rSEjO42+t2wLybSYn/0dDsFGqC2Nr6JEptdNLOb9uKX
VvXRLtpNkYPi4jRBKX8djww99NWxnFOwbwfNm0733Reii6yDVWe7qGK0CN2u
yCcmOogZ7hmAYTvtqcLlM0Tr4yhBoF8s6udW2hv+c4H2FgjF6qs6twaK0lZ0
0844/T2KqNdt3OVPi9CwX/VBjVxN5Mn+6a7ztDBN9UGQFee/GsjGt3F3RzKB
ZiZ461PhfTX0oogeFesgRHPizQzf6FRB+QNy/F+kBGhb7rPLydkoIWkhdNw4
jo+mppIbptUhizIVAhyGfnHTBFIv3FOwkEYDFRkSGhqbaIIpa4/r2omIrvRi
P/7GTktsq7fcq78dEbw/aiizstLEvVz1qcLCyP+bXJXQMgtNbtY/kXudgFYZ
SRcXplhoaDq6LmaUgIasEr1yf7DQ4qglbmOFBJR5LKH0eDoLjW/HthM7rxKQ
EedrsqkVCy39T0/BCE0IyYpJ1rN4bmCKSLS5AlMAKWnMKH1YWMN3kp7JxKvy
IjtlH5+8vjW8eYI6zcHLi97ICLbUf1/DtbOfCh8P8SDhbfvu/o5Zw8X6b1xG
n/Og5WWnklM6a9hTRUxHkMmNSvMYFyYi/mDTMsObLJVcyEyL4b1PYxWHbepg
XHXnROEHvJtPSKziLQ1vCkONOVHtXoHdZryruPBifHiLCifSJipX+/av4EdF
J02zxzmQ9MaNLS3+K5jxTfLEoAUHYtCmk1w7mVjyNvFDlx47eqgz3ZTnvox5
2BXDjQ6yolK9KYr6P8tYImu0uGEbK2IxmGxINVjGQau3+u2ZLMjrwnhdgtQy
tqaML83msSA3O3pVSN1vLEC47W+pzYKuBvTRbCR+45axPHNy9F84W1efzlO1
iA+7nVXqW1+FoKa6fX6Zizj/8+Qh4cpVqGqrTf0bu4jpgrsVH4Suwsm+6i8L
txcx/GtN45dYBW1GRXLfzkXMOMqV2n1yBVSEiuMzbi5gcurml4axyyBqnBp2
cds8Fnq2HvXZdREyZZ7kn2SfxylTAk8vn1qEcyv2w6ozc7hA1nfs2I5FCIqT
PMT7fQ7vPEqteEtbgL9jEQP5bnOYrZ9DrlhwAUbueyqLd8xih00cT6/lzIET
5VlUkfwMPtvaWi16kQHJi/pTL1hnMIsdI0SYjwFD0RzIqYuBQ3OqtrsWTYPJ
8N1RYiADa0cWUm2lpwE8LDV8x6bxrN7bJNbFSRBKUGw7njSF/e5YHiAlj0Pm
7wrBqt0T2HshyXrGnA6hn96Vaq+M4xYd8jUuUTo4Wvrc+Vo/js85hYy9aBiG
3ZWHet65jeOa0x36W08Mw8sXnxPvV43hVKnwuPeqv+Ce+jMtteujWNcik7q8
+yeYjN2Y/YhGsbrKyKIbfRDUYvUTJERH8dnezL7riYMwxc7BI1A8gpmFW7cU
yg+CZatb25jgCA5ChB1Njv1w3NnCMS5rGBv3yXtOVXUDUUaTKBowjK8Efdmf
b9YNf7pEm59YDOPKUetO1/EuyD7WqOHBOYz9syzH0jd3gQzhOJux6S88GZoq
p2PTCbzpstE8f35iyoU3Up3qbfChhx4y7teP2Y8FLV/eWQ/dXlvfvFbrx5Mf
imp3PKgDAeKpdMOhPqxhrpjpOlYLbtbJLXnQh5nfvn7dKKgBXbrDtqDVHqyq
5h/p7FYFY4yZeIVbXdhFe2tl7aFyEA+TyOwnduG4j4yii7llcE7VsCy8/gdW
tmWt8tMsg1yXTPqqwg98r75dOBOVQiDTVaGW3oG/Xzn88NoVGiiwrWY5mrfh
y4j+OnIkDywTFCpIvG1YS3qw7YJYHoTrmHe05rbikUSKCpmSC6v+hcwjW1vx
s7Bg4+nyb1DL56PF39yMDafvG9E7soAlJY1M82nGHh27Ulyls0CdPGjlqtyM
7az3K2m7ZEJs2DFq75MmHGOSF+kjngE/FLhDL4Y04K6o+3ruiimAblxLL5mo
xyl3uU5qMj9DclpNi7xePRaOuhfkVPsJPNRDtq2y1eFnr8VnDzxKhh3awm9f
uVdjiwKKzCHd90D1dSlj66jCeYnSDjG6CTBZ2kZ3UKvCH1sHfzsbvIPCU5EK
RxiV+Mj81klvp3i4bCie3fNPOb7oN+wlshYNUwtLmnfKy3DOZsEPbNejwOtl
IxbYU4bVi5t7zMZeQmwPtfbYSAkOiCDd0doUAUreFoY9uiXYMv9TZ21SOBRI
aHS6JtHwOa4GvdILzyC7tqWC0lyMd+3NT2lICYE2If9mangR/pbxbFTR+Aks
XNDs+3q+EAf4RWtf3BII+wffLO7syMODIod1dvf6geGe8yyUyFz8T0vLfAmd
CrccNvFTzXKwVH9M8T7uB5C2eF16rDsbJ9Lumy8re0KDpsS+nbFZ+HGK6rss
bndgeLceJl/OxIMautJCIndgc7m/7gNiBk61KOjnN3QGM2HX91dxGh7Wkvp4
3ucmRMZ2FzQcS8GX/oTyNGAH6JA51qpe/gkXzRX2B/xjByIZSROvdJMxr+QX
OT+HK3D+iAAba/UHHCKc1+Dz8TKEV7iK2Z9JwP3GsQfcdUyhidKjUl8fjzl5
2PznPhgCMfthmF18LCZYtvl0xpyGmKpzeP+HSPw95GNlvfsx2N63i/H3Yzi2
Os5V8qTiACj+atd8efkJVrYJOrBhJwsy/Lcile0f4JooNYfeaWHwbZNr21l2
A+vZ1fHppU5qKwn2OXDuNYbfL5M0+W/naXfMUd8IMd2BPWZpNsaTHWYpsvM3
nf3h0A4Ns5H7JPB8rlvjqB4GkpKbjB9eU4G/3h4xb/a9ALGH3Llhm4+Cr8OX
660Kr0DThPdnk+1JYDcZ0OKSeQOvyKKaPYZkKJMIfPxa6B2YvhDOdLE1Br+X
UrcOhr6HQ0viGfeuXgJd/kKzZr4kuPer7SxrtDVwUS8ccwz8CCcf9X7ltPkX
qpYZ8pxcX+CP1Yfn+sFXIehGgPAbv1SId9k30rjjBiTOhd0Xf5AO262LOvQ3
3QZ7ewW7b38zgY+qYDAX7AZ6UncvPdTKhpz1uYHsVx4g11dGPuf1FTpEd6Rs
7/aCCaPLBydWcqB4s67n4O8HULP5k2LOoTzw4XDMY/v5ED5X/Sb53c2H+6dp
Iku/HsF17TBu4lIhyBf/kdJXDwKDld61CbVi+DH9s/3Lg2BQzpafy3HGUOrI
/DAwGgrMiJ9Tckwa7Jbvabi08QzyeD3bS++UAR89/w7hcyTE7xVtTZMqh9sq
1FI202jwP5fWFNtYDnFz5JUQQgwYv/xV6yZfCRbtzN3OmXEwK3m2VKGvCmQJ
p/JzDROgU2cEbwuqBrZQGrfYlfdQbO9bxHGwBsoqjp6t9PgAT1Kyc/vDamHW
ViuTCyeBjOautHCdBuC9ZrW65+0X4LfI+eIz1wD8RYzZ6ckUWPA2/HQ9rhEW
a3172bTTwHqo1Ejaqwk0Q0yqedbSQVlu2WC9vRm2aT3XGvuZBdVZVjoZgW2g
L0Um9lrkw9EKpTLZwTZwSfhcknS0ANI7Vo7FabQDgRo0ICZRCC9XnsOTX+0Q
Z1oXNDdXBP8tfNhWqxME9qdTcgZpsFGjoio21wWnWW0HG7kqwLl3Pe3pqW64
nUL0H4+ogJHpGuVNcd1wgVvsWod0JdQJ2Sot6PfAiZrGEflT3+GVSbRs/fte
aPM+WZKTUA0HhliJD8wGIO2T4bxTdgMo55vOqXwcAC+2bmuD840gE55SPrgy
ABH9+76WLjQC39svB+INBqGd8I4rL7YJ1s6Z9W4wBqHg1uPyuclm6EtPk8eq
Q1D44mV1QHobdMde2rLt0hDwDevuS+Nvh44AznUn6hB4L/Zxvb3WDg3W5k3E
1iHoMqcRRvd0QLEQ111v119grmMSsJbUCW9uWZZr5QxDlFcli0FLN8Ra8KS+
GBgGyvRQhMKRHojSy46c5qKDgsRITOv7HgiT4HV8bUaH83XxbAH3esG36Sth
fYUOLtqj++/t6wcblc1WhUdH4beOhWDpwCBIzxasHC4dh17Lb4RthcPgVX/C
b3F6HMJ9+x7msNGh41OtQKrYBJS3Zbs0nqZDkG2PtOTtCXgl4lpn20WH2e5V
Ay6JSdg0r35F6e8IFFdovmu9PwW/pWlESctxuBSTo39dcwaI/671JN9lQLY7
tO+xnQGNdnkOzXoGCJh8txoIm4Ead65PSHoGSoQ6XY3GZuCKaavTt6YZEDnh
SYk9MwsKeSaM11Gz4Jn7yoO6OgvJT7/uNuWYh9MJXfVks3moUfDPiuJegtlH
qXYVN+bhooL08WnNJYi6+nDjyMN58ElDdp6OSzC2d6+qfOo8hOqvO+k0LkFA
rm8EO8cCZJR5UQOjf0NVvax5btoC8JZGZAwcYsIp5p0xSa4l4JuRUyl89wdO
GgizL31dhj2ctztfPWNFoTY8cyvVy0DOZSUapbGiH3dYBv72Lf/nPSO3pOpZ
kUMcI597ExPar6YeEeBhQ6EzNc7iJkyIyd5vK0xlQz+ePRw68ZsJtziEuOvd
2ZFDx2JJuMYqqD7aFcLnwYmeWnX6quSswU4+v4iUch7kP3UURurW4HBE9VTm
JA/y9ni3HjO0Br7GavntwrzI6fmNe1wC6+B1zyXbxYYXkb+zu/b/uw5qFoky
BBY+JLBPxT5Y+C+8detgbTnOj0L/BhiM3diAu1zWzx37BdB38q7N54RZ0eOz
wYQNDWE0LSnq3fKKHU26a/OGcm5Hd1wVbZ5u3fTfD3y8Q8GbiDp7hYzsqrgR
t/4VT19VaWTtcXSU6ywfKrMq/cN6WhaVKR4MKuMUQBLU6S+NCkpIhqdw7L2e
EKJb6r9/Hq6CdhU6nuQMIKDaVqmQpwfUEMsq20fnIWG0svRuZJO+Blo2LLKs
2COCPsvuj6y01EQ96lY79/iJohuxLnW7Z46iW6ZCBKnerejgZU6laGOExCKG
zTh2bUdvnx9qj1c8jlLN45MW3MWQykb4YIWuDjLV8tGrKtqBglOCWWrNdFGG
5Q2pw2s7EcVeQtnOQw8xeU+w513YhUofMZk6w/rIqPmIxq4oIrLjI/fwIAPE
e4SvpPA1EX1LcXWu1TdAJe+7z1gkEJH6dAD70wsGSMXdwyYmlYgqT9zbIu5o
gARIOcFiFUSkSvGdMHhpgKqv7/8lOk9EewbE7ghNGyDELR8mcJaEwn5R14Ri
yYh5m7kj1ZCElhQvNxOSyCit5/sHA1MSCiTsiRfJJCNiml1B8BUS0s2+ryhR
RUZrF96P8HqQEJeZ0Qp5kYxyEkhaXIkklLQ98DafAQU5bZ75nviZhETVteiK
ZhQkc7fYSDeDhL5N9RuR/6GgCP3LVx8VkpD/gcmd0R4U5Dz36jl7Kwk575G1
1U2kIAVzB2LCDxK6qqCX7JZBQT/LNT8e7yeh4DoTenIhBZ2L+lH8YJyEro0d
NdjSSkHcbMmnJWdISPKKiPuZfgrCjnfbaIskxO3RFftonILc2nWtrFdJSGJv
cEHJIgX9Xw9B/99D/gejK27H
"]]}, Annotation[#, "Charting`Private`Tag$19932#1"]& ]}}, {}}}, {
DisplayFunction -> Identity, Ticks -> {Automatic, Automatic},
AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic,
Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic,
Charting`ScaledFrameTicks[{Identity, Identity}]}},
GridLines -> {None, None}, DisplayFunction -> Identity,
PlotRangePadding -> {{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All,
DisplayFunction -> Identity, 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, Automatic}, {Automatic, Automatic}},
GridLines -> {None, None}, GridLinesStyle -> Directive[
GrayLevel[0.5, 0.4]],
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}, {0., 99.99999183673486}}, PlotRangeClipping ->
True, PlotRangePadding -> {{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.02],
Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[
TagBox[
GridBox[{{
FormBox[
TemplateBox[{"\"\\!\\(\\*SuperscriptBox[\\(x\\), \\(2\\)]\\)\""},
"LineLegend", DisplayFunction -> (StyleBox[
StyleBox[
PaneBox[
TagBox[
GridBox[{{
TagBox[
GridBox[{{
GraphicsBox[{{
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
Opacity[1.],
RGBColor[0.368417, 0.506779, 0.709798],
AbsoluteThickness[1.6]], {
LineBox[{{0, 10}, {20, 10}}]}}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
Opacity[1.],
RGBColor[0.368417, 0.506779, 0.709798],
AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full,
ImageSize -> {20, 10}, PlotRangePadding -> None,
ImagePadding -> Automatic,
BaselinePosition -> (Scaled[0.1] -> Baseline)], #}},
GridBoxAlignment -> {
"Columns" -> {Center, Left}, "Rows" -> {{Baseline}}},
AutoDelete -> False,
GridBoxDividers -> {
"Columns" -> {{False}}, "Rows" -> {{False}}},
GridBoxItemSize -> {
"Columns" -> {{All}}, "Rows" -> {{All}}},
GridBoxSpacings -> {
"Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}],
"Grid"], Alignment -> Left, AppearanceElements -> None,
ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction ->
"ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
FontFamily -> "Arial"}, Background -> Automatic, StripOnInput ->
False]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[",
RowBox[{
RowBox[{"{",
RowBox[{"Directive", "[",
RowBox[{
RowBox[{"Opacity", "[", "1.`", "]"}], ",",
InterpretationBox[
ButtonBox[
TooltipBox[
GraphicsBox[{{
GrayLevel[0],
RectangleBox[{0, 0}]}, {
GrayLevel[0],
RectangleBox[{1, -1}]}, {
RGBColor[0.368417, 0.506779, 0.709798],
RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle ->
"ColorSwatchGraphics", AspectRatio -> 1, Frame -> True,
FrameStyle ->
RGBColor[
0.24561133333333335`, 0.3378526666666667,
0.4731986666666667], FrameTicks -> None, PlotRangePadding ->
None, ImageSize ->
Dynamic[{
Automatic, 1.35 CurrentValue["FontCapHeight"]/
AbsoluteCurrentValue[Magnification]}]],
StyleBox[
RowBox[{"RGBColor", "[",
RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
"]"}], NumberMarks -> False]], Appearance -> None,
BaseStyle -> {}, BaselinePosition -> Baseline,
DefaultBaseStyle -> {}, ButtonFunction :>
With[{Typeset`box$ = EvaluationBox[]},
If[
Not[
AbsoluteCurrentValue["Deployed"]],
SelectionMove[Typeset`box$, All, Expression];
FrontEnd`Private`$ColorSelectorInitialAlpha = 1;
FrontEnd`Private`$ColorSelectorInitialColor =
RGBColor[0.368417, 0.506779, 0.709798];
FrontEnd`Private`$ColorSelectorUseMakeBoxes = True;
MathLink`CallFrontEnd[
FrontEnd`AttachCell[Typeset`box$,
FrontEndResource["RGBColorValueSelector"], {
0, {Left, Bottom}}, {Left, Top},
"ClosingActions" -> {
"SelectionDeparture", "ParentChanged",
"EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator ->
Automatic, Method -> "Preemptive"],
RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
Selectable -> False], ",",
RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}],
"}"}], ",",
RowBox[{"{", #, "}"}], ",",
RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",",
RowBox[{"LabelStyle", "\[Rule]",
RowBox[{"{", "}"}]}], ",",
RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ),
Editable -> True], TraditionalForm]}, {
FormBox[
TemplateBox[{"\"Approximant\""}, "LineLegend",
DisplayFunction -> (StyleBox[
StyleBox[
PaneBox[
TagBox[
GridBox[{{
TagBox[
GridBox[{{
GraphicsBox[{{
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
Opacity[1.],
AbsoluteThickness[1.6],
RGBColor[1, 0, 0]], {
LineBox[{{0, 10}, {20, 10}}]}}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
Opacity[1.],
AbsoluteThickness[1.6],
RGBColor[1, 0, 0]], {}}}, AspectRatio -> Full,
ImageSize -> {20, 10}, PlotRangePadding -> None,
ImagePadding -> Automatic,
BaselinePosition -> (Scaled[0.1] -> Baseline)], #}},
GridBoxAlignment -> {
"Columns" -> {Center, Left}, "Rows" -> {{Baseline}}},
AutoDelete -> False,
GridBoxDividers -> {
"Columns" -> {{False}}, "Rows" -> {{False}}},
GridBoxItemSize -> {
"Columns" -> {{All}}, "Rows" -> {{All}}},
GridBoxSpacings -> {
"Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}],
"Grid"], Alignment -> Left, AppearanceElements -> None,
ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction ->
"ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
FontFamily -> "Arial"}, Background -> Automatic, StripOnInput ->
False]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[",
RowBox[{
RowBox[{"{",
RowBox[{"Directive", "[",
RowBox[{
RowBox[{"Opacity", "[", "1.`", "]"}], ",",
RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",",
InterpretationBox[
ButtonBox[
TooltipBox[
GraphicsBox[{{
GrayLevel[0],
RectangleBox[{0, 0}]}, {
GrayLevel[0],
RectangleBox[{1, -1}]}, {
RGBColor[1, 0, 0],
RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle ->
"ColorSwatchGraphics", AspectRatio -> 1, Frame -> True,
FrameStyle -> RGBColor[0.6666666666666666, 0., 0.],
FrameTicks -> None, PlotRangePadding -> None, ImageSize ->
Dynamic[{
Automatic, 1.35 CurrentValue["FontCapHeight"]/
AbsoluteCurrentValue[Magnification]}]],
StyleBox[
RowBox[{"RGBColor", "[",
RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks ->
False]], Appearance -> None, BaseStyle -> {},
BaselinePosition -> Baseline, DefaultBaseStyle -> {},
ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]},
If[
Not[
AbsoluteCurrentValue["Deployed"]],
SelectionMove[Typeset`box$, All, Expression];
FrontEnd`Private`$ColorSelectorInitialAlpha = 1;
FrontEnd`Private`$ColorSelectorInitialColor =
RGBColor[1, 0, 0];
FrontEnd`Private`$ColorSelectorUseMakeBoxes = True;
MathLink`CallFrontEnd[
FrontEnd`AttachCell[Typeset`box$,
FrontEndResource["RGBColorValueSelector"], {
0, {Left, Bottom}}, {Left, Top},
"ClosingActions" -> {
"SelectionDeparture", "ParentChanged",
"EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator ->
Automatic, Method -> "Preemptive"],
RGBColor[1, 0, 0], Editable -> False, Selectable ->
False]}], "]"}], "}"}], ",",
RowBox[{"{", #, "}"}], ",",
RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",",
RowBox[{"LabelStyle", "\[Rule]",
RowBox[{"{", "}"}]}], ",",
RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ),
Editable -> True], TraditionalForm]}},
GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"], TraditionalForm]},
"Legended",
DisplayFunction->(GridBox[{{
TagBox[
ItemBox[
PaneBox[
TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline},
BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"],
"SkipImageSizeLevel"],
ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}},
GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}},
AutoDelete -> False, GridBoxItemSize -> Automatic,
BaselinePosition -> {1, 1}]& ),
Editable->True,
InterpretationFunction->(RowBox[{"Legended", "[",
RowBox[{#, ",",
RowBox[{"Placed", "[",
RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
CellChangeTimes->{
3.7949242262467995`*^9, {3.794924264160576*^9, 3.7949243179960613`*^9}, {
3.7949244127848415`*^9, 3.794924435680345*^9}, {3.7949244665050335`*^9,
3.794924479210228*^9}, 3.7949245314644566`*^9, 3.794924741209429*^9,
3.794924909890668*^9, {3.7949252569646235`*^9, 3.794925283686054*^9}, {
3.794925465056321*^9, 3.7949254852854605`*^9}, {3.794925540586546*^9,
3.7949255640793934`*^9}, 3.794926155385079*^9, {3.794931515959655*^9,
3.7949315242616544`*^9}},
CellLabel->"Out[10]=",ExpressionUUID->"82ae8dcd-ccbd-46dd-92e4-dc1b830a7e7a"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Test 2", "Subsubsection",
CellChangeTimes->{{3.7949258038699636`*^9, 3.7949258048481474`*^9}},
FontFamily->
"CMU Serif",ExpressionUUID->"565730b7-a323-42d1-bcc7-ca7caa082b32"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"polynomial1", "=",
RowBox[{"approximant", "[",
RowBox[{
RowBox[{"Cos", "[", "x", "]"}], ",", "10"}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{"Show", "[",
RowBox[{"{",
RowBox[{
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"Cos", "[", "x", "]"}], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "10"}], ",", "10"}], "}"}], ",",
RowBox[{"PlotLegends", "\[Rule]",
RowBox[{"{", "\"\<Cos\>\"", "}"}]}]}], "]"}], ",",
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"polynomial1", "/.",
RowBox[{"x", "\[Rule]", "k"}]}], ",",
RowBox[{"{",
RowBox[{"k", ",",
RowBox[{"-", "8"}], ",", "8"}], "}"}], ",",
RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",",
RowBox[{"PlotLegends", "\[Rule]",
RowBox[{"{", "\"\<Approximant\>\"", "}"}]}]}], "]"}]}], "}"}],
"]"}]}], "Input",
CellChangeTimes->{{3.794925574632543*^9, 3.794925582566587*^9}, {
3.794925652260568*^9, 3.7949256526215677`*^9}, {3.7949260962376437`*^9,
3.794926125714009*^9}},
CellLabel->"In[11]:=",ExpressionUUID->"002bf71c-ed9c-4d00-b0cb-28b0eb2b3572"],
Cell[BoxData[
TemplateBox[{GraphicsBox[{{{{{}, {},
TagBox[{
Directive[
Opacity[1.],
RGBColor[0.368417, 0.506779, 0.709798],
AbsoluteThickness[1.6]],
LineBox[CompressedData["
1:eJw1e3lYjc//fto37cs5LdQ5IlHSassMIhEiSqRos9S7kPZVkiQSyRaVKEWk
tAjNtCuptGnf97M87fvyfT7X9fv9da77ep55vV5zzz1zXvdc5yjbup5w4OTg
4Kjm4uD436f/4JHxlRU6Dkvay5HWPIIGfGWmWhfp+OHVLMGeyRF0VKxzJmeO
jkHwcGy9KAMpbb+65DpBx1HNrsfGDBmoMPwRf9cAHbvdFf276iMD8Wv8W4P/
0PE70a57B/9jomuFccqxFXQMfYUst4UwUYv5pXVeZXR8cNGoofsFE30InNuo
WUCOr1RYPF/GREf/yuvGfyVxp4+4oCILRd84fzjoJR0XNHCLtuSx0BL/xqNW
z+jYcQzLm/xhIcdXY6bbntCxk7HixxudLKRfGmw++oCs3+vEuyFONmqRfXfh
fDAdJ1wohhYH2Gjfx//sdwXS8RqY9NHLnI0+Qr2LFD86lv48bHzMkY38L5c5
17jT8XSAjL/8bTZS+j7sCS/TcfK05KdNiI3uHsvwUXCk471hPGHjlWw03uvj
P2tLx3SKrut/LWxUJCx8K92KjluRVHfAJBs5Wms8UDKl4yeJ1h3CKgSqGp9+
uGhCxzyJH95f1SSQ/h30uMmYjvn0esLv7CQQf7rp84f76HjF5bJalSmBPqxy
e8uhT8dyKrx8PzwJtM0slfe5Nh0PpN/1dLtJoNK33Ze2atLxqryK59XhBOoy
MlW33UjHm4JXh7nHEsjl+Z3IeRU6lpgZVkJvCbQwkj/2iEbH+4a386R9JJDM
A/XsInk65tY1O+X+nUBvO+0pVhQ6PnB6f8yxQgJt3RrrMylFx2f5lyr//CJQ
fnBdW4Q4yZdIygBRRSCTekGgIkLHLSq3/mbVE6hFZW/CT0E6VtOu8VvbQqCL
nt5c5nzk+9e6mjZ3EihYbqgslIPUj0bJZa0hAok5r1Vbu0TDyvY3QtSYBHr1
0zwiZ46GRYJj5UsJAqmJPmAfm6bh6IFf63gmCJR7vsR0aJyGa9WiYganCLQ/
YzEjiKBhwd3PL/03S6BaLh1pKpOGW/2jHsfME+j8KSfPL0M0fOO3nrjdIoFY
SW+ajftpOOfVibbaJQL5zDbv7Omm4ZNi30f7l0n+D4m/9umg4Q7ixOHYFQI9
eXmQQ7KVhqsKBUamSExjBdp++EfDgdWtv8dJnL47p3hfPQ2vXVs7+ojEBg/Z
69tqaDjGn/NMIxmvolvl7o0/NHzeI1LgJ5nvtPY5hnAFDVsdfc9pRNYzEBJ9
5F0pDT+eDzO+Qdbr1vj7s0ERDY9J+vQakvPhUOWSaEQ0PFNW05hLzveB944b
Lj9o+EIpW61mnEDyv6818n6j4e+b9g6Fk3y9V0jZFpdFw8uX9lOGGQTSc+l6
oZ9Bw2KqgSUjgwQqQrJL1Z9oeK968EJkL4FMxY/ZXPpAwxW6rNKmDgJ12IYW
cLyn4a11V3RLmgk0yzN1e2sCDT8xCta/S653qMXmofJXNPx8IpVxntSDZIrd
IdsXNLw+iCukrYBAGia1Io8f03Dnk9Y0lEmgH68Erm16SMPjF/Zc2kDqzZiA
dUURNPxXMfG0NqlH+0efn07epuHPOGbbtscEuZ8G5iKCaZgyam25ldRzoO4a
K5VAGg4Sj5SoDiLQi6YIJXMvGs5LnPk+60wgVbXiYPYNGk7zSusPsSVQlu9C
X+g1Gt5/oUQu24JANWuupORcoeESJWcV/j0E4nEw0qKeo+EfjENXXERJvVhv
tWBY0vAVlT+pglwEen1a3u+nOQ1rP/gReXqajfRMiJILpjR8rXC2TKCN3M/a
Ty1T99Hwmk+pb0sS2UhL/WaAH6Rh7yFW1ng0Gy2vd0o8akDDR7MrbtaS58dT
OcAa1yP1EjDRk0qeL79WDQbtVCP5911SLVrHRtELNe9Wb6DhDxc/XwyXZKPz
U3kVnXQa9tKYTOYhz6+5oQdSIYrkfjDj7qR0sJBajd77SjEa3uWQrp7ziIUi
XodWn5tRxnae/MQSi4lOP7s6uWVSGedw2yfJNzHRukdnqJxjyljbzMxvtICJ
ft7WsEsaUcYFdzPscTQTsZ0bp9ntyrjXrefGih4Tme5cvyaoWBmH318x3eLC
QJJNJc5vopSxSY+7kVLKMMKbEsJCHijjPAnfMt17w8g50O+t4z1lnDX3Y/fq
/4ZR6XrtNrXbyvj17VvbuDSHkY97/OFML2VcJ/EiSDJzCPVI+KoV2yjjK3qK
N/k/DaKMI5pD/erKeHwx09HHux/ZJAhx/1JTxlLZT95fPNmPhKcG1qZuUMZ8
JgmKylv6kWPsKwsXZWXcM1kpNN/bh+QYgmXTUsp4NjNv6cjhPhQc1v+Ob1EJ
S7RzjFaL9aITRS/sNlYoYXvr8bBu7y60rr6vo6xUCW/K8rp25XAXmu7TOONY
pITFdQLKixW60HPeItPEH0p49HzA907/TtRlzDBQ/KyEX2doPbXi7ED/1eyk
iEcrYZ4Fy5nQhRYU1t5WOXtOCX9ajwr2ZNcjX8LA+WHvWtz99snDEO18lOv5
4srnY2vwg3fdgefd/gKa/bV3TQfX4NtD4Z/vt/0F900Pdq3auwaXgJL3oftr
ge3G6VMnddbgauM16v9k6oBQ6/E9c5Q1+PiLt1J/s+uB9W4Byr4eReyncd54
LeMf4OLxKmm8oYhtBTqXuRQ7gMvYUQ4OF0XMG0o8cPDvAE3tKjs3XlTEuVln
l/9r7wAfs+vSfS0V8fltTlTX2E5gfmlLrNJuRXwiqndA4F4XeP974PoVPkX8
gqvwse9CNzj66JTS8nMFjK/kio5l9gEfLVFjo8cK+HhUDVd5Wx9Iqv117WGE
Av6wWVDTkacfLEvsKqIFKmDPnqqL7FP9IO0xzdHInnyu2T23cbIfCD8hPjzU
UMBLhq28rHWDYJtuSn3zBgXcrEE51mc8COwbbJdoygpYOdZr7rnLIPgh3Xg0
S1IBm3S+/bc7ZxA4xfwYa56Vx5ISCU/t9g+Biqd39elF8viRZMSdwpPDYFp/
33nnH/L4orWi9DX3YUBrWgzLypLHem/uDv57Mgx8KFdbjN7LY+beR+zKhmGw
8bm5v/N9eezfbPf90IkREPaCXpRlIY9TeSaSjQ0Y4OuOdsayqTyef2Tsa2bJ
AF0tMVIHD8ljpL4GirkzwDZ5QceWXfJ4FQ5yTPjAAEMvR/lXlOVxiV9RNVWa
CYxe/Tx6kCmHj4EUfXozE4zeb1vkHpDDbJ7Zb5/YTPAiYCG1oFMOW8QFHJ3g
YgGmzXa+nXVyOMvArCNJnQUe0bKQep4cHvi+QyzDnwV2Sdb/N5IphyczUmM4
olign2tCPjmNHH/LLoH3LQts69f0UkqQwzsvN9zdVs4CHckfNSXDyPzFtbka
YmwQ9ux3R/VNORw7/8tFR5kNtt4diYjwlcOJZ24ZjW5lg5ArqsM8ruT7c90/
755gAzX1twmzp+Swt5mVC3jIBvWKRceyjsnhczbP+sdes4G/SM/SNWM53FFl
ftgyjQ1qiLVnGLvk8HmO+lMHytnAI+OlRAddDi8NhuY8WWIDpcQ8/EJRDv+i
32EzBAhQ/rjZxUJWDm+oKFs9LU0ABXfZ3zWCcjjufFakijoBSh30vO9zy+EP
6ve+HdpGAFfzUxsOLVNxROqEJX0fAQr1H98qGqNiw/C2aLYFAZxVM7YGMah4
pNp2sesCAaSpfzt39VPxLF/YjVAnAlyaF9mV3UTF+sr120b8CSDyM3zyPaJi
2djqFIk4AuSmpbxx+EbFLmtubXyZRIALr3+Z0jKp+MLP0+KNaQT4Gsib9jKJ
jPff3jrb7wSwvqpy9nQ8Fc9nrIn4WkAAvguGAtIvqLiiMu1KbhkBzuwNdnhw
n4ojjZOtG2sJwK2dIHn4DhW7fa05PfqPAGlka8t3k4prD2za+6ONAOZSna7F
PlRsmjcpsqObABw8y4o3b1Dx9AG1r5f7CZA6pVBp4ELFmvlhGw4PE8BsYKfP
/EUqnkuMsOlgEmCx8YxqzgUqXnfguhl9lABJZd6NbmepuO+v7gJ1ggDPtTz2
pZykYr8TMWtmpwgQ8ep6escRKj6pGqPkM0uAQH5XRSkjKmZ8mJ+LmyfAdTen
cGNIjm9/9PbyIgEcOi7OBGyn4i4vffl/SwQ4bWxv/1WLis9w/LYcWibAoa/n
/w5vouLgyu3nXq0QwGDtud1rVaiYKulDnyaxZrjlh5NrqNiSde8D2T8B2tQp
SrgsFf854z1F9k9A+vyJ20iMig32mHP+I+Px/z46PilArvdlWJ9P5lvQPWyj
xkXFCd42LofIetjxRpU2ixR8jNFX703W2y1kuP3JFAUDDuHVR8j51HvApAo2
BbdkUBWLyfmWde+S5BiiYP23VsKd4wTIM9kepNtNwcJ86r2vCHI9cnRZV1oo
+PUdZioHyWc8TetMfB0F52ryuvANEeDxfY2yhkoKfnOErZ/RS4DQWTUdoVIK
ljemSa/qJIBTFV3EI5eCJY0fwnv1pD62K/l++ELBPv+NfSytIoDpW4WhrlQK
NrNkXkr6RQA9H+nCw68oONPujKwZqaeN/eJbbsZQsMWSnqbSV3I/mIrEZkdS
MKs/sD/qIwE41/N5KAdTMA+vv79dLAGmHnL1mvuS8VQbHxQ9JsDQwsqxiBsU
/HWo7/mvcAJU/Z3dOONIwUqHsngKPQlQsGsqZvN5CnbrOPoq+z9Sz8ljXLaW
FHzS8kisqR2pD/+R9srDFFzTaGfsfoTUx9DAIc79FNw+4afHsZcAAWa9Ofq7
ST48Fvm36hHAfmNb1BtNCua4YzUYokiub8Of/V7SFLx7JjR4bpAN6LAiI02E
gn/Kx0bkNLOBzIfStb18FLw+MvO9wm82WAxCc0fmZXH2NlPc9pENyjZ/SaN3
ymLnMdaB7c5sYB0SLV39XhZfepiD7rewQBWY5vN6I4v7RfZQVX6xAFiwmFeK
lcX79ebir2WxgNJ1+c7rkbJY+errGbVIFuixefNexkOWPI/2S64DLOC4M32n
9T5ZXLupbdQqigkap8U1+AxksX5OS7m1D3leZ7gppevJ4jqpSFmqHROobtTn
4VSTxaEhKQs52kwwIpNf9U6MfG6Z7PnuLwO4jP++wGqXwV833Rb04GCAjjT1
kzH/ZHDyIQ85hf4RcOxy5AHwVwYXJe98HlA+AjS7TmyKKpbBnc3/zXlHjYDx
P82TOh9kcOz+q9wn1owAj5TBO35eMvjWOy7Hsk3DIOA81ychSRm810Tv5rDs
IEivNnpQLyyDE8GBLbZTA6Bnd4TLK14ZHFcm6ppYOwAOKEpv2TIvjbVkeiaC
IgaASMv69BPd0ljl+7jNl6V+8NrsUMbzz9L4NDWlUbuxD6ADUdkbTKTxmm8D
ztttewCH+lq077YU3re644PcTDPwk9ljfTtACktO9Ry1iG4GMyu2S6WeUniM
ccfg8NZmwK5N2nnoihSuXxdtf+5KE2j10sg1PSaFi6TyGoybG0F2scGXc1Qp
7FCRF23woQ78Z2WV6Jkmibn6Vi0KHasALfee3/nQIIEVuefVcu+4oLoSpY/n
qyWw+dfYuIf6IahyJblGulwCl1c7xAQ5PkT5btnUoB8SOKD2Zc3FhVj05mzd
h5OJEvjAXFbUJ7EP6Mqm1TVLVyWwkenBRXGpPLRQEUQxFSbf/2R/MMu7HCkI
XkqZ3CuOW7UZFTP5Tcg6vzKCtkscG6tL3PGiN6OE61uvmuqK40PF8pvS7zSj
9a3zeh83iGO9FtnX4FgL2vLxfrGdsDhWLrgSilpa0d6jmZ21DWLYYUccn3FP
B7r8aFn6yyUxXLP/1fOxUz3o4wG7uY4LYjgohnNHZHAPYs+XtQmfFcPBY8f5
Zz71oOt2UYmXjojhEu1GNTpfL/LTWbdVSUsMt1AuRXZ+7UVr0h4/WzMjinWD
AzR9efqRk64aT6uCKL6zf0Vo0nMQXef5luwhKoqVvm2JNogdRD4NRockOEXx
km3auCEeROHuDpHGgyJYOf9q3D2+IZSaFU/N/SKC03cbtrIeDaFhXVmNJwdE
8MKY3aUvscNolCepRnO7CHYoCkpI/TGMZht03Co3iWBrD6PvZ9uGEb/HiVwu
cRHcE39eo09uBKlm3997vXU1DpI2ehASPYIu6nFbHLu6Gss7O+d+82YgF97H
cyO2q/EGz3FFgScM5NGoHBt6ajUueeO0TSidgUI9QPfPHatxcJSZ9fp+BkrK
9nHazLMaiyE/q/TDTNSvNxYo8EIY2+X/uNIgwEJM3iDauwhh3Nb0MFRDiYUm
G0VKYKAwPjTFx62nx0LcnpsFveyF8dnsRvVjF1hoXc7F6AENYdzJI5KVmMlC
dvod74uKhHCAsr7J24Okn3uvb34gRwjX/fD0TzzNRleoUVzlqUI4bZKSe/oS
G11d2GddFSWELzav/tIXykZ+KEWy2UYIfzx+5FMAZqNATa6Cs2ZCeI+ANk2t
io2CE6xcOg4I4dhvvDfDW9ko7JZoea86+f7uUv/LU6TfM3IPYC8I4l8xE6Kv
VAj0NLdq0zVCEJtlPb3O1CT97UbV5okeQXyt7kY1sZNA8UKt2nPlgri2X2e1
xHECJfrpdPv+FMQGdk/yNM8SKIl1/8FyuiCWvqq2wOlAoLRqOMz1TBCHv2I2
FngSKB2+iAm9J4iNLl82/ET6569fJvYJBApi3vC84SN3CZT3OOm1iKMgjtAP
Dkt6TqCf3BwmUZaCWOiO8hmbBAJhd8s5ySOCWEFiUPL3ewKVWgifpOoI4tOr
Ds7mZROo/JfDqtgNgvj6cQYH+Emgyu3o0xp5QVzKV5LmXkT6a/nrAus4BbG/
q2HufBWBGiJ+ZydNCeAk28a5g/UEalpaZ79xWABzh3gmGzcTqLPzX75GjQDW
b+6Qse0hUI/pVucvRQI4nOFd6D1AoIGCcKpOjgCWWluVtm+EQMNafaXZqQJY
+EZcNWIRiJlocGP7awGsEey6lj1KIELqqfKPKAF85b7/k6oJAo3fHq3afVsA
VzwrVbswTaCpaWO/Ai8BfN+Tp/ndLIFmLyZuNHQWwJfbMl7EzhNooWmxsdRG
AAte5HHav0igZWPzEGMzAfz989j++CUCrfr+eWvlAQEMjquppi0TiHuzQOfR
HQK4e3StqPMKgfhe2Ub8VRfAXwxXzbWRWFDkx/aTygKYLfu9b4XEIoHSg41S
Ajj1yOzfehKLj7pEW/IL4GfdygVnSSx14deetgV+zD9onRlNxqfUKhPWBD9e
GxqdGkjml9/nG9vdw4+1ZhxSFMj61nytN7Zv5MdWfjqZTmT9yioaMwPl/Bha
rq10Jue3LubO28s/+fHCL665teT8N/B1H2em82PTcT9wm+RHzWvHistbfjzR
3PsuluQPtx9V643hxz0dbCFFkl/zfXanLO7y40RRvaE9wyTf7z2DfvvyY8G8
sv1C/QQKFon4AFz48XxQrqZ3F1nvjfjGzPP8uGg7PfteK4E+NX9dpWrGj++X
qvbtbSRQ89t2C7Ft/JhnyzvPuAoCuQiOB4eo8WPOaJ9lw2KSz6u8n2YVyHoC
k69GkvrS3LmFu3sVP+ZdWLaX/EzqMX7fllOTfLhl4xexI8kEsuI9faZ8gA+P
JZfPb4ojUNjfoPQvv/nw4V7noeb7JD/6T1pV8vnww/54xZQQcj/EpvC+SOfD
eVr3JxV9CdR1sdYq+AkfrrbmmZ51JJD+Ml3AzIYPF+8zuO25g9S33TadsuN8
OPF+37KHBoFsy01sdhry4VexF8UVaQR6EO2eRd/Ih4/qvI88x0/qVa3swuQ4
L46rCBf9WkOeHw9bIy718+L+DcEXmQVsJDFN5LT948XnbcIjKzPYaHcBRaTk
By8WK929HPKYjZ5YXMl7EsqLl4Mvn2g1ZSO1nwH9At682GZqk5IFYCNMeywW
4MSLMdNRx0+djZis746OprzYRZRnuZCfjQxDVkvqy/HiO3q7mAe/s1DLsPLu
D8K8WLjh8E+pZBa6ekzv8toVHoyGL9y994iFXsrZIL4+HizTT13xucRC4+np
Tk1pPPjiceHVl8RYKKHdrNh7Dw8WCv+2MdOUibT6tObrdXhwoU2JLMd2Jioe
EdfUVOXBWp2/Q3mVmWhgpvrlgAgPvunM1QRHGUhNwsTNrI0bq+bNLV+7x0AZ
Bwxp6p7cuKjE7dTy1xFU/FknqOsjF3Z7vzMwoXEIncqWzN4Zz4UftGiHxGUP
oYEf44yYx1z4hMOmKpuYIcRfkW5xxIcLvzs45KZ6aggd6du8Jc+ICwfMpiz0
VA+iRopKx+MeTmzbKx91IG8ADd6U3mVE4cQtkXs0tBz6kKD/Z+KxICd+EPm9
uXlHH9LwMk7sWlyF3ZLjNA+I9SEPF39Bn+5VOH/Hn3qXvF7Ee7a/6WPqKnxC
EpSvFu5F63Sy3CUMVuHd/j8pE2+7ke3Ayc/tFzjw2RX/IE7bdpT3RHX/kPkS
EsxxMtr9pgZpDjdPbnk1jdTlwVtJ8WJwY1R9o2zINLIy+OO+/18xyJ25eW75
yjSiKmVxGL4qAXt41Uort02jhP67SXGqZeAE3efp5fopBM5nCMXuqgDu5+R2
JApNoebN3vMcm2tA3t8zgTI+E0hEp8gue0MjWG76lLl0fgJtD1HSKr/dCPZ2
cQ71GU0gtca4mLe9jeA3O9U0U3oCicZ2hn55/Q+0CS0om34ZR1SPzf2CEs1g
Zf/L4rtDY2hKHYRMMluBYV6rwJL5KMowVmgrye4Cn1LfbS/bOYrOugy1S/d3
AcpL18tRSqPIsLmDU1eyGzTO8D46TJ7zt0sPJnS4dAMVX3OxV/Ns9G8q5kcN
vQcU3pwShkYsJEh3zcu/1QsWH2jzhnYNo5MzrKSTlAFQ41rmIJc6jAI8fm97
BAZAounZkk9uw0jm4cbrkY4D4JDErZB/vMPo6m9palnmAHj+pJZzo/oQirmc
Jbb28CDQi7228tt7AB07f3hQ4r8hcDXl86y4ZC+6c+DKdgNfsh8Xcbm1t6sH
tew9rPXm6QgYu75ZxC2tB8mMDK8tzhwB13el0OuNetCuqJP5BowR4F795miM
XzfK5m5w5bBggImRTca6lZ0o5ZOb/F1lJrjx9b11jGMnegm5n7/azgTT/io3
Zjg60fzfW6wrx5lgVmxt3DfdDmTuPr9pSxATLOpJTBnEtaGTJcQLixYm4L01
G3/gejMSiy/wmgligTsm7tnJws3o9VXW34BoFuCXGf/Nn9yEFEP9nn5PZgHB
FMZ0Res/VCgdlHTyDwuIVneYHNvfiKqIx19XpNjg4bOztumdDejo5BYT9fVs
IGHb5Cnu04B0dfu7RPTZQGrq75u6T/Wo7pHiaZYFG1DkS2YtKHUorsWFRzKG
DZ737RH5llGLEvn28be9ZQO5T/l0uSO1KKWk8pdFJhso7sk92nbzL5r1+Trm
WM0G+6rMjQsaq5HOUpBUFxcBDlwwvXFLqBpti7XaulOMAAcnjeP2wypUXrh9
yUiBACZyBlPlKZXIRWH7Rg9tApg70hNq/cpR34EL6crWBAi/5hb2KOsXOio/
q9R4kQA//YpcT7DLUPzPOc/d1wiw7rHd7lqbUhRKLwtQu0WA068zVR49K0ER
wSpcn+4R4F4K1+oTf4vRq2NSsv2kPx5Hia1/9xYhd+8fr/9LJMD63xOFUb6F
6IxGLTM/lQCWjftSj38tQLlWWwOLvhAAM3u9/qpgdIkZpD6QT/pr4iKm/cxH
OdKvNnKXEOAYL3/kG42f6PmTM2oNFQRYo31w8xvxPOQiLsX5sIEAt42H5pVv
5SJtWTHk3UIApk1YecJkNtpSmmYi00kAMw/VZ8qOWeipL45z6CVAXsQvx4R/
mWh/TmPaxUECKCde0lU2zkBLOjv+U2AQIOwbP3dCXjpaxT1af4tNgI644+/2
nP6EymNz216NESCtMmrvnp0fEO+UqP+VSQL4zv3thGveo6Yo9c/D0wQwXi/h
D1e9Q9uecf8nP0cAWbMTcrAvAaW07vuyMk+A3yvrXAMfvEJSjFOeMYsEuGT5
LiXg5FM0JH/he+cSAbgzVfr85aKQ02Mjn9ZlAkCqicE8vo0OHk3+cneFAKPP
ntuPPb+OLNa32IyQ2I8zuuTANkvwonHq1hKJNV7YlUnpBQKPpd+KRSTuoH5h
C4lGAJriiPpOEptpN/0I3RMNTF88z3Ig42c3WwTf8X0BJL51Zu8l86/GDHrx
mXgw+tRfp3aBAODxh9Biz0Swe+PoVimy/muOTsPF0UkgVe1qJv8sAd5s32RS
8iUFLMmN//w8RYB6YcankqqPQF5jvYXABAF4u1LFSxmfgQHwui09SoBYS90d
diFfgHWBqGk9kwC6+5449UpkgsG06vz9wwSo2jwVa5fwFTy6Zt7yv/s4Do6s
Fbv8HJA/3mJQ0UaA58NSW/tMvgEPnvwXvE0E0Kq7YWvfmgeULmpVTdUSwD5J
p8R+9ieQ0U0cYZYRYCkyerovFIFTWVbsyQKS/13zjzPCMUh0Ul7+/J18f/2Z
Ei1qIajPOhQIPhFAU16w43pXIagQheJSyeR40bzpjOQiINR+YfRlHAFi5qiq
2nolwKfFuLMkkgBllc3h2ma/wEgg5X2IM7meXi1lZzeVg3Uf+5NotgTgX9fK
HcJVAVhnuNdftCDAId+2gPrM3yDA5o1SHyRA5cbO6+5S1UD8J1fcF1ECODd0
fn7FrAZ4F+fWO5wECIVXp21tawBFbc6Me4oNNjCvat/b8RfQBxmDU01scGnf
9bTWkVpQwBn/Iy+WDbY9H/9NmNeBYB0dw78RbMBPXB/hKqoDZsFXPz70Y4OU
F24bNr+sB0+nDZoFz7LByNiNBL/DjaA1vnZ8TJINnOM9nyh+bAafvFYX5Lqz
wK7pmcytlBbAd9xqg/t5FhA28ardH9ICZqN6S9sPsUDajJeoi1UrUN/d8P7r
GhZgH/W5my/cDu4b1rADC5kgNyA//7NeF9jptH9n2TwDxKcs//nm3AVqwJy0
YxcDhNXvbi960wUqOTZcyyphgNNqaOGfSDco22PU4hjJAHMNaBvHYDdI+6DN
qbiWAXaoF2SYPu0F58NuNypqjgDd+saY/PJe4J8Xt51Tkvy+8WX6bF7sBXbG
Z1rfTQ2D9eWy+/gv9IELqovLm/KGgaSDSx1S6wfTRT2DO+EwYMbKT2rkD4AS
OZnDaXAIxAl76K7uHwbKvXzM1dID4EXmPaqv7AhYevlkrdtoP4g5k7A0ZDwC
Nn/40pjwux9EvK8sKf40AvzGmw3O3ewHXoZ0cz8vBqhU4BE3H+kDJ/xqPBhC
LKCZuCvoTUYv4PSQbrOnjoJjNI3yU2u7wZnzqbW5OqMgvDf7hthYF8g4BMqF
TUeB1f2JzOeFXcB27eXsr6GjIEnCSFjOoQsU/vrxkHtyFAxY/dUpPNYJbsnb
739bNQZ+devqcx9qA9wFGZ96b00AzQ0N4iOcjYBP2PSmLXsaxLrG1Uc+KAC3
uhr3XU9cAu3PRmlryv+ijm+H//P6sQQUJF7e3rKxFu14jGMCGpZA46NeX6m7
tWh0f+pwON8ySAzy8j51sA5Zf/CPTHRaBlolMZtfFNejHR7rWuu1V4DngmOs
XeY/NMez/Zu8LQc8Ueng+N2uHSVdn/jz2oUDrvpVYR38ox2d7EzrUfblgCu6
ei84pDtQei5NWDWaAwqozHutLelAjk7CNjqlHLDhw3LqoFgXqq/p5D6itgpe
MPNbWOPYjdJfhpoGjK+C56T0PjQTvei3ZOigKAcnLKSfFt8q14cG7t0OSFjN
CVfy7ROPGvYhBb+Qj8WqnHAxyehiy9M+FGYVzC9kwwlV7DwsNuzqR+cVA/DT
35wwmXrYSpPsY3yf+FtsbOaEfZxLGplxAyhmtT87b4ATPrBKYU6WDKDKJV+F
jlVcsGjK41qm+CDa1uHttW4bF/QVEyoVSxpEYnHuml/eckEhpikYLRhCm2Td
y/ZmcMGtFyRrtvQNoQORN6zrERccsmSWbCD7Kr9At4iZFi74H1ftGWA8jIZs
rg0ZiHPDldHQj5yVwwgr/Rdf4c8NT/m8zw8rGkGtz5z1re5xwyB14zha9wia
FnOuYj3jhrTJwc2uyyNo8yqnRbGv3HDVg9blNdsY6Fn3pdMWI9zwZES1X00y
A7m+sRfrM+eBdq82Fet6MdED7+exD+x44IjM7i06kUz0ybRKdftVHpiRSXAy
3jERe1l/z4O7PFCNn77qZi0TOZ8Vur7tBw98l8Y8dFCVhSK04HLPLx4Yqa03
xGXAQh8F3MPvN/BAN6rTDo/jLMTI6XjTw+aBIimHtgZ4s9AVqYy6CGVe6J+j
tSBdykLhjAEbfQ1e+G3n+j83m1gotVCe2b2DF/54blD1ZoSFhq/e5tY/yQvV
fSvfc4mw0aU/p3W7Q3nhnu8npnYeZyPH0JUYXSYv7HgyLGBXzkah53ToXbO8
8JjF5BqRf2yUpHP5czgPH8xREu536mOj/p7ass41fNCvYM3K7mU2sgdJs3eP
80Fzf79RQPrNEJnWEB1rPli+5biI/3YCvWWJinde4YN8zm4DToYE6n3pvVEn
hA8qjBeftrYk/emsyZmObD54+fJbj8eBpD+vvjkQVsQHN+dGPTobRqA3SdnX
tWv4oOSobGL9QwJ1n1S6FzbMB6134CPN8QTi2HxKVnuaD0aO5SH79wRS4gpP
bOfkh+shR2M86b/Pf5n4rqXAD51akpLVSH8eFKZ6sF2VH9ZrUfZ4FREo3uZc
/R1dfqgZNbnDo5xAWO/Rea29/FAtRS90XTWBOleXMduO8sP3zHipW6RPWO5b
8Lpzlh+Gff7ZFNVM+vUfmjxal/jhKfLrzLSDQNZXXijeuckPubfYMTsGCLTQ
LFA1dp8frjhlJLwcIdAzY+8Aqxf8cFGZekOITSCdb0MaZUn88FPDsbMaYwT6
q3q6c2smmc/i1zHuSQK5PCuLjEX8MLwx7dD9aQIJ8utDvkp+6Ev07S+fJVCy
Z9LotSZ+2P5DaFfuPIEMB6UT2vr44YFeb9UziwTqMr993GiMH2bFQr7PSwTy
L51clbHED0UL1Rqylwkkp2efoSAoAP/V/oi8tkKg7Hd1tndkBKDago5uJ4nN
pPdJjtME4JzsveL/3QeNhmQUWW0RgGHfrhrUkThiUvlG2U4BqLrueLwliTfa
R63TOigA9Y8dZz8i45fWcTTEnhSA53qObfzffZDtvqu3+S4IQKGt/WZryPpW
Mjp1r/8nAHfo2F27StYfSzs20OYtAF2DG267k/Pb9ig/xihUAE7tXxWjTs6/
YZWGUcYjAXh5q0PyswkCXb/2akYhTgC6Xd+Os0cJJNIt/P7OBwFY/8Z18A6L
QB9M/U6P5wjAxJyMdcIk/wcxg/9csQBsYzsG7SPXp2/L2W9lNQJQ5XsKl0YP
gW7GVVzWaheAjWnHc3+3k+srukPu1bAANLFhv1cg1zsvIKWCb1oAup/61aVE
6mHyXNimdhFBGL1+3HwfqZ+Hf2ZajeQF4WCmy+cLpL7UDS5GZGwQhE8/3Lyl
TerPUeEA6w4UhBFl6S1jpD65IrJejZsIQg69H/4dpH7jF9YdPWcpCKH5rraA
BAI1t3B91rouCO3O2Ui2RhHI45CbzasAQXjd4rP407sEksjrEeW/Jwj7q/7I
8N0kkMnzgqvtiYLwX9unMC5XAuVbBGqFNQjCxvIg76tGBDpbxu4Z7xaEbw0K
ZKt3EWhWz/rxObYgHNtW5t6zlUBbZQwmtfiEIFVQsXWDPLl/6+ez2rcJwbQ9
Jqc1R9gIGl5xPLhfCIquX7Ok385G7ZnNMpnHheAz7UWjqWo2knmc6xl2RQgu
tZqbRn1lo7vHPbZrxwpBwaGhhhM+bPSoUs35YwqJP1qKfL/MRrFGna9VcoTg
vsZZzj+n2Sjd4CA3pVYIJn/63c3WZaOmjXLVi3zCUPXp0fEtTBZS5cy3L3UT
hplJ3laNB1lIy//6U3BTGJq4nmaOa7HQrtn1FbkPhOGuX8MpPxRYyJQdueVD
ijB8FST+4TTBRJ4tF+YjO4Vhxx/e3m8Pmag0g+eh5eHVUPVWlPC5YgaqUc8r
rD29GtreUVxwSmGglvcuU4cdV0MB3Wi3zQ8YiP3635ndN1fDNSoHthWZM5DM
vRQVes5qyPtR7btp3whysDvynUkTgeejE0q0x4YRt9STgcB5ESi3sdsutH4Q
SbADRCT4RGF4wczP5oxBpPzrkt5bSVFolDn4ePzhINrttyv012ZR2Mf9k9PD
ZBB59/WqiNuIwqc3bPT/4AHE/qrl8KZIFAr0pioLxPUjptrQNdsDYjCF+FWl
rdOL/v2+PRoiKg55M0z43qS1oujdr/afkhGH0584vqofbkUnvnx9oaIoDveq
/lG/MtSCqmJ6DUvVxKHa5DDXvHILKr2w5znfAXGo9eRteXRUE8qeWdwT7icO
137rG82ya0Ax9BuPI4fFYRqv253InD/olK+t3osiCfinI/Nda/cT5CzEoFWd
kYJPJi91JYb8AwzvPG6hC1Lw3KL/G8vuf+DK0N0Bo4tSsKwx8niDQRO4WKKa
WuAmBce8YybkppuAbaDj1qwIKbji7vO31K4FWE50g9h8KfjdM2ZHp1Y7ONDa
ZHWFJg0LbltdljzSDUqM3+9OVpWGabcEt895dAPDXE+lPg1peK+6IvJrfDfY
80Sm79xOaVgYP7MrlYy169hJp+MnpeFh2s6Y0Kc9QKuo2ntbqDT057ZL+djY
C9Z+KI3hHZGGelOSrWKaA+BkXO63ilFpeKCec/e4+QAIf5za9mBGGm6Ws8x6
7D8AJn0f0GR5ZODHXX83SFcMgAoT808blGRgypkoLd7zg8CD3V9y0FwGjj/T
W2UYOAQ+9vwbEj4nA889GHKfTBgC3Y3lQn/tZGDOuKOrdfEQMEFpxy2vycDz
/F8vnuMfBrSH7u2XI2Sg7PHolsWIYfBnK89UeKEMPB3+pdk1bARwrp+RPVYu
Ax8dl9eLSBoB2+SGd0jWyMDoV1uPWxWPgDecf4JetpP5RfldZVZGgFddtPDH
WRmYuLSsNnyVAda5r1v3R0MWPu0ciyjczwRnLssYRenKQrMvCT8nrZkg8hz/
lVO7ZKHa8xbc4MkE8/uZn9uNZeGX7RL0xPdMUCPzdSfbXhYqaY6U2vGygG/u
PjPRl7LQ6Y6ozL4MFtCyqhm1SZCFbhe69o4Ws8DIitWD9GRZmHEr2MDsHwuc
MfIoP/5VFt4dfNe/fYEFdjS+B9F/ZKGP/tKm24ANxr112/vqZOGmvC5m6zE2
SFUs9NFtkYV85RbKgzZsQHVozWockIXJDyv2ywWywezE6s1UDgq0c3l7mPjG
BulPX5Rf5qVAx1M91/vLSL+3c8PFPGEKDLwZ2vOggQ2aguGbs1QKJF7el1wg
2CBH3I3yWosC1yTYaukqE8AlayWLvY0Cp/gcVxduJsB6ywgzACjQfu9/uqu2
kX42/t2DrsMUmHxj49KTIwTw2NLETXegQAz2hcu4E0Cjzv6NmxMFWubyDGoF
EGDAYwwUXyMx198SjjsEOJUv6OsQQNbDFZSR/pQAwrZPKdkhJL5VGfOI9MvF
POuyee9R4KG6iRQV0k/rHDEYS35KgTxTkhI2WQRgjpY/mH1FPl/9fB/PDwK8
jTbfbPyWAi+0iJ+zKiSAVJvrxZF0CtxxxUVAsYr0y4GL3DtzKNDvBl9gaB0B
Quh339z7SYFRQisJ8U0EmLjypn1zBQXG6Y7/HOgmQKrIFl//Ggo8mlATJzFA
ANuM75SqRgqsD6njIIYJIGd+MHtNOwWWeZ3958siQO1cvZlrLwWGnYyU+zZK
gPBXF8bQMDne0KowaYIAe/ewH4iNUqBJu3uZ4TQB5vt8Nl+YpsCWLeb0x7ME
yAjjq/iySIE//hnURM0T4Mrm6IucXFToJqhTDhcJQKtR4jEToMKERF7B+CUC
tLilvUkUpcJbWw5Ffl4mQJTsDjgpTYWuE5bmrisEOPi9tN1QgQqvTVqcI/sZ
wGFj5vuERoXEwuZEsp8BuZxdlAFVKrR/EbahhsRXk5yz9bZQIV21e8T0f/c/
1fJPRPSoMPfetxVnMv6RuQq3gV1UyDp08uomMv8Pms+J/H1UqB9pDSMWCKBm
snFrzCEqzAp/eiNyjgDP3JtEXY5T4ZErNRK6MwTgi7vD3n+aChMNmcr+k6Re
fun9UbShwjGerpSLYwToG+v/MOVAhfh0RuYkyecJ+Sfhf5yp0Puer/G6EQIU
GBpefudGha3XHTym+wmg6TJh5O9DhUeNPxxwItfr9dM360/dpEK5e8/LgttI
PRUc51EPI/mrvs9n8I8APiMcfdyRVOj+elr6xV8CWBjYJHyNpULtOO3uXSUE
KHUUCYpIJPkk9AuD80m9PfxpbZ9Khd9fieU55RBArFdeQSqXCic3mu7d8J4A
AcK/5xn5VCjy2HFljtQrS9enuaiECj1YnzdfJfVcEdYU41ZHhSsBXbuMbhNg
W8Yd98MtVLjrJvvke18CJLfqnaR3U6GLq59R2jVSjxpPxOvYVFjwcHlrohUB
dtcfj9ASlIOTeoUP92oQ4OMSh5OguBz8ovZ4uITcn/Ib0o17ZOWgnOUsnS1F
gFlvEb5HKnKQLtFfrz7PBhlrf98cg+T4w7q3XTAbKBn7nC83koOt4kZ7FL+w
QeT1jSDhqBx8kJaiej2BDZxL7iyaWsnBX37/toreZAMVJ0PPdE856MR/+rr8
LjaIjp44FRYgBz877y7lUGMDzvw3Oudvy8Eq8+Ga+7Js0CG2alz0sRykmUT0
xo2xwLPsn86un+Rg9CpDldQEFhDm1LfV6JeDxQkGz++NMcE3Ty6zAYYc7JXg
Pe7RwgSOrOp9r8flYPCh0DeiRUyAmy6piHDIQ4fD7+SPPWYCt88vhlhy8vDJ
H4F//JpM0GK17JJmKg/jL3u3vTvDAHdqK2wcLORh1bUd4i93M4DOwaemitby
8JbDy8v7aAzwQFtT676TPHQWGCn5NDQC9gjaTjmHysMFpyCluWsj4H1Oie/m
H/IQnvqbmeQxDE6pP3LuK5SHF4OuuU6dGgacidbnYsvl4XjPri+LOsPA6sHM
buF/8tB7k+YuvfEhIOqwkZM5Jg8lrNX/2FweAh4S98M+bFCAhiquJj2HBsH+
/04+UXusACO2flL0bO8DNx5953B9rgA9GtYTljl94G0OzTkzTgGa/HLsF4jq
A5ycY3t3fVSART+J3Np9fQDH3B89UqIAjw5P2Ukk94IduPTwtRkF2Bpj/+i1
fQ/QkNzOmXtWEYrEePKZ+ncCyjdF1/3r1kD3ywEHPIXqwaPrYVGa/9ZCs8kE
yXCl72i+8mNuWPta2HeG3bTh6w9ku+FvZ1fvWljokH/J3ygfabdRNaJG10JC
kZcvPhujkTen+me5leDez7pmZ1qKUITw4E3LNUrQKl+/Z0K2AlV1CnyXO64E