-
Notifications
You must be signed in to change notification settings - Fork 35
/
sine-neural-net.nb
1242 lines (1224 loc) · 62.4 KB
/
sine-neural-net.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 8.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 157, 7]
NotebookDataLength[ 63657, 1233]
NotebookOptionsPosition[ 62967, 1205]
NotebookOutlinePosition[ 63326, 1221]
CellTagsIndexPosition[ 63283, 1218]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
RowBox[{
RowBox[{"L", " ", "=",
RowBox[{"ToExpression", "[",
RowBox[{
"Import", "[",
"\"\</Users/jeremy/blog/machine-learning/neural-networks/sine.txt\>\"",
"]"}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.564059984791853*^9, 3.564060036651126*^9},
3.564060109519669*^9, {3.564060463363606*^9, 3.56406050715909*^9}, {
3.564078060703573*^9, 3.5640780954488277`*^9}, {3.5640782004773893`*^9,
3.564078200732903*^9}, {3.564078238500786*^9, 3.564078238644616*^9}, {
3.5640785699879713`*^9, 3.564078615339151*^9}, 3.5640792948829536`*^9, {
3.5640793405258713`*^9, 3.564079355781521*^9}, {3.5640793944760313`*^9,
3.564079440841964*^9}, {3.564079498145299*^9, 3.564079506472013*^9}, {
3.5640879613633413`*^9, 3.56408796590648*^9}},
EmphasizeSyntaxErrors->True],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"plots", " ", "=", " ",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"ListPlot", "[",
RowBox[{"x", ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"x", ",", "L"}], "}"}]}], "]"}], " "}]], "Input",
CellChangeTimes->{{3.564079296600997*^9, 3.564079303949215*^9}, {
3.564079363971739*^9, 3.5640793642513866`*^9}, 3.564079417570031*^9, {
3.5640795116312227`*^9, 3.5640795121430407`*^9}, {3.564079786479353*^9,
3.564079810262978*^9}, {3.564080047969327*^9, 3.564080089526915*^9}, {
3.564083694745283*^9, 3.564083702320414*^9}, {3.5640899591158943`*^9,
3.564089964810563*^9}}],
Cell[BoxData[
RowBox[{
StyleBox[
RowBox[{"ListPlot", "::", "lpn"}], "MessageName"],
RowBox[{
":", " "}], "\<\"\[NoBreak]\\!\\(Null\\)\[NoBreak] is not a list of numbers \
or pairs of numbers. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/ListPlot\\\", ButtonNote -> \\\"ListPlot::lpn\\\"]\
\\)\"\>"}]], "Message", "MSG",
CellChangeTimes->{3.56408830721095*^9, 3.564088354196374*^9,
3.564088667215481*^9, 3.564089966105856*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
GraphicsBox[
{Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxFlGlQU2cUhimOELQ4aVgCIUIiNCJoBFQEh853XAZERAUpghUsIQGxIi41
IIsNUpYYRFCQRlspKigWRBRtEQVSpUZcqkAiWy17gESChoAWwd4bZnJ/3Lnz
zDnvOe/5NiYnLpBnaGBgwMU+/D9suCvp7hIyDEUt2+nCkKOvruaK6GmL4FM1
2ea8RoYYNW5zFwjM4Myfy7SicRnKijr32q+xFTmZeted7VKiULaz5LciClz0
emOyYkKGQh5MkWzMyDCnOob1wUGOIiSrnActHfX13vCsbd6ljyKnDkGcH6ZP
szXuqPNXIHXNtMkPGMfYWPVzfL7U5/+lrq+cnOugZ0V82/zCkZcooK0vuxDL
lyW7Xmw8aQszlV66OGel9MbmHdZw/lQ1B+fYzQd3y+8z4JU5RRcfSu/Shggn
kVbZPOXWjvUX/fN9uZQMJsKXz3ebyJFv2Y6i8fxpdCo7LsPksRIFuzXbGBWy
9P1vdUt3rXC3AK1t9857GC9nHyalZy3Wx6+HKdlqS8IvOydj18F4GjScELFx
fmLE//pFqCW4leZ8dhljq7AjyqbbClQ3lrkjBZvHOTdJ6G1Kh1/8l9nq8mmm
QlKrNbSJZOtxbnLlPznJZULY1Gz96fjYKHFxHVq0cYwrxvRnykvculSG0DA5
SuGTlEgAZf4lDmZgERXDMtbKUMtwkodEbQExuc2JZXj/TM0lTTQx3/UqYcBg
LB2unDRbiPPTSevU2kxiHqZnSQtKs4MT3nY6znQXK4wUFFDLBfOSsfosi/pU
1Ersn7Nt9Sq2iAZq496lOC9JEFCFx+xgKHtW/0Lrf+e0hgG0rC90fLPnWD8z
kgyN8PvMXEs5knnKncRxhL8HNMlel1wVUkwkUHdj80b4PtlOOfoJrd/7x+1n
d5WIdMC3ZoWEOG8Rhc8cuRbvEN/dc2ywU4la5oFGe8AcRLSHy1VY3E7Of9YT
agort/QxRMNyFLeYN3F30l6vf982eunCDAVag85H+2Hz0ZHwu4psA7hSUJwi
LFWiIJ/YynvtxH3Z+sbA4+AHpp732/EzXPwJ/4efuiRtoVrDJ0FtIs55r759
e7+S8FvlHRLOaHqLDrDzi7SY35drwj/vfEzopwvqSuQDRH7q6sS8qfkqZBSW
uicSWw+Og+qQez0ZhheMKALnyVHg1dPbF+0jQUFCYK/UswddKTzFDfMgQWxM
6Aivvgc9GoWKdauJ+oYe4rVVjmRwbxp8wMPeg6rOgr6ARGK+vO5i8dk+K7hn
rzqDc2R4+4aAEhowpQNOOLexOOZGN2bQvjTJ02sSJVpbxU1MPUecnzt7ApnB
OYT/9dKhnc3NdLj5MZiOc/Kjfp5rMhFf4/vY/nUeoU+ZKLX0yiX8pDtvSnZh
UYEql1y6gDG1lrpxVakxnNhXJG7f1IcaD23jfjPHFmCAM7t+pmkZrkuJ+l6p
mnz7TmL+DVXjXZcv0GB/Q4QzzsWulWatVjbQGHzEAWfb1qkFJuPEfW++zvMg
hzCgycdcx+Hiy85HYyjQQW3wVmLvYd50Tx9HRYMQyGbp7kM5yyqqltCfLsl3
7Hz9HEWmjTB+wvbv+OGWPddq1KilvGGbF8Zb/d57s4JoIJANu+L50d0O6T+W
0qC46W/delMTrjH+rSD851DGr/aSB5FI5XgxDdP3Hs8ay6+0g44Mui6etPAW
WVNNhRSPX7U/Y0zyWXykjDSGKrjrUldj+fErpQNDbCbUrp29j01B05SbH8fR
e0js/9ChRHy//7KjHxL9/gdRyiEG
"]]},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->True,
PlotRange->{0, 1},
PlotRangeClipping->True], ",",
GraphicsBox[
{Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxFVGlQk1cUTUjYlLIFEkiIZoMkxQWjEEXhXgUKKlpZrBQRO7WIgMgitqAt
uACWVEEHLXEAKWKxQVHAlLpCqbSiSCuEgvIpAlbgQwWrQBEKaZL+8MebN2fO
ffedd+6Zx/80ITjKiEKhfKZb+r0m+LmNgmqNytb2heNTV2BL8YtjlE0c1JLP
tVIaAZzNrNBIa2dUxfOYSxcQ8F7HCbfDtrYYWBtgFWx1CSr/7NsjqeLir1+k
qCLeJyCKJlN6xFGx/naBKs+aBCh4UUtlvYf5xSqaSfddOA/PtyeLRdjMTbPT
94u4lu1DieLjK/+ijYt1uOeMpYwyPhfbaJqdXfMJyFPJzvOGzPBuf3Dm8Ewv
FG8oeritzgJ3FikVP9xrAWbgfblj4zRYD1zZydxCgsmzkFnuRSxkaKgfHx1t
h6eF+NL3hRhLWFSD/ji152EOS4J9CooBD3re6G7zHoU47mXIyyLBUzx4gJUi
QssLWfZ6nvmEPvYS30CV1Gv5eDYJZrmVtDInOoZ2qM+dlg/Cbt6k6clP2Oi+
rsNTcb0LuqB4e4RQiI54eFquO29e4pcyqjHGKVaB2zrjAZioefb75Y1cbA8v
La+QEDBmZ//4WKwAt29T5evrK/k1TW9Vk0Due8TYk0yCbH2uSWm9Mz5hCAx6
Lat+Wxnm9Rpaql2MxF+TwB/uyWyc4qP6w+EGDx1/ypR9N7SDgWHy5bFjfVUw
ze8IaXk0ChXCnPlHMklIzaA/FrVzca3LzHSvbl79wyZxFid5WF3fms7VnX+b
uzRmhbkLDp1jG+4D96ttO/6g49RXZw/Wtg7AnNMjVfmxImzjJxj86W4LSpXO
c0LfG0013RwCnh33ZQddFeEti1cG3sSVnsRZ7IzRi10M/agfJMeM0K3w29Yh
0x2r6+FY4lWvihAxxlbQDXxvnpeDm9ocjRLNInM7nwB738RInoMQX6cOTer9
WbWO1sLP5uHq/lAztg6XX6ozH1o2F5Nkf1MS9HmJHIAw23fzZaU5u+WPCVEj
XcDQ454Q+6Ln1hSUZLwWCVaRUDsrZI93tDP+O1diqK/w9+fIfW2w4c9F3wl8
q2FBm0OfTy0JK/2HC+98QwJFdMgjXMlAiVBcvH9RFfQzb1ff2N0DcT8FXjM6
SsIDibHPhJ8EXWa0hvdrRhPqFJ+OgzQvuDT9AAkaR7Vae5mPDZqJMncdv6XS
gXi63haxPSnWovAi/DORMsX8yRYFvEjl9Y8vwg+xv4zc+JyK0r5UYZIlCbxX
0hMCZ1Pc67rB41byM4h4SDv4s48YxXJjg/4vXW8+YNhzkbs3JYcuJuBm+fbC
5gsitCL6DHpO9txsdFnRB8nty4IfHiEhueTeynAODVsrPpxRnxmEW+xFOYpy
J8zY9jhqWkAA42B6bfPZMVC8OXGReYiECUrBwL0SKtb4hLsrTUiInzxgY2Tr
hAWnehWdjgSkdkYHiRqMcHhR3Myl+kHwizfJeCSfAmbZ5Oi+BBLqLGae9pa+
BKU2LItQkLCzy2mK3s/Fzc3d27iuBHSY2wkjD81BWUyddf48ArT3Br9q3G+H
pMc3H1n4qaGer16vTONgWGEuXjEjIDZZtvLr/MeQFBRYIdT5f6Ch5y9tNgsX
ROS0XM5uh4dLnjTHrxFgVeKuGH1+7pAbMivpXJxcvrQr24WAFU1rrOZVuWBd
hIXBvxLGHE2ZpR32agKMEq9XQ2WYwkwlbYLU3PSY47r+C3f7zV0ol2Cm7//5
yiE+8rwin41un8T97fuyAybuzhTf2kpFv/MJqlJbEuz7Ez+/FkDFOeCfW80k
oWzv7O+3RprhhU3prqe9n0K0Mt7VtsYB2U0NB2fuP4D3KTyvkfnmmJYWdM5x
Yy8MlUt/N2a/y3PaxfmdflY0RKvN9vfLB+GY5m1W4nEn9Forlmn5BDimh+9I
LTLGUleRIlo+AJo093FHMw7GyS2yvN90QXZiRcyRN3SsfeTv/ePVAYhatkIu
oQnQe9PtDv3/EZqxy3TP2bdg6SZC2RckpDsvodoE8LDhVBrfRMevDmzsFGqN
kBnTunjhhUH4D7M9v8g=
"]]},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->True,
PlotRange->{0, 1},
PlotRangeClipping->True], ",",
GraphicsBox[
{Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwdk3s01GkYxyfXVGpyaRrCXJgZZVtEV3qeilIkUhokajPVVpxKFrUGQ6oh
ESmr3VbFCOlmIjSDWkmdst1sLjMuZxm3oURL2PnNH+95z+d8n8v3fc770PeF
bQ/RIJFI+1WHuPOLj53WUrCR4mwQl3lJBmz9NDvSiCWacOoLCXYVrs7T+E7D
mKJbH5NUnEbqOLLeXhs/CfNqO1MUIJSPKG1tWCg6kneeiPef4T3nu5sGrkip
cW906IfLfpF5Ax84+G/QwlhCf6mre+mkCxUd3PzbDya1QL1Ge1dBMgeb/3JX
6/5UaUlvBxP1bbbMvqxin29eIzpzGegsd7TLUvHCqjy/OaYN8LKm+W3opXYY
TpRu3HygF0bdHEQ1aX3gJPV9kPmCjV5eW9Tvafw8OHvja0PsMWsoqOotA+YM
Cwf3SSryfL7i5TltcHdJwOPkD3NRes9bR6D1DE7UXg0UXDXH2tbRmc4XZTBs
vUsydpiMnYWDGs3WUshs26FcEstBZ76v2u+eK39EVwj0cKI4zS/1Thvct0hq
6SxjY4AsVN1f03aZnY45FWtDj3B/NWwB/VIT14x+MpIZM89WHKuCwhsUZZiM
jV82MdXxDikVQ1e2amDJaYG2n30/6GuFb82soeP4vp5gYh7rPOhvBeuZuPNF
Pp9gnv7ew10VbIzbeFCdP7w6jtvDNcaJzuXHJPckYOxIj5SEsjGjc3E8oX/r
kjZ5fdLDW/YmlemPW0C3KvtAztQEVNIowiu8ASitmxLtfW6A3d51VzeXl4FB
3o2ntR7GaKgzzyTDVQJT20pE9VRL5PftUxL1zrWvSWN5m2KIHXf/QhsZNATx
u3hPlPDR+fNox/N+SKHYss8dZeJ4LyOA8GtfORhlv8IKQ2oF14l86W5Kyvhl
c7zlGPRmmWregaOzDBc0WWGvvTiV0G9VcefN8SCj547s2DvZUhBbsFP9xJY4
FuhTrv5Pa/adaJw2xcniBFeTYBkoeUW2UXQdFL3X8wnQ7QGy5rbYGWuYWJ/O
O0P0hyr3GbLUWZjrSa0UvWmC/Q1Nvw6dboCSPwPNyL+1w6kGWa6RVAur13fR
b1v2Qv23gVN60TR0DUtN3q3K7/a8Eq55ohl0f+nLzrjfBfKnvbYmbiwklXPP
EX6Oawfxby6nY0i/mJ+q4qbP3WHCKBZG7uElEfpeY9NVEQ5UbPvmZ9DBbYH4
J5R3QO2GQ56WHdXreiGc5NIvSWdihFHhWsLvvRWsclEIDQtk1xTbVBx7x3eP
kbYVlu/KERH1HooYZtlTJlg3uTR7tpZq/pvl8UN3Oeh/0Vb9P9nzq/uitv0H
6V+Q5CoYAEnRQ6cJEhXXJb5nWt1vhtU2wjuMLea4YEHMWcUFGVA5doMRUQwM
4wetIvatz8txN30lDUeODekvVrGGu6VH6Eo9LOC4FZ1cJodHWTbmNVZsTEv+
QUD0236y1ZtrXQ1dpXt/z1XIgaetKR7R1MbCoAUFOa8UUMk1cHGLtUKu/dEs
In6+yxCXtpODS8P5ar8jCRWfNHPoGDQZGUbwlA+757EhCz27B4XqfWoqquWf
YWJIsHgTMZ9AcfSiokU0XKe07pil4g0vyj86JZORcXaXYkm8BEpzN8crVPsV
vZSh3o+/6VHfb85n4pkAp2Iiv3E6xv4RlY2JX4LV/jOumbf9TLFG7dtjfIKD
43pI0SEcnDsaqva3o8DkDM2RilO+yuJW/xYYEw1pOylYeLrMM4HQS54FKdpL
zTCB275k8LwMfvTxmOsz+yMoYx6ciuJ3wtrRQ77L801xbfjtd6wtMlhmrXlg
PNcIZRH0B9WUCrhgflxr2peFrxvFZ4l6uxPyBVmti3CtN+VdZowMeizX5OfM
MsRDmbQLrMwyOLr1+fAwbxq+5o7VGVsMwKhPyMGAQ2aY9bQluDxJBuHCvF0b
4q6DZ2RUWZ2XHFokrQc9RxlYo2v0nHj/F5c2W6WYjvn/CC0JjpD0vSrsKoHE
iljyZIQczj3eqbNnehzkPwXurzsxAOSdool3SgvUN+V3vE2Xwf+Di/iV
"]]},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->True,
PlotRange->{0, 1},
PlotRangeClipping->True], ",",
GraphicsBox[
{Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwdlHs41FkYxzVYSZsxbhUZY8yY1OomrFbvmwqFUokoMoxbJfRUKymhrShC
Si1RSeUy7pRbF7cibESpIVNiGzORGNe0O7/54zzn+T6fc977OTTPwJ3eJBkZ
GY5kEfsD5sDRlYksXLWu7qnAohuCWb8FmQdoY/wmm587VnVDqFGuLSuPib7f
DWsIHhrouq0xSg+jfrSXD0q0mXy0ZhOXga0vaQ0EX2GU/JdbIAM7CqkvCF3L
oTJy+UxssHz9jNBOJ/orHgWrYV/UcQgo4MLoZ5cDXXG6GDnHrPqzhK8cnTDW
Wy6D160vUhV2i+Dm/XuUhFIa0lzTMoQSbn+20a1Zbgk+VWSVx5h2wxfb3hi7
NhVc1eCQzozOhlmFar+Uu4tQ5UuobwaDB8lz9xWRr6pgep+9+01ODlxzF3Uk
aTDQUXd9MxFPaYea37YDFNxy3vp2GS0L3Fo9jZJ+Z+J0pUctwT13770+v0UM
R7ILL10sE8HUm3Wk4sNDkHf7xdjCaSGoaHC3DWvVgCzkv3zYygf9VWyuLJeK
lt53jLmS+zRWD//RKRXEFAvDTc9zoPqgrNpWsTZ6rQhmqUnid/UvCzQYH4Ey
oarxsRARHJXJDJAblcXyDzG7z2QMwiVnwTlnHhPfRPCk9av6WO8dWF4LG/Ja
lBsn+fD2DHWiZf0EuDou+fdzpQjIZPLwLSUafgg/95PoT6hR6AfH7ZpYqMyl
2fHaYKXy4VklWVXM7Jt2Ua96AO4KY0tVy5hI7dCS9jftF4fJ900GmGQgI/VX
NK7q67uZhMXm35sTcoXA21nKPTSpgWoWU3d1HFvBffGGXAqQUMd8e7RXvhBu
iE+az2GPwDHSlGy8twgqB70mmQVktBsaCcn0K4BBX/a6uK90NDPvGCHsL308
HaZwagQ6favaPfxF4FzUWGW+lIn/sVOl9W/rF5jMc2egyPSldJ4iUgcbFnvp
4ZpbDTwiv8IklwX2ViMwL09s0coWwRkrWy9tviZuMqlrTy7phHWqdbvWOKhj
L6NHr9CmFIK6o3N7jGgYssM5jJgna8tks2IbebwYk1nnYiYAhYPbu6PcKOiz
v49evzYLqKq6SvuvaWNCFrsrcE033Le6dWPXPhK61rx6wrgjBBEziO4gT8E7
fNOIt9+yQBTYFZvGUsHFt289CgzhQoBXXnGFCwN97Cal8R8vOenvwaejvLOc
mNDl9HRmeLwWxmXMDwjS7gb9ISdOyNwkGDVdcHaA1AvOG3Mfl91hoMcfwdL3
teYhZ8uYGw0V7fKfEvGz722tqelRwr6CxmXOohbgrGjSk706F53JBgnG2R+B
P3LIr4RGxs4/f7R0+heD/KV2a00fPZycje0i6vf3Xt1gx2E6nn3nL+3HN39j
i+97xDCs/H7cvlgEG8KH+zQY/TCstsDg9V0BCLWrfCl7poDffPxLwiMRHK4I
D3sVpYJXB+ojHufmQHvrf2q1qe/gYHXqJZ1l/bA3ts2Ln7EIN8O1qXp9HnDq
OCYhFgz8WGLaRPirrh4Xr96ogSk2V4K/Xa4F0XtFTvpKPVwY6aBO5JcRUmuS
ciAJfgzRBPFyvZCX28BoOkHDiocPGgge2XyyKEJhEaZ+Xq5lSX8Pa7MzfRpm
qKjzbeBZjYSfZGcaDb5RxmeqJ/TVJ0rAScOnXvmIGsZ0hYlti7nAP2jVIrhg
gPs2MqTzHnLknwkt169g6ZM3Y/haCJPFRcagqIur7XuuPJfweRNFQWMp6qhQ
puXnsrMcztp4pkfOZeH9ngHp/+lv25a2/b4BbkmkSO1dp5dMRZOZ+G6pTB2h
ZzwS83Mo/SAm6VJ23hTA1MzAPTszTbxXq17BY7XBlU8F46tP6eKnpH2vPxHz
T7X5tfUwC5U6mqT2yQaVQ0qus7BHKWtFUKIIwjVjK3sdqLhWYEI5L+GGVbTL
Ha36eHoHs404n3g8TqWkThG3eXtG1zjxgORY+eEInYk9mUXS93U6u+rJ9BxZ
dHJy1XljK4RsXePv7DR9jDBM6CS4neXYk/WntfAC9/Hw3UXdcFlcwfIZZOKN
iTppfv8Dw1cCEw==
"]]},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->True,
PlotRange->{0, 1},
PlotRangeClipping->True], ",",
GraphicsBox[
{Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwdkns0lGsUxlVoTHLqM2aEjEERKjQ0uZy9k1Opg1QK6YLoouRILiGKbnJW
k1pEnTSJaoxKCksXTUmjYhQVIqZxyvhKV8elMuf7+uNd73rXs/fv3fvZmxe6
Y3n4WA0NjY3Uoe9d3ukBaZd4qDZ8vdc2XwFLPrIdGM0Efji+Kt0rRwy6/LPb
PEan4CS3E6F8WTdEF5+rXXrZAsttXLfOpOIfxOZLrfKeQLHLrKLJbSSEEfUj
2RMs0CeZf4rWL+xzrBIWaCPXsnnHDZ4Kar/e61Vp9MOaq6JO9ksSOhmf530K
GQabRYnui2QkcJ5y1P4xRsgY+GTgaaCAHc9uykv3sJDcsqok4u5l2MDxKVKd
5OK/PVfCMvMUYJCHTptcDTHwvua2uMx2CC651O+fYo6SDxVC+v9jT4oiiPP6
6CRZ/36oRwzSifpjQszNsN5Rh+yk8l+90lC3J5niqkxppelJBUjDtf5Yq2Kh
eHhzUmViGQznbPO5GWWN4rRdB+0oXnxbbO5i2ylYUSj1YaR3gadn/CH2KSYu
gHv7VXHd0M7reVygNw4f6fB5zGkkePUv45y1tcaZVTpZdH61srwx5+YAjNyt
8K1rIqFjwrFlFr7aOPBfROyZaBU0PC6ckUJo4tTmN7Kip32wPWbS529MY8wR
mKx94KeAdWNEZMCdFzB/acruMZTfTj2J0w8qpmJjcNRKvxwFmLyY8tNZaokF
dYYE3b9oIa+cm2iAgkK5ljK1AoLf58zofq2GLUU763PPkvBIWSGxO87DPVJ7
0oaKNwqbPdO7rgmqGF8a9Ch+/zzjwKEnLNxKLs7Okl+F37eOc/bLHQQV+a1o
egMJ/AYnzwBvLqqanLN8KD/l3Q0jZTVGGHZk+YlIgQKMlxyUHLYhMDnJRtZj
JIEhfnJq6ncudufle0mp+NANCfW8kOkYzfO9RfszLVu/SZnAwNMZrfXawW/B
qnjq0twJM9D2a/weWp91+6tDb4ARngl373Icr4Bn7urDQd1cXBh92/s6xbPX
DEnalcBBHefB8MTuZjjvlfLOM9QMe+s73NSULiv/Uqi97zvMPd54XV1Dgr+I
iHH/aY3aZXNSaT7f7GjAgloLtNyRH0r7J2k61CmJnIbJCet6ab1UV7/Pu9UU
B3/jlNVS+xI20hddEq6LTPe0jw6SFgj5EZN1Uklgobvd8dL9YpiUZ3ybIWyD
yUx5+mArCfYuvg8G1/Fw489xw9YUb72o1OFjEBdNhTk3gqj6juCFMMmbzxCr
Q45f+pyEE16lI81FWpg05WFNxIgKTm8Iein5YYJDDs22W4QKaI7z87a3s8Qe
jhvQ9Y6JatKJW/wNomQbWR3PSNhZ4+p/TFcb3xXGGk0sUQFylaQgmo13HvWJ
25W1QHiQLtOqzFBLGJjHofJZq3my3M0WmKCU7aV5uSWBRfmhLNQOY4+tGyiF
4DspY4NbDbHp/AqtK7Nfg97fxVXpXlbIszhaQPszX3BXXXCFQH5lJRFYJ4aI
kt15oQcNUd9av6BlbwdwY746rTAyx3cl53g0/yyjK2PiWkusTj42m37niwn7
GqEethzgzb2YVgvZ9/lumh0Esp+zo5qyxCBjCm0E1iYoeNN1zTJdAd/XCx0C
Wpi4qavYoziiC9jPNRZEb9XCOU9Pxr837wN59qUOTYU5ktlBIpo/KWqPrsDR
GO3UKfIlwQpYNpbYl531DP40K2ubQO37Nr/Mlkz/yWiWMjVDGHkVguRCxy03
P4GD3mdP3gsSfPmFDhcyrFBqW5tH96uRI2iXuVihzna2iH5vt+G9ZLux0Gf7
9QwVsxR0yv75xvcYgL+GRNcznpLAZIR4HI43Rklkv4V3pAJGeznVUjsCG2Ps
q0YJCXB+b3St022FIE7WrJ/UvqxW3r+oXqOPzgYqWWmqGEL8h+bPTdDAe7d8
5rucIOFBeEPK8CMWXlHMVW+qvQpJ5VBZqcnEa62iTtf1b6AOq79n7bfC0erL
v+rtbpPXSEgTnJkdY155VAE+DMv3db0sHI2NfTW4qwwC4/KdXaj5M8ze/Zp/
4fLoI+VvCcw83TUwsk8MB8SzK9e1m6Lm0MpbD6n9/x/uFPSK
"]]},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->True,
PlotRange->{0, 1},
PlotRangeClipping->True], ",",
GraphicsBox[
{Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwVUnk81Akfnp0uaZVoeHNkZjCu7V0hx7bt99uQlJcl27TMOnZCklVsVsjV
Kle9pCLrilJYbTkrzDIzYorajJBxzVKOmZ8xWR2O7No/ns/z3/N8noPGOXEw
gEwikfxX8C/HH7yhxQ2no8Bq8ZFwpwzomTktHd0aqGRE9dlbw4eJk0m9sl59
TBU2ZWw50AfPXHbvtx1VwuCUrB20wRFYnnGz0onVR/r84cnyIQk83OZ2b9SY
gZXmybEnJ3kwJzjbnR9Lx+ONjptzVGRQqR1VuqmGgX8/9fK4dZ8HudFMp1O5
Urh9wsOTQ52G/C3MgHNPN+H/233GLn3Jgwh69RNP9gdwHFm39tRtOYQaOMZy
TtBRcvxWRNQeGTyIFjz+uFYPtx5/nZIXQ0AnZr65dJ+GYy0tk7bnCXAt3rP+
ZdpGHCvT45uUCOBueE6gUqAU8p77G7mrT8PBgexijoiBuQ0cllE1D0hmO3yB
TEWni9/lB9UQYFGoYs/UV8dv2IueNEsuSBfMWBWPqfjfxPwhm04Cvp8UJTh7
qWHGdwM7KA5cOH36SpX1HQNsLi56n7qzHcQhi9RhXypaHSSXHmkjILepna3E
08WjWk6HrDtl4C5JIDN8jTE8Lrn7YyEPtBhKxxQlG7DliC/zDrkLcs6cdoyj
MDCU5WcQOceDnu2/nqz6TA9ZVOsk6Uq+mxoe3kGvqHjpTx83/Q4CFsPWFDNG
tbF54Af3dy6ToKD40/9UGGOnRbPMa0Xf8mpA7A9lNDQ3jRb0ZxJgxyeyjvRp
obfPH1Mt8WNwOFf8RVfkNvQMGzPuZxIwND+imWeriz5szfGXu2XAhgxtyyA1
fO+k/OgqcMEnQHK/SVUT2fnCyPirAlg1l+O2x2wV9seVvzCpk0GF8mZmw/B7
OEU55Ni5sp9wV6Vl3DE9NFk6plKcTUBMSN6kYlYPozgLP/fcW+kzRjU9FDbg
pwvbNQOrRCB4pPTtp30fwHPGnxFySw7WL0xIemHGmGU3nj28kue3dsqcVuVb
yI1dHbL7uhx8f/dIK5oyREvFOXVvTT6MDDalHkhQxTVc58GvJ5qhmy4qmbgm
h6QerfMXR6dBI0hlTYA9Bc2xrmfGohnU6A8svg7bhv5z2nqlQMDIiF+PYaI+
mkk7zZULJBCVtTxfW01D1wlrg8epBHx+9VrxTaESDtBD45ztJKB8d5H09uFm
LO+s1Y6/yYWvhoINnymvQ6PEGfvdfa+guDzZ5Y+YjeivG9XoIRTAVrv6Ikfx
JmSnB5ZPmfKg7QmId634bS+y6S3Pk0DEtZapXypIqMwy9lMWT4PDHqefLshn
oVeRrdMTLYd76yrnuOdV0dJlibaquxnMri+PLsQbYZHIpMz9Bg8UKmOmHT/q
YsOrioz+szJQbX93fGEbDW8HtznEtBIgTbZL26FFR5ujadON6gR0cY323dhi
iPvkVm/JW1vhikybUdAxD0Ouxf7uJXKwmfhr7NufZiF9eh/BPSEHU4nu0QYB
A41LVydk1PLgeaX3sM2SJrrc7KeaLQmhbn25YXwwFZuCewJ+aycgcTjR8ICQ
gQbbl22ENTzoSBsUecXo44U00lr+vARCyv0EOSlkfHQ5v2dXOAEi6fk8Qasm
skIH9l5htwMZk85cTv0Pylh3+WWJzyBhdUf93cvGWC25F3Jn5Q/Km9oiqx3J
+BfvF5MXtQRYrV3fxaHrIEsx6RauOQVl3F6Op2wrNly0NUruHYD5z51aayI0
0CJ8lOJawINB+oWJ781Xoxjb9lYxpaBz6DVpnKKDDhUJZxWzk7DcNU7LO8TA
2tLpoHoRDxp0WCmf/c5At0arrvQ6HrwZ+sIrI2gZ6ugFy/5eckhotb8mzqRh
+hkvh9FCAj5xbqYqZRpilDcrcTyTD0xBwj4KsRFrs0wLL/L5IB7x93rNVMMk
KVsx/j8uBAp//HlQSRftbRvqopekYLSgqpsiNMBdubNiGrUNPtTzvM/ZrcIJ
5/2mcyUyCN5Z+Tyy7hMMIu1nHracBpV3LS1FThvQXED7mJEsgjcFmU8fdjPw
zhMFZ7aKB1H84fr6J3/DhUVXyXUTOaht7qjpm9XBGb/Ch2sGpMBOelA/UamO
L5M0srt9uFBiHdboc0wHIyPULVOeT8E/I9QFUA==
"]]},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->True,
PlotRange->{0, 1},
PlotRangeClipping->True], ",",
GraphicsBox[
{Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwVk3s41AkXxxFCNOM24zpmzAza5PrGluw5LhVddmRal3dWvV2wYXZKUWEV
61atLk9kxdp2y6W3SFYTNegdrUuFZIwJb7m0pPm5NSh2NTv7x3nOH9/znOc5
5/v5MvYLgiM11NTUDqrqnz7ffnPcRamOSw7dOeXFcojdKooz6aAgZX6n9Yfa
dsjoOymVPWbjwMNsetnKZpD90kXyY5gih/V+Z4KdCH6nW6kBlY77xo48avCa
BI2WAx1mzpbY2uG4XoM/AYITQb8e0rZFH0j/dqJUDtWx55uz9B0wrSfgpEGW
GBJ+3JJO0TfGxE8cF7Xz98AzW2k/e2gJwv49sH6wmACoomZLmYZ46nRreF5A
PWiNrPXvHDfGubRdRZfvCCHTqZPrs9USaYEPjInbE7BNeEAjOcUaTfmrheuu
EyCl9yuiLOzRt03rsOyCGIb+LzMrvaaDi2PS/xbeH4bDZkmtIyZU1Dyst2OZ
1QEBG0XedenTQE67acX9nYBjmbnj9d/Zo/b48l+SM2JQvjuTGyiZAoM4G42H
Kr2z7jVHdNcet6yk31DPEUO7Zuj48bgOoHkV/uDUQYAXKfx1gSUTJTqju5o7
h2GOsZgbEmGNRCGlJ/YSARmChQa7bxYhOimiQbeUgN8CU2fak3SwxE02cc9k
BPbcb019WETGStEvx51vi0Aq1NWv2GKKOhZ7NUZ8G6ApIZD1Pw8mcj0lxRe9
hqDy89q+eW8rfEEo2nZmyaEs0c5TvZKFT/9lYbH0RQuEb/jKLShGAZVFJjyj
JtV94+6BroekIAs00NjxjIBUCeMVt4KNM/lk2gyrGRw+VtW4rDPAK8GPVuVr
d4Er/ZlsyM0Q11F+cxz7VAffM3ae44QxcX/R/JH8O4OwmKif0njfGLfV+pTu
3iaEk5xlyRRPDWOkZS3ZjgR8FvBjz91RBpYOX7X9WY8A0v7zsbRFBt461yS4
3SWHVtcpy/4Fe6yMeyk8pOLjLLAo6dFaWHvW/MDupLdgqjist1VrHHKeptPW
tBPATzpw9QWZjtS4ytggFX97/khV9nbao1neaJF3thgGiqwUvRImfrcv1CNj
uRu8Cub12vK0cftVyyfVUWNQArwHevftUZ324WW/av7zSV1Wu8IQza9nukQn
CuGOY5eXh70lbmpRq9kbOgGemZsjzvw5AxTva9PlzQSI9Dc6C2Ksccivy4VS
SEDcdMeL+itMjI5SDPDPSSHkBw+XxVgb1IwJ2hDlNAmWORkG7nwyJoxGbnfy
aATQPigJ/4KJH4+Gm9UUvIbK/BNfV1UZ4dG0MXb4hXvAsr5TwY8xwYmTSc/8
N9cBza1r7e38ORitIJNWigggm1VUZfHM0fHE2sUPY8MgDTbONLpmhaHmo/95
uyQHT0p7sb/hGhTIQ+6uzxCDuscjw77WFVho4/tOl/8OqiRRH6e/1ESy7NSm
0rEJMChOeePa1Adf9WllslQ8XMoV/FV/lYbJJf5VK/QnQTgzdavGiIqPn91K
8tHpAP0jaafrCpbB74F3mF8CARxe783hPSwsbOTzole1Q0gj+7Kw3wwjknq6
kzNeQedCk8cl7izonL3oY6P6Xw+zjqu+tQ3yPEnOyaq8VDjGx/uR6PiNYHOa
u8rPl5JqrSCyDirZm7zaqaMw+EpAyl7UwDJPw8+4JDn4KaYiu0asMLfwwetL
GwiwrQoNUG6nYsxaSlgY+TkcOz28ujaejs48H66uap/vc4Nmw5RBYGsvWF95
SsCp52ee3lqi4dwKJeMP2iRgr+lEyxAdc4rSvGfZk/BkjFdxdNYCaxgpP8XX
v4XC8zdkP+W+h8YyMmXqEQHu9b5uOveouHAiL62E0wPVQWtaH5fboW29eNeN
EjEcdO5mr3yyBBsHXqTuVfFxVv1YsPC4HSrdPxzcd1MMEaIEtToje6x/8isn
/aIYQpOpI9VNbyA+uzx0SMX3ivfXIykNSoD+4/UhAQTUdp1zKXrLwH27edWK
ZTmsDrSQF0yaY7Y8Ytd60RuI3LEc1l/lgJcTQ1MuqPz2n5sJmGVTcdqJ87Wd
bie8Krbx1sxxwADS94OtKv0uneQ4Xq6PyYUbj0Vzu+GT65VgdXUmbtDLktnu
HoX0+YXIWl0H3M53rjVT5XFV2/Rg7M+r0DeWwy3d2wt/A8Vc6oU=
"]]},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->True,
PlotRange->{0, 1},
PlotRangeClipping->True], ",",
GraphicsBox[
{Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwV0/s7FIgawHFHZChi3I1MY5oxQ2JreNTUeV8dcRJj1yW1Lo9YKbQ0uXVR
tlmeloOSy2odlWgYRrfFGHcVm2uX0U4PpcUwZhpGrU2izp4fvs/nL/hSIhP8
ozU1NDS++7v/+xU3+9igkRl+Geft8rx5F4rmzL9abNZGUWzT0fDb08Apd3h/
VUTDNu2TTwnerXB+paxUU0nG0chfaqZfK+Ha60TLIxkbcJYoDb3b0Q4WAQkW
AwGb0atP11oueQBL4c7LOxg0VPin9qVFt8OSenvurN5m9BxNk56O6AXSagFL
Hf4ZdAe/RJ2TqMB1Kkak9RMDbQI6n9cLxHAgdbZtQb4ZXdM4XLpOJ7j1Vjsn
79fE7SBgckhvQWxcxjjzT1t8ZK7X/y+LaagOoM9Xso0xu6S4RiirhWu5Qawb
9kRMjTPL4nnVAzWexhGc6IMMf1ybz5+AZ648x8UwW7zoZ3bqAEEGl2f+uHGG
REct+g9RTUUtQPhd7mFjboPZmVPN56aUIEnZNxaTZY1HyVrkyENK4FztNz1Y
QcVOxa+MB+phiFnJD2a2mSBNprOq9UsdzJ4eDCrotcABBeN+rvEIJHI+D0qN
aSgsePjC91U7+OgdCfZlWOF/goI6SvbIwI/V6dr9yBRDj9lOm3PvwD3qf3PS
LqzBht/2RrkUKKDsrMopbacJ+svNbEi/18LG1DVttO83YGnEmzmBdwecFF5s
vWu/CdtYXJZqQAlW+vh8KI6IItfGdboJQhjMpDkr/OlYeunSqnVQC1TfsgyU
Jmmjdpy5xjHnGdg9Ou3E4pCQev2JXUn7LATrlrKzFqxxWN8jyr9YCZ/Lz18h
ShjIlGnzV/hiaCLI+TkVi3CJ3eBWvKoCStQuxT3uGnTApObrNQp48+1MsKs7
BVOevxxMqlIAjdVV7XeLiuSrtynUzGGo9LGeJzvroO+vemX+nyahO5XTk+1j
gg0X2r0n5bXgnntGcPYNHUPWH1hw+lMM4QU/jZY7mmHkVUbh+S33YLFCEkq/
ooFOMk/T1yEqMIg60jtno4G9O/Z0BeSqoIpVEbTl7AfwzNiYt444B5HVu8tH
yCZY82Ty6/6uWtjsZf0dM5+GeVslzGfNrWC205HjlkBEs/Sxt7bRQtCrWGbp
VFJQI1S62JEzC3rqT8udN20x7a+bktbdEyDYpnplaWKL+t/yxg9+MwP0Xn9R
5OUZYL6zs+X/qQBfu70+TkMU5Nd6CipG5bC0t+88u9AE8wk1RnP762D4wWOt
aS0ipr3WDbAZrwf2R/nagdtEtPRZMmjuqoP7Xvt4Dr00LJ2+plPLaIXjed9P
NMbSMSKk2EUTWsDRgJamJhjiun3RghMqMUjan46kDQ+Dd7K9xoedkyAz0M3e
9MwAexIJ8yHe3ZDwc1+RhR8Df27Yz64WimEo+ptkUr8NxtEvPWWrleCWXv+P
8SolnAqJTndhv4V+YZC9hz4N7/S4eTnrdMAX+mKY+zsiGiTEj/h41MHLZOIe
WhgFaxjbj6+NVgD/TZ8V8ZAJGjIOc6R/1ULS6ZNsipSGQZ9+THHQbgW3qW2s
FPkanMvJMRp5NwtVZTVeL9SGGPjeDTMD7kPwwo1rP4bT0bpqPPDDvhaYGBVy
X8VNwsqVlZMJtFngcQ17K/MI+MREEhgW+wfUFjba9mtPgHprCs0rUQ6fd5Fi
+q/YIdvqeLZ9lxjcX9nRz4UaoZKUqOMedhfaBG0Dz13VwA+O35TAVAFpw2BS
1DE7ZFCb7MmPxXCH22NxtmcWmE/2ED0alCB4tlTsoLkM5fu/Nso1nYO8bfWF
T7kfwfng4XQ98zng3V+XnvibBYYuHo7o2TQC5uP08bFuSxyO4F7g509AQ6ZU
e6WfhILYy53x5Qo4cJN8yEVkjI0bXzQPV9TClumxB++JZGSW8grG5pVgLF0u
ag02xPk8qmtmXRPoO2UUhU3oYLzsTInjvQloKbnu0OhGx7qFDAn1RAuIDD56
+G23wphHu1SDPBncukgYejhqip/yqrs1u+7AVKElNXCKge2xVSUX//511V4o
OjRDx44TrUPMBTEkCxV5LqetULZ+feWOj9NAfHsqJuuCHR618dVzeigGw39v
2ar1WAuDX9oxRcflkNVswtoWT8EM3YNW0t0K+B9fHN9X
"]]},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->True,
PlotRange->{0, 1},
PlotRangeClipping->True], ",",
GraphicsBox[
{Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwVkns41AkfxTXD2BIxuecyYy5IQm15ZKfv17Zly+ZeUja9SlkhSZElXSS5
DDFtSbKtZlLTeska1O47maReU5ioyCXPNGjGb0YsxbKs/eM858/znHM+9Igj
gZEkLS2tAwv613so4zmFQSb4qv6CoNBMBPfw0+lXUVRssmuluM7UgmScb9M3
bIbtjOw1J9WN8MT7/tNiMEae40FygmctnHtEyx3Lp+Pox57MhngCTs1vSE3+
jo2fog8dirGSAFXQV0+QLXDI7bpIym2FTtbPQvdwOnqd4Js13CWAZl5cVMQx
xZaOvBPrDepBm636MzObhmXsOMNzZDWs98pb6xluiyrX7YvDVATI/s4JPX5R
DZe9fjO64amGiR+nDk6JmmD0p312XvVyiBntDQuSk5GUPGFbVKiC4d5sprHK
BCtio4bLVtaBDyfj2qA/FcNF/6+fXyGCxC7PRuE8CX1IYmuPwRGoTE1JPV9q
iM4f6LfDxh+Cx8HQ0fg7DHy4THU5sa8dVuH56NJhexQ6XCbrLJGAq+J2pEpo
g6s/Fjl/FhOwpvgc9Zt9drhbh6EOXq8E0SbJ9T10a6z5i+dyr2EEXg8+YlnO
W2Hl5HhSX94I/FXu71RyUxf/Nyr39TN4D4krBSWOd1fgivIkLs/pA9gHzYQ1
bLXBu9scKB+vETDev6PS3Y2Bpv6vfvXs7IHnv3/xJPuWJZr4TnZf9JTDppzh
D/1RNNwfxLHy1lFDtMr1a/Z6CqZXhO9+YTQEM251aS5u2hge922101IVmM4+
M1/zpQXuZyo4x3RlEJc6FOJzagDaw0aXcxbybXu1s+v5ekiVXckYFHTCfmbd
9uDQMXjwxxELKlUDbxtX1DZQbdFPvjYwvYeAntU3NCW5dmhYzwueujgMh793
703ezkZ2/635zQs8PM6N+MFXRkOx8eHKsc8E7Hj0zUuG1B4PKeterlvY81zT
9a3Rv5hja+nowaLuZ+Bh1VafetYEZ505FeS9Iigt3WbaPv0F/uzSfaPbaQC2
hU3EzFqS0D/pJW8DQUDm6g67rIRJIE28FhoJNFCiNRshztRFExLRyvN+D3pV
1Yf7CT38ss2dV5fWAR1sBe9GIAOXHKPsTDfqgq5HZ1Y259LQO0hXP2CBv4cG
vhHZMfPASTHnR+3VwDFS/CeSSBu7nzI/3LNQQu5PfsYec0b4xi0zNe+2CLac
5TYWvqPgjrIO6wShAlLMy39PeE7Drrn85YxpAsSb/c+IC5go1Dgv/upME0TH
rnM3bKLilVeVTx2u1sJjfkZRmq0D/ucPrVbxYglQeN3q42QrfIEtxdsSlLA7
KqXyh+o5OBKUtGjlSQ1oLWI6xpS+BcGuohPlqUMQK73LLJ5hYMHem/xTLi3w
RtrpquTQ8cBePefTzQQsGY+ibtxojqo2B57iShO0h5eNfzfORDebScHAqsdw
Xjy3qGbyT6jlmnIFZzVQdtSRRcxZYL+iKYDT9xb2mZR38+5QMKFOabXYZhBu
cvXn6aUM7Kh7EZtRIYNj3tafjg/Y4qynQ6zLDAEhYeninYUGaABZOdVVTyDG
1iogv80As0rYF/z4TZDjuzPhrdwM/ZTURJm0EapqNFc1vWZ4klq9WXqrEbzi
xwQzKcvw3fsXggssCXD2qNt+9KJgPyVvy9T0IOxT6+QKPadhqtDKeqhZA1yD
3HczJ2j4d3eWRKqthsaCmgLrFH2M7K8KYF2VQqRjcL/9SRaK3B1ek+IkIA0s
j1IclcNFcSeGrFLCM3pF8yW7DnDo7IowK1EAifwgP9SOiTaG/qmw6Bmk6RzQ
V97Wx2t9O1IYp1vA9jTn1s0rNLwqrP1+A0kNUUGdyzID6QidlzibRASQEjqq
HMmOeFg+YRSy8GdoQfrGiVhzFNzfcynkaDM8qE1WciiWSAStMyrx7gEI8OFm
fH4M7cmsQmOBHKZ8knKSfBi4ZrPeqZnOLhhI/60l/7U16npV8v8bRkCa0xBz
7TwLlZbK6UOrJJC4631LrgcNDbmykuCF/mo+dYzIJGPrzqldJswRiIsfpCsS
jZEq3pP2xr8WzIee69Wk2OP16DteS/UkcD4Sj0AZAz+H99aEZsjgY8DyLQ3e
LNxaw84aKZXAUuNJ2RTbDs36ZzRH76vgH6F29DI=
"]]},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->True,
PlotRange->{0, 1},
PlotRangeClipping->True], ",",
RowBox[{"ListPlot", "[",
RowBox[{"Null", ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]}], "}"}]], "Output",
CellChangeTimes->{3.5640880283650827`*^9, 3.5640882412274227`*^9,
3.564088307316002*^9, 3.5640883542620487`*^9, 3.564088667335945*^9,
3.564089966175256*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Show", "[",
RowBox[{
RowBox[{"ListPlot", "[",
RowBox[{"L", "\[LeftDoubleBracket]", "8", "\[RightDoubleBracket]"}],
"]"}], ",", " ",
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"0.5", "*",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"Sin", "[", "x", "]"}]}], ")"}]}], ",",
RowBox[{"{",
RowBox[{"x", ",", "0", ",",
RowBox[{"4", "*", "Pi"}]}], "}"}]}], "]"}]}], "]"}]], "Input",
CellChangeTimes->{{3.564088031717704*^9, 3.564088038095112*^9}, {
3.564088411717875*^9, 3.564088437317408*^9}, {3.564088686038672*^9,
3.5640886860970373`*^9}}],
Cell[BoxData[
GraphicsBox[{
{Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwV0/s7FIgawHFHZChi3I1MY5oxQ2JreNTUeV8dcRJj1yW1Lo9YKbQ0uXVR
tlmeloOSy2odlWgYRrfFGHcVm2uX0U4PpcUwZhpGrU2izp4fvs/nL/hSIhP8
ozU1NDS++7v/+xU3+9igkRl+Geft8rx5F4rmzL9abNZGUWzT0fDb08Apd3h/
VUTDNu2TTwnerXB+paxUU0nG0chfaqZfK+Ha60TLIxkbcJYoDb3b0Q4WAQkW
AwGb0atP11oueQBL4c7LOxg0VPin9qVFt8OSenvurN5m9BxNk56O6AXSagFL
Hf4ZdAe/RJ2TqMB1Kkak9RMDbQI6n9cLxHAgdbZtQb4ZXdM4XLpOJ7j1Vjsn
79fE7SBgckhvQWxcxjjzT1t8ZK7X/y+LaagOoM9Xso0xu6S4RiirhWu5Qawb
9kRMjTPL4nnVAzWexhGc6IMMf1ybz5+AZ648x8UwW7zoZ3bqAEEGl2f+uHGG
REct+g9RTUUtQPhd7mFjboPZmVPN56aUIEnZNxaTZY1HyVrkyENK4FztNz1Y
QcVOxa+MB+phiFnJD2a2mSBNprOq9UsdzJ4eDCrotcABBeN+rvEIJHI+D0qN
aSgsePjC91U7+OgdCfZlWOF/goI6SvbIwI/V6dr9yBRDj9lOm3PvwD3qf3PS
LqzBht/2RrkUKKDsrMopbacJ+svNbEi/18LG1DVttO83YGnEmzmBdwecFF5s
vWu/CdtYXJZqQAlW+vh8KI6IItfGdboJQhjMpDkr/OlYeunSqnVQC1TfsgyU
Jmmjdpy5xjHnGdg9Ou3E4pCQev2JXUn7LATrlrKzFqxxWN8jyr9YCZ/Lz18h
ShjIlGnzV/hiaCLI+TkVi3CJ3eBWvKoCStQuxT3uGnTApObrNQp48+1MsKs7
BVOevxxMqlIAjdVV7XeLiuSrtynUzGGo9LGeJzvroO+vemX+nyahO5XTk+1j
gg0X2r0n5bXgnntGcPYNHUPWH1hw+lMM4QU/jZY7mmHkVUbh+S33YLFCEkq/
ooFOMk/T1yEqMIg60jtno4G9O/Z0BeSqoIpVEbTl7AfwzNiYt444B5HVu8tH
yCZY82Ty6/6uWtjsZf0dM5+GeVslzGfNrWC205HjlkBEs/Sxt7bRQtCrWGbp
VFJQI1S62JEzC3rqT8udN20x7a+bktbdEyDYpnplaWKL+t/yxg9+MwP0Xn9R
5OUZYL6zs+X/qQBfu70+TkMU5Nd6CipG5bC0t+88u9AE8wk1RnP762D4wWOt
aS0ipr3WDbAZrwf2R/nagdtEtPRZMmjuqoP7Xvt4Dr00LJ2+plPLaIXjed9P
NMbSMSKk2EUTWsDRgJamJhjiun3RghMqMUjan46kDQ+Dd7K9xoedkyAz0M3e
9MwAexIJ8yHe3ZDwc1+RhR8Df27Yz64WimEo+ptkUr8NxtEvPWWrleCWXv+P
8SolnAqJTndhv4V+YZC9hz4N7/S4eTnrdMAX+mKY+zsiGiTEj/h41MHLZOIe
WhgFaxjbj6+NVgD/TZ8V8ZAJGjIOc6R/1ULS6ZNsipSGQZ9+THHQbgW3qW2s
FPkanMvJMRp5NwtVZTVeL9SGGPjeDTMD7kPwwo1rP4bT0bpqPPDDvhaYGBVy
X8VNwsqVlZMJtFngcQ17K/MI+MREEhgW+wfUFjba9mtPgHprCs0rUQ6fd5Fi
+q/YIdvqeLZ9lxjcX9nRz4UaoZKUqOMedhfaBG0Dz13VwA+O35TAVAFpw2BS
1DE7ZFCb7MmPxXCH22NxtmcWmE/2ED0alCB4tlTsoLkM5fu/Nso1nYO8bfWF
T7kfwfng4XQ98zng3V+XnvibBYYuHo7o2TQC5uP08bFuSxyO4F7g509AQ6ZU
e6WfhILYy53x5Qo4cJN8yEVkjI0bXzQPV9TClumxB++JZGSW8grG5pVgLF0u
ag02xPk8qmtmXRPoO2UUhU3oYLzsTInjvQloKbnu0OhGx7qFDAn1RAuIDD56
+G23wphHu1SDPBncukgYejhqip/yqrs1u+7AVKElNXCKge2xVSUX//511V4o
OjRDx44TrUPMBTEkCxV5LqetULZ+feWOj9NAfHsqJuuCHR618dVzeigGw39v
2ar1WAuDX9oxRcflkNVswtoWT8EM3YNW0t0K+B9fHN9X
"]]}, {{}, {},
{Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV2Hc8lV8cB3CjoUF2Mu699kybCN9DEsnMikQ0bZKyVYoim0oZKSMyojTM
RCFK9t7Z7mPv8Tu/f+r1fn3OOc95zvec53UPfitH/St0NDQ0Rfif//+nL9n5
e+BYuNLx0BZVGppeEB4tPkGKdARhlpDgqj29sJJz4HJbhC8oqw2VR5B74R/7
9aX8iFAIWaOvFoJeaFfzL0uOSIAHNZ9un/LphSaLCNG4iGyY6jozZbvWC/p2
+9qfRZTAR5ubC32LfRA+cyEvJuIPGIRKcvGODMCJijM7VW72graM/QR39zAw
N6b8kY3shUTrTH7aiWEY7KeL3p/XC8/+rjn2LA9DCE0Bed9sL8y88KT4c4xA
/wnJY1MufSAS8VTH7uwIBObusox36Ye0J1sXMj6PQHNCzccV50GQL0AJjx+P
QkaWmOdU+CDck9pbff7pKPgV+aOh94PgZP3RmvxmFMQ7FH79nR6E1tULOU+K
RsGLM7M3zfkfLH3fPDtPjILgkye7jJ2HYKpgJvGf/hg4eWhfynMaAZelzwfn
mcfhjINCGkPYCIi0bwlEvOMgaCVBmGePwLZ7l47fFR2HZo1t3gzUEWgbP+De
rzgOivuKn5nbjsKjHdE6gjbjsPPz/rrtV8fgy5IuR3TpOCTP74YLZhMQzt5r
NX15AnxGVx6895iA6iNG3xocJsCka6RmW+wEXF5HR9PvTMDuinLT960TsFZc
cehI8AS4RHm5bTOahLRj6g8/5E4AOjKRmaNLhfZdkuF26xNg//lKCJ3gFHz/
VuTh+mgSpDX0KLRHp2BExZrDK2ISptoUcjdVp4BhCCxdX0yC6ypb89rVKfj6
4Fi3TOYkeCiV8S2mT8FFoU1rurpJeFhOyhw/PA2cBn17M1ipoG64E8ZOToN3
VgPfF24q7BiarxsxmIaXh87IfxKgQvD22rl/btNQdrY84v5hKkSe8VTo/ToN
nhX9VWZ6VEisa/nVqDIDAt47auiCqWB16bt5w7kZOHusWZQpkgqCM1nE38sz
oLB2hXVHLBVS2B6y/Xk4A8zhl1xrU6mQaXTUrKp6BmJdeyJDy6jwtTNsrEh/
FkSqeEtm5qjgZe/lVWg9C/Hj23xnV6iguHGNqcB1FhhWvU0GaAgoJcPhzzGz
IGRnphi2m4CfVpPuue2z4Gq9sZckSEDjiMaOVKs54O05/XyLFgHEc7FT913m
wMjg1OFEPQJ2am6/a3FvDqRnG4qkjAhAmeVLe5PmwE27PpbLgoAMZxgJ7JuD
pj1/Z+SdCPghQBK6Mj0H+cv2KeauBPQ2rFko085DjZK7hPMdAjhlvrYsU+bB
SWcw0saPgHsrR3/aWM5DJFOUb0ooAXEZbPSnnebh3mqZhk4kAZ8vzCgJ+s3D
qsVSxUgMAZPF2fkdCfMgX27xYzKOAJP7Eilne+bhKmttAGQQcPPojn4xYh4o
yS737LMICPk3zLd1Ez9P2p09+D0B5aeTo4tIC6AWemsm9hMBB3ZTHkhfXIAT
r9hUN8sIOFO0UbrTYQGcOSH1fQUBlx261oa8FyCKoD42qCQgti7WNSFuAUTs
Q6psawnYFs1xmblrAXY3b+npaSaAX20uYWJiAdj4+Wk52whQWKzvqFxbAJWq
vDCFDgKcz4edu8u7CPeetBCmPQR08u06OWO2CCpHc906hwhY/D3q89t2EX6k
ZNdEjxDA6lf5Nd1zEcrfjvjBGAHq/Q8OW79YhDOPI9etJwmwjrzsABmLcGmE
WtZNJcBH9WQ6T8EicHWY9GpMEZCXQiPQ2L4InFmNfNMzBPw27jHPGVuEMIrm
if1zBIwwFD8PXlmERO3nGefnCaD/+rLp+s4luET7zN5tgQCSrSfLKe4luGVz
wO/+IgFyvKZa/BJLwCRs3O+3RIBB7fFH63JLsCLDGemwTMDjAws0+eeX4EXE
907uVQI8bmtIDtkswWZ1eO4I9o2Sl4acXktwyP0A55s1XL/tU75qT5bA7UL5
Nq11/H46J9Pd4nF/nyf3B7CPP41pTMlegsajXUHXNggQ6xndaC5dgocUHnIb
Npeoovj2+iWYP1CucHyTgO2OYedkB5agN95m0B97IX/A+9ocnt/CR44S7KEN
mbSnW5dBn9m6bgi7We1x/U/OZUhiUWVfw/4R0rW2KLoM95xQ3wZ2fvNBUTG5
ZXg4bSBLYCeT/PVMziwDSovkrMWOutriGWi2DFKLgr7PsP2zJFI+2y2Df6iK
sx6264J33Yj3Miw4KU8u4vlaK/1d4QpdhjOjAbNB2PoPhYQ1EpdhJDLCnxFb
5fdtHff3y6B+fjbRC7//Yc5f7m/LlkHLQU+jDa+XwEXSm7aGZfA5d8NHEJs1
xfn3jn/LcLhxt7IZXl9aavmS3MIyvNwqGOG3QsDUMS5Bm+0rUHoqzSUS16fX
21YrlmsFdOWzBiJx/eoqim9Xi6+Awx+zobu4vqWMrEkr8itwUWbS0xzXP8fw
So3E2RVgHsxLFsH7IyHu84Kp+Qokh3Je6ZrF+22/hWaB7wosrX9IZ5smwOFW
7q3xsBUotxE7GkkQYF60NZEnaQUahVPP0+D9qaD1bs6zfAVWLpD9XuP9LBW9
SXrXtAIhmiv+bXi/83bpa3QOrcDI9df71/F5WLVbjlPYsQpSsrtvMg4QMPbh
bKUd9ypYdBixr/QS0L6WMPNSchXSQh9YNXYT8DVY7fS61iqklD7Zo99OwJ13
kVNFEavgb9294FxHwPW5IW7q61WoCTijUYPPr7GC/CnSR+yqwovsvwiQqel9
7tOyCmskwx57fP7nxvefBN41iLc0iVL7QsDgkbv2jvvXgNC/YrYnn4AGz8an
CUpr0H++i+ZHLgG5uzwnNi3X4KuJzsIa/h45S1ZGlyavAc2v8JVw/L0avDLo
l5i/BrtGns52PCfAKJHGzu/nGpypEotgx983eQ45FTS6BnPqv+v0Qgig23xL
LZFahw3pp7/XvAmIqA86XZK3Dj4dsd1cpgRsYUw7nFC+DpS/Rfo6hgS4nS7n
821aB/lTGZ9ddQkwLVybVVpcB2GtcMdgNbx/UuwTi+U3oJ/DQnjqEJ6vu85y
0bcNeCp4t/bJVgKEPtgOxtVvwNUBtz35m1SIoQb88R7YAK4i+6TaZSp4WJcm
K27dhHTvr03Vk1RQ0TqkX6S+CQ6OF6U3GqnQQGHLKPyzCQ1MKZXaiVRYsbbN
6nKgQWk2U9Y1ElSwZJm9U+hGg3wJmlZXQSpUFHucfOFDgwKe7Yrbw0uFsH2P
W01CaNCvriIZXkYqiP5Jo2vMpEHGHkquEdRJMJAfMqqeoEEh+tSE5axJyGK+
tJlvQ4sGLS4mjQpPAnvxSFW0Cy1as5rYM847Ce62TlGuHrQo7WRwTQ/bJKj+
8BU//JgWudGwGL2mnYQOz/hzmW9p0Us5taTIzglgGO5IfT1Ci65qtG3nD5sA
qyIj3bCrdKg6tbHgIHUcDudzse5zpENMXpyXq/vHgS67veHVbTo0JJPwwKhl
HJISLxrnBdIhmez862r490///asXm9Pp0JReFvlh+DhYnXGz4yXokN3Xn9vD
D2G3RAem3aZHYlyW3seuj4H1dGNpaeAW5H9r8eVE7ggEH/zkmPJwG3osoBYt
Sf4HdKWfZP09GNC1IcMPIdp9wCKh+bvn2U50c6uofbVUO6gnqLyeitiNdhba
mTen1kNAZV3XvRe7UQbpet6HwHr4MX2Ri+PNbjRSHuCTdKMeTql6PpH7uBuF
2NXQZUrWg8po3u17LbuRacTr5Ls5f0HhiPBZdl5GRFd+QVy9qA4O/tw+L5vM
iHxG6V+4V9aC41T0gepMRjRzimsgNqQWsvYJ2VzIZ0Tx+W8+DBjUwn471OP3
kxGplSyvTfTVgASLe1XVKCO6wKdn9G/9FwiZjcWZSTMhdZrUAymK1bCXqFHz
/cSEOo9vxot0/4Bn4SWXRkuYUEr1xkB6+g/gOprrda6SCYltFxi4cBvb/Wmu
aBsTeqf7duYMyw/gprci1a0woR8Prvkanq4A0t7FeYrSHnS5oW/MoPA7iAB/
cln5HlQHZ+bcfpVCSh9bqVTtHpTmfdWTN74URPy3dcQ07UGdP//aLziVgmjV
OLPt0B7Eu0vkgvreUogSNyvesYUZOY31P2moKYaYPGGJXGFmtGWV+W0sXyHE
/vxKS3+DGdkxedcXsX6Cqd4cd8KOGbXSVU5u+5UPp1dSpjucmNHZqcuqH+/n
w5xUZN+HO8yIopL7UWXhI2hH2H67Gojbb9tgEev9AHTmvHerU5nR5SXfz0Y/
c8HEjXU5P4MZHWe26mR9mAvZoQzOr7OZ0dIRJePjp3LhQtmcpdcnZrS7kUez
tPw95IvWIumfzOhNfNq/6socsJ3xpokYYkYH/X7+3qjKhLJdrnd8xphRaVBd
frtBJnAJ20zZUJlRzvStL2G97+CHsVHvyQVmxMBuUhu8kgGUIunS+a0sKM0v
9/jf4+nQGNDje16YBR1s6c4e6U4BBT7lTcplnKf/yWdtTAT1C40uVtexB/r8
PG8mgsGLa0Ov7VgQg7O+8yxbItjuC6kVucWCnFzVR4Vy4iGWo+OF1EMWNPWY
jftQ+wtYYrx1/Hga9vrbF/LRMbBFi+Gd+ztsH312vYVoYA5+QS7Iwf1r609E
nI8G0Z1l25S+sCCKz1PTpyJRYLRtT9PJahZUuijxpqQ9HD5spDnrTLAg9N7R
br9JEJQqKvwLm2JBvTmmFZqWj6HG649J/Ry28rhJg90jGFiZB8N13P6+ibtA
ZACwLqowmTGxIkr/t8Audn8gyTTffcnKivxCBb9bofsgcevGfBcnKyq1z1Y/
73QPlGdDOy3JrChxTLw7rssPnIjO9KsHce7/wf5Ehyd4STuR0o7i/l5NA0Hu
HhBoTx8xehznoV+e1FDcIWFc3N1OGftTRJDQYzdIlyiayDzFimh8Y2uVzt6C
/Bu6loQG7u8WQNbZ6wq/h91Ou+izIrQ1y8K40hnaRXYW5BnhfFfTmF6WE/y7
Eic9b4r7G7n4hso7wtrAd4471th/w/kNpGxBspd50Nv1//b8cn+HrUF7mFLm
dgfnnXKRohZW4EQ9mOjohfO+x9OHhyzhw5ruhUv+OC9znetUuwDN9JfkTQOx
s7gLVPLOw9JOZ65zwdjP1+35wBgU9oU3qkZhzwiLnvioDxcpr3IVn2HzSKXe
S9AFP9H3YTIvseNbGcP0tSBJ+pvDgURsE11b7mQNKD/296zYG+wRge1pMmow
pNAnwZ+GHRh2UmH7SWBQnWbgfofdnKvazolAQpN2mDUH2262d8cveTirz1Kx
6wP2lG6X99AxcDjP/3rLZ2zXFD0Ov0MQZnno7noBtpiL+NsDkpB7TdlioQS7
t4bW10wIGh30FInv//e/X3dlOx8s3LrEM/IT2zIXonXZgMvbebn3Fzalu1pS
eDvI+99tafuDXdoQVnRsUelCUPjH+gZsGtUrJ3b0KvlEvIr81fK/Gaq6e1OU
Ep+/dy7v+N9+Cwx1H5TKEr/pFPX8b/lGticDSoOpf/fnD/w/3lp6rOCK0rbs
vl3Zw9iJocYsh3eAWP70aOo4ds6u+3RJ7Pg+Q1uZSGDXkVVrXpPArpwl5fks
9ucrDNI6whDyi98/YvH/8R/tblCXgpz6Q1ZBq9jP/ohcIx+G+jZl5L+JfXBt
KeiZDMz16pG86dnwegdFNoSeAM6RS2u3tmNLOwS+vIfgOOHc7rALe/B2gJnX
SfBaD4+xZMP2adGckToD8VuSXM/vxXY1v/N9QAtKd+Xq6/Ng5za1VU3owhbu
eiZVQextlYXMyoYgwt8/oSCKff+Aom2sMaiLzVQfk8S+KVugwGYKwTKsAaJH
sCPo/spbW0CWosAViiwb8nvbyHGI7xLUqR4+ue8Etm33Fs9nVsB+Tn9z50ns
BL9SyeIrIGNq1UV/GvcffuoSev0amFxyKVg7g3326qHXAjfgpWPEbao+bv+F
mG+osINityTDYSOcv7x2ZTLLAf+ezj3Sa4rziUftLeecQCi4nvhrhXOHs6Fs
l10gM431+kcXNoRs3zmc63cD/6YSZfrbuL3QyKTNgTtwgc6eR88TWywr7e0D
d9h54efvifu4P5dMdIyWF1zd43VMKBrnawxSfsJ3QVFBfI/Lc+xjXVsjpu4C
+43mkZI4NlR6yvTzwdJ78L3s4EuzFDZk+dC7l9neHyhu/+giP+H2KYKpaD0A
FpMiOnsL8PiHBxrjJgLh9x/Ily5lQ73/dlb49j4Cb/HYG9WVOD/T5l3bFATt
ndp1tO3Y3AvCTguhEHXyc5zTGvaG3JRFQBTYOl25XUzDjkq/y36ZEIgGlThW
vd1b2RHlqF7r+9JomF6w25LGyI5oNmNO9NM9Be10ftseEjvS5dy38uPVc2Bg
CTqurcyO/Do/s82qJ0CP4nHWl6fY0YiCPH0TfSLk2/wbH9VgR07Pj55Xu5wI
V8oh4YE+O1p6ztFxXewVlN2e21pkjcef3cxJLEoCr27zBsmH7Kj1r43VTZ4U
mDutGHflMTvKWVktHnqUAnbvea8lhLAj9a/P3l5cTgEz/44V1qfsyDLgqIxp
RyrIS5wXWEnF7fv1z7hkvIXlWwbOlVXsCNVffpbnmQlujJp7rjByIHXNT2KG
E7lAdZNoi2fhQEvcSxYGR/Lgau+O160cHEihRmFLrUceGOVVypwlcaA7mfIG
4rs+wLHzahePHOBARx9dl31w6CPMvVHOpNXjQLoG4z53oz6Bs8JxzfgoDsS8
LPNd6n0h0DhE+YY+40A11b7X52iKICRhKs/vJX5eYdExXr0iSKd7y2v9hgMF
PtZhDpopgv7KfVTRDxwo2GVVokuuBAwMV8PeN+DnFWq7b5ssBRmH4uZyVk4k
vWDMJ5X9HVYSVK3GwzhReitDxKf3VaC0qBhxKJoT5bJFa8SMVMFdbdmy2885
EScnr28iuRoY1sUFtiRxohj9R9dlQqqBw3RPP28eJxKyldS4ZP8LDrK3X9Ju
4kQ5leWnPI/UwpVAx0vv9+1FuZe6Lns61EGdU6zl7aS9aOy1lTG3ZiPInRbY
6HrFhWi36ql9o+2EqlNyaejlPnSa7Q/NxHAfJL9/LtefwY10ShOcdtAOgc2q
mURrNjf6GsnZ9XHPEBw8ReL5nceNHjlIm1wgDUFha9LalwJu1Hu3Hj09MQQN
mxkl4b+40eTDQ5rfbw0BrXbxKeVxbhS9eL9+eGQIzMf69RIleFDqbIkjTfUw
cAhK2Vx8y4M6P8wb33IdhbCIIKO3mTyopbhtTePeKOykG1eZe8+D8iSPZrGF
jQJN31uex1950JvbjQsPMkZhIl609uMvHrQicPrqYN8olHMLHmSk8iAZwWxe
z7Nj4MrKvVBwmBfx73GJS+YaB+Kue/82WV5UKxC1e0NoHGymW3/rneBFG2Hz
yRr4fmBZ9zR1+CQvEhXuI33VGIezIRzn2Qx5UUZGYOKG+zgI7mQptLnNi6JV
9/3e0ToO9bQM9/YV8iKJwNvGvx5NADXz+UXdUl5EGo88qBg1ATtMJU8ElPMi
vWtibK/iJwDlas/N1fCiQd7UH0p5E5BlFX21rosX3SEPpNZ1TEDQdwHNgE1e
NOF0KkRVAt+fHiiyz6vw4d9b3bsFCifB8tCfKcnTfEhfxX+qpHwSPLssa600
+dAj1/gg7dpJyD3m/7DuHB9Kij1Zptg9CZSh6qWMy3yoXOeJpPXmJKypmXRZ
PeRD/LEXlr4pUeEjw82Uuio+FBzPaxH5ngpDXncni2v5kPxNe+WKT1Tgmg49
mvmXD01oqE6OFFHBq+1d2aM2PtRa2f5oazUVVNOHulVG+dDSB8ajkX1UqNc0
3fuRgYRctu64ssqI78ul1y++3k1CSjb3ZU6z4fv+0dvJ4cwkpFok7O7PRUAs
b9QRBy4S0tbPU2wQIODSZK2OqBgJzcSWyH2TIWAqRDnw+WkSetLu3t5uhu/T
9Lp/AjRJ6MD4CZ8TlgQY3L7I6aZDQkLpTepPLhPw2cLzjb4xCUlIEcpb7Anw
PfixdNc1EvL7eVsf8H0+58337Ss2JOQUrFsgdpeAfq567REH3H/LMUn6BwSo
0RKd5W4kxCClxRIUTABTvdiy90MS6vfijhiKJQCpySK7x9gtmr+N4wlw+Xoq
wDSEhDoPm85/eUVAc5IVh2wMCZmU71zUTSMg7ubLQ1PJJKRr3OxU9YHAvxfT
73S/JSGVhjcZ3z4RQHPhS0lNJgnV5VZ8Tv9KwGXVZq23H0loxPiPkk4pAVIc
zDZWFSTkbjSZ1VdNAFt2wbvkKhIaMHSwia4lYEX9GjFSS0LbvJyPyNYRUOlV
7OrYTELDf/j6VZsIyOa0+ZTbTkLtP3eU5bQQEJPDsTLfjetzd/31znb8vEE7
X69hEur2tLIO7CZA04errGSchJLXv5x410vAYa7yLfRTJPS98t+u4n4837M8
jx8tkVDlxLXHGUP4/fKqomJ2kJGDrP73zEkC/LVutbQxklGN/xKvMkGA3TCF
m4+VjC6WDJiXTREgz3Mn4TU3GaU5/wwJmSWA/6Ng/xCJjHiDIzzb5ghg0Pkj
JCFIRq2dpzVYF/B63hNJz5EkI4vCpbtaSwQU8dZPzB4gI/9w2zGdZQLe5Hsf
kD1KRn5Sn6TRCgFBuuIuHsfJ6HF2tRZpFddnrPFDkQIZGbS+VRvDPu/vt0ij
TEaStPZc//89FJGk5FVPkRGNgHKZ5joBop9bvAI0yEj/77WTfdhM+vdLqrXI
iOmU7IvLGwTMj0vTMemTkfo57qom7M4H7ap6RmQ04RJWc3STgO/khwFRpmR0
unB/8l3s9C+HqlsuklHwaKx+IXb4ua7dPNZkJG0c3TiIfWcyUOfiNTI6vIWQ
WMW2CDga8cqWjCwjQgw3sdX4exsHHfH6qTkaTGPvLwjaK+ZKRgXbX4n+xWY3
lDW1vUNGbZbqf+KxV6n9L7O8yKjcJ17TFLs/MKRn2o+Mpg9Ov6THrhKQFzj2
gIyGRpK+x+L55xT+u3znERnVfpEoJWM/NQpPLXiCc2P2yAj8/j5TCmMb4WRE
3UujOIvX68rjESmVGDK6Sk0qVsY+KxTl+CAW19vhB5cPXt8jxZBbGY/rW61+
Ng3Xg9tkfG7XazJKrOM1LcX1op2JkdVJJSPTcY2TP3A9R4JUPCIyyOgcZYLh
6yIB+SXPN7k+kFHA5FVp23m8v86fUrnwmYzEgrrDxPD+8J+d8k8oJKPmMzua
GmYI0BdV3ylSgdcz/hnDHN5vct9mz96oIqNPDWj1OpUAillC6Lta/DxbweZf
EwQQIQvsR5rJKIuL9qzZKAETU6Sy/e14vV7VhKUOEzCmf9pRrJuMct5Kcg3+
I2CQ81kV3xAZuRFZ8/vx/m+Pl/NhWCCjp6NelK34/LTSWEnSr5CR1Ih4VgM+
X01Wj1vX1/H7K7OHRODzdz3S/vkyHQXt5IzT6sPn08q4eJa6k4KC3/xk/P4D
f+8C9c9M7KYgL8kTjuzlBFh+GUocZaKgkC43GaNvBJjz7NEeZKUggZlDtBkF
BJj0WKS1cVOQU6J/y/NsArSu0ZqXS1DQ79b7x0OjcD2eRed9k6KgsPUh85Ew
As5Uie8skaYgD998nsNPCFCX1P/05TAF7XIxc3yKv3cqRBJLtjwFdTIZ9729
RcDx26o/np/B45PS3ab1CZBNa+V9epaC6E+3rRlq4+93m93NKG0KarcxMs/Q
wPU+EU0J1acg+6CyEjFEgPTmPw9/UwoqJS6GOkgRIBgQcMDRhoIeeNvnStDh
89h81MfKjoJar5cpF6xRoVS4v8bQgYIciRNhiotUuFiuYKPgQkEvK5/47p2g
QiztzJsdHhRUZndckb+JCqxeF7jfPKIgaTFJxvA3VKBzPrS1LY2CSgbHfHbJ
UUGvtPtcTToFTSWYsPccokLinuCkkncURCPeKp4sQQWlrCFIyaEg258xUwy8
VPAYf+Fx8zMFvYDknAMbkzBzZdsUYyUFSZ3XVqYpnYR+0452lWEKqgbKjX65
SditaJxqOUpBT+qudp07OAnHyA03fcYpKDJvJDhfZBICB6p3fyUoqOJBSaUO
2yQcsPuqdGiJgrS/yf2rH58AL+/nSeQd/OhbcrOLcOwEcCQa26xJ8KMvW+2O
aE2Mg/q/huWPDvxoy5Zg6cs3xsBbMsQz24kfeXBk21uaj0Gus/p6mgs/mjfU
j9DXGwOejUKal278qOSeYAGX3BhQOVO23/PhR4P/zjfvZxiDKPU7HNoh/Oj6
m8nMB29GoTeD99BQJj/i1pRKUm4egTsuV65zTvKjfLkdeh8pw6Cd/+IMp5sA
qlwy0jzGOQDUNRsv+gUB5M2CEmpku+FVy90PDjcFEXOE4tTvB82wcl3R0n1V
EGl3CckkptXCmQIJdGtdEF0vHSFIN2vhBSMXxXlTEKWpxKSVKNaCQu5Mz3V6
IVRq9XLkWkMN+KymWpjsEkIOa07nz9PUAH0Iq4UsjxAq655QnLSsht15w+bz
8kKokz6j8ITST7iwtUlxWkEIefx0tTVn/AmZxmV8k0pCKEkq8XJq5w/QXnvZ
NagihNofZsx/8PwBYaf0zRvPCKGI+99+FBRUAHtr4YU8UyEks5ei/OpkOfCt
h5s5ewihOzYrY7tcv4F6v9aXp15CSKFu1Z5Q/QauP3fsLfYRQqiUY4qB8xtU
h9+t33lfCInk76vu/lwKbiLOGm+ChNCbRa08HtpSqNPRlW15KYSiGLqmmY8X
wb0kJjbFEiEUJlDULLDyCTIDqp2svwkhy6Ftg4fSP0Gr3cPfj74LoWet675f
TD+BtOzGo+afQsjv98f6I0X50PFrksapDq9X6NKv7oCPcHS+hprUJ4RGIlnu
mx3Ng6HTQdUMW4RRq8akqVdrJlhpWlKEtwkjBoftmpdMM6FL+5ibMoMwsmy8
k6bS9Q4aDXv4PXYLI78X2S1r/zKgzPqI+zi7MOo9WrtpTp8Ocb4dor+FhRFz
qHj0aYcU4Lqf4z0mKoxKd1mjwzQpEPXwQcM2CWE0slP+EX9kMjx+csAXpIUR
F69f657CN3Dnxf3mHBlhpEsz5XCc+zUYfJJ8EHlaGJnInfzBx5AIdV9pOrI1
hBHlkcIdFsME0CxuOlijiefTY1Ow8SIeVCp8O7foCiOnNFMfgYNxcLCh4Yib
CZ7//W7qG+dY2E149pvcEEaJLPOPFE2jIXBG9/gtW+yLFbaDpVFAvyAcEm6P
2x9Vs88Sj4KVtT9y1c7YFS8csmgjYWSnUPgJD/y861Xg9CsMvovUACkI+8vj
Rvonj+BMSM8ZzifY5jYlfNmBUDc/Y8gUKoxofpiJ0zQFQHf5PruNCDz/AKNy
fqmHsGR17Vl3LF6f7MPa1O33wafa43XzS5x/qblnpX4Pth4Oyfodj/snvrVJ
Dr4LrLQfy4uT8Hz41cRiKX4glUA3HZ+O85xX799MeEDuNs61mHfY44d84tPd
Qc5BfHtoFh4//JIycroDaoq6fL65OL8xcNWP1Q1q31iL3f6ATVVj5ydcwWD3
7SOO+cII6dpoOzTchEsdcRoWX3H/c5qZrHnOMKLy3sC4EOffY/tss5zAIb3c
QqcYv6/Z0/vjVo7g5T5+C8rweMm0KUpxthCzVy6JXI3zPI+rFdWXgdf3bObe
GpxvBIx9ULCG10MWn/f8xh6bc2MrvgQ5Hx/+3vyLLRZRrdZtDrJ8sW2LDdiO
I5tZimZQ7J85SDRh6zKI0xSawK9zjSs9bdi70NRVDgPQLxje2tqBzSnHfHdK
D1oFVpnrurC9bupwN+mAxWMm3soebJL7ee7tZ2Foml+0tA+b15269bY62J0/
dvjzAHbd1Xu9QqdgtlRdMecfdtgBrUxmFfAQu6CeNozN5Rjd7aoENGGO5xJH
sScyb+mrysHDxXsXn41j+2epFIQeBUaLmBthk9jP+oL4jA9C1I+3roHE//MX
+LtyVBy4pYt8/aax0ReiME8AXkXXPb4z+3+9G+/tMeQGsfWBaKf5/3Pb098O
s0DW5cXE64vYlN9MB2m3wLGane8sl//P/adsVmaUCo+QPpmsYtOc6BuuaVZS
eXGoTHf9f/dm7LB/qFRFd6pWffN/b/T7y39X0rUxaUW0IojGj7lJpmJEqfmv
7cBx+v9t+DeHtKFkLudLPbgVG5nVldTugsHEiGWx7di9p6pOyHCCDUPKFv4d
2MzEYIc8BX7RBT45uQtbV7j9Tp8ISK3f4LzK+P94Ke+yMqQhZFEzIXAPdh2r
0teaI0BM7xfLYMEOZGKybDoOuhN73teyYR+f3PHdUQlyh6blpjiwB5OuUbVU
gK2voYyVC1u+QaLh3Slw7fioeYwb21V7MchAA5qanjYa82Lf6UliP6UFMnXu
5h4k7HUpk6MlurBUruhYIoBdWJ+VfcUQzpeQl/qEsMcUcj0JY/j6hfbuFlFs
leTapDhT8M6qiNCQFEF+l1rmPY5YQndaKo/dfmz/YxmM3y4Bev3oTcgB3D7+
vcFPS2uge6aV33AE5wbBDGnNV8E64gAsHMP5ubv8v95dh/Jglkqu4zh/UKHJ
GG0DD+82tZkr4JxVhmnohQMMe36y8lPCLh3crmDuBOpuz8eTEG7/rWQl9JYz
7LI1Xx9WxW7Jzjr37SaEGfyjuGhhb1NtEaq4A9PaP99G6YggtC3seCKvB+hr
vD38SQ9bPsSJx9sTOJTsVdcM8fjSrWy7zvtArOj8tYcXRVDiNRNTXaV7sMrf
MpVmKYIoT+V0FxjvwwXeL+6/rLCj08w4+u8DmcU7iPka7s9+Zvjr0wfwZmVL
dqyjCOpVv8QfePwRbJ0fki1yxvmUlGyH5GO4SlSW9twUQaWl4WoJgkEgPhhc
L3RHBFnaNQ7cojyBrFr2hSw/EeS0FuEVnxoGnxKFFL+H47y3LZAZRYPQpqrn
t0gRxPziwC3v+mgIM7/ypSRaBB2knTv892oMXOdOOVb4HI+/lNogEf0UuKNE
pT++wuthasAZwxALXgES5NT3uD2TQNc3jQQY+XfGPDlPBOmq0HzSX0kAQ1Xb
F68/iqC0WiERS6NEkKZ9tzfxiwjiuiXn/HTXK+jx2M/8/JsIYph6OitwNwlU
HA7SBv3F6yWWqm32LBmyanThUYMIuj7PtPviZjLwSDp7BzTh+cbdO6BxLQXm
ht8v32/D4/c27GyRS4XkS0dmvPpwvvY1rGI0DRgMZQYcpkXwfV2sNcT1Hfw+
oVChzyKKVJ0uLxnuy4XHn2+tqrGJossql0aSz+fC6WPZh05wiKLKFxt+F2Nz
oVRaIF5wnyiaCI37wMCXB3n8DLfnKKIokA405UU/wLPtjWIxB3Ge305p184H
6wbb4DYdUTSlZNEsO/oVKLrJZbV6omjpQFYpn0wBdNZ0L307J4poyq91W98v
AKMfelfSjUXR9eTPwXvIhaD+RVbJ00IUpbVLPOk0LQLpBPopXkfcf3fkp52D
JbBk8+KcZYgoMtF9IaURVwahHq+3+4aJooU9Fltla8tA5HFGQVwEfr+vkGK8
XgaGbwsEO2JEEXta47WDF79D7nDHrGGCKFpzNJqREygHu8u8UZo5+Pn6w5le
eRXQax7XKFMviigxv4YOLVdCpW6CISOnGNKQ2O9MoqsDKzmF1NQoMVQXLyJl
eboFbkzWznfGiCHLtowV6xst4PTKQpX1uRiq13FRdglqAd8d9/u84sQQa1Zy
eOafFnjZVsWjnyKGfKuEsmNNWqHZ3Ths7ZMY+iq1oilh1wZnvrq463WIob/D
n/WWnnWAnsOWyoddYii0pL53uaADTARiOAt7xJAUzf7XND0dcO3xlzyRQTF0
VqGOk0+4E/xNaairE2KINPJ995P3nVC88sQqZUMM7Y+O/yL4qwsqssjvO2jE
UVB8vd1lahfUWL3fZKYXR2lXU5NTWbqho7rxped2caQloLh21KQblmJ5WnSZ
xdGDyKrAq/+6YVM7U/ghqzhSbaz+kM/QA9vowbWAXRxxPlFmYpDqAXZbKxaR
feKIltMoLtOlB3jIcxZmPOIo9mKjF21MDwg0PMgK4xNHyu6Pugy/9IBEwN71
CrI4up1tHZXe2QOHTrzVXOUXR8F9um6bmz3wH9BqsIQ=
"]]}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->True,
ImageSize->{684., Automatic},
PlotRange->Automatic,
PlotRangeClipping->True]], "Output",
CellChangeTimes->{
3.564088437762772*^9, {3.564088676848361*^9, 3.5640886865768414`*^9}}]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"K", "=",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"1.09073434774", ",", "0.950824776453"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.71969661792", ",", "0.825451386581"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.63530033477", ",", "0.987092969716"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.677347290087", ",", "0.810658219063"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"6.", " ", "13662560256"}], ",", "0.357457972977"}], "}"}],
",",
RowBox[{"{",
RowBox[{"6.13349797247", ",", "0.357305086163"}], "}"}], ",",
RowBox[{"{",
RowBox[{"3.86879491547", ",", "0.183917550373"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.62854132767", ",", "0.792892088559"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5.85374356443", ",",
RowBox[{"0.", " ", "326758745921"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"4.34873788763", ",", "0.0329897023272"}], "}"}], ",",
RowBox[{"{",
RowBox[{"3.88928052566", ",", "0.17710167223"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5.71095569989", ",", "0.287119835226"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5.74086438266", ",", "0.297452940114"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.131021621159", ",", "0.553611321365"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.389005054513", ",", "0.687051242174"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.92493539541", ",", "0.970214560858"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5.8965832318", ",", "0.334529933935"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.50716456833", ",", "0.987845111755"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.330908681391", ",", "0.656999014912"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5.83892758731", ",", "0.323689247316"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.178900478229", ",", "0.577336876619"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5.02262822571", ",",
RowBox[{"0.", " ", "02198169245"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"4.69861048929", ",", "0.0141990172108"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5.77549979922", ",", "0.307988982641"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.312325972013", ",", "0.64720986725"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5.97945640223", ",", "0.345687130603"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2.73925151616", ",", "0.695516196056"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.87299802868", ",", "0.9760081982"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.1690158384", ",", "0.967692520841"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2.93162862813", ",", "0.592022699767"}], "}"}], ",",
RowBox[{"{",
RowBox[{"4.40248078204", ",",
RowBox[{"0.", " ", "0265358464103"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"5.22074574317", ",", "0.0516379469269"}], "}"}], ",",
RowBox[{"{",
RowBox[{"4.51720738782", ",", "0.0184377719431"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2.05138085009", ",", "0.946642920637"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.47139249538", ",",
RowBox[{"0.", " ", "987606549651"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"4.48206160659", ",", "0.0202815913721"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2.90366847921", ",", "0.608872457895"}], "}"}], ",",
RowBox[{"{",
RowBox[{"4.32888657434", ",", "0.0359547290079"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.70840673996", ",", "0.985442958323"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.586598833689", ",", "0.776758405856"}], "}"}], ",",
RowBox[{"{",
RowBox[{"3.23276938649", ",", "0.404456769634"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5.92809662182", ",", "0.339313565787"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2.70573372556", ",", "0.710448879198"}], "}"}], ",",
RowBox[{"{",
RowBox[{"4.09365253263", ",", "0.100623589291"}], "}"}], ",",
RowBox[{"{",
RowBox[{"6.04048614733", ",", "0.351406268969"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2.2370840717", ",", "0.885929430776"}], "}"}], ",",
RowBox[{"{",
RowBox[{"6.12204216254", ",", "0.35672318179"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.0939275056903", ",", "0.536113160912"}], "}"}], ",",
RowBox[{"{",
RowBox[{"3.57984239834", ",", "0.265434883113"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.625247785634", ",", "0.791657036091"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5.29118443674", ",", "0.0740429205919"}], "}"}], ",",
RowBox[{"{",
RowBox[{"3.59807951837", ",", "0.260341686674"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"3.", " ", "10095033826"}], ",", "0.4838696041"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5.8112938588", ",", "0.317383068542"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.54502106977", ",", "0.987877768854"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.11960800863", ",", "0.957874954452"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.719344612106", ",",
RowBox[{"0.", " ", "825330048702"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"5.42974644343", ",", "0.141264699147"}], "}"}], ",",
RowBox[{"{",
RowBox[{"4.08613320516", ",", "0.103454765732"}], "}"}], ",",
RowBox[{"{",
RowBox[{"6.05913863149", ",", "0.352827303656"}], "}"}], ",",
RowBox[{"{",
RowBox[{"3.85692556947", ",", "0.187763749016"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.8062974287", ",", "0.981122660337"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5.0885339587", ",", "0.0279623460123"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.101992690048", ",", "0.539844254917"}], "}"}], ",",
RowBox[{"{",
RowBox[{"4.99716748198", ",", "0.0203153124274"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2.10568345883", ",", "0.931689766486"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.95300121665", ",", "0.966247797739"}], "}"}], ",",
RowBox[{"{",
RowBox[{"4.91057762201", ",", "0.0164940123355"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.33551600326", ",", "0.984135904908"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.21160287585", ",",
RowBox[{"0.", " ", "974013319545"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"4.34245066877", ",", "0.0338918820064"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2.55886600174", ",", "0.767836547308"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2.26786243914", ",", "0.874192147719"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.911026633105", ",", "0.891773097681"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.82242618127", ",", "0.980084001576"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.16750426319", ",", "0.967433322215"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.146660072526", ",", "0.561231889702"}], "}"}], ",",
RowBox[{"{",
RowBox[{"3.87737235373", ",", "0.181091216657"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5.06425493965", ",", "0.0254373737863"}], "}"}], ",",
RowBox[{"{",
RowBox[{"3.32296823083", ",", "0.358302518245"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.10609758359", ",", "0.954695958967"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.428944968254", ",", "0.706957367134"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2.17522775332", ",",
RowBox[{"0.", " ", "908737248131"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"5.66532141522", ",", "0.269029605447"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.50149245647", ",", "0.987821287721"}], "}"}], ",",
RowBox[{"{",
RowBox[{"6.13600274652", ",", "0.35742772599"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.13960542836", ",", "0.962188148785"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.476160139496", ",", "0.729422677738"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.169664228975", ",", "0.572673138768"}], "}"}], ",",
RowBox[{"{",
RowBox[{"3.42167363644", ",", "0.316640257771"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5.83981650236", ",", "0.323879339476"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.93340185153", ",", "0.96908518394"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.98687244643", ",", "0.918685496211"}], "}"}], ",",
RowBox[{"{",
RowBox[{"4.80251379457", ",", "0.0143811718973"}], "}"}], ",",
RowBox[{"{",
RowBox[{"3.14707068734", ",", "0.454846620154"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.23449363215", ",", "0.97669682295"}], "}"}], ",",
RowBox[{"{",
RowBox[{"6.05362584727", ",", "0.352421420161"}], "}"}], ",",
RowBox[{"{",
RowBox[{"6.13895172554", ",", "0.357570062887"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2.34407080237", ",", "0.845165639123"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5.991903395", ",", "0.347001249775"}], "}"}]}], "}"}]}],
";"}]], "Input",
CellChangeTimes->{{3.564085813603016*^9, 3.5640858214282703`*^9},
3.5640858750572557`*^9, {3.5640859914388037`*^9, 3.564086034828308*^9},
3.5640860775943117`*^9, 3.5640877972199507`*^9, 3.564087882088505*^9}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Show", "[",
RowBox[{
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"0.5", " ", "*", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"Sin", "[", "x", "]"}]}], ")"}]}], ",",
RowBox[{"{",
RowBox[{"x", ",", "0", ",",