-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathUniversalFunction.nb
More file actions
2960 lines (2944 loc) · 156 KB
/
UniversalFunction.nb
File metadata and controls
2960 lines (2944 loc) · 156 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 12.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 156522, 2950]
NotebookOptionsPosition[ 155512, 2924]
NotebookOutlinePosition[ 155875, 2940]
CellTagsIndexPosition[ 155832, 2937]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
RowBox[{"<<", "getFeigenbaum`"}], "\n",
RowBox[{
RowBox[{
RowBox[{"f", "[",
RowBox[{"r_", ",", "x_"}], "]"}], ":=",
RowBox[{"1", "-",
RowBox[{"r", "*",
RowBox[{"x", "^", "2"}]}]}]}], ";"}], "\n",
RowBox[{
RowBox[{"rInv", "=",
RowBox[{"{",
RowBox[{"0", ",", "2"}], "}"}]}], ";"}], "\n",
RowBox[{
RowBox[{"a", "=",
RowBox[{"getScalingFactor", "[",
RowBox[{"f", ",", "rInv", ",", "4"}], "]"}]}], ";"}], "\n",
RowBox[{
RowBox[{"r", "=",
RowBox[{"Drop", "[",
RowBox[{
RowBox[{"getSuperstablePoints", "[",
RowBox[{"f", ",", "rInv", ",", "4"}], "]"}], ",", "1"}], "]"}]}],
";"}]}], "Input",
CellChangeTimes->{{3.7896498356654644`*^9, 3.7896498532425704`*^9},
3.7896498905637627`*^9, {3.789650258674543*^9, 3.7896502643094683`*^9}, {
3.78965046646832*^9, 3.7896504818067417`*^9}, {3.7896505125133824`*^9,
3.7896505398183565`*^9}, {3.7896506082529154`*^9, 3.789650615858631*^9},
3.789650708267865*^9, {3.7896507739061313`*^9, 3.789650795595565*^9}, {
3.7896508683879433`*^9, 3.789650912384102*^9}, {3.7896510305066257`*^9,
3.789651043545293*^9}, {3.7896522886568966`*^9, 3.78965229232825*^9},
3.8010352607201757`*^9},
CellLabel->"In[1]:=",ExpressionUUID->"d969c1bd-80e0-48c4-abe0-741aa0685b66"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{
"visualize", " ", "the", " ", "convergence", " ", "of", " ", "g_r"}], " ",
"*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"fn", "[",
RowBox[{"x_", ",", "n_", ",", "k_"}], "]"}], ":=",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"-", "a"}], ")"}], "^", "n"}], "*",
RowBox[{"Nest", "[",
RowBox[{
RowBox[{
RowBox[{"f", "[",
RowBox[{
RowBox[{"r", "[",
RowBox[{"[", "k", "]"}], "]"}], ",", "#"}], "]"}], "&"}], ",",
RowBox[{"x", "/",
RowBox[{
RowBox[{"(",
RowBox[{"-", "a"}], ")"}], "^", "n"}]}], ",",
RowBox[{"2", "^", "n"}]}], "]"}]}]}], ";"}], "\n",
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"Evaluate", "[",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"fn", "[",
RowBox[{"x", ",", "7", ",",
RowBox[{"7", "+", "k"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"k", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "0.85"}], ",", "0.85"}], "}"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"Opacity", "[", "1", "]"}]}], ",",
RowBox[{"AspectRatio", "\[Rule]",
RowBox[{"1", "/", "2"}]}], ",",
RowBox[{"PlotLegends", "\[Rule]",
RowBox[{"Placed", "[",
RowBox[{
RowBox[{"{",
RowBox[{
"\"\<\!\(\*SubscriptBox[\(g\), \(1\)]\)\>\"", ",",
"\"\<\!\(\*SubscriptBox[\(g\), \(2\)]\)\>\"", ",",
"\"\<\!\(\*SubscriptBox[\(g\), \(3\)]\)\>\"", ",",
"\"\<\!\(\*SubscriptBox[\(g\), \(4\)]\)\>\""}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.95", ",", "0.75"}], "}"}]}], "]"}]}], ",",
RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}]}]}]], "Input",
CellChangeTimes->{{3.7896498356654644`*^9, 3.7896498532425704`*^9},
3.7896498905637627`*^9, {3.789650258674543*^9, 3.7896502643094687`*^9}, {
3.78965046646832*^9, 3.7896504818067417`*^9}, {3.7896505125133824`*^9,
3.7896505398183565`*^9}, {3.7896506082529154`*^9, 3.789650615858631*^9},
3.789650708267865*^9, {3.7896507739061313`*^9, 3.789650795595565*^9}, {
3.7896508683879433`*^9, 3.789650912384102*^9}, {3.7896510305066257`*^9,
3.789651043545293*^9}, {3.789651100451394*^9, 3.7896511244752464`*^9}, {
3.7896515852230463`*^9, 3.7896516674065924`*^9}, {3.7896517668207707`*^9,
3.7896518571276007`*^9}, {3.789651894257575*^9, 3.7896519388445187`*^9}, {
3.78965198791069*^9, 3.789652003682215*^9}, {3.7896520530567255`*^9,
3.7896520984847803`*^9}, {3.7896522552763147`*^9,
3.7896523705377493`*^9}, {3.7896524746722326`*^9, 3.789652485371306*^9}, {
3.7896525393945093`*^9, 3.7896525872527943`*^9}, {3.7896526732468286`*^9,
3.789652721493022*^9}, {3.7897198777861557`*^9, 3.7897199299187503`*^9}, {
3.7897199752245274`*^9, 3.7897199760212507`*^9}, {3.7897200269848475`*^9,
3.7897200781928797`*^9}, {3.789720133595574*^9, 3.78972020213341*^9}, {
3.7897202406894584`*^9, 3.7897202430796914`*^9}, {3.7897987252072773`*^9,
3.789798725644673*^9}, {3.7897991987020855`*^9, 3.7897992993632975`*^9}, {
3.7897993360761213`*^9, 3.789799374104208*^9}, {3.7897994522828903`*^9,
3.7897994705918202`*^9}, {3.7897995167243786`*^9,
3.7897996537043676`*^9}, {3.7899685374875183`*^9,
3.7899685400338254`*^9}, {3.7946381346944456`*^9,
3.7946381415085783`*^9}, {3.796364649373777*^9, 3.7963646549037447`*^9}, {
3.7963647267689686`*^9, 3.796364746163571*^9}, {3.7986977876580114`*^9,
3.7986977883328104`*^9}, {3.8010353279367294`*^9, 3.801035340552951*^9}, {
3.8010353931465626`*^9, 3.8010354097557893`*^9}},
CellLabel->"In[6]:=",ExpressionUUID->"e8adf823-1869-4279-8841-e8317a8c9ff6"],
Cell[BoxData[
TagBox[
GraphicsBox[{{{{}, {},
TagBox[
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6],
Opacity[1], LineBox[CompressedData["
1:eJw12Hk0Vd37AHApkiiklPSaMqUk8UbFI5ExJBEqUsmQRJmiSEiSBkSGK0PG
ImPmfXFNmZWZ3qvcc7jXnDQp391av99fZ33Ws846e+31PM9+zha3dzO7xM7G
xiawio3t75OceCq2fz8LxdKV+ieOdiDKnrKiaQUW8la0Os8n1oEsPEaPZe1i
IdViL99Dy+2I9kvGdYcEC80bTlkmFrej1A3V5Wv5WSjrittUmFQ7OqdMmo3M
MJHX4mvnDVxt6EPAoZCQHCZSdyqy7elsQdQt45P94kykWrnG76ZzAzIZtnC9
/WMChemZB2ruLUN3nn13bh4n0VM5tfEbWknojKzw94BeAj16tjizdC4FZkzP
glo+A919eU/9lGM5SF7rZHuWOI7YK8xGvu6jwQbpC/6LHp9RGRXZvPjaCmmF
Xveoxp9Qc/WDQDK+G4ZUynkUNcaQtPCpbTldH6DZZIdRyhY6Wv9ZRdhOeAAK
qHbrr3B8RDscB0Vjl4dg56PQpGsTw+izeVpaTuoocDyYTfNJGkQBBlttxGTo
sOtGKaXJtx+ZqPwqlDw+BjXhVF5h2V507/7w3kPXPkG68bsE3bEeVNqxsC7b
/TN0rez7p6q2C51MKmj5R28cuqvK5Rwn2lCTygdtH0EGKK4WEP+3vw1dW3KR
PyTEgEh9561rGtvQ2FWTG8vbGGDUJ7z2RVobGr7btfumKAOaZ/3G+8+1oX02
0gfsdzGAKqGRrNvbilgo7+U4MCA/rE5Qpu4dKs0PeVzoxICH5q0rjIRmxC+z
YcqtjAGnixsEtO83owp2psXvCgZICFKlUr2aUVq340BYNQNK3xcbnjvRjPrp
aqLxdQygm1Fi+zib0RbrkIqXbQxQOuG+t8m9CXXX+W8/T2fAwHEh2yzdRjTm
fkjWkZOA1Nf8HpwqjWjbYTbjMi4CXHl5Qi5KNKJ1vE1hnOsJYG9nyxX73YBq
c7nVkzYSIG/EXIorbECJZgbJRVsJuG1QHXl/RwN6TU+E4F0ESOpeqHH+Uo8W
M63ii40IOJ1+Kkd0rB5dj2xNrTYmIGKV3rMPHfVodZdnF82UgKXK3Vc1cupR
oJBLQrs5Ae8Ul3YInK9HdWx3Z5rPEOAhfP9WeUcdEqoxCHS4QkDtdN5hrpxa
NJP3g1s9HL9vkCJbHVuL3LW8MrkjCNiVFSXoEVKLbskvXO57SEC0vc/UsF0t
2jtXae74hADH/iOJ+UK1aNe34BHPOAL4aj/8sgihon+yeZIOZBBQLfvV07C2
BmWMe6adohKwXCtaLZdcg9ZladS31RJw0MZgDdetGnTmUdtRrXoCSh8mP6Wp
1qCPEQKXZRsJyFvQz1d/U42EVrJUxloJeFFFmdibXIXSkk5Or+kn4K6pno3g
rQr0+3FuvOAUAXWTHqkL1hVI5EZso+U0AWx3kya7VCtQNiXQ7PkMAf4lC94P
F8tRrbx0uNA8ATeEk6I5r5QjoS5XH7YlAhzG59u/W5chP7LSMHiFAH2fBM1R
1VLUwO2cdZKfhHPa3Gh4Uykipwwf+AqQcIPPV31opgRJGNoFJ20igZJlcbA/
vQQxcvjL/9tMwsIAv3I3Xwn6eGBY/rgwCfFqYTINE0Wos5xXqU2ChHyOby/r
64sQ46C753tJEmjdl3bWUYrQr6t5HQM7SZhxOiqOzIvQictpdaPSJGjF/xEu
pxYiCQmU37WLBObPGxtexxWgeG6deGslElYaP0fkXi9APCpVqkf3kyAYZbY+
x7gAvesomZJTJkFDXpErc00BUppXiplXIeGpDWtVyrU3yM8qnXRSI8HTp54p
9yQPPbKNjvwDJGz5lVj2Yy4b0SezGt8akjBpyhn9X242GhtcR7U0IqEqw82t
wSEb3W66yLuEfd5MS/rJSBZ6G7w2fY8xCa+yySjZ5kzk8vENNcwUr/+0kptl
8kuUnspbMmNOwua8BAN165co2WF66vopEiZWc0hLbn6Jyl+99PmG/TC/f2Qm
PB1FKAY9+GFBwgDnLYNQrzQU11NJmTxNgmtJk1TJ8RSk8Z+0r+8ZEjTX71uV
wJWCEgv2TH/GFjgfPxJY/wJl3GYUG50loYzHNcpI7QXKnD0N286RwNm8k71Z
n4LcapU1KbZ4vde/lUWhJGTlGnbiF/YJ0XdutipJ6DpfYKmFHQmJXm6jS2KJ
yKDb0o/rPAn7pCrKpL4/R6EU/TlLexL6uiLc5l2fI2HVcEomtr+/rXT15zgk
RZ568RW78f2aaPPOWMSuV0CJuEDCmSATt7sZMWhfyKHQjIsksCtISJuIxKBN
uqu6J7AzBxdHhJ9GI+agmZvcJZxPivEGhbei0KFLcRkvscP+G5caM3+CchWu
rtx3ICHIyzv9QvtjFCCcSq/G9uflliR0HqOFrG9Sc9hjXuc0+1wjEb30wKjJ
Zbze9Lvqw+ceIla7oMkt7Hc9WQfpJhFIX0ZSKhu7UOGLMnNfONJzefX7F3bG
ma1KsxL30SxThk3SEedzuPrexU1h6IdVr4MedhBxT+7P1xCkCFF2kdhegq+l
V5PBKO7e6y952M5aPZJcA3dR3CST2Y59kiLyj0DFHbRE6eNY60SCbtuR7UK5
gejskL+cOLb3YruiqmoACpzQLFDDtjPdKq8lfAutaCsnmWLrvbKXMlq+iQpU
9KcvYStyvRa1+OiDLtc4pvhib734bZsd1QsNqVLLH2CzUY8IOqfeQCqWiv8m
Yk9uj9hwI9gDVcY1bcnF7vHu47rtcA0dlb9hU4Z9I/MIJ9+TK6hz8MgaGra2
bd9PyVOOaDJGmb8De7OQy+yBbReRlpN2UB92W9JKU2yFLTp29brlKLYrr1wB
0rJEdUno8SfsHT/TlTtjjiNEP6BAYFMLZ3k1jNSQiBVt78Tf7+3ojdeWFgfz
IaeYvxZ2tDc/oqYDcYoHbEnsK7S1tT6CJ0GmSuzhOPY784/9phE2sJ9XXpSO
He1h7S3Ibg+u9FObh7BpFQ1BbBoOoLk7ya0H+wv7vsgpX2cQf8Wh0IItYZj4
fKDkKjy6ed+0Bjur5a7ZJx93sGnc01/wd32uaqcHnl2HI/y/atOwB/hnz3YU
e8J8/Se+aOy5kvQLtB5vWCxg1Adhc1lbO1XM+cJ3bZ5hN2zRPxvd3mzwh1WZ
NhY22DJp6urGUoEgFWPuuwdbyXOrpr7yHTC2XCUuiK2h+0VL+2gQgFn/7h84
PyxYWXoHzwfDHe3/rtVg21ffNVS5FgI0K5FsCvbVR+eMFQNCQU8nUOcWduh+
QXPppDCwLCzLUcF+yjFrIf7qPqxb/+D6RmxKf4uVSGU4dJmGvCBxPpf4BdgK
DEaAyj9z0lHYC+c9VQLCH8NHq3pGH66XxJXuQb8dT2BFUOdyMrZuksJtnzdP
QFpBcI3D3/gA2eje9xQS3xY9msb1eMzE+vRFiRgobtsyy8D1OzdVumxXEgOU
oxaGydgJ4ZtSzuo9A/14Vp3F33hD26TF1VgIbVZdQ8X9IOEw+OlXPIcHkrc6
/XC/ODaUIHrseDzUlvZySmPPeX+v16LHg5PZM6sO3H+OFRXwHOZMhKwXJ05s
w56T20lRMKMARV8uPA73r9QHwfR1ninAT2uROIz7ofdQoVJYTQpohBfyN9uQ
YCQ3FszJlQr6hrtEzLC/NarLrU5IhfQNZXftrHGc/Zv7MjUNNqt1JTngfrvk
47R6licDVsXuYduK+3drU+wpV4sMGMhmyw45ScKLLY2ZrOQMWLJ46jpvRoJh
sYTRhFIm8HCN6tefwPHZ4eix01lg9SXMxNQExx2MpT+k54Cj2JqnGw1I8Pk2
99xpMgdqE4TeO+uTkB4WxbuyJxdCgmKu0vRI+JMzsCj3Nhfu6M4Ue+iS8GbW
vj6g5RVk/TIJqNTG55Wvt538TB64aw7z/tHA5w238AeqUj6wEmy+aWC7JVTp
Wnjng0i466Hb6iSMfwyM1WR7A4zC+PffDuH8W9V42+X+G1iXqqjdr4r3U8f0
eG1CAWzwAzldfL6GRoqv5akpgGcOETWu+0gQ6V+gWtAL4GdXXt5TRRL0HWOU
p3YWgohQSnK/At7/8KHtQnmF4Or1iHZcnoRTnReZV6hFcGfPzx0sfN5XnPa9
t5VRAj2Hb+1h4vnh5lVO7qPcpXBMJ9y9Ac8XasFREa57S0GLFtpEwfNHWf7r
J3W+paDc55JtuJGEUs5PCVc2vAUbrkqdSG7cr4sN3lAPlIFaZAejlI2EbD6R
QcfwCiifX1mIYeF5TTrbJiq/Al5G7AnazyRA9vC/H6s/VMBPd7mdnRMEZFw2
/SwgWgm+7Vkv2AgC0muCp6uKKiG5876/ER3PX1emV/GPVoGuaE7jvQ8ExDXX
7Crfi2DKkH80opKAoM82v1TMEcjdnnJfLCfgyp/vrYU+CAKinHdblxFwRHm/
66taBBGh5wXESgj42vm+v1OOCicuaaTF5BFAOaQnXF9JBaWSo3SZFALmBfYl
Z/9XCzt9Qjkmgwl4Vsue7SVDgz1qJhvpxwhIsc0bvKlKgxMeIu8XtQl49duK
O0CfBmzrjJfXHsXzoFqByz0XGggOsQfIAQEzBbYKcfk04HBKO2Z1gIBjqVVF
5QcaYMwqg3CRwfNvkFfNsm4jLO10zjmL5/lT2sz3QY7NcJbRa+uJGLDY/GVi
6WYzHFtcHTVfxYDo479/Oz9sBnFXMcIF/098sOCTPVnYDAyu1CnrEgaYOf3r
L7ncDHVf+/wkchlgHBm0k/aoBRT54vMtnzFAb0DYk+PtOzjy2LDb2oUBB68Y
bgnjaIcXOoM6TRsZ0Hrm+9uV7C7o6PP/wjQdB2mLVh27xh54ZM3NPuL/GTZJ
2NhW8/WCW3U5TcjvE1SyPQx+v78fOu2rns9dG4OlAj8VIngQdulRJnqV6cDy
5FkoyBuG3uUnTRYToxAZkfQotX0UTipnRlO0h2GswnNEl5cOUwGKfVLKAzBY
Nr0kLDYGapv1W4tle0FYTNtySv8T2ETVru3L7obCN8Kyplc/w3Plg0ojm9og
06DuNl/AOBR36Y7Y/6IB47je9s4MBsQNmFbsppfDHetkdWYFAaFqU+yRHulw
/bFXV2wLrsvblkHK6BnK37s7++jsBOy2ou+Se/gW6Q0UrjVaxQStcCGRajsa
Cj+9JX0TJxMesi6MltyjofYBX81hbiY86HR0K8qjIbNBTV9nQSbo55IrVcs0
dGaogxkmw4RPFg3Z6543oGsjzPaG40zY1jIyeK+nEcXRJaIhngn1pKwFr34L
GrILVVybzAST7nSLpGstaMfYZFtHGhOuKzp93xfXglLH3nCce82E2AVrYSey
Bb36pOHtT2UCt03M6w2h7xB13Nq6nGCCgqNMtQqtFbFfqlkKZDHh0PBZ0Y1T
rUiHIR6lN8eEd2/nuac3taF3jInW/h9MOJh30Lv0Qhv6QHipL/Gw4L2CpF/A
6na05fLQYDU/C8zjVZf95duRFanuFbKFBfPbxX/ePtmOPpJr8gXFWODB2+zw
OK0diTk6Go7sZMESm3JPcms7sp9oJdPkWDDW4FJc9KUdpTvuDXZRYEEvG3N9
2/YO9H/3IfD/9yH/A7NQ5/Q=
"]]},
Annotation[#, "Charting`Private`Tag$3289#1"]& ],
TagBox[
{RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6],
Opacity[1], LineBox[CompressedData["
1:eJw12Hk0lO3/B3BLlqQSkpSEbPWUUnoifFoUQkpIFCpPeUSk7ErZQlQi+5Kl
7MsMI/tlN/Z9pwhhZu4hIUX5Xs85v99fc17zOXPu69zXXJ/P+77Fb9np/8PG
wsLCz8rC8t/n9MybvUeP0pEts4pDVqwQxR8syicO0ZHS0UiVhC4KMnIYPZ+2
n46u8jTe2+NHQbWrMraiEnQUldFReowoQElbyou5ttHRSWXCrKo0H5kdm9Yf
YdJQsoJ1/HUTEurxPOnrm0FDy1elnhicTEeVQpOz/eI05DYpPts5E4D0ho1s
n/ycQbvKshfrE/PgWfiKNXVyGnlsS7gpp10F12VFVjx7v6KbL995Zrc0AvPS
DVDKnUIyrewvN1ztBEn7dpbw2EkkH8Oh8OhSL2yRvu2x6DCBVs96By3bDkIy
2el55cUvaMWTV31cfRSGFIt5D6uNo5NPPr06aTgGVD1RnUShMdQu7yumwv8F
SJUWm2w4PiFdAc7pk5ETsO+VX5z9zDAy17K3Vf4zCRwv5pJd4gZR5zJ558yd
r7D/UWF8g2s/GrDUO7cWOw0VgZWbRWR70UbBKb6u9hlIudgUozHehfYLbKnf
+HkWOtaP7Cmr6kA7Lz99P1FJg86yYjmrmRZUGNotxB5Jh8Ps/OLH+1uQwsPM
PfRoOrzUshbeUN+C/HPEHDrj6KDTJ8L1LrkFaQxXr0Ym04E65z7Zb9aCbrg/
jxTIpUOlhFqCRm8zqpM1Iwrr6JDrXy0oU92EfhKKJMo3OgQbNK9PxVBRW5SK
ZIg6A4wL6vjVA6hocTwy65QGAyQEK6WSnKjoV/l5BaYWAwq7C7TNLlNRhrWF
wlk9Bozpx0f0cVLR2XS1Db3XGKBw+YF8w4MG9FHk/ETEfQYM6O4wT9OoR/Vu
FcejwxmQlL3NgVOxHjncmzyyMYoBtpt5fS0l6hH762oZpxgGsLWyZO79XYfu
5iewX3jHgAM6tOVIch2yLwhyG0xnwJML5S8DROtQuy6raUQZAyQ1bldYf69B
LwJ/RLwcw+tPMcwQG69B9hFKeeQvDAhi1QzvaatBIYzXPT2TDFgu/eu+WkYN
ks82Pi0wy4Cmw8ui/DdrENsv7QyXbwxwEAl4XNxWjS6zHCBNsRJQReSocGdU
IdrCscua4gQsX0iULY+oQtnbewYPShKwPy1U0MG3Cg3RjGy3SREQdsuFMWxR
hWZDtlG6ZAmw6j8dm7ujCu+3YL3qYQL4qnpWjXwr0UV//mmKGgHlskuO2lUV
6N3vC/SDJgSsVYmVyyVUIN+a7Q5FpgQom17YwP24AgnvpJ89fYOAwuCEN7Un
KtCf6hdUXQsCcha0clXzytGg8VZD/TsEvCuLn5FPKEMtc8OOGx0I8L6kaSr4
uARFzN3JkfcnoHrWIWnBpASRsrIDvQMIYPGOm+04UYIkj6uRegMJ8KAsOAcv
FiPhStXRR8EEPBKJC+O0KUbLryTy4t8QcGfyW+uKSRHKXOpSeRdLgJZLzKnR
E4WItn9nh0kuAWbqPGhYoBBxHFscepWHf8/nqjrEpKD1n2+/VJMIiE8zUu5P
oaD2o1tnJAoIWBjYdqyTj4KCA6Kam4oIiFbyl6mbyUdW7J/miqsIyOX48b6m
Jh+xbafUtlUTUNv5z77q+HyUpbwpfLyGAOa/Z8WRQT6KTWE9xFpPwJnoPyLF
lWRkb+CtINtEAO3Xoy3ZkSSkvFYfsL2LgPX6iaDMhyTkbJEhydNNgGCo/qaM
iyQk2FxWvIatduAwd+oGEmKeURka7iXgjSmdNdE+D0X6P2Y8GyTA0aWGJheS
gxoKhPVtxwgQWo0t+jmfjiR97TmrGATMXuIM+5yZjmwfm5z8lyCg7IOdXd2d
dETTVs7ZyiTgpv4Z6ZCRNDQimqJ7dY6ArPTpUFlqKurlWHTo/IbXb6xgdzXh
PdJa9zR8sEzA9pyYC6om79FgD3H3N/YMO4e05Pb3qNpFsOj5DwKCc/tHmIEp
KL01cVvECgEDnI8v+Dklo9+Up+nvfhFgS2mQougmIuJzprX5HwJObTrCGsOd
iNp4dY3bsflvRo88rXmH+CrDvVXXCSjitQ3VUXqHPvWxhwqyMIGTuo+NqhWP
ZtK132azMiHr4Y+iUBSH3Kba7bayMeGyWJOduWIckpDn9rfDjnWyG13eG4t2
zQk82M/OhCNSJUVSK1HoAHlV6sUGJvR1BNl9s41Cr8i7iU/YHh7m0uUTkYj8
tf7bYQ4m1HdvCDNoj0AnRErz27Gve+nZeX94ixQyiZ0rnExgOyQhrbf7LXow
qtuqysWE1MHFEZE3YSi8XrriGfbC4egL5MehKLvutvEGbib4f56UGjcIQS+G
S+8vYns5Oafcbn2NuFbLfu3fiK+/mUfy67nXaFNgaa859riT2ak+25fI17XS
pRa7L8VbddgsGL19QDm1iN3UlaY8pheE/L6TrkrwMIF86Psx2pFARK8Kc3DF
/nBdWGFOIgC93ermlIQdHagqvyjgj9hWLBobsb2+Ppf7s+SLLJ8JXBfYxAQn
wWxp9mkfJE8dj1HEtj7TJck94I2qXmTsN8K+Er97D3/JM7RhRUDxDbZGy+ld
OzKfomf65XnZ2M6LrYdPnPBEP1Mt3BuwLS4JHzgj8hjxGi6FfcbWzLolpbPm
hjYlu/1ewj7MnS1m9MkFXTf/U8DDywRhyx87LSqdUOrQg1JRbJbK04LWSY9Q
3p1OPnns2V1BWx75OKCOa0coathdzn3cT+7Yow11nmk62I9ST3Pyhdggqboy
mjG2unnfL0lDK8Q68cf9Nvb2Hffm/t5piQRe7Ltug90St94QUWKOWgtUXjzE
tt0sR0JnriJjU+2Nrtiiv1KOtb/VRbEWhn0e2JXkuc1qOkoo7/zJhSf/XU+0
N1pdWhw4+KVueGKLWN0yOK10DhT6WXf8V7ep5apyEbwCJUMdYu7YTQaf+i8F
mYJM1wtnJ+wwBxNnQbZbEFehtMceu7akzotF7Q4keY4KWGF/ZzvykuFqjfu0
i7EZtoR2bNQA5T6I9bMy9LHTGr31v7g8gIntnm3n/lufrZLxQPhD0NSdXz+O
PbBt7kZbgSP4hBs/lcaep6Tcru1yhpqtmXqC2NwmJv+WzLsCVe6PLQu22J+t
dnlbPGBrsPIwDe+PTLKq6kWppyD4KiGpBFvBUfiU1rFnUNpdvZaArabx/Yz6
WS+Q+TXy3hvbiJ6mqXzTB7wbmZPnsG+Ve2sr2vvC1TM0t33Y91+ZXTzs6Qf+
RePmrNh+RwUNpOP8weMGSagQ/x/fcMwZiWcFQLZi8Ewwdnx/47XdpYFwuenO
RktsirunOf9gEDy6yXdiE/bCTUdFz8DX8DD7L61z+DzErncOuouGQH2BzjwP
tkbcoScueSHQpFsb1YbPW+zAdP2DvjfQ4PL7ux72eT0TY0uJt2Bzy6FOGZ/X
eUbhmgXlLbyWn/acx+c7JlAg8YZmOLgHIJUU7Pm6llmj+xGws7OznOO/ugq4
a5VEwQqP7Wge7h/nh2LEzutGQ8l3v0wj7HnnlZozY9FADxHx+IX7z/l8Eq8K
ZyzkFJP3qWDPy+2LP6QfDw87N4Wl4n6W9MJnbKNjImR9KWHswf3QeYis4F+R
CBeU7k2k/CZAR27ch5M7CdqS8kdksX/Uq8qxxyTBx887+vev4Trbjwdrlckg
G+1GF8L9dtnlX/Y53g9wlmU67NUSAc0NEYa2Rh/gkv3VwqVFPJ+F6lPpCR9A
9MrToWvY2gUSOjMKqSCccuLA7u+4PjccNm6cBt3zkkz/eVy/c1G6JyUDzruP
r7HRCXD5MR/172wGnEX6NYY0AlL8QzevH8wELRmXtg+zBPzJGFiU+5gJV9Q7
yWdnCMibu1Xj2ZgFjQ81Cqym8LxydbY4wMzBcy821vwznjc8Ij2VCrkgxm6e
G/6JALuYMg0j51wwsf7D2TJKwOSnpxGnWPLA58Syz5ERPB9Z65/cC8iDBve+
0ukBAubPXdKtiiHB9u3/CLPi+er3UpyLt4IExqnxbrs7Cdjdv1BpNEaCY48J
8eMdOC9YvT3G2EcGCkcLWLYRkBQ4tGtHDhmm0+SKM/G8Nmy3pNlU5oOw5633
03jelxi7PheeokB5T76nAJkAt/ucPGd5CiHO4UjmZ5wvlHxCg2zlC2Fo36+2
dJw/inKzQ6pdC4G0Hrn+dzbOS5xfYmy2fIQnn59yqKQRQC64kFf5dxFMkYzS
v8QRkM63e9AqsAS2aep4ZDzHeU063TQ0twTMA1zKFf0IkFU5/qm8pwSOZOf+
qPAh4MPdSxP8YqUwsBp4tfkZvv/4y7L8UpAN8qtrdsf7Z0Owbhstg9JTXDfv
2REQSa3YXyyPwMO8tVHKkACvCdNVRQMEW5fDVF2uEGDzZ6WZ7IJAY69QBfUy
AaePHbXNqkJwRSpk6vZFApbau/vb5Sph7NTWdi8NnJ9OaorUlFaCyZK8wG0l
Ar7xH0lI/1wFB1Nko7J3ERBexZbuJFMLfu8bfGyGGJBonjPodqIWVMd319wd
YEDW72s8nlq1oPJm8+WbfQyoViLde36vFmjFk6Z6XQxgkswPRebWwmPfE4d2
NDHgfFJZfvHfddD2s6HFsBjnZy+nijWNepDNED74Cud5Q3Vat5cVFdKKHtgv
ajNgkfp9ZtmNClyr7Fx6+HkhTPf3b+tgKnR//5icep4BPUZ8slfIVOhJ7JzT
P80A/X+Pe0iuUcF2cLU75DgDLr702lf7qhHmU9P78/YyQHNAxJHjYxN0XTeQ
e/SdDso22kL+HK1AUi9jEQilQ/P1lY/r6R3AV+m6JN1EA2mj5nMW9V0gPzj7
ppc2CwISpublfL1QSI04qT48A6UswT7dR/thc3S9QGn1NCyT3BW/+gzCWJG6
mZnjV6A78i6QcoaB/6+7k+sSU/AyKO5VUusoVA8/6zlXMQHjJY4jGpvHwLDp
2vCQ2BcYLCKWRfaOg0ywXE6z9xiI7FW/ytD6As58zc25BqNAzhORvXR/AnKF
24Z/PR6E1AvVT/g8J0GwfFPUmdJemNLV3NX+YQp+iA5c63LqhGcmCaq0kq9w
PGc+YDquCR6+duqIaJwG6E62HJCthlz5v9LPzs3A/dYVccuLJHx/yFw6rDT4
cOmWDe9dexRoLJQiwEkD49UuvvhIR9Q64HpqmIcGC0qjnMNNbkh/8JSrtSAN
PKtubMmM9ELXh9po/jI0WHFbYkixByP7EVprnS4N/ExPq7EvRqLIMYkwiKZB
7A6H6KNrH9CQhd9hrgQaOCiWZ3C9T0Wi47Mtbck06Mv2ujuvm4aSxvM4zLJp
kHBwR8d6QjrK+qLm7IGfa9NU7xdtP5eFKidNTIq/0uDuko5OUGMeYvunYvkp
nQba98avRO8hoXNT4qGa8zTglyt9RsY5vWlqprn/Jw24BS3VWfeQUc9XJ9Vl
XjqwJp3cIvwwHwndHRos30YH5tTdBSdqPro2rerkK0SHWS2nyc+iBejT9IZc
wb10SLS6M9VOLUB7ray0R/bRIexiPtNoDwXdmmmeTpajA29iz8r0QwpKsZL3
uXeIDsc3BbB6N1LQ/70Pgf9/H/I/Usvz/g==
"]]},
Annotation[#, "Charting`Private`Tag$3289#2"]& ],
TagBox[
{RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6],
Opacity[1], LineBox[CompressedData["
1:eJw12Hk0Ve33AHAUqVRIKhkylgZD5Y3e2JTMUxJFUZrMUpkyZQwZEkWZ5yGz
zMNjvF0hhcxC5nvde1RCEt/nXev3++usz9rnrPOsZ+1n732OoLm9/h0mBgYG
TkYGhv+uM7MvDp48SUWv38nzTgXmoITjFSU0CSoKNe2g1dKykeGDEZWsI1S0
01aNPVM/GzX/OWTLJ0RFpSVs13J4s1DKztrKLRxUVLaYGexYlI5MT83oD9Mp
aFTGiUvoaxLq8frX3z+HgubXtx9t3RWK6rkn5/oEKehqZa2xkls06A4Z2nr+
nkV/3fh7lhmqwPvVihV5cgYJO/CKv9hHgmuHeVa8vkyjPSzHfb6UfgS63nWQ
K5hCNbtz17sGukH4fifDq7hJ5N1Vukga7YOdYrfcFx9MIB2JcFHWbcOQWuz0
tF7nGxp5mrM9fX4UBmUq2aQUxpGRnv6qTP44kHX5tJK5x1Bq0vJD4/sTUFR/
Y7sN81fkm8of07Y6CSLhAfH3Z4eQiYG4yOfb08D8jEh1iR9AnWkdW70/z8CR
R2UJ7137EI3D++HfbXNQF1y/g+fwFyQsXKYmrkSBNJ0PsarjXSh8Lei21iUq
fNqQ5q9p+ITKIyM1wk/Pw+eaSnGL2XZkUPqG/oudBlKbOAX/6cPe3to5tZsG
YepW+zaT2lHV0Pvlbm4aaPXybElKbUfljBy8b3lpQCbcJvtM29EFxSfvlA/T
oF5IIVH1SxvStpDmEQUaFAQ2ch1q/ICeb8+898aaBqEGbRtTsWREVr0ZY4Bo
cOVdC6dyEBlJkBSMtjfSQIirXjTFiYxuu46y1TfToKz7nabpRTLiiua+JvyB
BmP6CdG9LGQ0KHg+6HMPDU5cdJB87/Aeucaa7W6fo0G/9l6zLFUSUrqY/FyO
kw4peRwPWGRIqNH34K4CLjrY7mDzvy1EQuWXun2E9tKBqYPh7cG/LejiUoX6
Jl46HNWiLMUUtyB+vv0GuaJ08NSoDQvia0EViuYX42TpIKx6q87qZxN6P6+Z
/PMaHa6kXc4RGG9C/zhl3uczo0MIo9qrno9N6AAHWeXCTTosVR+zU8hpQq2t
klvC79Dhg9QSH+fNJjSm5dO3zY4OD3iCPCo/NqISYiwv1ZMODbT8s6w5Dci+
1fz71QT8vEby4droBvTK6tBT5SQ6HMmK5Hrg34DKWQKEjqfQIcrcZX7oBo4v
b1iupNPBok8prmBvA7pK+nPGOY8O7A09fwz965FpW/vInho61B7+5ajZUIee
hd6k9/bRYa1BoFY8sQ4J27eF3hmgwxkTjc2sHnWoOCP34Y9BOpSFJr5olq1D
bBsvObd8pUP+D/UC+cJaVD8ZEXdgkg5JNQmzkok1yOU80/B3gg6+emomXB5V
iPfkhXF9FgIa5x6k/DCuQp/OWJzP2UIAg2/83CfZKjQqdo66wUqAe+kP59DF
SqTvy8aWsZ2ARzzxUSw2lUjnW0zECDsBdye/d6wYVyC1rq1Zv3kIUHeJVRyR
LUMqzZNjU8cJMFXehoZ2lyH3+Qx+fkn8PLur/CC9FJWpDFwykCIgIcvwTF9a
KcqLME2rOkHAj36OU5/ZS5HCId8Ru9MEvJELPNQyW4K69j9766hIQAHzcnpT
UwkS/eJzPVSJgObPd0QaE0oQ04FXLKnnCKBbnhdEBiUoZGxGnqxMwLk36zyV
9cWIi2tAcVWNAMrqo515MUXIY7I/ck2PgA3SRMjbh0VI7dX+0p8XCeCK1N+e
o1OEpq0lO2b1CVA4KsWaubkINclljrcbEPDChMqYfL8QuWWGxLpfIcDRpYki
HpGPLmjE6T42I4D7T1zF74VsFBnfE0+3JmBOjyVq9G02+hMeEB5jQ0BNhr19
y91s1HbGvUrRloCb+ufEIoaz0CD/3ppndgTkZs9EHiZnIpmhRVs2B7z+Kyfs
jRLTUfMjluAKRwL25MdqyBunI/byzJ0qTgTMbmIWE96TjiIETNs/Y4cW9A3T
g9OQeDnvzwlnAvpZPDQCnFJRvv8z2g9XAmxL34uWaicjkrtBVLUHAYrbpRlj
WZMRX3x59jFPAjhvvhl+0pSEKkX4V2KxK9hsI7XkktC0YQc4ehHAQhZhIqsn
oGMjTY85vfF6Hy5XRKJ4tOPqqJEj9kWBD/ZmMvEofZJi24sd52Q/snQwDjVy
dCpH+hAgLVpVIbryGuUKBMYv+xLQ+ynE/rvta1RgwnhOyw/nm7uZWO1EDHL2
uC6QiE3q3hxl0BmN1tcr/cCfgGs+uva+GS/RzK3531YBBDBJCInp8r5EUWF3
7hRhZw4sDvO8iEJGStVbl7B/SL3RKPaIRFwa1DXXpwQEjk6KjhtEoFzWh6E2
gQT4ODmn3ep4jv6RC89OxXbfsU14+sJz9OKDNPsA9riTqWKvbRjyyNqoUQjC
603zlR8yDUXU4uOb7LE/dGWdGdMNQY05U5Hx2MUSP09RpINRs1df1C/sjGv7
ThBCQcjRhpdZIBjnc7C85OLuQHQkYhypYPtMPxVf/+WPeiRHuCKwnbjyxDbN
+KHRNIGCEmyrc13CrP2+iDFsMrIH+1ICLz9nlTeK1yTOcjwjQLVd6cDet0/Q
rK8E43Fs58UOKVlZL1QtS9ulin1Db9/RczweKDz4sKUZtlquuajW2mPk/n6C
zQlbijVPwPCrC4p02f8nGHvf7eX9N+qdUPbu5pMJ2Az1SlxWKY9Qa/nvsgLs
uQMhOx/5PUDMGVl+CLvLuZfV8+595BXdFteB/ShTiYU9wgYxjTpsDGArm/Wu
Cl+2QI+MgnMnsffstSZO77+N4haPpNGw2+M33kdXmSHdd3LTi9i2O8SL0Dkj
tN7Z9WAVm2817VTnS230mWNIfR27vpjYoaAlh6zzjKwZQvD7+L68URYThNZn
Jn3/mcfC3EBJ7gJ4KfSGbuD7bZq3NLhwXYKQB5/C1rA/GHzt0wsxgV1nYHAZ
O+qBsTMXkzmoeknd/47dXNXiw6BwF37ditGbw/7JJB0272oFJ/id3EaxhTTj
XveX2gEx0b/QjZ3V6qv/zcUBthO5haT/1mcrd6X/1UM4EL+5uhy7n4O4/vGd
I+xVGtqVib1QmnarucsZTMMPFURhsxobW1YtuMJN3YWYJ9gC67vsC3e6g66P
bIcV9qFUeXkd0Sdgt6C05wz2Ccd9iuqnvGFWj0FcAFtB9ec55fM+0PdX/ikT
tiE1S+3MTT94FSor3IzzxbzWV1Pmvj/QU4gbKdh24aY6Ul4BwGpzbM4TO+Ak
l4FYfCD4nxUbOIH9gpkwFMwNgvOvxxS3YSf0tV7lrQ6G4+ICP0dxPpe6eZlx
DoTA9MKx0wHYP246yngFP4dod0/5Onxe4jY+D7jxRUCeq4eGL7ZqvISnS2EE
pJLiDFT+i/fPkBx6X8CCjfINEj6PKrrGV24LvYT+1wGX8/F5XZgvW7tR+hIO
MjVr3sKODd6dfF3tFdyNFwXu/+It7XOGdtFwqjeIzwnXg9iz4KZe9Roqh1Mq
+HC9UBmMFVDRfgOt89Yxjbi+LDivNJ0bewMHqA6Od7BVSorYzrLEQepZhUPp
uB4tiIskSOgnACrLtGTD9Srlmd/YVsdksKStWj/G9dF5sPhEYF0yJDmLH9xw
J0BLfNyPhTUF5lMKP3tjL5PkxTfFpkCmZPsxbzccZ1p2WKtPhSo1t6Z7uN4u
uVhuItgyoDUk+1HPIwLa3kdftjXMAIeZmxuy2EncpExqYgZkDkU9jX1IgOY7
Ia3ZE5ngP+f+3PgBjhNDUeNXsmC4641fvT2O39UR60nLgcyg4ZWjVgS4LC+8
tpzLAX+F87/cLQlIC4zcsXH8LciQa6TbLQhYz+lfFC9/C0tqTNZ37hFQSJg3
ebXmQlDw6VGf27hfuTrfOErPB4U/8Z8sTXG/2cbTU3+iAJh7+jsTrhNgH1uj
auhcAC/ZjHZ1XSNg8uuTaEWGQtjrpqR70gTnHyPJ0zqoECJ05rrGjPB+XtDT
bogtgrDvxvMzuL8GhAluYasrAmURr+8M2Lx9P+oNx4pA/SP/6X26eF6weHlq
XqQYSEx9vkraeP+DBw/szS8GTaNiYS91Ai533qbY1JfAfokdTzJwv6+64vp0
31QpSAlGkdLx/PDYjmXb+W1l0GVm2WiH5ws5v8gQW8kyyGIULpKRwP2rIC+i
0bUMFreq3qs9SkAZy7dYm53lYDJrcfqdGK7X7zQK609XwBpjoDXwEpDNzjtg
EVwFW9WrtduZCbAQyzaJLKiC6cuFRZc2E3D47D9fa3uq4Nsena0DTLi+39Ob
4BSoBsufGZEjG3RIq/Oj1ZRUg8/ZO3s+/sbzlw2NkWOkBkYLPbu1aHSIIdcd
qZREcEOtyqahiw4+EyZ/ZAwQuG1+YrXrMx1s1lfail0QqH76YG/SSQelUydt
cxsQZPUxR9Da6PCrs7uvU7weog6sSqw20yHhXzWepup6MNSMHX1XRofvnNKJ
2aMNQJKr1yyMocOrBqZsp0PNYP5cXqLBkA7JZvkDj2WbwbuxjLXcgA65f69u
81JvhpopaYm3+nRolCuyfmqNbfCvcZgOHehFZhIxBc2grf7utKIKHVRSakoq
T7fAlysLO/Vl8Pzr41S3pkqC/bHWlhJ4nr+sTOn2sSDDN++ByjYSDRbJP2eX
HpPh/g7rfwTw90KU9t+/VqFkcAhILLnfQIMeQ/bDl4rJkPxQp3BHDQ30Lf9x
F14jg0/51xLJIhrohPmINIe3grjQMWJ3LA3U+nkcmcs/gBapPOK6LQ3O2Ghy
BzJ3wL1dp3xWttOg7dpK+Ub2J7C0sf9IVZwHMcO2CzdIXSAhfjVY1owKu4VM
zGrZv4BKeLBQtRYFqhlC/bpP9kFMTEuHqPQcLBW5yUz7DYBAhLn0wbEZoDqy
/SjKH4LhHoaPG0HTEBYSH57SMQLpoV3Z5wWnYLzKcVh1xxjEkUUPC3pOwEAF
bYnn4Dgkc90s1hsZB56Dykbz6t+A+3Te5dS1USgu5DmsZzcBw52/k+V5hiFT
o9GT3WsSIupUir5p9sOUttqBzowpuJXvVs+82g3exonylKppsAtMjygJ6oSH
z50+RbfOgMxc4tr+3yQokDyWfZ6YhVJvBd0+nKdq/cVbtBgpoNwnpLz7TBIE
X+FO281CAc97vUWXhBOho99VcWgbBUxXdfZc7ooH/QFFVysuCjyyIqp6JGPh
2uBHSuAhCsSKBjWQZ1/C/WFKR4s2BawT7nYeSA+AmDGhKHhDAdWVqLhzi75o
8EaA1JZEChTc8rybmxSA+Mbn2j+mUoDlVy/ZSjsIpYwXMpvmUUDELnPTVGYY
yv2m4OxeT4G/X1o17xZG4e8UY+PKaQps8hVMEHdIREx36paeUClwPOf50Prt
JHRhSjBSbYEC371C8jw4ktGHqdm2vt8UIHNzhFRapaCeaSf5JTYqJDFfDBTn
T0fc9wYHajmoICO4yiPXlo6uzsg7+XNT4aW+5vnrLhno68zmAq6DVHAWMf93
oisTHbSw0BwWoUL345Z15SdZyHy2bSZVnAoN6X8Uqo9nozQLST9rCSosbzH4
dWEoG/3f/xD4//8h/wNAMPpC
"]]},
Annotation[#, "Charting`Private`Tag$3289#3"]& ],
TagBox[
{RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6],
Opacity[1], LineBox[CompressedData["
1:eJw12Hc41e//B3CbRB8r1WnJCi0pik96EdkioUJWKlspq0LJTlmJ7L0zs8d9
zI49UmZG9jk5b5WP+jT43p/r+v3+Otfjel3v69zXfV73836d9wFrF4MbTAwM
DHyMDAz/fS4uRQmdOEFD7xnCxVmKs1HykerylaM0NGO0Hm/Pn42MXT+q5UrR
kK+TgPuMRxZq/XXQaa8wDdWEc7gyKGei9G0NNey8NHRUs+sX81AaMj+5aDBB
p6KCnHMXtX6+QkO+fwcE5FPRnfPUCdep+4gsOLc8fICK3N49HVy8mQJ648ZO
Pv8uIX5b/t9anPXw+OUPe8rcInpzYZ9lsshbMJMg/fB9v4B43R9nDbb3AV3/
GsgXz6OqW4Kq124MgcjtPoaXiXPoso3o9w2nEdgmfv3hmussChC4dOZn/ARk
lLkHkS98QiTjQMpWpWkYk63hkj47g5Sj/GXY/p0Bit5enTTBaXT7WsumSv0s
lJIttzqyTqJbqyNnctXnQTQ8MOn20jjq+sO+O7RsAVifEhmeSaPog+Jjpe1C
SyB1rzL5rdcwapGL/altsgyNoWRuksR75DM7dOJoJBUyL3QmqM8MIo8/hxdW
M2jQv3l8X31TP1JcnQisCv4MA/U1krZL3WjPiZ258dYrIM3Md0BuuBvVax6R
C7uxAs817XeytHejQ4id86HtCuh8ILGnZnSju1LrfsbOK0AhHswNm3cjMo9h
9brXCpCFz6aov+9Cx6g14nMRK1Ac3CxwsLkTneL4RnZtWIFnhl2b8wkUpNXc
/8CMlw5X3rTxqYZQULpEZKuAAB2EBchi6e4U9JfECFOXIB0q373RNr9IQa8X
P1gc30OHaYPk2A9sFLQhfT5+XpwOMhfvHHt75y2a125h/fw3HUZ0d1jkqrej
y/RGq9s2dEh/zevKJtuOjjjyqi7epIMTN1eAjXA7Om1oQzKzowNTD0OB0J82
JNWymQ7OdDikQ12PK2tDmbNFwnQPOvhoNTwP2duGgu5WDCyF0kFE/Xqj/bcW
xMZ+KN2wGK8/0yh//0wLisxpzvMtpUMYo8bLod4W5KD9pzK3nA7rdYedz+a3
oJjDYp/WqujQKb2+l8+qBSUpXrnvRqaDKynEu6a3GeV9487fMUCHppWiMxz5
TShEJqZ9ahU/r5Um0RDbhC480Lzd9ZUOUrnRAq4BTehw/919FWt0eGHt+Xnc
sgklx4sF+/2gg+2wcmLxjib0nsQawcpAAE/T0C/jADJSKjSyL9xGQIPEP27a
TY1o/okir7cUAb+b9jdIpjSi0F8OEVyHCVAw1WLh8G5EaUXbjeKPEFD5LCWq
9XQjYmRNLCqRJqDoq2axYkkDuvGLOZ0iR0BqffLSsZR6ZOFsEZB1joAn+hqm
At616G/9UEH+qwQ0L7umfzWpRZXePPIOJgQwPEla7j9di0R4LVObTAl4WPHV
49laDYqVklC0MyfgHinpBZtjDUpzphdlXCfg5tyXnh8m1cgnc825zYkATc8E
pY+nK5EVdw7UPyLAXJUTjfNXIldh8cP/PMbP83gpjtErkBTbwrbDTwhIzjVW
GM6sQPv2S1VFBxDwdYT35ABPBZIz5InSCiUgXj74YNtSObo8EetoHE1AMev3
rJaWchSkx1Dn/IKA1oEbos3J5QjAYNM/hgC6ncoBZFiOTl1qtSuIJeBc/Aap
hlyGIuPl2qYSCKD+vLftdVwpkmU2jVrIIGCzfTas4G4p2r+9QnEykwCBaIOt
+RdK0fPWhsl3WQScPSTNkcNSilLsyIw1OQREmdIY026XIPElji77AgLcPFuo
kpFFSCF47aZjGQGCvxKr/13NQ1PC43mLjQQs67O9mCrIQ6Isbj8jEQH12S4u
bTfzUOnqpScKZAKsDM6JR07koh6vOsXAJgIK8xajJSg56JG4vhFHK17/FRmX
yylZSHcvibuKQsD2ogQtRZMsJKJdM63aQcASM6u4yPYsJMjp8rkf+1nx8AQ9
NBN1Gp8onO0kYITNWyvQPQPpCdV0f+smwKnirViFbho6bbcrorGfAKWtxxkT
ONKQwUbs3LEBAvis4icetaQiGyXBOynY1VxO0TryqehgH5uM1yABbBRRJopm
Mkpeirq0Ywiv9+736miUhAr+Gbh1H/vi/k4XC9kk1H6W8804dqK7y8d1oUSk
+Et1Le49AcfFaqvFfrxCyrJT/BsfCPjQH+byxekV8i71WzQYxv320EK8YTYO
KYfu+ZaF3f6O5YVhXyxiVKCVqo0QYOan5/IkOwbxnZTpdR0lgOmosLjenhjE
NvjVsgY7Z3RtghT1ArG5PT+0gf1VOl6rzDsaRZBsbP3GCAiemhObMYxEv1gU
HrmNE+Dn7pF5vScCrcVtrSvEfsjNKbJwPgJ90/CBT9gz7uZKH5yeoyT9DVGN
CbzezCeK4+bP0GrqrkBP7M7BXIVpvTA0Wt8tnYNddvTbSerxUGQnNGG9iZ1t
tlOGEA5BkbIKVImPuJ9DFY+t8QcjIdKuOn1sv4UgyY1/AtBLsVfyCdjuAq/F
mRf90W7qwcUGbPtzgyIcI0/Q7cc6k5PYl5L37OOrfYz6mPfl7Z4kQL1befeO
gkeIl/nTw1PYHms90qdP+6Ln/SLxF7Et9XceOkfyRiUb/zLYY2sUWovp/L6P
vjsYlj7CluZ4vd940hOJmR8piMHeafN9lyXZHdmaJNNzsRnIygL26fdQgXLM
g1rs5d1h2+75uyJmLV6DTuxBjw8cPjdvoxEWQdcR7Hs5ymw8kY7IajJpfA5b
1eLDTxEjW7RwqOg5gb19hwNxapcNSubTefoDuztp821srQXyYLo1sIntxC1Z
is5dRq5M261YpwjY+zPzZF+MLiKFnVfYgk0uI7jP6sijlr8Js63Y9/a+j1cV
PwAJtcc7/jPJ1tpQWf486Kn/68OJ7djK3uQpcAmsSSo+7NidhpPD+mGmcHty
+1sm7BeuJh4CTNbAFXDn6m/8/a21bX4MZ2/CTnYd2TXsb0zHn3/2sofVXeUm
VGxh7cRXIxXOcO9rdsckdm7HE4NPnndAQXC73wA22Un+ysjLu7AkJ+jfjD3C
S1zrfeMG9hNJfaXYqxWZ11sHPcCzI98mBZvDxMSudtULvF+rqDzF3r/xl0vJ
toegrG3h4IZ9MENR8YLYI9B4pRSnii3jtlNJ8+RjKNFcT5TEPqv+7Zyqih84
t2rQuLCNabkaClb+wNFrb9OL+8W64Ym27O0AkMnRDy/Edg43vyDtGwi3pJqZ
Q7ADTwgYiicFQ9N1/Y4z2FGshPGBwhBoem1PEsBOHu64uqcuFKyE+SqWcT9X
PPC14BsNgy0MPG/Dsb9aucn6hkZALLn72lt8XhI3B0Yf7I2E6tUvmmHY6klH
fTxLIuGqK4uM3n/1kcX2Ox+iQK3PbL0Xn0c1PZMrNsIxEBFiqVeJz+vq58rf
lhUxILBQs9sBOyGUP+2axkuY3pSa2/tfva172dg5FlLD5ey8cR4knIEHmrWv
QOrmYVVRnBdqYwn71XTj4VWe8BcKzpdVjx8t56bjocFCLt4BW628lOsMWyJ8
TM6dzsd5tCopmnzUIBleW3EDL86r9Kf+01vc0oByw1TFG+ejx1iZTHBjGlC7
mssYsXUkZ/zZONLhcqTpPv8+Ar63K0oyJ6SDAb8y1a8X15m+3/lNzgBbe1Yj
W5y36552zARXNrwRd/EcfEtA19tYIyfjbJhoMC2Uw04VbM+hpWRD4Pu8ibh2
ArTfCOssyeTAerWZzOU2XCfGX8xcyYU9TWVldc24fvOC+FBmPuifu7BFtIEA
z++rr+yW84E77lvGvXoCMoOjuTePFABvUZl3Sx0BG/kja5JVBfDhYArdtJaA
EsK6xbejEC53mbV7VOH7ysvD8hC9CGZ6mvRMS/F9w0kaIssUg0to/MfwEgJc
EurVjT2KIXGmKr+5mIC5yUexSgwlEH9mmUmkCPcfY7uPQ0gJnNbQK+jNx/t5
Xl+3KaEUosi6UwP4fg18foCdq7EUXJsvX6emE7Bn+CvZeLoU1IKmxRmxNW1j
Tn4WLQPb976Okql4/0PHdu8oKoOfCYZfbRIJMOqzoTqSy+GLTwwtCN/3tVe8
gnbOV8Dp20rF3nh+uO/MxqnCWQkGrox/zvsRIO8fHeZ0rBIEzILOcOF5o7r4
dWSzVyVEXpuKiPLB8xLbpwTHbVUQIn4rPNAL5/UbrRLyqWog7Z5c2upCQB7P
nlHb0Fpg0H12KuwKAbbieabRxbUQMH+PwneZAIkzcpMNQ7WgvXNEO9YI5/st
/Vm+/XVQ264iFW+A97/Rf6W+vA6mH6ioBeng389xhZH3Yz2EPt3PuAkExFEa
pWqOIThdTryxEcP5P2v6S9YQAWcEByoVwXm18aOrzBOBTk9I3+8DBCifPOFU
2ISgLYLC/GwfAf/0vRvukyQDo5plbcwOfD7/1iC11JFhn47lTY0tBHzhO56S
N9UEX947fpGh0eFlE1Oe+8FWGLgQVrIvjw5pFkWj90+3gp7PKxv+HDoU/rnK
6avZCtt0EqzZsujQLF/qEOTQCtyGU2cWU+lAL7U4GlfcCisRnfYv4uigll5f
XnOqDXgeN5UnBuH518+98bd6O7AXyp+8ged5I1XqOz9bCgyIFI0M76TDGuXb
0vp9CsxuOzsgif8vvND988f+GQWiXNQ6vPjpMGTMI3GpjAIGF3mr+bfRwcBO
7qHIbwqUf1yOPMZMhwvP/URbwztA7EaUMvvKCmiMkNxYqzqB0SmaJodWQMFR
WzCYtQfM7b5Yx19bgS6zH1Wbef1w7BOL466ozyBu3HXesn0QykjMa7PFNOAX
NrVo4HkPJ4YrBtoTqVDH8Mz/3Ylh0JrrmQp9tAzrpQ9kF/xHIfUit2jD0SWg
uXF9LS0ah9kSIegbXoDnYUnh6T0fwUjGfuSU8zzM1LpNqHNPgy6vPPB3zsJo
9co6SWgGNjN+hp2V+AQkIdXLnzU/gR0sc/BoTENZCUlC33kWgnPfKSoUTECO
VrMPj+8c6G0ZY7MeG4F5XY3dfdnz4NtRkpYVMASPTVIUqbULYH4wpipVtx/u
Rrj3x3Yswo5cm/PNLBQoPnY4T4VYgrzSMOPsmnq8P2XsOoxUaBmzYBc9kQmh
VwQz+dmocIdh33bl0AzoGfFSGuekQtpdKXGNGZxbo0pe9gJUEH46e0sgPA3M
xnqpwQep0PijU0jnXRLcnqD2tOlSQSWF86+bstEQNy38AuKpcGqQMUlOzgqN
WQZKs6dQYVtdp38+4YD2zix392ZQQVGh6bS80V2UPlPCav6aCg+DzJ5s8Pqg
wk9nPR6SqdB5gvayviMEkedMTGoWqCBd8+7449exiOlG4/ojGhUaHlRIGLC/
QufnD0RrrFLhr4kjUzpW8ahzfqlr+F8qaATqW6LtSWhowV1xnYsGmZtZ+dpK
aUjw1thoAy8NLi11+oytpKGri4ruAYI08Oo9zuSTkI4mF1mKBYRowF5psMn0
PQMJ2dpqT4jSYKrnj+NcZiayXupazJCkQXlu550xgyyUaXvM3+EoDVKjHNnm
GbLR/70Pgf9/H/I/qAr4PQ==
"]]},
Annotation[#, "Charting`Private`Tag$3289#4"]& ]}, {}}, InsetBox[
TemplateBox[{
"\"\\!\\(\\*SubscriptBox[\\(g\\), \\(1\\)]\\)\"",
"\"\\!\\(\\*SubscriptBox[\\(g\\), \\(2\\)]\\)\"",
"\"\\!\\(\\*SubscriptBox[\\(g\\), \\(3\\)]\\)\"",
"\"\\!\\(\\*SubscriptBox[\\(g\\), \\(4\\)]\\)\""},
"LineLegend",
DisplayFunction->(FormBox[
StyleBox[
StyleBox[
PaneBox[
TagBox[
GridBox[{{
TagBox[
GridBox[{{
GraphicsBox[{{
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.368417, 0.506779, 0.709798],
AbsoluteThickness[1.6],
Opacity[1]], {
LineBox[{{0, 10}, {20, 10}}]}}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.368417, 0.506779, 0.709798],
AbsoluteThickness[1.6],
Opacity[1]], {}}}, AspectRatio -> Full,
ImageSize -> {20, 10}, PlotRangePadding -> None,
ImagePadding -> Automatic,
BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
GraphicsBox[{{
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.880722, 0.611041, 0.142051],
AbsoluteThickness[1.6],
Opacity[1]], {
LineBox[{{0, 10}, {20, 10}}]}}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.880722, 0.611041, 0.142051],
AbsoluteThickness[1.6],
Opacity[1]], {}}}, AspectRatio -> Full,
ImageSize -> {20, 10}, PlotRangePadding -> None,
ImagePadding -> Automatic,
BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
GraphicsBox[{{
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.560181, 0.691569, 0.194885],
AbsoluteThickness[1.6],
Opacity[1]], {
LineBox[{{0, 10}, {20, 10}}]}}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.560181, 0.691569, 0.194885],
AbsoluteThickness[1.6],
Opacity[1]], {}}}, AspectRatio -> Full,
ImageSize -> {20, 10}, PlotRangePadding -> None,
ImagePadding -> Automatic,
BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
GraphicsBox[{{
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.922526, 0.385626, 0.209179],
AbsoluteThickness[1.6],
Opacity[1]], {
LineBox[{{0, 10}, {20, 10}}]}}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.922526, 0.385626, 0.209179],
AbsoluteThickness[1.6],
Opacity[1]], {}}}, AspectRatio -> Full,
ImageSize -> {20, 10}, PlotRangePadding -> None,
ImagePadding -> Automatic,
BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}},
GridBoxAlignment -> {
"Columns" -> {Center, Left}, "Rows" -> {{Baseline}}},
AutoDelete -> False,
GridBoxDividers -> {
"Columns" -> {{False}}, "Rows" -> {{False}}},
GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
GridBoxSpacings -> {
"Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}],
"Grid"], Alignment -> Left, AppearanceElements -> None,
ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction ->
"ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
FontFamily -> "Arial"}, Background -> Automatic, StripOnInput ->
False], TraditionalForm]& ),
Editable->True,
InterpretationFunction:>(RowBox[{"LineLegend", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"Directive", "[",
RowBox[{
InterpretationBox[
ButtonBox[
TooltipBox[
GraphicsBox[{{
GrayLevel[0],
RectangleBox[{0, 0}]}, {
GrayLevel[0],
RectangleBox[{1, -1}]}, {
RGBColor[0.368417, 0.506779, 0.709798],
RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle ->
"ColorSwatchGraphics", AspectRatio -> 1, Frame -> True,
FrameStyle ->
RGBColor[
0.24561133333333335`, 0.3378526666666667,
0.4731986666666667], FrameTicks -> None, PlotRangePadding ->
None, ImageSize ->
Dynamic[{
Automatic, 1.35 CurrentValue["FontCapHeight"]/
AbsoluteCurrentValue[Magnification]}]],
StyleBox[
RowBox[{"RGBColor", "[",
RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
"]"}], NumberMarks -> False]], Appearance -> None,
BaseStyle -> {}, BaselinePosition -> Baseline,
DefaultBaseStyle -> {}, ButtonFunction :>
With[{Typeset`box$ = EvaluationBox[]},
If[
Not[
AbsoluteCurrentValue["Deployed"]],
SelectionMove[Typeset`box$, All, Expression];
FrontEnd`Private`$ColorSelectorInitialAlpha = 1;
FrontEnd`Private`$ColorSelectorInitialColor =
RGBColor[0.368417, 0.506779, 0.709798];
FrontEnd`Private`$ColorSelectorUseMakeBoxes = True;
MathLink`CallFrontEnd[
FrontEnd`AttachCell[Typeset`box$,
FrontEndResource["RGBColorValueSelector"], {
0, {Left, Bottom}}, {Left, Top},
"ClosingActions" -> {
"SelectionDeparture", "ParentChanged",
"EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator ->
Automatic, Method -> "Preemptive"],
RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
Selectable -> False], ",",
RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",",
RowBox[{"Opacity", "[", "1", "]"}]}], "]"}], ",",
RowBox[{"Directive", "[",
RowBox[{
InterpretationBox[
ButtonBox[
TooltipBox[
GraphicsBox[{{
GrayLevel[0],
RectangleBox[{0, 0}]}, {
GrayLevel[0],
RectangleBox[{1, -1}]}, {
RGBColor[0.880722, 0.611041, 0.142051],
RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle ->
"ColorSwatchGraphics", AspectRatio -> 1, Frame -> True,
FrameStyle ->
RGBColor[
0.587148, 0.40736066666666665`, 0.09470066666666668],
FrameTicks -> None, PlotRangePadding -> None, ImageSize ->
Dynamic[{
Automatic, 1.35 CurrentValue["FontCapHeight"]/
AbsoluteCurrentValue[Magnification]}]],
StyleBox[
RowBox[{"RGBColor", "[",
RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
"]"}], NumberMarks -> False]], Appearance -> None,
BaseStyle -> {}, BaselinePosition -> Baseline,
DefaultBaseStyle -> {}, ButtonFunction :>
With[{Typeset`box$ = EvaluationBox[]},
If[
Not[
AbsoluteCurrentValue["Deployed"]],
SelectionMove[Typeset`box$, All, Expression];
FrontEnd`Private`$ColorSelectorInitialAlpha = 1;
FrontEnd`Private`$ColorSelectorInitialColor =
RGBColor[0.880722, 0.611041, 0.142051];
FrontEnd`Private`$ColorSelectorUseMakeBoxes = True;
MathLink`CallFrontEnd[
FrontEnd`AttachCell[Typeset`box$,
FrontEndResource["RGBColorValueSelector"], {
0, {Left, Bottom}}, {Left, Top},
"ClosingActions" -> {
"SelectionDeparture", "ParentChanged",
"EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator ->
Automatic, Method -> "Preemptive"],
RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
Selectable -> False], ",",
RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",",
RowBox[{"Opacity", "[", "1", "]"}]}], "]"}], ",",
RowBox[{"Directive", "[",
RowBox[{
InterpretationBox[
ButtonBox[
TooltipBox[
GraphicsBox[{{
GrayLevel[0],
RectangleBox[{0, 0}]}, {
GrayLevel[0],
RectangleBox[{1, -1}]}, {
RGBColor[0.560181, 0.691569, 0.194885],
RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle ->
"ColorSwatchGraphics", AspectRatio -> 1, Frame -> True,
FrameStyle ->
RGBColor[
0.37345400000000006`, 0.461046, 0.12992333333333334`],
FrameTicks -> None, PlotRangePadding -> None, ImageSize ->
Dynamic[{
Automatic, 1.35 CurrentValue["FontCapHeight"]/
AbsoluteCurrentValue[Magnification]}]],
StyleBox[
RowBox[{"RGBColor", "[",
RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
"]"}], NumberMarks -> False]], Appearance -> None,
BaseStyle -> {}, BaselinePosition -> Baseline,
DefaultBaseStyle -> {}, ButtonFunction :>
With[{Typeset`box$ = EvaluationBox[]},
If[
Not[
AbsoluteCurrentValue["Deployed"]],
SelectionMove[Typeset`box$, All, Expression];
FrontEnd`Private`$ColorSelectorInitialAlpha = 1;
FrontEnd`Private`$ColorSelectorInitialColor =
RGBColor[0.560181, 0.691569, 0.194885];
FrontEnd`Private`$ColorSelectorUseMakeBoxes = True;
MathLink`CallFrontEnd[
FrontEnd`AttachCell[Typeset`box$,
FrontEndResource["RGBColorValueSelector"], {
0, {Left, Bottom}}, {Left, Top},
"ClosingActions" -> {
"SelectionDeparture", "ParentChanged",
"EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator ->
Automatic, Method -> "Preemptive"],
RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
Selectable -> False], ",",
RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",",
RowBox[{"Opacity", "[", "1", "]"}]}], "]"}], ",",
RowBox[{"Directive", "[",
RowBox[{
InterpretationBox[
ButtonBox[
TooltipBox[
GraphicsBox[{{
GrayLevel[0],
RectangleBox[{0, 0}]}, {
GrayLevel[0],
RectangleBox[{1, -1}]}, {
RGBColor[0.922526, 0.385626, 0.209179],
RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle ->
"ColorSwatchGraphics", AspectRatio -> 1, Frame -> True,
FrameStyle ->
RGBColor[
0.6150173333333333, 0.25708400000000003`,
0.13945266666666667`], FrameTicks -> None,
PlotRangePadding -> None, ImageSize ->
Dynamic[{
Automatic, 1.35 CurrentValue["FontCapHeight"]/
AbsoluteCurrentValue[Magnification]}]],
StyleBox[
RowBox[{"RGBColor", "[",
RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
"]"}], NumberMarks -> False]], Appearance -> None,
BaseStyle -> {}, BaselinePosition -> Baseline,
DefaultBaseStyle -> {}, ButtonFunction :>
With[{Typeset`box$ = EvaluationBox[]},
If[
Not[
AbsoluteCurrentValue["Deployed"]],
SelectionMove[Typeset`box$, All, Expression];
FrontEnd`Private`$ColorSelectorInitialAlpha = 1;
FrontEnd`Private`$ColorSelectorInitialColor =
RGBColor[0.922526, 0.385626, 0.209179];
FrontEnd`Private`$ColorSelectorUseMakeBoxes = True;
MathLink`CallFrontEnd[
FrontEnd`AttachCell[Typeset`box$,
FrontEndResource["RGBColorValueSelector"], {
0, {Left, Bottom}}, {Left, Top},
"ClosingActions" -> {
"SelectionDeparture", "ParentChanged",
"EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator ->
Automatic, Method -> "Preemptive"],
RGBColor[0.922526, 0.385626, 0.209179], Editable -> False,
Selectable -> False], ",",
RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",",
RowBox[{"Opacity", "[", "1", "]"}]}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",",
RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",",
RowBox[{"LabelStyle", "\[Rule]",
RowBox[{"{", "}"}]}], ",",
RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )],
Scaled[{0.95, 0.75}], ImageScaled[{0.5, 0.5}],
BaseStyle->{FontSize -> Larger},
FormatType->StandardForm]},
AspectRatio->NCache[
Rational[1, 2], 0.5],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
FrameTicks->{{Automatic,
Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic,
Charting`ScaledFrameTicks[{Identity, Identity}]}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
ImageSize->Large,
Method->{
"DefaultBoundaryStyle" -> Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& )}},
PlotRange->{{-0.85, 0.85}, {-0.23644743449927283`, 0.9959772996497408}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}],
InterpretTemplate[Legended[
Graphics[{{{{}, {},
Annotation[{
Directive[
RGBColor[0.368417, 0.506779, 0.709798],
AbsoluteThickness[1.6],
Opacity[1]],
Line[CompressedData["
1:eJw12Hk0Vd37AHApkiiklPSaMqUk8UbFI5ExJBEqUsmQRJmiSEiSBkSGK0PG
ImPmfXFNmZWZ3qvcc7jXnDQp391av99fZ33Ws846e+31PM9+zha3dzO7xM7G
xiawio3t75OceCq2fz8LxdKV+ieOdiDKnrKiaQUW8la0Os8n1oEsPEaPZe1i
IdViL99Dy+2I9kvGdYcEC80bTlkmFrej1A3V5Wv5WSjrittUmFQ7OqdMmo3M
MJHX4mvnDVxt6EPAoZCQHCZSdyqy7elsQdQt45P94kykWrnG76ZzAzIZtnC9
/WMChemZB2ruLUN3nn13bh4n0VM5tfEbWknojKzw94BeAj16tjizdC4FZkzP
glo+A919eU/9lGM5SF7rZHuWOI7YK8xGvu6jwQbpC/6LHp9RGRXZvPjaCmmF
Xveoxp9Qc/WDQDK+G4ZUynkUNcaQtPCpbTldH6DZZIdRyhY6Wv9ZRdhOeAAK
qHbrr3B8RDscB0Vjl4dg56PQpGsTw+izeVpaTuoocDyYTfNJGkQBBlttxGTo
sOtGKaXJtx+ZqPwqlDw+BjXhVF5h2V507/7w3kPXPkG68bsE3bEeVNqxsC7b
/TN0rez7p6q2C51MKmj5R28cuqvK5Rwn2lCTygdtH0EGKK4WEP+3vw1dW3KR
PyTEgEh9561rGtvQ2FWTG8vbGGDUJ7z2RVobGr7btfumKAOaZ/3G+8+1oX02
0gfsdzGAKqGRrNvbilgo7+U4MCA/rE5Qpu4dKs0PeVzoxICH5q0rjIRmxC+z
YcqtjAGnixsEtO83owp2psXvCgZICFKlUr2aUVq340BYNQNK3xcbnjvRjPrp
aqLxdQygm1Fi+zib0RbrkIqXbQxQOuG+t8m9CXXX+W8/T2fAwHEh2yzdRjTm
fkjWkZOA1Nf8HpwqjWjbYTbjMi4CXHl5Qi5KNKJ1vE1hnOsJYG9nyxX73YBq
c7nVkzYSIG/EXIorbECJZgbJRVsJuG1QHXl/RwN6TU+E4F0ESOpeqHH+Uo8W
M63ii40IOJ1+Kkd0rB5dj2xNrTYmIGKV3rMPHfVodZdnF82UgKXK3Vc1cupR
oJBLQrs5Ae8Ul3YInK9HdWx3Z5rPEOAhfP9WeUcdEqoxCHS4QkDtdN5hrpxa
NJP3g1s9HL9vkCJbHVuL3LW8MrkjCNiVFSXoEVKLbskvXO57SEC0vc/UsF0t
2jtXae74hADH/iOJ+UK1aNe34BHPOAL4aj/8sgihon+yeZIOZBBQLfvV07C2
BmWMe6adohKwXCtaLZdcg9ZladS31RJw0MZgDdetGnTmUdtRrXoCSh8mP6Wp
1qCPEQKXZRsJyFvQz1d/U42EVrJUxloJeFFFmdibXIXSkk5Or+kn4K6pno3g
rQr0+3FuvOAUAXWTHqkL1hVI5EZso+U0AWx3kya7VCtQNiXQ7PkMAf4lC94P
F8tRrbx0uNA8ATeEk6I5r5QjoS5XH7YlAhzG59u/W5chP7LSMHiFAH2fBM1R
1VLUwO2cdZKfhHPa3Gh4Uykipwwf+AqQcIPPV31opgRJGNoFJ20igZJlcbA/
vQQxcvjL/9tMwsIAv3I3Xwn6eGBY/rgwCfFqYTINE0Wos5xXqU2ChHyOby/r
64sQ46C753tJEmjdl3bWUYrQr6t5HQM7SZhxOiqOzIvQictpdaPSJGjF/xEu
pxYiCQmU37WLBObPGxtexxWgeG6deGslElYaP0fkXi9APCpVqkf3kyAYZbY+
x7gAvesomZJTJkFDXpErc00BUppXiplXIeGpDWtVyrU3yM8qnXRSI8HTp54p
9yQPPbKNjvwDJGz5lVj2Yy4b0SezGt8akjBpyhn9X242GhtcR7U0IqEqw82t
wSEb3W66yLuEfd5MS/rJSBZ6G7w2fY8xCa+yySjZ5kzk8vENNcwUr/+0kptl
8kuUnspbMmNOwua8BAN165co2WF66vopEiZWc0hLbn6Jyl+99PmG/TC/f2Qm
PB1FKAY9+GFBwgDnLYNQrzQU11NJmTxNgmtJk1TJ8RSk8Z+0r+8ZEjTX71uV
wJWCEgv2TH/GFjgfPxJY/wJl3GYUG50loYzHNcpI7QXKnD0N286RwNm8k71Z
n4LcapU1KbZ4vde/lUWhJGTlGnbiF/YJ0XdutipJ6DpfYKmFHQmJXm6jS2KJ
yKDb0o/rPAn7pCrKpL4/R6EU/TlLexL6uiLc5l2fI2HVcEomtr+/rXT15zgk
RZ568RW78f2aaPPOWMSuV0CJuEDCmSATt7sZMWhfyKHQjIsksCtISJuIxKBN
uqu6J7AzBxdHhJ9GI+agmZvcJZxPivEGhbei0KFLcRkvscP+G5caM3+CchWu
rtx3ICHIyzv9QvtjFCCcSq/G9uflliR0HqOFrG9Sc9hjXuc0+1wjEb30wKjJ
Zbze9Lvqw+ceIla7oMkt7Hc9WQfpJhFIX0ZSKhu7UOGLMnNfONJzefX7F3bG
ma1KsxL30SxThk3SEedzuPrexU1h6IdVr4MedhBxT+7P1xCkCFF2kdhegq+l
V5PBKO7e6y952M5aPZJcA3dR3CST2Y59kiLyj0DFHbRE6eNY60SCbtuR7UK5
gejskL+cOLb3YruiqmoACpzQLFDDtjPdKq8lfAutaCsnmWLrvbKXMlq+iQpU
9KcvYStyvRa1+OiDLtc4pvhib734bZsd1QsNqVLLH2CzUY8IOqfeQCqWiv8m
Yk9uj9hwI9gDVcY1bcnF7vHu47rtcA0dlb9hU4Z9I/MIJ9+TK6hz8MgaGra2
bd9PyVOOaDJGmb8De7OQy+yBbReRlpN2UB92W9JKU2yFLTp29brlKLYrr1wB
0rJEdUno8SfsHT/TlTtjjiNEP6BAYFMLZ3k1jNSQiBVt78Tf7+3ojdeWFgfz
IaeYvxZ2tDc/oqYDcYoHbEnsK7S1tT6CJ0GmSuzhOPY784/9phE2sJ9XXpSO
He1h7S3Ibg+u9FObh7BpFQ1BbBoOoLk7ya0H+wv7vsgpX2cQf8Wh0IItYZj4
fKDkKjy6ed+0Bjur5a7ZJx93sGnc01/wd32uaqcHnl2HI/y/atOwB/hnz3YU
e8J8/Se+aOy5kvQLtB5vWCxg1Adhc1lbO1XM+cJ3bZ5hN2zRPxvd3mzwh1WZ
NhY22DJp6urGUoEgFWPuuwdbyXOrpr7yHTC2XCUuiK2h+0VL+2gQgFn/7h84
PyxYWXoHzwfDHe3/rtVg21ffNVS5FgI0K5FsCvbVR+eMFQNCQU8nUOcWduh+
QXPppDCwLCzLUcF+yjFrIf7qPqxb/+D6RmxKf4uVSGU4dJmGvCBxPpf4BdgK
DEaAyj9z0lHYC+c9VQLCH8NHq3pGH66XxJXuQb8dT2BFUOdyMrZuksJtnzdP
QFpBcI3D3/gA2eje9xQS3xY9msb1eMzE+vRFiRgobtsyy8D1OzdVumxXEgOU
oxaGydgJ4ZtSzuo9A/14Vp3F33hD26TF1VgIbVZdQ8X9IOEw+OlXPIcHkrc6
/XC/ODaUIHrseDzUlvZySmPPeX+v16LHg5PZM6sO3H+OFRXwHOZMhKwXJ05s
w56T20lRMKMARV8uPA73r9QHwfR1ninAT2uROIz7ofdQoVJYTQpohBfyN9uQ
YCQ3FszJlQr6hrtEzLC/NarLrU5IhfQNZXftrHGc/Zv7MjUNNqt1JTngfrvk
47R6licDVsXuYduK+3drU+wpV4sMGMhmyw45ScKLLY2ZrOQMWLJ46jpvRoJh
sYTRhFIm8HCN6tefwPHZ4eix01lg9SXMxNQExx2MpT+k54Cj2JqnGw1I8Pk2
99xpMgdqE4TeO+uTkB4WxbuyJxdCgmKu0vRI+JMzsCj3Nhfu6M4Ue+iS8GbW
vj6g5RVk/TIJqNTG55Wvt538TB64aw7z/tHA5w238AeqUj6wEmy+aWC7JVTp
Wnjng0i466Hb6iSMfwyM1WR7A4zC+PffDuH8W9V42+X+G1iXqqjdr4r3U8f0
eG1CAWzwAzldfL6GRoqv5akpgGcOETWu+0gQ6V+gWtAL4GdXXt5TRRL0HWOU
p3YWgohQSnK/At7/8KHtQnmF4Or1iHZcnoRTnReZV6hFcGfPzx0sfN5XnPa9
t5VRAj2Hb+1h4vnh5lVO7qPcpXBMJ9y9Ac8XasFREa57S0GLFtpEwfNHWf7r
J3W+paDc55JtuJGEUs5PCVc2vAUbrkqdSG7cr4sN3lAPlIFaZAejlI2EbD6R
QcfwCiifX1mIYeF5TTrbJiq/Al5G7AnazyRA9vC/H6s/VMBPd7mdnRMEZFw2
/SwgWgm+7Vkv2AgC0muCp6uKKiG5876/ER3PX1emV/GPVoGuaE7jvQ8ExDXX
7Crfi2DKkH80opKAoM82v1TMEcjdnnJfLCfgyp/vrYU+CAKinHdblxFwRHm/
66taBBGh5wXESgj42vm+v1OOCicuaaTF5BFAOaQnXF9JBaWSo3SZFALmBfYl
Z/9XCzt9Qjkmgwl4Vsue7SVDgz1qJhvpxwhIsc0bvKlKgxMeIu8XtQl49duK
O0CfBmzrjJfXHsXzoFqByz0XGggOsQfIAQEzBbYKcfk04HBKO2Z1gIBjqVVF
5QcaYMwqg3CRwfNvkFfNsm4jLO10zjmL5/lT2sz3QY7NcJbRa+uJGLDY/GVi
6WYzHFtcHTVfxYDo479/Oz9sBnFXMcIF/098sOCTPVnYDAyu1CnrEgaYOf3r
L7ncDHVf+/wkchlgHBm0k/aoBRT54vMtnzFAb0DYk+PtOzjy2LDb2oUBB68Y
bgnjaIcXOoM6TRsZ0Hrm+9uV7C7o6PP/wjQdB2mLVh27xh54ZM3NPuL/GTZJ
2NhW8/WCW3U5TcjvE1SyPQx+v78fOu2rns9dG4OlAj8VIngQdulRJnqV6cDy
5FkoyBuG3uUnTRYToxAZkfQotX0UTipnRlO0h2GswnNEl5cOUwGKfVLKAzBY
Nr0kLDYGapv1W4tle0FYTNtySv8T2ETVru3L7obCN8Kyplc/w3Plg0ojm9og
06DuNl/AOBR36Y7Y/6IB47je9s4MBsQNmFbsppfDHetkdWYFAaFqU+yRHulw
/bFXV2wLrsvblkHK6BnK37s7++jsBOy2ou+Se/gW6Q0UrjVaxQStcCGRajsa
Cj+9JX0TJxMesi6MltyjofYBX81hbiY86HR0K8qjIbNBTV9nQSbo55IrVcs0