-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathOptProj_8.nb
More file actions
5264 lines (5235 loc) · 287 KB
/
OptProj_8.nb
File metadata and controls
5264 lines (5235 loc) · 287 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 11.3' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 288714, 5256]
NotebookOptionsPosition[ 287006, 5223]
NotebookOutlinePosition[ 287380, 5239]
CellTagsIndexPosition[ 287337, 5236]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
StyleBox[
RowBox[{
RowBox[{
"\:0412\:0445\:043e\:0434\:043d\:044b\:0435", " ",
"\:0434\:0430\:043d\:043d\:044b\:0435"}], ";"}], "Subtitle"]], "Input",
CellLabel->"In[36]:=",ExpressionUUID->"4875e096-4b88-4d72-bf2b-8c136d0c10f4"],
Cell[BoxData[{
RowBox[{
RowBox[{"\[Epsilon]", "=", "0.001"}], ";",
RowBox[{"\[Alpha]", "=", "10"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"f", "[",
RowBox[{"{",
RowBox[{"x_", ",", "y_"}], "}"}], "]"}], ":=",
RowBox[{
RowBox[{"\[Alpha]",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["x", "2"], "-", "y"}], ")"}], "2"]}], "+",
SuperscriptBox[
RowBox[{"(",
RowBox[{"x", "-", "1"}], ")"}], "2"]}]}], ";", " ",
RowBox[{"X0", "=",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",",
RowBox[{"-", "2"}]}], "}"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"g1", "[",
RowBox[{"{",
RowBox[{"x_", ",", "y_"}], "}"}], "]"}], ":=",
RowBox[{
RowBox[{"3",
FractionBox[
SuperscriptBox[
RowBox[{"(", "x", ")"}], "2"], "4"]}], "+",
RowBox[{"5",
FractionBox[
RowBox[{"(", "x", ")"}], "4"]}], "-", "2", "-", "y"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"g2", "[",
RowBox[{"{",
RowBox[{"x_", ",", "y_"}], "}"}], "]"}], ":=",
RowBox[{
RowBox[{"3",
FractionBox[
SuperscriptBox[
RowBox[{"(", "x", ")"}], "2"], "4"]}], "+",
RowBox[{"5",
FractionBox[
RowBox[{"(", "x", ")"}], "4"]}], "-", "2", "-", "y"}]}], ";"}],
"\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{
RowBox[{
RowBox[{"f", "[",
RowBox[{"{",
RowBox[{"x_", ",", "y_"}], "}"}], "]"}], ":=",
RowBox[{
RowBox[{"10",
SuperscriptBox["x", "2"]}], "+",
RowBox[{"7",
SuperscriptBox["y", "2"]}], "-",
RowBox[{"4", "x", " ", "y"}], "-",
RowBox[{"4", "*",
SuperscriptBox["5",
FractionBox["1", "2"]],
RowBox[{"(",
RowBox[{
RowBox[{"5", "x"}], "-", " ", "y"}], ")"}]}], "-", "16"}]}], ";",
" ",
RowBox[{"X0", "=",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"-",
SuperscriptBox["5",
FractionBox["1", "2"]]}]}], "}"}]}], ";"}],
"*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"antiGradF", "[",
RowBox[{"{",
RowBox[{"x1_", ",", "x2_"}], "}"}], "]"}], ":=",
RowBox[{
RowBox[{"-",
RowBox[{"Grad", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"{",
RowBox[{"x", ",", "y"}], "}"}], "]"}], ",",
RowBox[{"{",
RowBox[{"x", ",", "y"}], "}"}]}], "]"}]}], "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x", "\[Rule]", "x1"}], ",",
RowBox[{"y", "\[Rule]", "x2"}]}], "}"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"NormGradF", "[",
RowBox[{"{",
RowBox[{"x_", ",", "y_"}], "}"}], "]"}], ":=",
RowBox[{"Norm", "[",
RowBox[{"antiGradF", "[",
RowBox[{"{",
RowBox[{"x", ",", "y"}], "}"}], "]"}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"uniformMesh", "[",
RowBox[{"left_", ",", "right_", ",", "n_"}], "]"}], ":=",
RowBox[{"Table", "[",
RowBox[{"i", ",",
RowBox[{"{",
RowBox[{"i", ",", "left", ",", "right", ",",
RowBox[{
RowBox[{"(",
RowBox[{"right", "-", "left"}], ")"}], "/", "n"}]}], "}"}]}],
"]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Clear", "[",
RowBox[{"\[Kappa]", ",", "ka", ",", " ", "kap", ",", "X"}], "]"}],
";"}]}], "Input",
CellChangeTimes->{{3.8144176115803785`*^9, 3.814417704674153*^9}, {
3.814417831082449*^9, 3.814417843529972*^9}, {3.8144187524749937`*^9,
3.814418756950157*^9}, 3.814419869758029*^9, {3.8144206626083736`*^9,
3.814420663247861*^9}, {3.8144224363233614`*^9, 3.8144224414055777`*^9}, {
3.81442437183788*^9, 3.8144243725285673`*^9}, {3.814451756113282*^9,
3.8144517610914593`*^9}, 3.8144574498948064`*^9, 3.8144579128711658`*^9,
3.814458034650313*^9, {3.8144953039381666`*^9, 3.8144953321732335`*^9}, {
3.814497501270034*^9, 3.8144975193494854`*^9}, {3.815584004355218*^9,
3.815584010598024*^9}, 3.8155840422026052`*^9, {3.8156225060843*^9,
3.8156225092917547`*^9}, {3.815622826151161*^9, 3.8156228635451736`*^9},
3.815623406891684*^9, 3.815624129908512*^9, 3.815670807432441*^9, {
3.815672150813225*^9, 3.815672151359166*^9}, {3.815673488318817*^9,
3.8156735387133102`*^9}, {3.81570178158428*^9, 3.8157017911445265`*^9}, {
3.81570317379222*^9, 3.8157031818028955`*^9}, {3.8157082274709673`*^9,
3.8157082337362795`*^9}, 3.8157082690382757`*^9, 3.815708439531949*^9,
3.8157085227062993`*^9, 3.8157088376780767`*^9, 3.8157089012746754`*^9,
3.8167914464005423`*^9, {3.8167917563519373`*^9, 3.8167917603356133`*^9}, {
3.8180422838977065`*^9, 3.8180423626568427`*^9}, {3.8180433552427425`*^9,
3.818043363203184*^9}, {3.81805023743921*^9, 3.8180503403610296`*^9}, {
3.818050427933894*^9, 3.818050429966302*^9}, {3.818050795637434*^9,
3.818050813565245*^9}, {3.8180510789341617`*^9, 3.818051083684475*^9}, {
3.8180529274389553`*^9, 3.8180529277125835`*^9}, {3.8181770777622476`*^9,
3.8181770840410223`*^9}, {3.8181771185114117`*^9, 3.8181771462876835`*^9},
3.8181771886240835`*^9, {3.818177226122775*^9, 3.8181772396341567`*^9},
3.8181773694639883`*^9, {3.8181774992310824`*^9, 3.818177526692631*^9},
3.818177712521224*^9, 3.818178811095261*^9, {3.818179924522257*^9,
3.818179932010539*^9}, {3.8181809445825872`*^9, 3.8181809586669197`*^9}, {
3.818180991940564*^9, 3.8181809997254763`*^9}, 3.818181063293245*^9, {
3.8181811222649164`*^9, 3.8181811259995823`*^9}},
CellLabel->"In[37]:=",ExpressionUUID->"4e900a44-263a-4ba8-81f7-8d6975d0ac87"],
Cell[BoxData[
StyleBox[
RowBox[{
RowBox[{
"\:041c\:0435\:0442\:043e\:0434", " ",
"\:0432\:043d\:0443\:0442\:0440\:0435\:043d\:043d\:0438\:0445", " ",
"\:0448\:0442\:0440\:0430\:0444\:043d\:044b\:0445", " ",
"\:0444\:0443\:043d\:043a\:0446\:0438\:0439"}], ";"}],
"Subtitle"]], "Input",
CellChangeTimes->{{3.814418026989113*^9, 3.814418054035918*^9}, {
3.815583983294492*^9, 3.8155839895765676`*^9}, {3.8167875837740808`*^9,
3.8167875911805763`*^9}, {3.818041368308462*^9, 3.8180413780385113`*^9}},
CellLabel->"In[45]:=",ExpressionUUID->"d8516532-8243-4b7c-917a-9a191fee31bb"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"points", "=",
RowBox[{"{", "X0", "}"}]}], ";",
RowBox[{"fArray", "=",
RowBox[{"{", "}"}]}], ";",
RowBox[{"norm", "=",
RowBox[{"{", "}"}]}], ";",
RowBox[{"X", "=", "X0"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r", "=", "1"}], ";",
RowBox[{"k1", "=", "0.5"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"f1", "[",
RowBox[{"{",
RowBox[{"x_", ",", "y_"}], "}"}], "]"}], ":=",
RowBox[{
RowBox[{"f", "[",
RowBox[{"{",
RowBox[{"x", ",", "y"}], "}"}], "]"}], "-",
FractionBox["r",
RowBox[{"g1", "[",
RowBox[{"{",
RowBox[{"x", ",", "y"}], "}"}], "]"}]]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"antiGradF1", "[",
RowBox[{"{",
RowBox[{"x1_", ",", "x2_"}], "}"}], "]"}], ":=",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{"Grad", "[",
RowBox[{
RowBox[{"f1", "[",
RowBox[{"{",
RowBox[{"x", ",", "y"}], "}"}], "]"}], ",",
RowBox[{"{",
RowBox[{"x", ",", "y"}], "}"}]}], "]"}]}], "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x", "\[Rule]", "x1"}], ",",
RowBox[{"y", "\[Rule]", "x2"}]}], "}"}]}], "//", "N"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"NormGradF1", "[",
RowBox[{"{",
RowBox[{"x_", ",", "y_"}], "}"}], "]"}], ":=",
RowBox[{
RowBox[{"Norm", "[",
RowBox[{"antiGradF1", "[",
RowBox[{"{",
RowBox[{"x", ",", "y"}], "}"}], "]"}], "]"}], "//", "N"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"While", "[",
RowBox[{
RowBox[{"r", ">", "\[Epsilon]"}], " ", ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{"norm2", "=",
RowBox[{"{",
RowBox[{"NormGradF1", "[", "X", "]"}], "}"}]}], ";",
RowBox[{"\[Kappa]Arr", "=",
RowBox[{"{", "1", "}"}]}], ";",
RowBox[{"p", "=",
RowBox[{"antiGradF1", "[", "X", "]"}]}], ";",
RowBox[{"\[Kappa]x", "=",
SuperscriptBox["10",
RowBox[{"-", "3"}]]}], ";", "\[IndentingNewLine]",
RowBox[{"While", "[",
RowBox[{
RowBox[{
RowBox[{"norm2", "[",
RowBox[{"[",
RowBox[{"-", "1"}], "]"}], "]"}], "\[GreaterEqual]", "\[Epsilon]"}],
",", "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Kappa]Arr", "=",
RowBox[{"Append", "[",
RowBox[{"\[Kappa]Arr", ",", "\[Kappa]x"}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"\[Omega]Array", "=",
RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]",
RowBox[{"XOld", "=", "X"}], ";", "\[IndentingNewLine]",
RowBox[{"X", "+=",
RowBox[{
RowBox[{"\[Kappa]Arr", "[",
RowBox[{"[",
RowBox[{"-", "1"}], "]"}], "]"}], " ", "p"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"\[Omega]Array", "=",
RowBox[{"Append", "[",
RowBox[{"\[Omega]Array", ",",
RowBox[{"antiGradF1", "[", "X", "]"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"p", "=",
RowBox[{"antiGradF1", "[", "X", "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"norm2", "=",
RowBox[{"Append", "[",
RowBox[{"norm2", ",",
RowBox[{"NormGradF1", "[", "X", "]"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"If", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"f1", "[", "XOld", "]"}], "-",
RowBox[{"f1", "[", "X", "]"}]}], "<",
RowBox[{"\[Omega]Array", "[",
RowBox[{"[",
RowBox[{"-", "1"}], "]"}], "]"}]}], ",",
RowBox[{"\[Kappa]x", "=",
RowBox[{"2", "*", "\[Kappa]x"}]}], ",",
RowBox[{"\[Kappa]x", "=", "\[Kappa]x"}]}], "]"}], ";"}]}], "]"}],
";", "\[IndentingNewLine]",
RowBox[{"r", "=",
RowBox[{"k1", " ", "r"}]}], ";", "\[IndentingNewLine]",
RowBox[{"norm", "=",
RowBox[{"Append", "[",
RowBox[{"norm", ",",
RowBox[{"Norm", "[",
RowBox[{"X", "-",
RowBox[{"points", "[",
RowBox[{"[",
RowBox[{"-", "1"}], "]"}], "]"}]}], "]"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"points", "=",
RowBox[{"Append", "[",
RowBox[{"points", ",", "X"}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"fArray", "=",
RowBox[{"Append", "[",
RowBox[{"fArray", ",",
RowBox[{"f", "[", "X", "]"}]}], "]"}]}], ";"}]}],
"\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{
RowBox[{"Print", "[",
RowBox[{
RowBox[{"ToString", "[", "it", "]"}], "<>",
"\"\<: \:043d\:043e\:0440\:043c\:0430 \:0433\:0440\:0430\:0434\:0438\
\:0435\:043d\:0442\:0430 = \>\"", "<>",
RowBox[{"ToString", "[",
RowBox[{"Round", "[",
RowBox[{
RowBox[{"norm", "[",
RowBox[{"[",
RowBox[{"-", "1"}], "]"}], "]"}], ",",
RowBox[{"0.01", "\[Epsilon]"}]}], "]"}], "]"}]}], "]"}], ";"}],
"*)"}]}], "\[IndentingNewLine]",
RowBox[{"\"\<\:0420\:0435\:0437\:0443\:043b\:044c\:0442\:0430\:0442 \:043f\
\:043e\:043b\:0443\:0447\:0435\:043d \:0437\:0430 \>\"", "<>",
RowBox[{"ToString", "[", " ",
RowBox[{
RowBox[{"Length", "[", "points", "]"}], "-", "1"}], "]"}], "<>", " ",
"\"\< \:0438\:0442\:0435\:0440.: X = \>\"", "<>",
RowBox[{"ToString", "[", "X", "]"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"CP0", "=",
RowBox[{"{",
RowBox[{
RowBox[{"-", "3"}], ",",
RowBox[{"-", "3"}]}], "}"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"CP", "=",
RowBox[{"ContourPlot", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"{",
RowBox[{"x", ",", "y"}], "}"}], "]"}], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"CP0", "[",
RowBox[{"[", "1", "]"}], "]"}], ",", "3"}], "}"}], ",",
RowBox[{"{",
RowBox[{"y", ",",
RowBox[{"CP0", "[",
RowBox[{"[", "2", "]"}], "]"}], ",", "3"}], "}"}], ",",
RowBox[{"Contours", "\[Rule]",
RowBox[{
RowBox[{"uniformMesh", "[",
RowBox[{
RowBox[{"fArray", "[",
RowBox[{"[", "1", "]"}], "]"}], ",",
RowBox[{"0.8",
RowBox[{"(",
RowBox[{
RowBox[{"f", "[", "CP0", "]"}], "-",
RowBox[{"fArray", "[",
RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], ",", "10"}], "]"}],
"~", "Join", "~",
RowBox[{"uniformMesh", "[",
RowBox[{
RowBox[{"fArray", "[",
RowBox[{"[", "2", "]"}], "]"}], ",",
RowBox[{"0.8",
RowBox[{"(",
RowBox[{
RowBox[{"fArray", "[",
RowBox[{"[", "1", "]"}], "]"}], "-",
RowBox[{"fArray", "[",
RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}], ",", "2"}], "]"}],
"~", "Join", "~",
RowBox[{"fArray", "[",
RowBox[{"[",
RowBox[{"1", ";;", "4"}], "]"}], "]"}], "~", "Join", "~",
RowBox[{"{",
RowBox[{
RowBox[{"fArray", "[",
RowBox[{"[", "3", "]"}], "]"}], ",",
RowBox[{"fArray", "[",
RowBox[{"[", "4", "]"}], "]"}]}], "}"}]}]}], ",",
RowBox[{"ColorFunction", "\[Rule]",
RowBox[{"(",
RowBox[{
RowBox[{"If", "[",
RowBox[{
RowBox[{"#", "<", "0"}], ",",
RowBox[{"Darker", "[",
RowBox[{"Blue", ",",
RowBox[{"Abs", "[",
RowBox[{"0.5", "#"}], "]"}]}], "]"}], ",",
RowBox[{"Lighter", "[",
RowBox[{"Orange", ",",
RowBox[{"0.5", "#"}]}], "]"}]}], "]"}], "&"}], ")"}]}], ",",
RowBox[{"ColorFunctionScaling", "\[Rule]", "True"}], ",",
RowBox[{"ContourStyle", "\[Rule]", "Black"}], ",",
RowBox[{"FrameLabel", "\[Rule]", "Automatic"}], ",",
RowBox[{"PlotLabel", "\[Rule]",
RowBox[{"Style", "[",
RowBox[{
RowBox[{"Row", "[",
RowBox[{"{",
RowBox[{
RowBox[{"Style", "[",
RowBox[{"\"\<f(x,y)\>\"", ",", "Italic"}], "]"}], ",",
"\"\< = \>\"", ",",
RowBox[{"f", "[",
RowBox[{"{",
RowBox[{"x", ",", "y"}], "}"}], "]"}]}], "}"}], "]"}], ",",
"Large"}], "]"}]}], ",",
RowBox[{"FrameStyle", "\[Rule]", "Thick"}], ",",
RowBox[{"ImageSize", "\[Rule]", "500"}], ",",
RowBox[{"Epilog", "\[Rule]",
RowBox[{"{",
RowBox[{"Red", ",",
RowBox[{"Thickness", "[", "0.008", "]"}], ",",
RowBox[{"Line", "[", "points", "]"}], ",",
RowBox[{"Darker", "[", "Blue", "]"}], ",",
RowBox[{"PointSize", "[", "0.015", "]"}], ",",
RowBox[{"Point", "[", "points", "]"}], ",", "Black"}], "}"}]}]}],
"]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"RP", "=",
RowBox[{"RegionPlot", "[",
RowBox[{
RowBox[{
RowBox[{"g1", "[",
RowBox[{"{",
RowBox[{"x", ",", "y"}], "}"}], "]"}], "\[LessEqual]", "0"}], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "5"}], ",", "5"}], "}"}], ",",
RowBox[{"{",
RowBox[{"y", ",",
RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{"Show", "[",
RowBox[{"CP", ",", "RP"}], "]"}], "\[IndentingNewLine]",
RowBox[{"ListLogPlot", "[",
RowBox[{"norm", ",",
RowBox[{"PlotRange", "\[Rule]", "All"}], ",",
RowBox[{"Mesh", "\[Rule]", "Full"}], ",",
RowBox[{"MeshStyle", "\[Rule]",
RowBox[{"PointSize", "[", "Large", "]"}]}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"Blue", ",", "Thick"}], "}"}]}], ",",
RowBox[{"AxesStyle", "\[Rule]", "Thick"}], ",",
RowBox[{"LabelStyle", "\[Rule]", "Large"}], ",",
RowBox[{"AxesLabel", "\[Rule]",
RowBox[{"{",
RowBox[{
"\"\<k, \:0438\:0442\:0435\:0440\:0430\:0446\:0438\:044f\>\"", ",",
"\"\<||\!\(\*SubscriptBox[\(X\), \(k\)]\)-\!\(\*SubscriptBox[\(X\), \(k \
+ 1\)]\)||\>\""}], "}"}]}]}], "]"}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.810533061191162*^9, 3.81053307353201*^9}, {
3.810533123832714*^9, 3.810533145733818*^9}, {3.8105332147069225`*^9,
3.8105332729898343`*^9}, {3.8105345511778355`*^9, 3.810534552880566*^9},
3.8105346804448533`*^9, {3.810534721581052*^9, 3.81053474239587*^9}, {
3.810814442068019*^9, 3.8108144903976717`*^9}, {3.8119868201130695`*^9,
3.8119869325778446`*^9}, {3.8119869801217103`*^9,
3.8119870185174212`*^9}, {3.81198711212317*^9, 3.8119871168724732`*^9}, {
3.8119871724259534`*^9, 3.8119871835778303`*^9}, {3.8119872189223647`*^9,
3.811987297262747*^9}, {3.8119873291205764`*^9, 3.8119873665744452`*^9},
3.8119874073452907`*^9, {3.811987456565728*^9, 3.8119874965777345`*^9}, {
3.81198761814872*^9, 3.81198766313146*^9}, {3.811987695052122*^9,
3.8119877122451572`*^9}, {3.8119878395757446`*^9,
3.8119878446312294`*^9}, {3.811987897467972*^9, 3.811987919017361*^9}, {
3.811988129365811*^9, 3.8119881327577424`*^9}, {3.8119885288675117`*^9,
3.811988531168332*^9}, {3.8119885679021263`*^9, 3.8119886006505747`*^9}, {
3.8119890069214277`*^9, 3.8119890099682817`*^9}, {3.8119895745004663`*^9,
3.811989607307784*^9}, {3.8119902098626304`*^9, 3.8119902155683956`*^9}, {
3.8119905152070484`*^9, 3.811990515538163*^9}, {3.813147118545315*^9,
3.813147160340735*^9}, {3.813147192425458*^9, 3.813147233429042*^9}, {
3.813147355354932*^9, 3.8131473780628743`*^9}, {3.813147411367484*^9,
3.8131474800893984`*^9}, {3.813147514583333*^9, 3.8131476628047433`*^9}, {
3.813147699524295*^9, 3.813147715486394*^9}, {3.8131479724802127`*^9,
3.8131479862889566`*^9}, {3.813148032815529*^9, 3.8131480632023387`*^9},
3.813148299661435*^9, {3.8131487391892405`*^9, 3.8131487961188684`*^9}, {
3.813148928233374*^9, 3.813148928689145*^9}, 3.813148972552741*^9, {
3.813153042549004*^9, 3.813153152542656*^9}, {3.813207737626085*^9,
3.81320780746386*^9}, {3.814418134456191*^9, 3.81441821074715*^9}, {
3.8144183488269215`*^9, 3.8144183823744745`*^9}, {3.8144184188115063`*^9,
3.8144184514259434`*^9}, {3.814418592827716*^9, 3.814418598668681*^9}, {
3.814418636013549*^9, 3.814418661234069*^9}, {3.81441869837628*^9,
3.8144187289450126`*^9}, {3.81441876729519*^9, 3.814418805503209*^9}, {
3.8144188467073803`*^9, 3.8144188546779394`*^9}, {3.814418897530778*^9,
3.8144191424385414`*^9}, {3.8144192753843355`*^9,
3.8144192768793173`*^9}, {3.8144193164550343`*^9, 3.814419342837674*^9}, {
3.814419695761606*^9, 3.814419719318907*^9}, {3.8144199661479826`*^9,
3.81441996781555*^9}, {3.814420192075407*^9, 3.8144201983817234`*^9}, {
3.8144204888832235`*^9, 3.8144205642808447`*^9}, {3.8144222724813433`*^9,
3.814422274147279*^9}, 3.815584054862652*^9, {3.8155840986696644`*^9,
3.8155841244678445`*^9}, {3.8155841835830507`*^9,
3.8155841887163677`*^9}, {3.815584241836976*^9, 3.8155842494788675`*^9}, {
3.815622365280916*^9, 3.815622651329877*^9}, {3.8156226862215204`*^9,
3.8156227657537093`*^9}, 3.815622869663805*^9, {3.815623011828547*^9,
3.8156231494091887`*^9}, {3.8156232270284376`*^9,
3.8156232271979847`*^9}, {3.815623259879632*^9, 3.8156232973205147`*^9}, {
3.815623346707662*^9, 3.815623351506852*^9}, {3.8156234575210133`*^9,
3.8156234803190002`*^9}, {3.8156235186734796`*^9, 3.815623523881549*^9},
3.815623558409196*^9, {3.815623592355692*^9, 3.815623609157718*^9}, {
3.815623795528159*^9, 3.8156238222561836`*^9}, {3.8156238765229883`*^9,
3.8156239528418217`*^9}, {3.815624042032556*^9, 3.8156240522621922`*^9},
3.8156241894222894`*^9, {3.8156247745617847`*^9, 3.8156247774061766`*^9}, {
3.815701842903325*^9, 3.815701845965103*^9}, {3.815702115753647*^9,
3.8157021245685263`*^9}, {3.815702709245982*^9, 3.8157027119038973`*^9},
3.815703089104004*^9, {3.8167877498717995`*^9, 3.816787755182579*^9}, {
3.8167878304744687`*^9, 3.8167880715209503`*^9}, {3.8167881025746965`*^9,
3.816788245177148*^9}, {3.8167886241359997`*^9, 3.8167886483384047`*^9}, {
3.8167888340787945`*^9, 3.8167888591549325`*^9}, {3.816788929640876*^9,
3.816788937115778*^9}, {3.8167890083741655`*^9, 3.8167891199714966`*^9}, {
3.8167891515551767`*^9, 3.816789360634778*^9}, {3.8167900695894003`*^9,
3.816790097321756*^9}, 3.816790132007251*^9, {3.8167901999534845`*^9,
3.816790316507815*^9}, {3.816790387245324*^9, 3.816790453403083*^9}, {
3.8167905199310675`*^9, 3.8167905204071684`*^9}, {3.816790566444069*^9,
3.8167906089994154`*^9}, {3.8167906610707827`*^9,
3.8167907085484176`*^9}, {3.8167907700286207`*^9,
3.8167907709092007`*^9}, {3.8167908024893093`*^9, 3.816790843864199*^9}, {
3.816791508936448*^9, 3.816791584658102*^9}, {3.8167917048042936`*^9,
3.816791708137205*^9}, {3.816791780409433*^9, 3.8167917806348295`*^9}, {
3.8167919128679333`*^9, 3.816791935853917*^9}, {3.816791976428941*^9,
3.8167920229912024`*^9}, {3.8167920636903653`*^9, 3.8167920836144915`*^9},
3.816834105523409*^9, {3.8168345968113947`*^9, 3.8168345975230484`*^9}, {
3.8168352171443663`*^9, 3.8168352590074053`*^9}, {3.816835419325198*^9,
3.8168354195171924`*^9}, {3.8168354583884444`*^9, 3.816835487304014*^9}, {
3.816835569240302*^9, 3.8168355699198704`*^9}, {3.816835775479845*^9,
3.8168358162989492`*^9}, {3.8168359340276423`*^9, 3.816835934187215*^9}, {
3.816836286625003*^9, 3.8168362902527494`*^9}, 3.8168363976034884`*^9,
3.8168365794456887`*^9, {3.816836638174673*^9, 3.816836648269933*^9}, {
3.816836678548865*^9, 3.816836684775919*^9}, 3.816837353776015*^9, {
3.816837389816078*^9, 3.816837414645421*^9}, 3.816837446812475*^9,
3.8168375007659893`*^9, {3.8168378758836136`*^9, 3.8168378766565423`*^9}, {
3.8168380321130543`*^9, 3.816838032739025*^9}, 3.816841493339409*^9, {
3.8168415618119307`*^9, 3.8168416384141273`*^9}, 3.8168420549981127`*^9, {
3.8168448479376225`*^9, 3.816844872727245*^9}, {3.8169097985673523`*^9,
3.816909799479915*^9}, {3.8169098338599205`*^9, 3.816909851249588*^9}, {
3.816909887290177*^9, 3.8169099942531457`*^9}, {3.8169100557156863`*^9,
3.816910078625384*^9}, {3.816910139441648*^9, 3.8169101705274706`*^9}, {
3.816910294955522*^9, 3.816910295147009*^9}, {3.816911068588231*^9,
3.816911077697271*^9}, 3.816911191755046*^9, 3.816911308094124*^9, {
3.8169113567129126`*^9, 3.8169113598874245`*^9}, 3.8180420663327312`*^9, {
3.8180421333900604`*^9, 3.81804216114907*^9}, {3.8180423836258345`*^9,
3.8180424288920603`*^9}, {3.818042495351455*^9, 3.818042531961688*^9}, {
3.818042899509737*^9, 3.818042916183751*^9}, {3.8180510558341217`*^9,
3.8180511078497453`*^9}, {3.818051229822809*^9, 3.8180512352000923`*^9}, {
3.818051577189833*^9, 3.8180516054402103`*^9}, {3.8180517697677574`*^9,
3.8180518023602715`*^9}, {3.8180518470197144`*^9,
3.8180518519959264`*^9}, {3.8180521246272907`*^9, 3.818052288131179*^9}, {
3.818052343979202*^9, 3.81805237085194*^9}, {3.8180524127907367`*^9,
3.818052446460063*^9}, {3.818052498620549*^9, 3.8180525551006923`*^9}, {
3.818052614519293*^9, 3.818052653233596*^9}, {3.8180526848271933`*^9,
3.8180527310182047`*^9}, 3.81805282972845*^9, {3.818052934472644*^9,
3.818052936728073*^9}, {3.818053274296485*^9, 3.8180533145901794`*^9}, {
3.818053544089202*^9, 3.8180535648905125`*^9}, {3.818053597505268*^9,
3.8180536301186905`*^9}, {3.8180538362583294`*^9, 3.8180538392559977`*^9},
3.818053885714017*^9, {3.818054129589248*^9, 3.818054194793803*^9}, {
3.8180542251496277`*^9, 3.8180542442529078`*^9}, 3.818054461098915*^9, {
3.818054705680176*^9, 3.818054744346092*^9}, 3.818054884713348*^9, {
3.818054922304573*^9, 3.8180549921498013`*^9}, {3.8180550310258694`*^9,
3.8180550670460377`*^9}, 3.8180551335714417`*^9, 3.818055400885419*^9,
3.818055597982271*^9, 3.8180913997733564`*^9, {3.818177460245723*^9,
3.8181774941560183`*^9}, {3.818177885862982*^9, 3.818177918625879*^9}, {
3.8181779942858224`*^9, 3.8181780212146235`*^9}, 3.8181780983014445`*^9, {
3.8181781490075855`*^9, 3.8181782199238577`*^9}, {3.8181783000093966`*^9,
3.8181783025426226`*^9}, {3.8181784448628416`*^9,
3.8181784452126675`*^9}, {3.818178610524395*^9, 3.818178678272319*^9}, {
3.818178722588503*^9, 3.818178770088095*^9}, {3.818178885287995*^9,
3.818178904803875*^9}, {3.818178938915132*^9, 3.818178968355048*^9},
3.818179126591545*^9, {3.8181797047236195`*^9, 3.8181798369445257`*^9}, {
3.8181799171412582`*^9, 3.8181799178297806`*^9}, {3.8181799866032925`*^9,
3.8181799900180645`*^9}, {3.8181805900589347`*^9,
3.8181805988816924`*^9}, {3.8181811353077416`*^9, 3.8181811637210536`*^9},
3.8181812031019955`*^9, {3.8181813359376774`*^9, 3.8181813750173225`*^9}, {
3.8181814091046124`*^9, 3.818181557551093*^9}, {3.8181817534714065`*^9,
3.8181817736139727`*^9}, {3.8181820132599754`*^9,
3.8181820134592333`*^9}, {3.8181821353641195`*^9, 3.8181821388181057`*^9},
3.818209579038704*^9, {3.8182099216920443`*^9, 3.818209947937258*^9}, {
3.818210219591868*^9, 3.8182102234034634`*^9}, {3.8182105848196692`*^9,
3.8182106484733906`*^9}, {3.8182108419662933`*^9, 3.818210855359331*^9}, {
3.8182110051803155`*^9, 3.818211014849928*^9}, {3.818211193609723*^9,
3.8182111953280687`*^9}, {3.8182112352093854`*^9,
3.8182112361777763`*^9}, {3.8182114078354926`*^9, 3.818211415951321*^9}, {
3.8182115065413404`*^9, 3.8182115160390835`*^9}, {3.818211741811974*^9,
3.8182117430148134`*^9}, {3.818212123381611*^9, 3.8182121237974625`*^9}},
CellLabel->"In[46]:=",ExpressionUUID->"b0d402cc-7b6a-4ae8-94c8-d8e8b758de35"],
Cell[BoxData["\<\"\:0420\:0435\:0437\:0443\:043b\:044c\:0442\:0430\:0442 \
\:043f\:043e\:043b\:0443\:0447\:0435\:043d \:0437\:0430 10 \:0438\:0442\:0435\
\:0440.: X = {0.998153, 0.996361}\"\>"], "Output",
CellChangeTimes->{
3.8181816796511564`*^9, {3.8181817675845356`*^9, 3.818181776561621*^9},
3.8181818439731884`*^9, 3.8181820183390713`*^9, 3.818182200088378*^9,
3.8182099599331293`*^9, 3.8182102306076484`*^9, 3.8182106964134045`*^9,
3.818210863776381*^9, 3.8182109745507507`*^9, {3.8182110193048153`*^9,
3.8182110297457404`*^9}, 3.81821120025611*^9, 3.8182114294669213`*^9,
3.8182116851717763`*^9, 3.818211768746947*^9, 3.8182121489332294`*^9,
3.818212229749511*^9, 3.8182122808576946`*^9, 3.8182124199956827`*^9},
CellLabel->"Out[52]=",ExpressionUUID->"66b3053f-82d3-48ca-b1ab-f22a63eadbe8"],
Cell[BoxData[
GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJyEfXVcVUHzN7exu8VW7MAWdY+N3d2KiordYnd3YGEXdmCBnrXFRsUOpJt7
L90vD/g953fmPrzP/Wc/37s5e3ZnZndndiuPm9FvgtrKyiq4iJXVf8LqXXdV
67pLy62yf9a8239gNZWEf92a9uPWtFQRuEZ2+jgJ/86Oj5Dw32z8Q8I54R0v
YN+ceAb8NSe/hKvmlC/h7zn1S9ghp32CMr1WwqAHIegBBj3AoAcY9ACDHmU/
3fECBj3AoAcY9ACDHmDQo0yvFXKjg4agBxj0AIMeYNCj/M53vIBBDzDoAQY9
wKAHGPQo02uF3L4DpYOGoAcY9ACDHuU4veMFDHqAQQ8w6AEGPcCgR5leK+Q2
juh3oHTQEPQAgx7lPLvjBQx6gEEPMOgBBj3AoEeZXivkNg/oOKLfgdJBQ9Cj
5BN3vIBBDzDoAQY9wKAHGPQo02sFwpcotpjXdF7QcUW/C6ULmIagFxj0AoNe
YNALDHqBQa8yvVYgfJdiC75F5z2dN3Tc0e9G6VLyeTlU8vs7Xkp+f8dLye/v
eCn5/R0vJb9Heq2grMeaYgu+TPka5Qt0XtFxSb8bpQuYhqAXGPQCg15g0KtM
rxWI3KTYQu5Qvk35HuUbdN7RcUm/G6ULmIagFxj0AoNeZXqtQPQCii3kKpVL
lK9Tvkj5Cp13dFzS70bpAqYh6AUGvcp0WkFZnzXFFnoDlbtUblG+T/km5St0
3tFxSb8bpQuYhqBXmV4rEL2OYgu9iOoVVC5TuUblAuWblK/QeUfHJf1ulC5g
GoJeordSbKH3Ub2J6h1UblO5R+UC5ZuUr9B5R8cl/W6ULmV6OVSOZ1lPx/9k
/SGQ9YdA1h8CWX9YyHkqB6mcoHyU8hk6D+k4pd+R0klD2+z4wH96hUkK8T8N
Q7LreyXSfPR/YBq+ywkZMPLjf+Sn6YBpWDknvYTV2XQlifgf5QOjfGCUD0zD
nP40SRjl43+UD4zygWmI/BmZ//klSvmBkR8Y+YBpeCd7uGSIHjmhVD4wygdG
+cAoHxjlAqP8nGGpFlA+MMoHRn5g5M9O1lUv5QdGfmDkB0Y7cknPQQ8wvifF
mNcYJ4gHRjy+M+LRP8CoP4cutVQ/MOoDRvnAKB8Y5QMry88QleVniMryM0Rl
+RmisvwMUVl+hoj+R4j6gFEfMOqj8eBzuc07Ok9yq5eGynWdzFcoX0I61E/T
I57yATpvc6OL1kP5HV1HUT6J/ylfQ/sQT/kS5SP0O6B9lE7aT5ArqIfyZ6Xc
ueNF+TT+p3xSOV+gl5gYHSdIl9s4oesX+h3peob2I+JRL13X5CYn0F76P/KB
/+Q2ryDvgUEfHfd0vULHIV2/0HFA1zO0ncBIB4z2U3qRjvIFpX5qIvsw8ryl
6xE6jxCP9gPj+9B+p3KVtpPKPSpHUT7oQTrQAwx6gEEPXW9QeYx40AMMeug4
of0OjHZSOlAe/qfrIyp/6fqBynu6nqDyH/FoP9UHIK9BD+JBDzDoAaahkk6V
ALmm1BdUEga9wKCXrh8QrxyPWkE5/rQSfZQeYNADjO8BDPqAQRew8rtqJfqU
+olKwqAPGPRB/wZ9iAd9VD9HPNFvBKLPCETfEYg+IxB9R1o/IB70IR70A2N8
QR8C/wIGvwIGvwLG/AZGeehHlAeM8oBRHrCSr6lJeRmisrwMUVlehqgsL0Ok
fBLfB98F5QOjfOV3u+NF5RyVC8DKfXlZr6BynMpFKkdoeionqVzJTY4insp7
uo+G/zFfKMa4o3qCcv/CRPadTFJ6jEMql9E/lH/R/RLEIz8wxjswysP8Rn5g
5AdGfmAy/qX8wGT8S/yKyl3g3MYFlcu5jUuqR+M7ULmd2zhGeuU+lInlNs5z
+87ACKncp981t3mIeDov6X4o1ReofkD3E+k6l8or8Hel3NMKPbLT/RVjs8vx
tAgrZKf7xIDvZuePlv5HfuC07HaEMOCc5pkljPxIh/zAe7LHVYKIfEgPTEOk
d/4PvJUspQdGOmCk35kdWv0bv+n/0msEZXkaAfmAkT6bnGoGKT0w0gPXzqFb
RJgz3kLFxzn9KdEPjHj0F/IhHt8BGPFIj/8R/q//O+fUL/0PjPic8WMW8T/a
B4z203h8T7QP8fgf+GbO97LASIf68T++LzDi8Z1RP+JpiHS5/Y/yduR8Vwnj
u6J8xCMfcG4h8s/MCf/N73RpPAKjPmCUD4zygFEujcf4Rn3Z3ZmpksYrMOIx
vlE/4lEeMOqj8ciP8nL4k07CdH4gHu2mGOkhDzE+wXeBwfcxXsEPKX9CPoxH
5fo91EKvQH5gjE+EyE/nEeQH/kf7MJ5RH10/YxyiPqTH/0gPTNeV+F+5vpDH
s/K8ziTFIx9djyIe5eG7oTy6/sR3Q/lIj3opP6b7vnQ+0PUgHW+IV84HlaTv
Iz30EDo+If9QPuLRDuRHeYhHeRifKA/6EHCOnmAtlY/0kNt0PiA/6kd+jNd/
6Tn4PzDmAcX/8nOMQ8RjPuA7AmNcUjmF+ijfB0Z+5MP8A0Z+iqFHoTwqxxBP
5QjGKzDkAeUHwGgPlbd0f43KRRoiHdqD9GgPMOKRHu0DnWgfMOIxn9E/ucll
pAPGfKHzHxj1UflJ5ROVg5i3KB/pUD4w0tF5SfXR/24XReUfPe8FP0kX6XwG
RnnAqIfKK+X+Srokn5Tn9zopHvOPzDdBed6uk8pHeqwzcc6q3MdWSRj15rYP
TvdB6TqW7kfS/Ty6Pwb6IbfovMhNT6PrFowT0K2cz9YSfeA3qA/9AUzj0T/A
6B+67qDzXrlPL/Mjypcon6PrHmCURzHV4ylfo+2gejpdVyE94mk94H/4n5ZH
16GIB1+n6zZglEf5GuV39LyB8h2q71B+pjy3M0v6DNpD+SgwDVEv/V+572mW
/of+QvUtpAOm+/3gX6Af45zuA1G9DKFSDzFJWKlfy+tT8DfUh/SoT2nnYmJU
/6L6PTDGDy0fWLlvIfNH5Mc8B1auf+T1Mfgf6gO/RX3Ayv7TCrtzyuXgp8iP
8pCflo/0RN8RiH4jEP4i5f+ZU56kPwGjPGCUB4z8quxxo5byAyM/MPIDIz/k
CvIDIz8w8gODD6HfUR4wygNGeowz8Hmqh1C9ie7j0HU9xVRPAV+h8xzzg2LK
nzA/0R5gus5GeoxbpKfyCOMX8cDK/BpBmV/W/4HBZzGelOfN1pI+DXmG/gYm
+blyf9Gao/8QD34MjPogP/H9p+e0T6ofGPUDg15g0AuM9gHjuwCjvagf7UU8
2gustCtQSe3FvEd7gdFeYLQXGO0FRnuB0V5g5bpaJbUX8WgvMNoLfQPtBV9F
e4HRXmC0FxjtVa4D73gBo73A9Bwe7UU82guM9oEvK8+DzCLVA6jdAtqHeLSP
6g3A1C4A7UO8cp/bTM6PQqX66boM8aif7nvSfRmanq4XgZEeGPoDxVSPonwR
8p7yLbruQ366LwOMcigfBF9DecAoDxjpwZeQXrlPgHOKdCk95C/SAyM9MNJD
3iI9MNIDE31fiqfylfo9UPn53/2hZPlI9X/qF0HlDNUTgem5P/QqYMgN5EP5
VN5QOwFq90D1NORHeVQ+UftvKp+gn+WUI5/b439g5EOorE8jKNuvlcpDSOtB
OVQ+Zif7P/aFVH+i9oFUP6L2ffje0BuovgK+C/4MjHjQhXi6r6QcZyaL8xG6
bqHn0BgPF7L/v8C2ZdMfLPExfF/lfJTtf+h6AekxLoEpn1DuRyYTexd5/tNz
RIwH5X5uOtnXTbew01GebyVb/I95h3GB9lH9is4L5bgyS+MUdAIr95c1UvmU
H2F8YhxBHyP7DYKSr1tL55sYrxg/wPi+t7P/1kn6AuIxLoBRHsY3ygNGeTnp
1VJ5iEd5wCgP80FpL5Euoryc9BmS/EW8ctzK+bEeQH8AY34AY14A031FlE/L
w3xFefRcGJjugyI93YelmPJ1ilEP+idHnsn2Fxh3iM8Zn0kSzhlvmRLOGY8a
aX8P4xHtAv9T7p+rCc4g+0zyPEa/AmOeYh5gfgLT9TT4CPgnlX/03An0K+3F
5HN4tAPxwIhHOxAPrMyvEZT5NZL92b/+kjD1b0E89BzMd8xzZX6VhNEOzHfQ
j++j1H/VBGeISvlqkvoPfA8Y/Ey5PoW9Xqi0voP8AUY8XQ8BI56uP4ARD30f
8cBol/L8L53s38tyHeMIYb5sRndBhDzDOKLnAOhnYKXdoFnSJ4Hx/YHxPVEO
MOoHvwUGvwQGvwPG/AbGfAbGfAbGfEa7qR2o0m4rXZqf6D/q90HPFZAP/Uf5
DtWrMP6RX3neYBLp+vqf/JL8KZT3Epgk/Vm5j6niSjtDa6l+YGLfyYk/Cyf+
LBx8G/KP+LNw4s8i2cEqy1eTMEOan6gPGPVBPir9gtRSfdQONze6/nu9cqis
P8PCTllZfoaF3Svtt/9Ol1wP5ChCeo5Oz72VfCfJwq4W9VM/Hup3A4x60c/U
TpzaWaN+6teUm9/Sf/cjkv1+crPTpnbBuflB/Xe/JNmPCOVTu2lqZ0z9qqhf
E/WXoHbX1E6Z+mFRvyhqp03tmHPz06J+VUr+bilnkZ/OG+qHlts8pvMM6f/H
PKdyW7IXpyHkTo5c8f8nZ4wWIfg9wi7ZBSRK/BbyFvIJ/AnjGvIW8RSDv2Df
CvIV84PazUC+Kf0bdFK/QB9B/ehHpZ2amqN8aoeD70fpnpJdbxi7mp3ut4TR
f+hPxOfIjygpRH/m9n8OXbH/6ImXMPob7UC80l5PLkepNxgt7JLo/ygX9NPv
S+lVymezRXuhv6A/6Dk2+gv1Ij30dcjbeznpxOzoXfJ+vXK8+TPEox9AJ+Q7
1eMxTpT6g+xvT+Ul2kP8L6R45CP+F5z4Z0jxSE/8MSSMeOIvId1zQPkK0hN/
CgkjHnwB8cD0viWl3FJZ6A3K/zMk/Ufpf6kifE/2M6J8jfr55+bXA7rRr0hH
702iegW9B4Pabefm54X20XsHqD5C/XDo/UhUP8A+C9qvxLJfCPgT9TOj9zxQ
fYX6NVE/IHrfEdUf6P1HVJ+hfjDUz43qF/ReBqrPEL+fXP2AMG6pfkP9cOi9
HrQ91C+D3ptA9R96XxLVV3LyyfcJUf0I8dTOiPoN5eZHh/jc/NAQj/ZT/Qrx
aC+9P4fqW9RfgvqpUL8Tet8Q1Z/o/TVUH6P3blD9jN5TQfU16velnOdqrrRj
U+Xql4fyCLa4h0+pp1M+p6bpLe4doPfZUH2O8kl6zwjVB8m+jMW9gITvW+zr
IL1yPFtL8cCoB/0Puapcd2st7HSp3R/qV8ZraDuk///JewH6AvQX2m7ogdA/
KV+FHon92Vv/9Bfs92B+0n0eeu6stCNRSeMZ5aA/oC8p9aAoCYMOpAOm91dh
vKJ8tBv9Ab2L6pFID/2K6gHQw9HPRP+R4tH/2A9D/wKj/0E34kEHMOKRHt8D
/Y7+pftu1C4B+h0w5ivai3GA/lbqrVEW58KIRz/TdQ/6G/8DIx9ClEv/V/rZ
REkY8wf6Md3ny80OBnorMOjN0ReC/6235HUh0uekUwvZyXbJ9rlKOzRqp2Zp
d/+//FCoH6PyvAvnmmmM8lHoMRgP0H8wDjCfgZGf3nOV2z45MOQVML6bsj/l
cwel3meWxiHdF8b/1D4c8x3x1L8D8xXjF/0IjPkIOjGf0D+036BfoX1YBwNT
/0zEo31oN+pX+meESnoYxlvOeJL334Gx74vvje+f891gbx4s7dfTc1XIOWrH
iPGH9SHGu7I/QiU+T/cZ6PkG2qc8H5D30ZT9HSztlwODnynvoQmV5A7dd6D2
7siH76Pkg/L/oBf1o33AdN+ElkPkqfRdgZV+3tbS/g3iMW6AEQ/6yTpD4u+0
fGDEo3+BkR/lQy4p7QCtBXxP5Mf3pvNDeV4c9Y8+nVQe4hGiXBoiPTDqo36r
ubUD/9N20X12YKRX+tFqBPJdLDA9Z6d2stTuldphUj8LaqcL+YXyyD6gQOOp
Hy4wygMfBqZ6H/1Oyv+h7xglPov5m9Mv2OcP/sffNP/kok64kR2Gsu3Z//ux
Ttnlhkg4PZuOKIZ0wAinZtcTk+v/OXTF/uNj8RLOaS/OWc1SPOY35h/2t5Q4
WtLjlHaj1lRfk8YtMOLRj8T+W8KIJ/6i0jgGJt9V4t90PqFeGqJ9uf2P9uB/
jJPc5CTGCY2nfJ/qiYgHvUo5Lfs9oXzEIz/FdP6jXNRLMeUP1I+A+g3n5kf8
v/gq5duoH/HAVB+g6ybg7tk48V86o4XfMvqD1G8RT+UMPdcHP8P3IHbeFusS
apdNMbVrRjz12wA91K+C2mlSvwjqR/G//ESpfkPtRKnfKLWLonbr4L+gl9o9
AaN8pT2MRqDxKE+5rpLqkzDikR75c/itWWof9DfKR5CfxFvYpVD5gXEBeqkf
O7FTkfgC8gMr2yOvq0i8hd0AlU/4P7cQ5UDe5MiNv5LcQAi5ltv/CCFHEEK+
YL0JfWdG9v+x/9ZRKf/Gs7wOye6mXZYhykX9OfIxUlo/U7mHeoHpuZNSPsp0
IB2lF+nQHrQb4wr0YtxBfiOeyl+MJ/S/cvyaib9YQI4+6m3goJOeY0JfxfyC
vAZGPPgNMPLTcxcqnxGvtBu0luaNEkv6sTQO6fkO1ZtRr1IeyHovMOqj+0rU
L1iZXiPQdQ/F//29jHQiTzKIPJHtP6i8xXpHaeeVZLEuQTz1W6b2HUiP/qN2
OFjXoDy6zqHrJnovA+QX6Kf6vvLeQNlOCXyE1kf8ogQqL6kfE9XvcX4Aeqjf
Ml0vKP2edRJGf+a0Qz6foOsL6qdMzyeovMT+DsqndsH0nFjpb6ATiN+XQNcv
iEf59D56Kr+wD4X8wGiP0u9eJ+2jozwqf3LIUUtyAhj58R0g12h7lf4UlnYS
dD+Plg+MeMwDxAOTeGleYX6Cf9D9ceU92OFk3RUpYfB/pANW7tcZJb6O/kb7
MX6BEY/25/D3MGn/BPu1wFg/Ih3Wjzn9pxXQXrQP8oFilKtsr1FKh/Ul9QvG
91R+P3k/Fe3IkYsGqV1Y/+bsL8WLoAPlKe2EM1lK9v9fpH5F/yv3N0xSOdhH
yeFrQTnnKMMNUn8p7Wo1Fusi5T01cvuB0X5g5TyTMeQhxh/4GeLxvXNZL0t2
DEiP8Yr0Sj9Ha2m/B+nJ/TNc6WdoLemhiKd6Kz13AX20PrQD8x3tBB+g61/l
uX26SO0R0E56TkbtsJCfvu9E13P0fSHql0HXR9SvAvHU7xPjlfptU7tc8G/Q
T/eflHqKiiv9+6wFej5G9zHAr1Ee1f9pevouAtIjHv+jPuX/ckjPdek+GbWD
Qf8o9ztSGdXf6DgHv6b7qNTOh+57Ks+pMyzu8aPnOsiPeZvbvU/0Hj/lPQep
jOpPynscVJI+hPbQfWS6r6/0+1FJ8dQvCOUjHuUjHvQgnvqt0HtX6D0H9N4V
eo8Bvjf120M8vVcG9SvvcbK2uJeBnvcp55OVAPmlnB8mIm/NUv3Kcy3ZDwH1
Ix71I57avSn5pGw/oLxnD34sKVL/Qd9C/yn9Ma0t7ESV/nCSfBGIfJLy/5uP
UjqEOelMkpzHvAC/yll/Z4rY18W8BH9Qyku1pJ/Q/WzwW5SH9Tb0Dbo+h54B
jHi0F/oTML4H6ABGPugrKFe57o6UMPpZeb6tkc6hoZeBj0KfyP7uUbBvTGcd
svP7MGqXA75NzxH+fY//pVdb7ANhPuW2TwtMzzXovhPFdL1N97WBc9v3pnoA
DREP+vG/clzJmOox4K+57YNTrOTfsp8svgfl1/ReQnqva273VCrtGuR7Zem9
O8Cgj2K6Xqd+YcCgn8bTezKo3xjilX65oVL9wEq/Wjke+UEv4oGpXTRdL+d2
jw69Z4T6gdN7Rug9ONTvnPoBg+/ReCJvLOQF+JByXpot/AKU6zfZrw3xqI+U
ZxGP/Kgf4xTlU0z31Yi8sNDD6T2p5N5Iab2J/FRuKPlfBBl3Uf/0Eq2EIScg
l7GeBl/O+T/g3/pR9sPF/mYOX42T5AXkB/g9lWPUXoXGox7lOansFw1+jX4B
pnKeyGkpPfQCyI9/8ljiZ3S9Rvko3d+kdu3KdBkWfE9phyevA5T8R22hdyj5
rfwuBd0HpnKH2sPRc0HaTuU7F2ap35X3zMr2jsivvNcgnejX6YTfZoj0HjV8
H3oeSe9xpOtkav9O7aroPQf0Xkp6bziVLyhP6UclywNqH0/PI+l6mO7vYp6i
vfS8lNrHIx71K9+hlOc9+gfrXYyP3O6VQv/Re50Qj/qovTs9n6TvDNB7tHLm
o3zPEz0/pfvFSE/vFUF76H4x0qN+es8JvQdL+S6nTqD3XtHzz//uNxQtlU/l
DX33g9o30/0Gaq9Oz0uJfTqVVxb2q0p+rZP2n5Ge6pXgo0q7BvleVPoOC92X
ym2fIRe/Omk/Tzk+LNdFOf/rOPZTsZ6EnQ7WV/AfJ/t/Un6sf9D/Sv9nrZQO
GPXhnFOfHf9VxHol53sESXIsp170P+w44hnZTxQgh//JHwnT9kI+KfVI2Y8U
chPrJWqfDDmK/Vn43ynX1+lSf8F+EfIR/ZBjnxEiraeQn94Tr/SP0Arw/0P9
ynfBwpny+1muH2HPCrsr1A9+QN+Np/6Y1C4G6em5C7m/W9LblPqClaQfgP9A
v1Cu+1Rcye9VFvtg1K8E8hT5lPJXxZXyVcWV+2MqTvfxUA4w0tN702l6em8P
MMYtMOqDvEF+YLQXGPUr4zUWdsj03h1g5AdGfnrvD/i/8vxclh/A4FPUPgfx
Sr4j34NG7/mh9/QAozxy76PF+SK1FwdGeur3QOcX+AvSI15pP5LK6D6uMr98
bz1Nr7Tbl/kD0iNeWb+W8G1rSS+ifojAOF9CiPGv3P8wSRjnXli/IJ7avSr3
NUyiUq83i8p9tGgLu3rlfodJ2ndT6s9mct+EbM+GejA+lO+fZEgY5YIfUjth
agcBusGnsb8HuYt+RDtQPuQDMMaXsh+1UvnKfdJYiR/j+yj9zM0S/8Z6UDm+
Y6X1I9Jh/YjygJEP8gv8H/wW+3vZzfU2KN/X9Zbt1pAe/Qp5Cj0LGPIJ+6no
Z/CdW//0MaU+g3PtTEle5qST9x+V8gXp5fzK+5o1ElauT+X7ZoBzu6dNeY9c
Oiudnf6JpE8q7ePU0n43sPKcx5zLOZ7sx6tcn+K9LxW1Y5DkLcYn6IM+A7tP
3BeEdJhnGM/03QLqr0zXk9Reh767Qd/J/P/fu58u3TdK7+VEefS+DqofU/9M
qv/++1/yN0O/Ku8hMEn2C9SeLmd8yH5n0CuVfCBWRDz6Gxh8BunxnZX3IfgT
vzd/YqfwN1c/OWDoqzQE30B7IN+U93LGS3SCXwAr7fPk/SfwEZwfoH1oL/gR
ykc/ozzwD3wn7IuB39BzE6V/mjzf6T1AynWWWtqPUs53g4VeqfTPSpfmg/K9
vnSL9/owf/B9qZzITS7Td4boO1pKv2X5nSuiP0r6HH0nEXxJuX+dKmHEK99R
TGfK838VV94DJ9+ji3vHsP6BHk/vnaH3btJ7LSGncrsHk5xHSvoW5hn4N+Lp
/WHUjkophzTSOSL0MfARavevtLNIl+Z9Tro0CaNfMN6xbkU+9D/GETDWw145
/Slh+J1Av6D2E+gv5T6mWapX6b8o613gc1hfQz9B/4AetBPtoesJ8FHUr9yv
sZLmMTD4CDDGA/hVbnwN7QZfUfIzs4WfL/incl/B8n/kw3hR3gurIv6+VoJy
Px73CRslfQXlZOc/9e8cdbhKGmf03Tnlebnsr4txDX0CGPsxqAfxqB/jH3oy
+hn7HUo7ozDJ3w6Y+sVQ+zLoFeB/wIin6wT0F/Q38F/oU8p7Ra0s7N9wvgz+
AYx46j9M3zkDRv8p5Z1K2k9R8udUiU9j3CvvRzBL6z3ML9AJPVg5noPIvQhx
5PwmTsoPfge5p/QniJXuZwVWvuNmYsrxIb+LinlSJbt++b1y8BPIY3rfJf0f
+WCHCLmtvL8jXepfrG8xXoEp30D/QN+F/ERI5SzmCV03Ujtv5Tm+UTqfy+1d
BOwngN9CvtF7mXPze0M/oB70g9K+MlRU6hGh0jjDugz9obwHLlrCGB/4DsSf
UFrfAqM92A9FuzAP8X2A6Toc8gD9r/SDVUn9C36DcYz1It1Xp/v8ZJ9GkmP4
H+OZzhNgpT6YxJTrQ5mfKu1zE8n6Rl4HIj34vFKfkPkMfSeO2r9Re0nwEeV6
VSvtOyrPR6ykc2SMT2rvpbQr1Ur7DcrxiHt7wi3WBeBPaB/6G/Sjf6E/KeWX
RuKnSr+seLK/INt1AOP7Ujs15X6wSVpvIV75feFXlSTNC3qvC73Pg757A30W
8kR573WypA9TPQLyEvIM9AFjfz878JbHO/gL+vW/30co22NBPgHT9wiV/D1e
uh8QGP2lfJchSdofQn3K+fRXklf0/km0l75riPpoSN8lAv34vigP/U3pAgZd
NFSOv2QLOhF/O/Rsg7Zz5P32M4Mb8aWDDcKPAw1O9QyIF9WJT/3+PtVxh0Oj
nK6O0vAa3kJCoT86oap3QL9VnTS8yenPxvQMnTAs2qlEl51qXufl8byz5+h5
+J0tZ60bZornGpV7o1+n51v7N293fmyG+OPQrTfr1+iFbiNu1WvSL1McOWCM
RpOg566j6/t7DU0WT12+7d/e2iBUL/7rWOtlyWL82eqru7SW/B+447sRXu1O
6CzuPVzoYWtXcacVnzSl6opxHfQS3/gXL2wZP6PYQZ2K+38pXXXSc/k+vt39
Hjw6cM7iHgnhUvLMHju7RIq9xDJ7D9yX/ZXAt5Mqv19tPyBc7GM9sUK3CTru
NGGea9X5Ot7Oz1Cyc9Y8DnDaVFCTNd4POD856lhFxw0OLgWEb3p+235sj+XL
dEJmo8VTokfoeJ3YEWOuNtYJB98We7s5XN6n2XqphceqOzoeo9kndIzS8eI9
a07YulzNW9390zLWVs9PpG89/riTii9a7tn7npteCLudYN++YYaY+CL/1UtP
9cLZzLiS3hPTxLpGu1WBzwzC8dmbeg6/bhSX2d6fVt5dxwv30Fu1i9Xw17WW
/mGeOmF0r2ezHLVarhrReX/V9nrhxzDbjrvrqLjHmoyz+pt6XnXBV71LhzSx
FOsc3bajXnh3sfLpixVVPOS3av6MeQYeq99XuObSWLHymCv15+438Dwfnkac
jzeJ9sNsfqw0ZcX3TJp+5WyE6NS8wN1XNw28nIp51tpmFKOHdSsdv84gqDNr
DGx8LFZ8Flzuy5qrBuHBk8iDGx6bxBqpocN2xRv43JNFulh1jBDv/tzbqeYv
2f+v+M3tLU0m2T/v5chhFcu7yPdWznM8ndl/u3zfcr6zf6yPecj+d3vbzAv8
Gyv7u2Xk3TZg92rZH3395udLGxbRCZc+DT2x6KSBb9jXLY+hh04I7Ojs+GmK
nj9NK/Mysaa8r9biQ4sKQ4tK9z3w9OD5Cxpvk/05wNc3jxsqjO6q4wMC5lQq
ZQV7Amse9/zJzBausr/5s2rr916aKN9L8GXynLbhk+SwSYu4sW8rGiR7kg/b
So8c42AQTts0usd3JIh9Oi19kcdFvl/sbYRDwZBGer5uaLWnAwqoeIMJ+0f3
ZQbuvWz8hDPFEsQejdrcnNg8a9yOW+z0ZnqCuOnjHX4mTS9ED9m27Lo+Rbx0
+eq5hR7y/QiODysWDfCW7yeoUJ13tArQ82cey+dntkwRmxmW8wLH5XPUIRFe
K0yjZHsa2wc1yiZ21PFfddQ+jpX0/OytrhWfbtRxo8N0p8GXtXyCo4N6tZ2O
51kwfeqQNXre7n3As+2DdEJyG3FpehYdofm9hxQ5pBPsjkYdPylq+dIZxjsN
subf8Turfi3Mmn93Dzi+a/F/zrc37d11bFFxnbTfdb7G4uvNFumECzkhH180
odCuNjppv/jg1NlBn+rppX0xO6dJdQf9lO/L3Nb4xY060fL+sdfT+vrRJQyS
/wDGwQibqcv2DUoUD//eFeLQT/JH451dnm/UR+CdI2sOPcA8tH/hJbsNvGnr
Gd/2ldEJUfmrdr++0MCLhDpX/FxFJ4xYvNPJqYtBGlf2L6Nfznhl4Csik3/m
qyePN9OERrOurJfLBx13bQo0zshKn7G+dt3IXyop/afpkz8mlFJJ6UFn/XrX
ByZk1XfhzYn0XTFp0nrZvG6vY8GMFIkvDq7++FvzsZFS/Ptbn24tWBtvcR9s
X/toQ2fRwMvXqf04fZF83m21p9OT03byeffaNq2b/OmhleJTJlasXfGI7G+0
9XGdFxv/aCW6Curt//yqq5LwixaDL++sI9vZH3TdtuV7uOxvdDZ+f4ExZpVE
Z+3hY4Qe3+R7WR99nrE6Y6SVxf2o1d5OaXzKM0X8dcH6043qsj8SQqclozp2
ik4RXRLcl/jbaCX5Wmvd97bbr2gt7itdu8q9z8InseKZsMOFnH1UUvy+qaPD
Z1+V/ZWaNn3ZfORA+fy6hu+Rem3vy+fVLZ0uzPzaSCtht6odmrg4y/5L68OS
ZhlE+V2tkVa7h+UZLb+jJe1rRS8Majzqi1jDwyU5MY98nl1zgPjDfYJ8Pj2j
1pcF3ctopfPmXqY5C9ZclM+ft7+3cwo+qZXWMXc/O5+/sES+vyyj3s+73zvK
589P95eZ5uTwf86fL5hneN6X7T1aD449nPhVPn9G//36WE782jyeuZ+ddET4
qJLGWV7n1SGaqfL5865mpsblBsrnz6bYyr6dg7TS+lQ6hxyW4V4uOY0N+OG6
qk64fP4M/eDPsdF7/h5TCSWO1FgzRJDPo1NH1j8yqYHsR7WkebXk3x/l82nP
qgu6ivdUfN/3wGrza+r4s7UfXhx1TRMPXu146L6tjtfs+/fcw8KR4u0GMV/y
eWr53gOJA9q31go3kurG9Q7V8h4XGvTw+6Dls+Iezqw1QcUD943v1a2OHLbq
/XTM90caofEWU35VnIp/OvGh2OHROt5ySvTdEdbponPtCF2TVypeOSRlQMq9
NHGPX+bPBJ4qhamX9uRzKaDjPkX3my9uiBejbFMfN1Rrhd2bedCi6/Hi+bIt
qz1w1/KYNOvvm95FiDfGtDw84aqKrzRyW+2RKDFfZpNOL48ZhOv3DjzbGh4p
7t55wbdZUx2vlV7Obld7PzE8JG/cHDcr4W0e+zXn3f6I41aow7TltEJkWsTt
r7Z/xM+Olf8s620Qyjo0Mv1ZmJV+7tyhp25reYmAErMOXtolJnfpUepdfxU3
fflebJLbfpHZlrm1+EKa2E5/273Nzxviqd6dxevts+TJqje6KeG+rFbfWYdb
JKj4D9HQbo3fJ/Zt3YVp39I0wppTzau1fPSZbSi5fH39wwahxNSJper0/srY
ac+7Kce0fGbnF+uMdhEsrHrfNZVr6/ih7cUnuI6LZZffL+w0yscgLA9ffUXX
NI69Le8eUOqain88Pu7MhQEp7OlCle2jsVrBpmQPv3P5U5nVn08fYhpn6dNz
S63c55vMzrcoNmv8Fy1/cuJk2oI/VsL9uj/Wm4MMgk7MfL8mr0ooWNM76quj
jreaMnz4XVEjFDrSrLrTK4MUJqef7Nn2qZEhrF6s4nrjbznsU/MgP5Ekh+uW
6P6+bmRiec91uDa4lIkdPTqvgf9DIzOt+Tiu/XoTq3t15OzRwUbmODei4tNx
Jlbk1+4NVRONbHkXjzyqfiaWkOelW4jBxA6WXR7bup2JrT+SOXyCu5ENjnUQ
BrupOXs8pMHyzESxwLtXZYpVN4nJY+5+X7g2Uzw+7vNPu7YB0rqw6vAWEcua
BEv4zUv/sYeTgyRsvFRhf6mkQOaQx5hy1yzbh1+b87ntILX8jjnWY/4HA1ZU
ehvL2hUK1Cz2kff7go/WevQ4XM032G+9UOq1Wtik6rSsUGwWzgklPlMv/fmb
rdN13Lpz9bXbOodJ+y15dtu1nnA0XtrfMXZNmnrLQbZPuOj/I8D3QiybN/GW
MCc4iY31Cw99bh/K/l5rOeZlqB9L9wqeENsnWgrXnjgy9vD9aBbQokx+lhzN
kn0LtlVfjGYzdOcafMsbw6blWVHW6WA0S/Vp1n9O+RhW+V3ooWk9o1mX/G99
pk2OYbE37p1eGWBm/X9PPlm4XQJb1DVo18oYM3vjwG4VbprAXs9qFphaNZYt
rhTtuM8qgeU93cdbn2ZmQcMfnLo/OYHdNfWcOaduLNtzzrN77YMJbGfl0FGT
ZpuZ89eBrSr4xbPKt+wSS4yT352c0C3lWaPtMj73++G+nl6W71I2zbtD9dVb
9s866PLl1axysv/Wfr1+xs/vcvo9O5sU7XIwgo1gt4eEOcr3pgxf2mfwpGay
vT6Ldi+xqY6Mq47WfbpYScZDnFeN6u8fY/E+wLZx7yd4DDOyYzfT/Vzzyf5g
32q0ub0sVfYHK3pgyVbHCBkjDLGbPGHwqER24sHQWg2KmKX1sqHlBp/pVWTs
fOPWosuNZdzTENfRZrmMk9YU9h7rGsasXGKauU2Sx/sGdsn395BQtqHRepcL
PeV3JlefnazfbCPjZTY9dk6JCrd4r3z56dXfkqYGsF+H1UmO+wMkfQvzQnfR
3t0t3cAr7+haps4atfC7ZqbJvDGTdZje65JLeY1Qa5oTH31QLXxZOH3w1neW
7zaeiq/v5T1MJdy8qFrTtGMGe3b5aMf4G8/Ycod2qdNWZrCVfm3v3GzzljU8
/2DDvaZqIZidbW5zN4352F0osmuzycJeo4nHr6t53LLw5anegR4aXn3Ct1OH
qhr4sbvapKQHau7+tWLfAxP0/PP0x9czz2eKlau32THtqp7XPpPn4PjyVrxT
00sfFxzU8WXscdNzNoms35Pal5K+6PiHxhNfl/yeyY6vL2iz6IWeL/Uxl/v1
Sy0M3TAmcXd3Pe9zdfV7n5EaKXy8NGP3oGJqfnHknW9rTmp4+K/GR8OywnXp
q96aimbxrz/tHc4vTRfjbtpG996k4Xditt9N2p0k7p5wstiU6hr+cs2XkV2r
JosDLsQYvLuqubbZqIkdPyYxzw15wwt10vDZKbc6Pf2WzoaenRbTboSGf7qx
11yvQwZ7vuPOp57b1XwM0zyb0kQtFDh84+zMVRquubzvyILZGkGXE/K95UL2
95iuFvbnhPxxvwP+ViX1fHAR+5Ie7TLFJQ4FLoZm8a92Vdnx8fkzxbTI1TNL
qjS8wYxNHcrvyBCnvanT13N2phS+sPvocPFHpnjuXEC1Bj/SxRtbQrwcz2ey
2zmhaFdkhL5lHo1w9ebPgdrmmeK3K9GJ1xvqhVqDd0T0ySr/fsD9EVXn6ITC
kU+6T22QLkbsiiicv4VemNqt0s3WdzPEis2mOdqe0/PyVR1O6R4kie8XvN/4
/J4uaz1pKnyvfLLYtorP8xgfPb+gNe6ZHJ0g9hu0a0/kBg1v7jPNM31YsrjF
yOwMddR8WEqzPG/GJIvt79t96SkkiMGbR/dM7ZsgblTfTf22P4FtzQnFFcZT
JQssT2evV3mPPnoyQRw5OKGVUx+14FH3ZWLeksliPu9PO2of0wiXb5lvLNqY
LA6ZWb/u5BVqoZPuTHhC10Rx5jIP566fdULHHrbdbwUliTOvasfVuqcXHpRa
cDSPf5J44filyMdJOqFpyoubbUcnijsTm+xXO+t51xZp/XpNMYmb+oWUGumi
58OahbapzI2i8Pzd5WZqDR/eqUDLarNNIp+Y0qV2KQ1veSy4RplLRrHp/d27
H2/OEN+0d3ZuPdcknj7w7Ft0/yRmqhNRZeVCk3hk8VXrr8YMZnc0+WBaS5P4
pWr52y3KaoStGae71jxhEgcvWhp2bple+GS/NfHg9iy8uNukzhd1wiWXXsEX
fGPE2+OL88pZ602vTuKPNjVCxNERFfJWL6Dn8fXsO3VZFSSW12x9Hr1fw++5
DZnUc02IeF/lOjpRq+bFko+urBIZIv64eftyvMaKV2l3b1bHiGBxw6SIActt
rQS/fBvzTl0UIjrvN67p0UAt9DrRJvJN+xDxXov7I3te1wgt5pXhz6NCxPJe
E2bPmaIW+CrPomPe+otVG+SJTq6jFwIr7PKI1QeJl/xrTqqiNgi72hVZKMwP
EecdNOa72UQv3KjUMN96IVB8tbTBs/Tjet72dFj+00vfi9PnBoSXXaXjriMC
z9WM+Shuv93uuL23npdeHxjRyfmx2KbL1OSpWfK8de+p2kMjX4svvC6t3WZW
88inDtHnU73FaW1HTHfXaYThjxb3X1Xkrfhy8fu3vsez1vO1lmzsa/ogBtm9
sRFv6YW8vb54X6nqI86LnR75+qNOqHH65dLWpZ+IncY93qDupOfaXUU67Kvz
is30Tj1qt0zDO6RO6urU7iEb/tk5/+BD6WJwatJ61bSH7HnRsVMdD2uEka9q
1Njv9YBVbd7fplhptWC1I6nlVZ+PbL/pQOXyI/TC2uAxwW3avmQdSpetOfSZ
no9c3OvN/CP+bP/M6ltK7NHxxos0+Qs8+MvOvFxc4Xu6ns/6O2RgxQkhrGid
VovnT1LzTW0L2Dk/8mcLxNDK493UQrUdz99XcAtgtb88v1Dthlroe9Kvz7TG
QaxtepGPP2/rhI8XPGxr9/Rn1XzyXXT7pRe+71t/f4zgzy68nLa4QIBO8Lqa
ufp07WB258wKVdt+ep621WPK6KImFtXuVpDDID3PfJ0R872tid0dtTywag0N
73T1Z1T17Ua2PcVQq3BvDU+4sLTel3xmVv5c+MRiXTWCi40+rHNXI+vVJMht
+hS98H52ZIOMv0b2vtbMJ90+6Pnq+GuHbkQlsJ5i5VvBc3R8dtNrXdYMTGBN
HzwbP7qQgXdsnHpi3pZkNn57yWMrDuuE474Hy905k8Bupn+d7xapFzx7+jXL
fzeB+Z3SDF/3TieMydw0vXVsEns3unnJFk31vEHg7Qd7bmSwZk6Pqh8yqPn1
cef3vGiczhbbbIufPyRrPLr0Nb7wymAt3FOWW3vqeeHQWt4bJ6uFChl97Qtl
zZ92XQJHD1mhEdo89plU9ZteyPeu39/p3bPkZr9vL46u1wlOrPsKc9Z3LplU
45cd1/ESOaGw0tCo9Zw4Oczzeo+uZgG9UHZpeoXKa/XCgjvl19cpY2QIWUgh
j+u9jCxg7KoZ+zoY2e6JZQ72nJDVr/4LN6XWzdKz+z3cdHWGkZ1MeH/AtYqR
TW072aXYYiO7nbfW+aaljWziR5eby88a2cKIun67fGPY9hJjHc60zCqncaOf
J4YYWedYj3NN42PY8t7N+1zeb2ROfVd26uwZw6Yf81GduWlkHaJ6Nhvc0ch6
Nk8d/kZrZtVEn9a65ka26+AGd78oE9sV8W7jEjcjs3q+LnHwQDO7fDh6/s09
UeK1Qtfvb7TW8sRNGxsGzooW74+rkn/RYQ0v+X3UnbeFY9j6W6UuN36i4SP/
+gxqEBJj8f6eVapnMdUUDf+86WLrS/tNrOa8/o/7OZnZvkcTy067ZmJObQ4E
7eplZg91pR4HuIWzfK72+ec/DmBnFqe3r/I1jC18u+dvjXv+7JN3xT4jf0VK
4Zu4HV5ppigmNrjjazs4klWqX+J3xetRzDmh8U3t/khW7xyPfb4nio1essFt
xM1I1qqKc56ZC6JYP/WvDTd9Itl4Y7E9LYtFsVpNmmaEN41iFR/W7Nz3m4kl
L9hX2bpLPNs0bNy7go5m1mtEvvzn8sSzNiEnfev3NLND77x1GyrFM+OcoB+9
mplZWPsNmZP+s9/wZNn6tfEm1sAc3b/RQvl9q8xvNqlTv0axK696lh+9Sn7v
ahh3uxkeKeMju263cO4p3z/YcEU5n8eLZPxk2vLJ5c7IOM/d5T/i38r3Ey5L
a51nXQlZn35h1Tn6Um0ZF9P1/ujLLN/Xar9vrGFtexkbvEZf2e8i31tYXX/K
IbaljDv2Cf3bKymaOc1/X8p2i5H40WStHyPnODs4ydh8fLDNpu0ytv3W9PWi
x/I9UjseTozukC6368raRyc+hcSw2xXetExYIddb+PCMAd/GytipTNEZXu1l
PMtmW83Wry3fB/tS1ujRIGvcuYXdDE3qIN+/2KTs9QsP+8v4Zbcr0zeNt7yf
cemzfIvFTwmskO75tJTh8ntmRWv4FnF/Ib83hvQn0/5M8/0UL+GuIceuVD8W
zw4c7FxGmyK/N3a6z7zzt/vK9zn6nLs/vXmE/N5Y4paCP59w+b0xlfWoJ62G
yPc7TvBd1dU2TL7PMbrC6xPJ3+RzsJ/nRq/U+cn3O5bePfLxsgny/Y79d88w
s8X/5z2wvvsn9K0o3+e4YNFUn0LJqRb3w99YVjc6qZSW+xb27dirTZqFP/Ti
iX/Srrpq+eCum90dhExpvzepluA8vZnsD31+U3KjJDf5vkf83/ye9yynp2q+
tGYe1Zet8r2Snh4+xSIey/7Q0nuNf/r0V8VZ8Zan/54Y4m/pz7y524ehU7Lo
jFv0uMyfk/L7XDba9A7CbbWFf7PDmkTdspVWfP26IR2dp+kt3kE7VtJRXF0q
XWy/9cmUIf1kf2c/PupbpZ8pkt9sgEt3u6/2sn/zZT937ab5sRbvdx3q4pSn
YKUMMbF6xoH8TeT3vBzjBjfp105+r+uBV9DVgt3k+yPvi/dX1i8sv9917cSn
Bs0Pyf7KQXbv5wZ9kN/vsn791FTAYLC45/5+SFvDLetYiW+/T0j8qE03i3fv
xtoO+Sb7zfyoY9IUsJff72rauMdX+6ey//LD1KrJT/LJ73d59qh2Of2N2sJf
2VjiXsCiMnHi73fN1+Rvrbd436vwEs8KS/VxYqEH6lrmofL7Xu8HOY4d+EB+
32visltbO0yX15k37watKeQo+zfvKedZ4tLiTJG+3/Xw1Li95fMbxRLva9g8
mCe/51X+bdud8X9kf2a/4F/f90+U3+9Cf63K5259fJqfuGSfzTVtsOwHMrlk
nQHdd6ZI9sKXOg2o//262sJ/uW35s92fi77S+XLxdiUHB7UKFLl9XvfGafL9
lhXvP7rfapbO4v2uh8Yef0e5PRD7ukx+EjVFfs/L1sVtx+1MvbR/j3GtL/il
8tcfXOxw709s+1TZ33nuiCLbQzvJ/s7XExzmlC2WJvk7Pxqh8w20lf2d31V7
LDZZJts3oz8fD/eOGmDwFqdeaRI5a5P8vle5tDmt3G/J92OWf7nly/VC8nte
R0eucDi7Q37Pq8zKw+fedTNYvJc6e0yx+YMf/GDfr3Ru5tFdfr/L5Xy1lYmr
ZP/psQeNNer0lN/veluh/qArv2W/G33siG1Of9QW/tEFKwcFriovv98V5Hm7
S3CpELZtadm5jWZpLe7b7Pftdd167YLYx7Zvr45Kku/btA850q1nFYv3vIQn
tWfGx56KZr2Srpk3ucnvez2LcW/usFP2lz7q1fnQykDZnht8sc+ksUHafYms
s/0f900zZT+X4aOuO/nkld/jKuJzZJ24V36PK8XdY0XtNfJ7XPbOC9ZH35ff
39qp25UcXMFA73vjrgmL6/0cpBa8Cqz/6XBDvq8T9Hjaj/dt7WkQRt2fe8Oj
m5Xw/HBfF8/kELbdOHKQVxH5/awyBYNnH5sg38fp/blW8nt7jRQebTD6y7FJ
GqHV+oLaknqtcEhT54bpu3xfZ577jeNcUjTCpatnH5n89MKtU/Y2JRPk+zpn
+Xis6GCS7dFHxFsVPG6rE0blhPzsW+110aATCh79rL38UceT95uH9NHGSvy5
85SWjmxBrPh126qE8TxdPP7i0Py422Zmk+hk93eYFV+426/a/XIp0vs4fa+d
dvvrnCIWaqu+4LbDX0xelbLodWkr7riu1dgxD0PZJDFqabep4WyXUHSVx54g
Vj/iQuvutcPZy+IDHt/0DWIz5gT4fewZznZ7zdPZ+AWzfOeq/SpaIIw1NN1S
jTgaxKKuDaj9uWskC9GWueZXNYS1LZexo8TmSLbv0Ixux/2DWcSjwhNLn5Xt
Bv9GFYqsFG5im6LOrLz3OpZ9nzW2pqsuSx/pWXrfHK9YttP221BtBTPLUO94
/udTLHP41WfzzCx91eOOIbl7VCzzff4pb98W8n2jV9u41irgo+Gb43S6J20N
wpWrn8fUeaHh1ve1g9oXMwgbf7ew/b0jTFwabT8h2ke2V3tcfFOzmnP0/MTA
98c3zrB8L8smMMiz8hs995o2q8erncnilB+b2lfqFipmLDk5OGGaFTfkn328
hkM0q7fG3PfNWituE7nCo3CWXrtwr/HEzvEaHjDzbOFpZXVC3YWqWM2hSLYm
/tvjyUI4Ozq6wrf7MbI9/J3Q3oFuL2X8YdbKmOWnLe3lvQ86vm9jjmDsl8+m
Fm3k97Ns44Y0r+hr+W5wwyspxboHyHaW6oszixSpEM7quRp8H9vL72WFHn77
q1NZ2R++VNXQUo+Mcnzn86p+bZ9bvq+V9LJ74AbvYPZ4qeuJ2PZRFu9t7Vxx
oKLvy1AJi8kpBd/skLFVHY+dglcIK9mv35cqR60Et9u3TsxdHcWqZWTM2341
a7588wiYMkkndPC+0nBRULB4cE2fvcZfen69UOyx+DT5fa2e5sXtq16S72s9
e77nW1c/jVB+Qzmf8/HxbMe7AoVKZ82/L/kTPx15nsCm/w0rWD1EJWwrHdB7
Z2gyK5+mOrX0m0o48/Gex+fJyZK9pPh+h//5ByksseHYzoGl1MLL0g2dlh9J
ZYFV6z46ZRUv+bUOqLKuaVSUfL/r4bOFL/VdI9vrI90x0XZCs2Ehkh+p9e91
HWtcCma3Vgi2/RfI71VlrH36zXOXjH+87nXuQN5IC///sx8nnozvGivhNgM+
PtNMiGWjyi+cWN9Fvg8gWO2Z3zz5/7x3FZZ+3WOIjD+u/HTlSDkZr6rVemC0
m8biPbqpF9u63bktv4e19Iajb3G9jttVdvU7vyRc8i8oe+Z7u0ubLP0F6v0o
UMbpWQRr+GTlk/SlQWK+WZVmLR9t4FFsdxPnMPn9qtTZfb1TBqgFYeHzH+vf
prO2TQsc2zlSLTTVPJzfrVKGZH8a1u6C+7FSBj7yfqp30VfpbKIu9c1l3TXJ
n8AmMd/5xcM/sbwPix389Ft+z+pN+JYyN/arhPheDUY/KJPIyi35MCrpTZp0
XlbyetE+k15ohFinFXUqNDPwkhvGeQ300QjHghamlMpr4L39h0XEP5Pvw20x
+/P8ty/UvGitjv3WNtPz+iXLvE3creJXjg0oIH7T8RmxCXUeNkwTu67TTjka
ouOvPEcYXf4kiAtWLdjkfyer/75c+Ra9IlHcOvLebR8fLa90Ms6j2B+1UDOm
we5lnfT8fUebhZUKaQVW6VNQ6lMdj/08w7GJrUYYd73Gh0K/tfxz/eY2Jdx0
PHWBd7tRDdXctY7518CbOt5xs0v6mLsqvif+/b0RQ9RS2LzSriM3Nqn5qz/T
xvWYp+JrzRNGvnygEcqWuhITbVDzQatGReWtohHmd/Tt2rhXhniSjRnXrleW
Pj9sgd2o/hnizh5TBh/vrxH2zN1cvsKoNHG2+6Mmo4J0/GG+2I5zWiSKD1aE
vpvjr+Xvd/Q/7z46USzh7Ld5W3k9r3RvfKN5EXHi02Xb83uzdLFQkZsDhzsm
iGEnk3/UHZAuxhedm7mxTILYufLOpfVddXxsqcmsx9oYcVutpQ1fX9Bx04kj
40oHRImJ4rP45WtU3NjML+aWo1EMXlm838sLGeLCMyMDo+OMYtvg75smttYI
LY9XP35snFEMqFV6ksNireDdv+HbHVnxHUfMG5lvgkYoNct3Xr09UaIm8qVu
0D694KSpPK7BJqPo1/vb1r8uBiGP3RfHgeWN4gS9a/cjol6o3fY8P9AlSrzR
eG2ve+0NQnyps6PsjvwVe5zrsNozS/8dGH6sUfO1gWLggnwZRebrhTl9V7Ss
4vtTvBX29Giv+zpeOU+rG4OvPhL3fkvqaeev49PFosV3ep0XPxcZVun3wDSx
zJ+8N5fUfSLaVWra8kV5jVBl+wePgkOei7sr/Z17ZbNW8Ks33K+c9pWYr4/H
rXO9NcLivQsTxIKXRPNIm/eTQvRCQKXaGas2PhTz1H3VJ5AbhIULKoWmujwX
vbtO/lI6WS9kntGe2pDhIba/WumWu3dW/5ZtsrfhjmDW4kGhGgvissapzYba
qnLhrHiXrVrXbWp+PeBl1NGnQWxo0SHffSoahDZWbztmRIawGFNK2LRkgzBp