-
Notifications
You must be signed in to change notification settings - Fork 0
/
HamiltonianWinCycleGraph.nb
2949 lines (2884 loc) · 153 KB
/
HamiltonianWinCycleGraph.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 13.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 156269, 2941]
NotebookOptionsPosition[ 151928, 2859]
NotebookOutlinePosition[ 152386, 2876]
CellTagsIndexPosition[ 152343, 2873]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["Find and illustrate a Hamiltonian Win Cycle (HWC)", "Subsection",
CellChangeTimes->{{3.903929314482932*^9, 3.9039293203106194`*^9}, {
3.903930548176116*^9, 3.903930560841604*^9}, {3.903953703102722*^9,
3.903953711168316*^9}},ExpressionUUID->"3e965f41-c037-4039-9ca4-\
11b116ec67e0"],
Cell[CellGroupData[{
Cell["Data ", "Subsubsection",
CellChangeTimes->{{3.908774435025837*^9,
3.9087744501258783`*^9}},ExpressionUUID->"b41772e7-5fd2-4bff-a016-\
878523e609af"],
Cell["\<\
Test data:
English Premier League 2023-24
Cut off at the earliest date with HWC
Format: csv, with first 7 columns:
{year,month,day,home_team,away_team,home_goals,away_goals}\
\>", "Text",
CellChangeTimes->{{3.9039525374826593`*^9, 3.903952610610936*^9}, {
3.90395327662598*^9, 3.903953285109239*^9}, {3.903953666386257*^9,
3.903953694443178*^9}, {3.903954182520906*^9, 3.903954187240759*^9},
3.9039552630535717`*^9, {3.903955874106207*^9, 3.903955916484086*^9}, {
3.908774290994237*^9, 3.908774292438499*^9}, {3.908774461584375*^9,
3.908774462950323*^9}},ExpressionUUID->"729d2e9e-8b58-48c7-ab8b-\
3072d0df2057"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"path", " ", "to", " ", "input", " ", "csv"}], " ", "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"scoreCSVpath", "=",
RowBox[{"FileNameJoin", "[",
RowBox[{"{",
RowBox[{
RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<input\>\"", ",",
"\"\<eng-tier-1-2023-2024.csv\>\""}], "}"}], "]"}]}], ";"}],
"\[IndentingNewLine]",
RowBox[{"FileExistsQ", "@", "scoreCSVpath"}]}]}]], "Input",
CellChangeTimes->{{3.903953226268999*^9, 3.903953233831676*^9}, {
3.903955626007226*^9, 3.903955642513812*^9}, {3.9087256557772083`*^9,
3.908725662264773*^9}, {3.908774393404448*^9, 3.908774395269766*^9},
3.908774990979539*^9, {3.908775900740798*^9, 3.908775901457981*^9}, {
3.90877614810536*^9,
3.908776165941832*^9}},ExpressionUUID->"17b772dd-d5df-4e06-8201-\
3a6ce6ad776f"],
Cell[BoxData["True"], "Output",
CellChangeTimes->{
3.9039519894315557`*^9, 3.903953234312643*^9, 3.903953715727106*^9, {
3.903955631955316*^9, 3.903955643543828*^9}, 3.9039562815157022`*^9,
3.903958117863924*^9, 3.9068673087551937`*^9, 3.906867343057025*^9,
3.9087256632251472`*^9, 3.908725719196558*^9, {3.908725867608605*^9,
3.9087259112424088`*^9}, 3.908726137892332*^9, 3.908726715047875*^9,
3.908774396658086*^9, 3.9087749915854692`*^9, 3.90877507781106*^9,
3.908775498022932*^9, 3.90877590186399*^9, 3.9087760662393303`*^9},
CellLabel->"Out[2]=",ExpressionUUID->"18c04543-b192-46ef-83af-9107374ebeda"]
}, Open ]],
Cell["Discard draws", "Text",
CellChangeTimes->{{3.90877454668482*^9,
3.9087745527232943`*^9}},ExpressionUUID->"b9f66719-9039-468a-9471-\
2be39874fe4d"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"scoreData", "=",
RowBox[{"Import", "[", "scoreCSVpath", "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"useData", "=",
RowBox[{"Select", "[",
RowBox[{"scoreData", ",",
RowBox[{
RowBox[{
RowBox[{"#", "[",
RowBox[{"[", "6", "]"}], "]"}], "!=",
RowBox[{"#", "[",
RowBox[{"[", "7", "]"}], "]"}]}], "&"}]}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{"Dimensions", "@", "%"}]}], "Input",
CellChangeTimes->{{3.903951883711193*^9, 3.9039518839488287`*^9}, {
3.9039519789483013`*^9, 3.9039519959835873`*^9}, 3.903953195946848*^9,
3.903953245470808*^9, {3.9087744869914227`*^9, 3.908774539362649*^9}, {
3.908774643628767*^9, 3.9087746728465843`*^9}, 3.9087750900458403`*^9},
CellLabel->"In[3]:=",ExpressionUUID->"fa13693c-72ac-450d-8ea4-6322159ae421"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"87", ",", "7"}], "}"}]], "Output",
CellChangeTimes->{
3.903951997669901*^9, 3.9039531968358*^9, {3.903953236708521*^9,
3.903953246439802*^9}, 3.903953717004601*^9, 3.903956283087927*^9,
3.903957883655632*^9, 3.903958031422011*^9, 3.903958119102976*^9,
3.906867344709238*^9, 3.906868008810525*^9, 3.9087257439572144`*^9, {
3.908725868808338*^9, 3.908725912533103*^9}, 3.908726141122558*^9,
3.9087267163190413`*^9, 3.908774400787322*^9, 3.908774540249239*^9, {
3.908774646123289*^9, 3.908774673568928*^9}, 3.908775000341851*^9, {
3.908775081453844*^9, 3.9087750904562387`*^9}, 3.9087753593806257`*^9,
3.90877550097021*^9, 3.908775932064499*^9, 3.908776068979796*^9},
CellLabel->"Out[5]=",ExpressionUUID->"6f6b1be1-a613-4f6b-8573-c7fd9a9734b8"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Grid", "[",
RowBox[{"useData", ",",
RowBox[{"Dividers", "\[Rule]", "All"}], ",",
RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]], "Input",
CellChangeTimes->{{3.908726375167961*^9, 3.908726454090295*^9},
3.908726726654675*^9, {3.9087744096811666`*^9, 3.9087744186667433`*^9}, {
3.9087746497741632`*^9, 3.908774675508484*^9}},
CellLabel->"In[6]:=",ExpressionUUID->"da9b62a4-0744-46d2-a4fa-f80d1e947d42"],
Cell[BoxData[
TagBox[GridBox[{
{"2023", "8", "11", "\<\"Burnley\"\>", "\<\"Manchester City\"\>", "0",
"3"},
{"2023", "8", "12", "\<\"Arsenal\"\>", "\<\"Nottingham\"\>", "2", "1"},
{"2023", "8", "12", "\<\"Brighton\"\>", "\<\"Luton\"\>", "4", "1"},
{"2023", "8", "12", "\<\"Everton\"\>", "\<\"Fulham\"\>", "0", "1"},
{"2023", "8", "12", "\<\"Newcastle\"\>", "\<\"Aston Villa\"\>", "5",
"1"},
{"2023", "8", "12", "\<\"Sheffield United\"\>", "\<\"Crystal Palace\"\>",
"0", "1"},
{"2023", "8", "14", "\<\"Manchester United\"\>", "\<\"Wolverhampton\"\>",
"1", "0"},
{"2023", "8", "18", "\<\"Nottingham\"\>", "\<\"Sheffield United\"\>", "2",
"1"},
{"2023", "8", "19", "\<\"Fulham\"\>", "\<\"Brentford\"\>", "0", "3"},
{"2023", "8", "19", "\<\"Liverpool\"\>", "\<\"Bournemouth\"\>", "3",
"1"},
{"2023", "8", "19", "\<\"Manchester City\"\>", "\<\"Newcastle\"\>", "1",
"0"},
{"2023", "8", "19", "\<\"Tottenham\"\>", "\<\"Manchester United\"\>", "2",
"0"},
{"2023", "8", "19", "\<\"Wolverhampton\"\>", "\<\"Brighton\"\>", "1", "4"},
{"2023", "8", "20", "\<\"Aston Villa\"\>", "\<\"Everton\"\>", "4", "0"},
{"2023", "8", "20", "\<\"West Ham\"\>", "\<\"Chelsea\"\>", "3", "1"},
{"2023", "8", "21", "\<\"Crystal Palace\"\>", "\<\"Arsenal\"\>", "0", "1"},
{"2023", "8", "25", "\<\"Chelsea\"\>", "\<\"Luton\"\>", "3", "0"},
{"2023", "8", "26", "\<\"Bournemouth\"\>", "\<\"Tottenham\"\>", "0",
"2"},
{"2023", "8", "26", "\<\"Brighton\"\>", "\<\"West Ham\"\>", "1", "3"},
{"2023", "8", "26", "\<\"Everton\"\>", "\<\"Wolverhampton\"\>", "0",
"1"},
{"2023", "8", "26", "\<\"Manchester United\"\>", "\<\"Nottingham\"\>",
"3", "2"},
{"2023", "8", "27", "\<\"Burnley\"\>", "\<\"Aston Villa\"\>", "1", "3"},
{"2023", "8", "27", "\<\"Newcastle\"\>", "\<\"Liverpool\"\>", "1", "2"},
{"2023", "8", "27", "\<\"Sheffield United\"\>", "\<\"Manchester City\"\>",
"1", "2"},
{"2023", "9", "1", "\<\"Luton\"\>", "\<\"West Ham\"\>", "1", "2"},
{"2023", "9", "2", "\<\"Brighton\"\>", "\<\"Newcastle\"\>", "3", "1"},
{"2023", "9", "2", "\<\"Burnley\"\>", "\<\"Tottenham\"\>", "2", "5"},
{"2023", "9", "2", "\<\"Chelsea\"\>", "\<\"Nottingham\"\>", "0", "1"},
{"2023", "9", "2", "\<\"Manchester City\"\>", "\<\"Fulham\"\>", "5",
"1"},
{"2023", "9", "3", "\<\"Arsenal\"\>", "\<\"Manchester United\"\>", "3",
"1"},
{"2023", "9", "3", "\<\"Crystal Palace\"\>", "\<\"Wolverhampton\"\>", "3",
"2"},
{"2023", "9", "3", "\<\"Liverpool\"\>", "\<\"Aston Villa\"\>", "3", "0"},
{"2023", "9", "16", "\<\"Aston Villa\"\>", "\<\"Crystal Palace\"\>", "3",
"1"},
{"2023", "9", "16", "\<\"Fulham\"\>", "\<\"Luton\"\>", "1", "0"},
{"2023", "9", "16", "\<\"Manchester United\"\>", "\<\"Brighton\"\>", "1",
"3"},
{"2023", "9", "16", "\<\"Newcastle\"\>", "\<\"Brentford\"\>", "1", "0"},
{"2023", "9", "16", "\<\"Tottenham\"\>", "\<\"Sheffield United\"\>", "2",
"1"},
{"2023", "9", "16", "\<\"West Ham\"\>", "\<\"Manchester City\"\>", "1",
"3"},
{"2023", "9", "16", "\<\"Wolverhampton\"\>", "\<\"Liverpool\"\>", "1",
"3"},
{"2023", "9", "17", "\<\"Everton\"\>", "\<\"Arsenal\"\>", "0", "1"},
{"2023", "9", "23", "\<\"Brentford\"\>", "\<\"Everton\"\>", "1", "3"},
{"2023", "9", "23", "\<\"Burnley\"\>", "\<\"Manchester United\"\>", "0",
"1"},
{"2023", "9", "23", "\<\"Manchester City\"\>", "\<\"Nottingham\"\>", "2",
"0"},
{"2023", "9", "24", "\<\"Brighton\"\>", "\<\"Bournemouth\"\>", "3", "1"},
{"2023", "9", "24", "\<\"Chelsea\"\>", "\<\"Aston Villa\"\>", "0", "1"},
{"2023", "9", "24", "\<\"Liverpool\"\>", "\<\"West Ham\"\>", "3", "1"},
{"2023", "9", "24", "\<\"Sheffield United\"\>", "\<\"Newcastle\"\>", "0",
"8"},
{"2023", "9", "30", "\<\"Bournemouth\"\>", "\<\"Arsenal\"\>", "0", "4"},
{"2023", "9", "30", "\<\"Aston Villa\"\>", "\<\"Brighton\"\>", "6", "1"},
{"2023", "9", "30", "\<\"Everton\"\>", "\<\"Luton\"\>", "1", "2"},
{"2023", "9", "30", "\<\"Manchester United\"\>", "\<\"Crystal Palace\"\>",
"0", "1"},
{"2023", "9", "30", "\<\"Newcastle\"\>", "\<\"Burnley\"\>", "2", "0"},
{"2023", "9", "30", "\<\"Tottenham\"\>", "\<\"Liverpool\"\>", "2", "1"},
{"2023", "9", "30", "\<\"West Ham\"\>", "\<\"Sheffield United\"\>", "2",
"0"},
{"2023", "9", "30", "\<\"Wolverhampton\"\>", "\<\"Manchester City\"\>",
"2", "1"},
{"2023", "10", "2", "\<\"Fulham\"\>", "\<\"Chelsea\"\>", "0", "2"},
{"2023", "10", "3", "\<\"Luton\"\>", "\<\"Burnley\"\>", "1", "2"},
{"2023", "10", "7", "\<\"Burnley\"\>", "\<\"Chelsea\"\>", "1", "4"},
{"2023", "10", "7", "\<\"Everton\"\>", "\<\"Bournemouth\"\>", "3", "0"},
{"2023", "10", "7", "\<\"Fulham\"\>", "\<\"Sheffield United\"\>", "3",
"1"},
{"2023", "10", "7", "\<\"Luton\"\>", "\<\"Tottenham\"\>", "0", "1"},
{"2023", "10", "7", "\<\"Manchester United\"\>", "\<\"Brentford\"\>", "2",
"1"},
{"2023", "10", "8", "\<\"Arsenal\"\>", "\<\"Manchester City\"\>", "1",
"0"},
{"2023", "10", "21", "\<\"Bournemouth\"\>", "\<\"Wolverhampton\"\>", "1",
"2"},
{"2023", "10", "21", "\<\"Brentford\"\>", "\<\"Burnley\"\>", "3", "0"},
{"2023", "10", "21", "\<\"Liverpool\"\>", "\<\"Everton\"\>", "2", "0"},
{"2023", "10", "21", "\<\"Manchester City\"\>", "\<\"Brighton\"\>", "2",
"1"},
{"2023", "10", "21", "\<\"Newcastle\"\>", "\<\"Crystal Palace\"\>", "4",
"0"},
{"2023", "10",
"21", "\<\"Sheffield United\"\>", "\<\"Manchester United\"\>", "1",
"2"},
{"2023", "10", "22", "\<\"Aston Villa\"\>", "\<\"West Ham\"\>", "4",
"1"},
{"2023", "10", "23", "\<\"Tottenham\"\>", "\<\"Fulham\"\>", "2", "0"},
{"2023", "10", "27", "\<\"Crystal Palace\"\>", "\<\"Tottenham\"\>", "1",
"2"},
{"2023", "10", "28", "\<\"Bournemouth\"\>", "\<\"Burnley\"\>", "2", "1"},
{"2023", "10", "28", "\<\"Arsenal\"\>", "\<\"Sheffield United\"\>", "5",
"0"},
{"2023", "10", "28", "\<\"Chelsea\"\>", "\<\"Brentford\"\>", "0", "2"},
{"2023", "10", "29", "\<\"Aston Villa\"\>", "\<\"Luton\"\>", "3", "1"},
{"2023", "10", "29", "\<\"Liverpool\"\>", "\<\"Nottingham\"\>", "3",
"0"},
{"2023", "10",
"29", "\<\"Manchester United\"\>", "\<\"Manchester City\"\>", "0", "3"},
{"2023", "10", "29", "\<\"West Ham\"\>", "\<\"Everton\"\>", "0", "1"},
{"2023", "11", "4", "\<\"Brentford\"\>", "\<\"West Ham\"\>", "3", "2"},
{"2023", "11", "4", "\<\"Burnley\"\>", "\<\"Crystal Palace\"\>", "0", "2"},
{"2023", "11", "4", "\<\"Fulham\"\>", "\<\"Manchester United\"\>", "0",
"1"},
{"2023", "11", "4", "\<\"Manchester City\"\>", "\<\"Bournemouth\"\>", "6",
"1"},
{"2023", "11", "4", "\<\"Newcastle\"\>", "\<\"Arsenal\"\>", "1", "0"},
{"2023", "11", "4", "\<\"Sheffield United\"\>", "\<\"Wolverhampton\"\>",
"2", "1"},
{"2023", "11", "5", "\<\"Nottingham\"\>", "\<\"Aston Villa\"\>", "2", "0"},
{"2023", "11", "6", "\<\"Tottenham\"\>", "\<\"Chelsea\"\>", "1", "4"}
},
AutoDelete->False,
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxDividers->{"Columns" -> {{True}}, "Rows" -> {{True}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Grid"]], "Output",
CellChangeTimes->{
3.908726454728318*^9, {3.908726717585844*^9, 3.9087267271460342`*^9}, {
3.908774404511654*^9, 3.908774419078918*^9}, 3.908774556578915*^9, {
3.908774651859458*^9, 3.908774675954547*^9}, 3.908775003190826*^9,
3.908775092490934*^9, 3.90877536053756*^9, 3.908775505366485*^9,
3.908775933367609*^9, 3.9087760696226797`*^9},
CellLabel->"Out[6]=",ExpressionUUID->"20a54d94-8d78-4611-b005-ee80e894d6f4"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Find HWC", "Subsubsection",
CellChangeTimes->{{3.903955976788365*^9,
3.903955981478816*^9}},ExpressionUUID->"f050536d-4a94-4977-a682-\
bbad1a1ee12b"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ", "helper", " ", "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"winEdge", "=",
RowBox[{
RowBox[{"Which", "[",
RowBox[{
RowBox[{
RowBox[{"#", "[",
RowBox[{"[", "6", "]"}], "]"}], ">",
RowBox[{"#", "[",
RowBox[{"[", "7", "]"}], "]"}]}], ",",
RowBox[{
RowBox[{"#", "[",
RowBox[{"[", "4", "]"}], "]"}], "\[DirectedEdge]",
RowBox[{"#", "[",
RowBox[{"[", "5", "]"}], "]"}]}], ",",
RowBox[{
RowBox[{"#", "[",
RowBox[{"[", "6", "]"}], "]"}], "<",
RowBox[{"#", "[",
RowBox[{"[", "7", "]"}], "]"}]}], ",",
RowBox[{
RowBox[{"#", "[",
RowBox[{"[", "5", "]"}], "]"}], "\[DirectedEdge]",
RowBox[{"#", "[",
RowBox[{"[", "4", "]"}], "]"}]}], ",", "True", ",",
RowBox[{"{", "}"}]}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{"(*", " ",
RowBox[{
RowBox[{"make", " ", "directed", " ", "winner"}], "->",
RowBox[{"loser", " ", "graph"}]}], " ", "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"winEdgeList", "=",
RowBox[{"winEdge", "/@", "useData"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{"Length", "@", "%"}]}]}]], "Input",
CellChangeTimes->{{3.903953374870118*^9, 3.903953379666827*^9}, {
3.903955305750655*^9, 3.903955327629517*^9}, {3.9039554719177*^9,
3.903955491660946*^9}, {3.908774659111476*^9, 3.90877465939275*^9},
3.908774699831423*^9},
CellLabel->"In[7]:=",ExpressionUUID->"4765399a-070f-4e28-b3df-edb56069d6ba"],
Cell[BoxData["87"], "Output",
CellChangeTimes->{{3.903955314802052*^9, 3.903955327990554*^9},
3.903955505820257*^9, 3.903956285210744*^9, 3.9039578863180113`*^9,
3.9039580328427773`*^9, 3.9039581206331863`*^9, 3.906867318391005*^9,
3.9068673497564*^9, 3.906867978202385*^9, 3.906868010285857*^9,
3.908725751566888*^9, {3.9087258703004293`*^9, 3.908725914282143*^9},
3.908726146918689*^9, 3.9087267292374067`*^9, 3.908774568006535*^9,
3.9087746600500803`*^9, 3.9087747013249493`*^9, 3.90877500803817*^9,
3.908775095601268*^9, 3.9087753630625887`*^9, 3.9087755187007847`*^9,
3.908775940232638*^9, 3.908776072064782*^9},
CellLabel->"Out[9]=",ExpressionUUID->"5792275f-ffec-4fc7-a1df-9bf911edb3d1"]
}, Open ]],
Cell["\<\
Select an arbitrary HWC. This fails if there are none. If there are any, \
there are usually many!\
\>", "Text",
CellChangeTimes->{{3.903952179726666*^9, 3.903952206431136*^9}, {
3.903952332146668*^9, 3.903952342366341*^9}, {3.9039553623151627`*^9,
3.903955374948505*^9}, {3.903956010077626*^9, 3.903956018137102*^9}, {
3.903956344019046*^9, 3.9039563586064053`*^9}, {3.903958143779272*^9,
3.903958145706707*^9}, 3.908774572796155*^9, {3.9087750386863403`*^9,
3.908775044071168*^9}},ExpressionUUID->"1687687e-a036-4137-a88a-\
88793df8b361"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"hwcEdgeList", "=",
RowBox[{
RowBox[{"FindHamiltonianCycle", "[", "winEdgeList", "]"}], "[",
RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
CellChangeTimes->{{3.9039509905881166`*^9, 3.903951005452919*^9}, {
3.903952125277194*^9, 3.903952156697441*^9}, {3.9039522815657387`*^9,
3.9039522999423523`*^9}, {3.9039529381352386`*^9, 3.903952938450893*^9}, {
3.9087267942329473`*^9, 3.908726798330772*^9}},
CellLabel->"In[10]:=",ExpressionUUID->"7d8ad36d-cb59-448c-b9a6-c5e988bb8c3b"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"\<\"Manchester City\"\>",
"\[DirectedEdge]", "\<\"Newcastle\"\>"}], ",",
RowBox[{"\<\"Newcastle\"\>", "\[DirectedEdge]", "\<\"Arsenal\"\>"}], ",",
RowBox[{"\<\"Arsenal\"\>", "\[DirectedEdge]", "\<\"Crystal Palace\"\>"}],
",",
RowBox[{"\<\"Crystal Palace\"\>",
"\[DirectedEdge]", "\<\"Manchester United\"\>"}], ",",
RowBox[{"\<\"Manchester United\"\>",
"\[DirectedEdge]", "\<\"Nottingham\"\>"}], ",",
RowBox[{"\<\"Nottingham\"\>", "\[DirectedEdge]", "\<\"Aston Villa\"\>"}],
",",
RowBox[{"\<\"Aston Villa\"\>", "\[DirectedEdge]", "\<\"Chelsea\"\>"}], ",",
RowBox[{"\<\"Chelsea\"\>", "\[DirectedEdge]", "\<\"Tottenham\"\>"}], ",",
RowBox[{"\<\"Tottenham\"\>", "\[DirectedEdge]", "\<\"Liverpool\"\>"}], ",",
RowBox[{"\<\"Liverpool\"\>", "\[DirectedEdge]", "\<\"West Ham\"\>"}], ",",
RowBox[{"\<\"West Ham\"\>", "\[DirectedEdge]", "\<\"Brighton\"\>"}], ",",
RowBox[{"\<\"Brighton\"\>", "\[DirectedEdge]", "\<\"Bournemouth\"\>"}],
",",
RowBox[{"\<\"Bournemouth\"\>", "\[DirectedEdge]", "\<\"Burnley\"\>"}], ",",
RowBox[{"\<\"Burnley\"\>", "\[DirectedEdge]", "\<\"Luton\"\>"}], ",",
RowBox[{"\<\"Luton\"\>", "\[DirectedEdge]", "\<\"Everton\"\>"}], ",",
RowBox[{"\<\"Everton\"\>", "\[DirectedEdge]", "\<\"Brentford\"\>"}], ",",
RowBox[{"\<\"Brentford\"\>", "\[DirectedEdge]", "\<\"Fulham\"\>"}], ",",
RowBox[{"\<\"Fulham\"\>", "\[DirectedEdge]", "\<\"Sheffield United\"\>"}],
",",
RowBox[{"\<\"Sheffield United\"\>",
"\[DirectedEdge]", "\<\"Wolverhampton\"\>"}], ",",
RowBox[{"\<\"Wolverhampton\"\>",
"\[DirectedEdge]", "\<\"Manchester City\"\>"}]}], "}"}]], "Output",
CellChangeTimes->{{3.903950992399557*^9, 3.903951006177073*^9}, {
3.903951479575742*^9, 3.903951487317354*^9}, 3.903951792711478*^9,
3.903952004479879*^9, {3.903952126006957*^9, 3.903952157352634*^9}, {
3.903952283948762*^9, 3.903952300637919*^9}, 3.9039527386108503`*^9, {
3.903952812356708*^9, 3.903952837757957*^9}, 3.90395287890275*^9,
3.903952942775444*^9, 3.903953251857832*^9, 3.903953724767611*^9,
3.903956288479773*^9, 3.903957888615739*^9, 3.9039580346076727`*^9,
3.903958122371461*^9, 3.906867320496417*^9, 3.906867353174534*^9,
3.9068679799434967`*^9, 3.906868011426928*^9, 3.9087257538140383`*^9, {
3.908725872630829*^9, 3.908725881016972*^9}, 3.908725916477333*^9,
3.908726148393161*^9, 3.9087267311191874`*^9, {3.9087267946200247`*^9,
3.908726798795513*^9}, 3.9087745747615013`*^9, 3.908774703648389*^9,
3.908775097999584*^9, 3.908775364439673*^9, 3.908775520702773*^9,
3.908775941645693*^9, 3.908776073911518*^9},
CellLabel->"Out[10]=",ExpressionUUID->"00ea1db7-67cc-4cf3-906c-1d0228b19cc9"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Graph", "Subsubsection",
CellChangeTimes->{{3.9039559445837173`*^9,
3.903955948868102*^9}},ExpressionUUID->"c196a204-07d5-4d56-af1f-\
ac77c598eac4"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"winGraph0", "=",
RowBox[{"Graph", "[",
RowBox[{"winEdgeList", ",", "\[IndentingNewLine]",
RowBox[{"VertexLabels", "->", "\"\<Name\>\""}], ",",
RowBox[{"VertexShapeFunction", "->", "\"\<Square\>\""}], ",",
RowBox[{"VertexSize", "->", ".7"}], ",",
RowBox[{"VertexStyle", "->",
RowBox[{"Opacity", "[",
RowBox[{".5", ",", "Gray"}], "]"}]}], ",", "\[IndentingNewLine]",
RowBox[{"EdgeStyle", "\[Rule]",
RowBox[{"Opacity", "[",
RowBox[{".3", ",", "Black"}], "]"}]}], ",",
RowBox[{"EdgeShapeFunction", "->",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"Arrowheads", "[", "Medium", "]"}], ",",
RowBox[{"Arrow", "[",
RowBox[{"#", ",", ".02"}], "]"}]}], "}"}], "&"}], "}"}]}], ",",
"\[IndentingNewLine]",
RowBox[{"GraphLayout", "->", "\"\<LayeredDigraphEmbedding\>\""}], ",",
"\[IndentingNewLine]",
RowBox[{"AspectRatio", "->", ".7"}], ",", "\[IndentingNewLine]",
RowBox[{"ImagePadding", "->", "20"}], ",", "\[IndentingNewLine]",
RowBox[{"ImageSize", "->", "800"}]}], "]"}]}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{"winGraph", "=",
RowBox[{"Graph", "[",
RowBox[{"winGraph0", ",", "\[IndentingNewLine]",
RowBox[{"GraphHighlight", "\[Rule]", "hwcEdgeList"}], ",",
RowBox[{"GraphHighlightStyle", "\[Rule]", "\"\<Thick\>\""}], ",",
"\[IndentingNewLine]",
RowBox[{"Background", "\[Rule]",
RowBox[{"Lighter", "[",
RowBox[{"Green", ",", ".9"}], "]"}]}]}], "]"}]}]}], "Input",
CellChangeTimes->{{3.903950483909336*^9, 3.903950495817099*^9}, {
3.903950587529182*^9, 3.903950595663814*^9}, {3.9039511662224197`*^9,
3.9039512227137547`*^9}, {3.903951259924553*^9, 3.9039513062060423`*^9},
3.903952946397975*^9, {3.9039530112183237`*^9, 3.903953014535926*^9}, {
3.908775590556836*^9, 3.9087756001236763`*^9}},
CellLabel->"In[11]:=",ExpressionUUID->"ff4cf2a3-74c5-4f68-8d3c-50b8fbe9da5a"],
Cell[BoxData[
GraphicsBox[
NamespaceBox["NetworkGraphics",
DynamicModuleBox[{Typeset`graph = HoldComplete[
Graph[{
"Manchester City", "Burnley", "Arsenal", "Nottingham", "Brighton",
"Luton", "Fulham", "Everton", "Newcastle", "Aston Villa",
"Crystal Palace", "Sheffield United", "Manchester United",
"Wolverhampton", "Brentford", "Liverpool", "Bournemouth", "Tottenham",
"West Ham", "Chelsea"}, {{{1, 2}, {3, 4}, {5, 6}, {7, 8}, {9, 10}, {11,
12}, {13, 14}, {4, 12}, {15, 7}, {16, 17}, {1, 9}, {18, 13}, {5,
14}, {10, 8}, {19, 20}, {3, 11}, {20, 6}, {18, 17}, {19, 5}, {14, 8}, {
13, 4}, {10, 2}, {16, 9}, {1, 12}, {19, 6}, {5, 9}, {18, 2}, {4, 20}, {
1, 7}, {3, 13}, {11, 14}, {16, 10}, {10, 11}, {7, 6}, {5, 13}, {9,
15}, {18, 12}, {1, 19}, {16, 14}, {3, 8}, {8, 15}, {13, 2}, {1, 4}, {5,
17}, {10, 20}, {16, 19}, {9, 12}, {3, 17}, {10, 5}, {6, 8}, {11,
13}, {9, 2}, {18, 16}, {19, 12}, {14, 1}, {20, 7}, {2, 6}, {20, 2}, {8,
17}, {7, 12}, {18, 6}, {13, 15}, {3, 1}, {14, 17}, {15, 2}, {16, 8}, {
1, 5}, {9, 11}, {13, 12}, {10, 19}, {18, 7}, {18, 11}, {17, 2}, {3,
12}, {15, 20}, {10, 6}, {16, 4}, {1, 13}, {8, 19}, {15, 19}, {11, 2}, {
13, 7}, {1, 17}, {9, 3}, {12, 14}, {4, 10}, {20, 18}}, Null}, {
AspectRatio -> 0.7, Background -> RGBColor[0.9, 1., 0.9],
EdgeShapeFunction -> {{
Arrowheads[Medium],
Arrow[#, 0.02]}& }, EdgeStyle -> {
Opacity[0.3,
GrayLevel[0]]}, GraphHighlight -> {
DirectedEdge["Brentford", "Fulham"],
DirectedEdge["Luton", "Everton"],
DirectedEdge["Everton", "Brentford"],
DirectedEdge["Crystal Palace", "Manchester United"],
DirectedEdge["Brighton", "Bournemouth"],
DirectedEdge["Manchester United", "Nottingham"],
DirectedEdge["Nottingham", "Aston Villa"],
DirectedEdge["Bournemouth", "Burnley"],
DirectedEdge["Manchester City", "Newcastle"],
DirectedEdge["Burnley", "Luton"],
DirectedEdge["Wolverhampton", "Manchester City"],
DirectedEdge["Tottenham", "Liverpool"],
DirectedEdge["Newcastle", "Arsenal"],
DirectedEdge["Sheffield United", "Wolverhampton"],
DirectedEdge["Liverpool", "West Ham"],
DirectedEdge["Arsenal", "Crystal Palace"],
DirectedEdge["West Ham", "Brighton"],
DirectedEdge["Chelsea", "Tottenham"],
DirectedEdge["Aston Villa", "Chelsea"],
DirectedEdge["Fulham", "Sheffield United"]},
GraphHighlightStyle -> {"Thick"},
GraphLayout -> {
"Dimension" -> 2, "VertexLayout" -> "LayeredDigraphEmbedding"},
ImagePadding -> 20, ImageSize -> 800, VertexLabels -> {"Name"},
VertexShapeFunction -> {"Square"}, VertexSize -> {0.7}, VertexStyle -> {
Opacity[0.5,
GrayLevel[0.5]]}}]]},
TagBox[GraphicsGroupBox[{
{GrayLevel[0], Opacity[0.3],
{Arrowheads[Medium], ArrowBox[CompressedData["
1:eJw1U2dQlAkWJGcEcYYcZr6PtKQhDwO68xAUlqBkXVEJrijBwAAuQRQlCUhY
ySgogqcYMCOCOk/AVZLgEE3ASlCEIwh6iAjH/bhX9ap/dNXr6q5+9MBDHnsF
+Pj4jq/u//D/o9Wa3N7mYgPK3SG7+pJ7uYzqbdFtZjbwUu3lyPyaca5+fJ6k
PtUGKqS1XknfmeeqWq1P/TRjDVa38+YY9GXu4sCWCaHn1tCz9CbscIgQvgxv
YyYUWkNsRJNtTpAEnpm5F7Yj0Bo277Z7FHdSFh19xdJzdaxBeDJHrIug4Mzt
v7P1P7Jg6UOL8BaKIqbPT8cT5SwASefw418VUaJ4/9fL2Sz4QdWN7HyphLrZ
10MF41jAEAxcY3tBGQd664fM97Cgn7fAfhWsgsaHC7zWO7JgMWlS7IS+Kqr4
rn+upMeCPKUNwW6jqnix8IZVuxgLKnM++7ML1bBB6/MVnxErMPw8P+1qq47H
hL8o1Dyygl/DdujFRtIwtqn9j04+K4g36ZIrvknDzTGHhmfeM2Fk11udwjEa
8teN2c49ZEL4LCc4UomOV1LMEvrymKA1Wdxn7EhHq0HvstKDTODf4sZp49Cx
ptH13CYHJggpFLAciulIM1eJ7VBnAsMh1LC8no5Rxk+YNl8t4cRAh+ub13R8
UGvZc6rFEmolMf+eAYEr4wc4ny0swSPjU3yGHYHpbYWF+RKWMNSR4276O4GT
CTxf+qAFBLyula06QKCmqDo3864F8C77108nEGjsF/v0TaoFWNmcchfJJXBd
2sdAsZ0WkJPL6JqsILAlaW+FvLEF9N/ygYq7BG73mD8pLGQB1NyfRb80EFg/
m8vf02cO1D0HLDInCVyuuq7pu9kcTkbJ+UwuEPjaKe3eRmVz6N8xlFIrRGK7
y8IofcoMFNf1PZ+VIbH/5vfahadmsLHsm2KRMonfIzINn+ebgffSr7HXNEk0
Lb5rlxlsBh6Gtyb0jUhM0gj74bTBDFgmTgeUmCROijzw4ltrBuJi0isRbBLD
tuZtvTFiClF8ulqG20m8b+V+c9HTFM5NGXdE+ZE4enanUI2OKWyi2CvuCiJR
eFmOcfCHCXDCA/iGw0ik+kUyyA4T0BBJSxWNIFGOmyDcc9EEtvLqbrREk8iv
bnU78YgJCPR+4xgcI3EgrsSU4WQClms39Bkkknit/3Jan5oJ/Dsx801rKon7
zf1rjs4aQ8k1jVLtfBKHYxKrHQKM4WndVbnTRSQeaWb3j5sbw8adp7MvlpA4
IigYly1mDOo5TetCzpLo71FiGF7LAHcfz/MfVvlbnPXbWvwYMFRtZSpVTGLd
/kmOnigDXhRHto2t3j9ufjXhr2ojEFcQPcj5i8SlnqiEFW8juKQ9I38zg0Rz
162cyJ+GEEt/MkZd9TemkfJN950BeKXOPxkPIdHlrohydKIBTJWeax4OIHFa
6FLHsJ4BOO+tERFazbObEqAQxtOHP97bHnFyJXHug/WsbKw+gAhb8YEtiV6H
THfx6PrwbvDG5G8WJM4+dPC91awHzJCsOQFdEtsaYieuhuuB56Uhgw9Kq/pp
rdINSnqwmPtacs1HAoVchHMavupCqULWNlovgYbpJpaRpbpAHDGKTVjtm/o7
XoToZl1Iv1kXYXSdwC7bccej0zrQ2Whqr7fa3y31kfd5xTrw/U7BRMSfBGY5
Rj2U2KQDgvFjwZKr/5A3/tlLc1YbpugEd4ZJoH9ZT6pGmTbUlf82QVII/BJk
4bHkrA0iVaRUSQwdNaOTftkpowWv9rkRSy50LBs9G6/5QBN0T9ulVKrTMfHZ
ctMPP02QlP/JzJ2iYafCjZV/xDXhT+F45otHNEx89y/DvnskHN7RmGSXRsML
6ya3vPUnYZ7SqSHsRUPtx0f3TEmTIGBRISatRkPK6+2hso8IsIqKOVbzQgND
9iUE2YYSwPLkyQx+UkO7SsHGr7p0CBpONpAJVMO0OXqF1isaLIqZytv3qWJH
dHGWWRwN5hp72+IdVZFiHpKsoUMDN0qk26P7KljtpCvTVaUBlEXx8hV1FTQv
NtIjxTXg16iiJw5Jyljj+dGXEaYO7ckaVXmjSsiM9aj8D08NGvXP+49tVMIa
qcOCRzeoAW2eXsCTl8dnF4Qfqicrg4R4K7XUnooJKUUxc71K0Bqw4KJwkIJF
QenuBxlKELBcZWObuw4lbN9CdpYitA4M/qN8Tw57qRkOPvMKICFYwq7sXIvL
I8V7G/0VgBba7/X+kyyeqBY929slDxQjS7vT32XQj9P9MdtVHgqkm5wfK67B
ImM+l+l2KpTcNqpwZvGj4HfBSfdaOVAvFL0mWrLENczpiOiQlANXN9uh7rvf
uGeSQsvtg9fCkyyJsWXuDNekty/ydqcsDFb+HS0ZP8oVTaZMUTfKQv4Bo8xL
j3lcBmGnPBIrA6pBzZ6BPTXshvmfFRnJa+C8ZE/k8O4BdvOJ32OISmnw6l6f
Fn9+gm3X7F1ypVcK9KSi3+6jzrONWr+IqKtJgUtjhMuFTYKgKrD3eYayBCyo
zUZzWiShiRaXUs4WA0nJElZ+21rQ1rGw9zstAt3eZWoj26mwgZrL94xPGHwO
JX/SSlcE6Ym8et45QTizbWvJDn8VKLhiHXXKXwBOrVkyPflWDfpdkwzHnPmB
mZdx59wPDXj1JnxkYjcfuM0fk/IeooHIeRFzM7MV9n8BK32H9Q==
"], 0.02]},
{Arrowheads[Medium], ArrowBox[CompressedData["
1:eJw1kf0z2wcAh6OtSFUoIl5afEW8HpJIIhJn+bjzHlb10pLqvJvhlK2njHlZ
T9VsOMXqfdWWS3tzXmZq8Xbeb0XXbB1lsusUU2V2K1nRbvbDnrvnnj/gsYi9
FJxwhEQi4dD/+j9WD4tmpgPcIP5iM6ofU2Kj7gC7Ip4bKHHMmbfnF8SKiqRH
VCM3NCSPbaSHrIhD4p8OJapEqNWubLt6bUtc49i8V64QYbDszXR97CvxrZd9
+SUyEb56mB8zobEnTr9ldyYkV4R9ZdtUtDEJxwK2kjb9RVB2ubRPZBzFxZca
M+cNRMiJSX1Go2og99PMnMpFIf6JyNBWPqEg+0eZ808DQkyaC4LUqjWxnF/p
f7FJCEXXQGuevxbkxexRx0+EOK2vrndul4ojG1cbvKRCtIFaWXxTB72yz3++
wxdCbppyo+TmScyP+mdIdIQYUWMnHUTpIlk4mCpcc0VyQJhPA0MPSZprU2kD
rqDi1TrlGg13LIpyaE6ukC7qFE95GKDNJMx+Vs0Ves93C/DWAGlnQyK/eyIA
XyqbS5fToRrP130qE6Df3aY0ItsQ4qwFP/s8ATrL0uv3BEbwS4pTbw8WQDuw
iBKqMgK9xsQz3kYARVaCIqHXGLfVSOTAAxcc0dN9zcoywV/39CVJj11A26IU
BkaYoZUa5qCu4qOk53S4YM4M+11GtcvzfCzWjamCvM0h5bymGfTxQWkiRde1
mmPs+m5z7Zd8nBj6oUL/b3Pw+k6KMi7zsZNn4vWeKYGOEZ/l+jN8BH9Nb/UX
EHC+W19vbMdH/YvIjVk/AsPRWnEvSHw8dtmkbYQSCNupFWrP8TDDmmA0hxMY
Czxm0O7DQ2Z/CP1XKQHPTusTVad4eKfxzXZTDIECm8Mz21wwFaNdylQCVzqe
O6iNc2F7ofVCUy4B64CC8Ot1XAS43t1YqiBQsbdVXZfORfkHw7GNMgLfytkr
Ah8utrdUw79MEKgu9/KONuMifUpCbvidACvTsU9/1xnEN3HnFKUWGFa1Pfs4
1BlVqdVOYX0WMGlfffeUrTN6Lo+R51ctsNvN7Jfvc1A4va2U0hgIOR5rF/mI
A9VHJr1LHgyw2ptqDlo4MEzxKI++xEBZy8LRxkwOfutMeH+5gYG0VYMMd38O
wn2LxYnfMzCbHaRcMuUg26nVcF3FQEfkZ5K8P9nwjB/5I8XKEvrlow/Mxtno
lydb3T9rCc0Gh869WjZWyU70uBxL3NfeHQrMYGPQS2vkRosldlbNVwwlbHhn
qdu5T1pijXmPiLBhI7/JWBK1bonCqaoPdclsJD7wtd2jMFFye6incJYF0kTl
MNWaidhCevdsNQu+kyr9OjBRau+0dDyWBfRfOfzFBLmZzONyWfgX7oasyg==
"], 0.02]},
{Arrowheads[Medium], ArrowBox[CompressedData["
1:eJw1VGlQUwcYDIciGkQIIXmJXLYMypXj5SCJ1g+Z4RAtCFSoKFoEBYsgHiko
oBhELFYjOkikqAO0gqWg1EGRyvuKaaICGmtFK1WqARTEiMCAmKKlnenO7OyP
/bM/dtcjMSMq2ZJGo4VN81/9H57tBzo7Vihg4KMTKZM2SFFvzp5bLVZAXSW9
ZbLfQKUXN9+I5irAszHEaaLmESUou8PXvpcD/+zU+nfVzyhrtrHnXI8cLnzP
WD+Z9IIyzR67//6aHNRDyQezTpioF9ssGTc1chgI2D3UohmhxsPmnpy5Qw7y
8p5as/s4xSplJV4Ok8NiF+Mec88kteIz153dLnJwWxvZydJMUcLcZj05IoMf
2+c1ampo2JXbmKXUyUC52cfdq8ASxbG2B6tOyWCzxVu+aL01Rti2jlxNl0Gh
RtmLspnoecLQ8vMyGXTyzsk7GbPwygQ8q3GWAWgPkZ+/ssUZIvtNewcD4PFq
1ztJujloH6YIgdYAiLd7UBGc5ohpX4c3ftwrhf2LFowZzI6YGcA8E6aXQuqW
6u4Z+QxMOHtMUF4jBQfDupg+MwP5bZhKFElh15pPEzLSnLC/ojJEmyyFMlvl
ZNVvTphPStvLA6WQ8/h3T5U/Ey1VeWNnuFJw7dpipO9jYsrhrOuGUQnsG5UK
A/VMvBThGeB/SwJVO543FRU745MN5ysfCSWg2KVM5lLOWJeqDfWeJYFiUWx2
n8kZ5bVZZMhjMRy5eGikn8PCg276REGjGIKG7O66BbGwpKOh60WhGBp6jU7q
zSxce0F4dGu8GG6fmtMqLWJh762IwxRPDJVzD3Q4f8dC7/k2t59YicEbIsGv
lYX86riY9gci4CwdPL7wAwu1K62Z9SEiMKgduHQGG7e1O5ZFcUVwc8BcZvRi
I1/dEfzBRIL18lq7hiVstPpW4HGpjYS8i0R2egwb+02BXpmlJAS4r+z2SGPj
n0VTcZItJIhLg0Q3C6b91KQmq09I2M6YUiWdZqNFiXLpHw4kvDmZfWv0Cht5
FqKxpj4hvMp49/wHJwLvGa8/3R0jhFXaKJdMAYETjMGyBQuFULDO9lVKBIFu
w4PGh2YBqBSuscfTCQzP0rVV3BFAVMKx+OEjBGbV5YgzqwRg+jXx3d4LBNYc
tlsc/ZUA4raXkMvuEdjNzu4KCheAeqO7jXSCwHmrKOsgNwGUaui7EuZzMEz8
ly5ylA8QSWSkV3DQmK2qD/mCDzt96QXHmjkY7OLxMkjChxX1OkcfioNe0UW6
CTs+6O6HchX1HHSQbs/XGXjwtLKk4pdCDnYObfqJXsyDM8xqTWsoB4v0pgVt
y3lA88+1F44RCHpbQ789DyyHXD5wDxE4/vLy1d2P/KEmojAlx2Y6v3jyWe55
f3gd1xQencHGuOrO0OG9/uCbYD7aFTHdJ6sl9UqzH2zlNlf2rHHCS9G0vDX5
ftCofq1KVzviw+OsK+UOfvD22mlSNTwPw7X718rrfGF/8DcbFeNz0a4v8EvJ
Kl/g5N/+e88GOs4fj+k9SvOFJh8L8obbbMyZaNEHX/WBuGDPme6iWbhoQMmM
z/MB2l25UlUxvc///scH/gH4EhS7
"], 0.02]},
{Arrowheads[Medium], ArrowBox[CompressedData["
1:eJw1Ums0lAkARVERkWcZzHwG8xmN8RjTDGauIoeQM3lMejFno+RVW3ZTORsp
eWxKUuNdepFH5LRSWuUxRLVSUh5JLGW9tjwq7dofe8+555577v1xf1yaJFK0
S0FOTk60wP/0f5g8Tmhr9bBHwvKxSWrWH8KvbpUcmq09eiYObu0LHBBuH1WQ
j9WxR/uDI9dGq8eFnhUHLAf+5uPX6gTWttFp4aOspXXerXxIFDUEBb3fhbLr
tVWNeXyU09h177oWwb/rvKpLBB+N1dVH31ctRdSaM7LHXD4m3a90+C5Sg9aV
kqGAbzxIQ+ck+v0acMZoyFQND7vr7k6VdK4EO2WTR2chDylr3SmeMk14B3GK
7JN5UHh2rW+2QguXH+QcM4rkofXkc4dbmdowv5bYHufNw8jONpvoaB0M6k5n
77LkYas4o951ky7aNYbeNqnwQN3HHDch9PD5nDj3xuBa8IpOV6qP62FjgecL
5ftrQV+mUpP5XR9JUazEs6oLPlJ36Ug+Bd7mPyYpDnPBvOcmVyE0QGpqg0Zx
HReciYLLU68NIJCaGMZLuVinQp0q2m+IQO/0stT9XPio1n98rWSEuTK1xhY3
LvZOp6bFZRpBsToziE9d6A8IJrxXUnFiLyuu+7Md2mubwyn+VBxuaje71WIH
l5s/PZzeQ8Oqi707PTXtULyh8oBqNg2SMgc4jHPw9FjsRaGMBmntxCd2Cwdl
27vYqWM01DZ+Ocos5MD99SP+tBqBtqaAN8yjHOTPON6JIQk016mrWvtyUFHl
enW1gED5bYqmwIKDX7T6l7z0IHAiP/avTQocKGspd9/0JbAhwS47pNMWv996
ROSJCdR7LtYudbWFVYhIpy+AwGyNqco5fVs4XZ2fyA0iIBJRNBUnbDAW0VDR
G0bgifqghXyDDezqbmzNPUIgfOYXcaLUBpScoo89aQRYShMZ0igb5CrIJDk3
CGg7Wg9yXW1QOylf191IwCDbdUOgoQ0Oh4qVsocJuBuzqzWnrRETmOTXnmwM
cX9ef4yPNeaX1LJ8q43Bd3/rpc+wRit3TOnVkDFinxrdq/lqheHx1X0BWnTQ
9+0gtz21gifb+U6PEx1My+zz3y5ZYX52z+nASDrOL+talBNthS9uKSED2XRI
5LT3Obpbwcm4WBjcQkeapndvj4EVXhxv1B2ZoYO2Pmlj7CQbjn7qC3tMMHAo
vtQ1iI0hoSCx4a4JqgyytKI4bPTlZ0VcHDVBv09U2HVlNqiHGMu8aKboECiF
9ddZolT23n9AbArpl6vvzkRZIvH0s4At6abQ63noIKEt5G0fNcqfmcJraEuM
qIMFo3i7o3+qm4GvE5YlOcVCb1l59j+bzdAdNpd3FixMCbw6XHRJ0AtuHjI4
YQGZr60hW0zi4aeSoHChBZgePvmUFBK75myDc6aZWEWUBqhUktAoczpZUsxE
eqeT57dWEve0O+pzdjBxIWzFz+NdJCLWjBpGrGDCtF/nzfsFbzJ9KsOw1hzr
OOLo7oX+28gSRlmoOYZ3P3d7WUEiX+r3ykjbHKuPJPq2J5P4ITqhMOo+CdvU
NqP0nSQ2p/lnMEJIXLg7y3rDIZFx8EPFE20S6xcrxxepkSBNBfOSZgY4ofIU
+Q8MLL8kOjB4jIHw0d653iYGnEbM9PyEDIwnXaI4X2dA9vX+8G15Bn5z8TjO
TmYgv0trSL7ZDDJKN7swioHmOAt1xwwzUNVFC39mwHlmcUhwsBn+BUn+MT4=
"], 0.02]},
{Hue[1, 1, 0.7], Thickness[Large], Opacity[1],
{Arrowheads[Medium], ArrowBox[CompressedData["
1:eJwB0QEu/iFib1JlAgAAABwAAAACAAAAAAAAAAAAAAAly4XNzEw7QAyPt2Hy
jL4/DhAXXtc0O0B0XW5gtGfQP6gEkqJWGTtAEm0BWGdN2j/0qPaaSvo6QE+J
k78qquI/7fxER7PXOkAMp+9qP77oP5oAfaeQsTpAwA8VrvFi7z/0s5674oc6
QLXhgcQgTPM//xaqg6laOkAG4d19Fy/3P7opn//kKTpA0oUeA11a+z8m7H0v
lfU5QDFjckniFP4/1RBBZWHSOUBkXMX4Bl8AQN5KTmUZrjlATsOz/e+qAUBB
mqUvvYg5QFFmhDMs7gJA+/5GxExiOUByRTeauygEQA55MiPIOjlArmDMMZ5a
BUB6CGhMLxI5QAa4Q/rTgwZAP63nP4LoOEB8S53zXKQHQF5nsf3AvThADRvZ
HTm8CEDUNsWF65E4QL2sHZsXyAlAy0MufsdmOECQhpGNp8QKQGy294waPjhA
hag09eixC0C2jiGy5Bc4QJkSB9LbjwxAqMyr7SX0N0DQxAgkgF4NQEJwlj/e
0jdAKr8569UdDkCGeeGnDbQ3QKQBmifdzQ5AcuiMJrSXN0BCjCnZlW4PQAa9
mLvRfTdAAF/o////D0BE9wRnZmY3QKCvx7M=
"], 0.02]}},
{Arrowheads[Medium], ArrowBox[CompressedData["
1:eJw1ink41AkcxqdEB3P+OiSzaDAYO+Y0ZlS+5UrJbrpzpYhWrZqInq0o1FpC
mShSrlQrHbolvy8pwuShRzqESo7KVVjK1No/9n2e93mfz/N5TTaHegZOplAo
XhP9b/+PWW2cus7dHlRhfMOuuqukv/bnSH+pPbRZ/s12ulJOjrzQUKPm2QM+
uXN518tasmPpxUSzHwrYo8ox/r77KWnuOTS0ul0BotP5HwZDXpAVw60uVFIB
qgOB0plNbeQN8bZDHpkKULOV0cXr3pHjuqnn9cMVkL8txVyp6SSzDnjfCnGf
8LlU6uNXH8gTCQ8vu5oowGNUn/i9t4/c82NpYu6wHE7VDegmpg2SjQX+y5S1
crhfcf3oFvUX8uJBes+tXDkk+zYlLZw3Qo4mewbv/EMORPYaukH0KFnZYFV9
Zo0cXI5I6GPfvpIzXE9OWyKUg9VMZdLLJA1Z059huZEmBz/OERc/Qwrq1Il4
XZ/s4O3M+y+emeshOlam5LTKwCF6r7+fBxUfeXqd76uQgbUVHirbRMMj7l0J
zudkUMg6tnDIh44UYfCigjgZtBiOLKVwGMintJYxAmRwqb6b3JXIwNklS6lx
IIMHOdkxHh8ZeMv3gqXWPBnMT2Wr0hyYSO0bJxK+2EJNnt+gWzwT2cEudYY1
ttCklMetWsfCIb+WHJrQFk7x1qUsTmBhqFL4tEzHFhKnmWcQd1nYzwnrFbRI
4er0gtzH7SwMC8sfCLgmBYpN88Utkwn8vqWiZeNhKURH3r3yhk1g4mf1NZaX
FPid7jccxQT+ZFwVmmgjBb3IY7fjlxB461PR7GotKejzj9y9vpzAVesPFTxs
lgC11Lqk3IPAyhVTZl12lYD/2ihV44TvGvLWD5knAdI9kqPtSKCe7bCrf78Y
OGfnBG2QEChgqvNSHoghcYWPX70RgasPd/DG0sUwvs5NL0ibwMgT9u0Z28Ww
u+zVDuP3LMxa1Ijhi8UwED0z9lsZC8sPXlDHzxZD+NkvHqPHWdjpW6bT/FEE
3UYZk582MnHKcU0D/CKC4YjXlJEsJpZeYhNfOSIIJLnt7BAm9jzxXXZ8VAiK
kcjsZQomHh3FiOlqISgNGxbv02VigaVTpl+OEGgiQWVxKwNtN3ffUIVPsCyN
23edgQtyiyovuE38eVrb+QkMvNOTWpPJFoI9PeLY7gAGFtplPtoxKICtPULr
2Od01CdWjXr5CMC/YqEqKI2OMpEPtV4ogHuDdmyWNx1d1w9tsNQRQFgEpyrG
ko6pM4SlTTdsIG6V5ljpdxpGKlPFXB8bGI17tL/0FQ2XdNMNXLVtoJoW9VcM
0rAvpCBUWsSHoV7zO8wiGh7QrJV8Xs2HaE6ZTlAODQdOmwTvH/8ZNhbCnpgs
GnYaHR6xaLGGqZevpAck0/DZnLbXnbHW0OFKGZ8aSMO56TptZwTWMBApytvx
Ew2Ls8bHfm3jAXexy9ET96iYySvna1J4kJRtXxK1gIovYfX+PGcezE9nWVnn
6OFvr2++d9RYQYdpbUtGjy56TOoMar1tBc/cAhtrZ+ni4UsdWrvDrYBy4FNL
j5Y2TnHXTqkYtoCVdfsku1K08EPG81JltgXgYN99CW0ysoxCkyZ5WoBT35K9
kv0U3Pu8ekroDAuoiBmsay/RkCZV743uPeYC74WxboPPV1Ln48O298lcqG4h
iuTvRki+0zanfm8uqJJqig2WfyFVjfUrmgVcMHsdb9dt1U8q0sa+Zely4eCY
9tOE2C7SJLnTw7HXHNJ+eIYzZW8ddgYsrErzNge++kr4OedxB0+FPvN2sxnc
HK7iTGvVgSpGhHW+rxks6jU9GUDSoKZrw1zfQVPI2PqPbtg7Fmwisbkj2RRq
a46vdPs6C/5MLwyyU5iCMK/DUJSvD7DT4PH6AQ6o+z/t4L8xgHg36rhzMQey
rxY6LbpmCAGcWAolmgP/AnHporA=
"], 0.02]},
{Arrowheads[Medium], ArrowBox[CompressedData["
1:eJwBgQN+/CFib1JlAgAAADcAAAACAAAAAAAAAAAAAAAly4XNzEw7QFEnmeR0
D60/3MKzXi81O0CSPSnqatG+P+LPBKW2GjtA4P7Ks4huyD848nigYv06QAu1
pHqrKtE/2CkQUTPdOkA48McckI7WP8h2yrYoujpA9DBPQPJi3D8E2afRQpQ6
QKA7nfLoU+E/jlCooYFrOkCP4cSFl67kP2XdyyblPzpARoqe2YRB6D+KfxJh
bRE6QJ1Jh22HWes/gMRtjGHoOUBQUyIi6VjuP22ETIPxvjlAsNO3+9Sf8D9R
v65FHZU5QOOit/bkBvI/KXWU0+RqOUBHlxCCpGHzP/il/SxIQDlA1rDCnROw
9D++UepRRxU5QJXvzUky8vU/enhaQuLpOECAUzKGACj3PywaTv4YvjhAbpEu
f14++z9tDsi02x84QJ+hoCFsQfw/qHcSP3j2N0Dz6zezaS39P8SED+S6zDdA
aHD0M1cC/j+/Nb+jo6I3QP4u1qM0wP4/loohfjJ4N0C2J90CAmf/P0+DNnNn
TTdAj1oJUb/2/z/lH/6CQiI3QMVjLUe2NwBAW2B4rcP2NkBUt2jdhGgAQLBE
pfLqyjZADfbKILHUAEC0t0RI4To2QHR3W2N8+wBAJIQuCcUONkBdfd4X2TAB
QC01enEv4zVAxgdUPsd0AUDOyieBILg1QK4WvNZGxwFACEU3OJiNNUAXqhbh
VygCQNujqJaWYzVAAMJjXfqXAkBG53ucGzo1QGheo0suFgNASg+xSScRNUBT
f9Wr86IDQOcbSJ656DRAjGsNWEkvBkDETQQVrkc0QI5mq7hU5QZAEFA9gk4b
NECfRk4ZYJsHQLGidu/u7jNAuQv2eWtRCECkRbBcj8IzQN+1otp2BwlA6Tjq
yS+WM0AQRVQ7gr0JQIB8JDfQaTNATrkKnI1zCkBsEF+kcD0zQJYSxvyYKQtA
qvSZERERM0DsUIZdpN8LQDsp1X6x5DJATHRLvq+VDEAerhDsUbgyQOiWXJWs
Rg1AVRB35C2NMkDIe9JYjO0NQIkoPvOAZDJA7CKtCE+KDkC59mUYSz4yQFGM
7KT0HA9A4nruU4waMkD6t5AtfaUPQAi116VE+TFA9NJMUfQREEAqpSEOdNox
QAurA4IbTBBARkvMjBq+MUBF5OwoNIEQQF+n1yE4pDFAoH4IRj6xEEBzuUPN
zIwxQPYJhAg=
"], 0.02]},
{Arrowheads[Medium], ArrowBox[CompressedData["
1:eJw1iXs0lAkfgCW3qAzGjGEu74vMYNZtjDEzlZ84IpVSicIW3ahNbRG22jlC
SEWX79Qnt5pNF6yUSlnzc6l0wShtoRSRu1YZO5Lsfn98zznPef54yIiYwK2a
Ghoacf/6v/6fBU9TGp8tl0L/tetE4TOlwrSLM+TgKoVz3HW19rHdike+FX/e
oklh18T02Wz+qEKi6ZMVPi4BNXFF2/OhShE97zmd3ygBE22b7MPLphWh0SE/
sQolULum6rasRRPnM95kueyRAE9rVWPPdl08zNiQtFMigUqTlZk7d8zF0p0v
PBtmxCD17EjIGKBgvqFvsy+KIWhCHKd8Z4SPA2OLvK+IoevCz32rlcYYtuJ7
ZMdxMbx2TWmcf98EQ2a6tebtFcOi6r083QIqVu+wymhbLQaK2F0t+dUUj6Ur
voCTGFb99nrhtWAa4uY7nl5zxfBdc83EWj4dw8f097/vdQdmYJG19Csdt7nf
yzD7wx0GbQ+NhByzwMQL/+Wnjong9T4DHW0KE6/qq+3ftIgg6ECyzO4YE1f5
xWy9WSaCCNf+0CffmBgTrNFmcEIEk9fccnq2sFDT/Xpqb5QI2B0x0oQ6Fhr2
x+wGbxEo608vSjNjY/aOlVlMlggoOy4WGm1h47FKn+GEcTforM/ZbnqZjd/a
g5OCn7jBHxsx+W4IB98Pv8imC93Aaz3d/EoGB5VN9MnROW4gbpX0zdzl4LWk
+CeFnULIe243rOjh4C69CW2nm0IQX91HHdchkLop6/r5o0Jot727cqE5gfL0
pfc7NwpBMNQtd+cTyEyxEM44CsFr5AttYCGBhwLnMqZmC8HAaUi+YjmB9WOM
7c9fucL+YteIvngCV80tC+r0cYUW2Uy8TSqB47SLYdfMXWFSJvEzP02gkV+M
195RAQwV9z6vzSew6CJdT1ArgMtas2hEMYE3rXKufzorAH5aprHLXQLFzyZ/
KIoSwEFRWoO6jkD3C4KTIYsE8B/jcdH+ZgJLT/s26xj9+xnKTfJ2AnPL3UdL
e1wg7lNv1p1pAl98qOtKXOsCJ5tUKw7okWheURhkwXOBinamrrsJidf3P26/
P+UMPSYbqyZZJKZYSneHNjsDO7HspyoeiZerJyjTF50hch7LQiYg0dDvW21u
nDPcaiyo915MYk2Nf/LiZc4w/740Wt+PxCpe79p3LGeIfTli0LKGxJlDDa6y
MSeYyNN+0hFH4oeEI6VLNzvBoXtvPqh+JXG1XH37s6sTLLjYdvtmComBMR9V
5XpOMLLu2xLTNBKVFef/pFQ6QutL7zTzoyQSTesdPm5yhHbyZmpdEok5XN0v
vXqOoClZupjyC4mLaousKTccwJc963eNPSTq5InrtoQ4QFnT+9dnNpOovlfV
9GGWA0SMSdlRJIkUv7jtp9r5wHAJiXw8j8T0sStneUl8KBUr7wV/JXDUcta9
W7Z8YOkVWtP7CPR8e7jVrcUetuU+LdBqJTCRsOwtjbeHzMkAR7KGwILhwSEm
YQ8nmA7KXaUE3vBs65c9soNonW1H+nIILOaMdLTvtgOrO3/7ZqcTeDrV5oEd
zQ4Sp0KmHq4kUGu5dlatige7rmhUR0kIHM4sRps8HnhO1nntJQlk9FXntvjy
QD1yKfPtbALTNizk1qm4wJnn6RxWx0Fpn3XYlJwL1NR9zQ2xHHQ6Hu+RGMSF
Rp93X6bZHIxaLmry0OeCX0By3rdqNvZYb56zHG0gIz+iuX4dG+W0ib/y4m3g
40CJZcRHC7SOT7YNNVwAAZsrsqL8LTAorEhUcdsaHM71h2uVmWOEnF+yONwa
ZCeWHnehmqPPCmqGWtsavL2fW4wfYKBGcHhTd4kVHKxM0/frMMNT9fqJ0+us
wGY0OsR5sRl+P8U47vvdEny64/VKCugIdRm69Zct4fXZcnqVJh03rAsfiAmw
hAKF5QP5IBW95LPrVDwSbkxlp8YtpWJ2ktfP2i0EnFR0K30KTfDTLc7T8kQC
JAamclO1MYZKzzVOLyDg906exgd/Yyy23/Dl2W8cGBeze0svGGFNWlVemyYH
ZrNUgQmDFPx8fH0uGcmG90dL/JYIKbhEav9J/pAFVNWJUyZf52NZluhM5A8s
EHD3VGp46OGDAu1Kdoo5qIMnrJJjdfDg2yKjmTYGGL4SqofztTCj9tGNC1IG
xBY6uEmrNXEgYOv5v6+aAffu+7e7lRqYkyJrMFxgBqvdznUalkwrLkUyPHqL
6aA609U6t3BS8X3AcfqAJx0Embl5rQdVimKzes2GbhpQmM+k22FMUfrpZcDL
LBqYprcHp78aUGjFbO3J96cB/cdVwvIz7R4WmWEfH7qYwp2aoVP6l9Qetv1r
0486UeHyG375YKoWOB7xb+zyNgGYaZI9/GwAtmGe5S9jjCHIunRD5jIjsIhz
c4+8YQT7QweL/nKjglaT3Y8Zc4zgK5fJy6qmQfcWNtc/ngIDqV4d0V1msDvW
kvCfMgRI2FQjyzcHnXwdV4HAEP4Bm4xcPA==
"], 0.02]},
{Arrowheads[Medium], ArrowBox[CompressedData["
1:eJw1kns0lAkYxqnRtnblnkKFMfN9Zr4ZM+MyZiiPEtM9l25KCVlWi0rKJJSt
WHVMxdYiIcJeWNJUrgkll9xGN5o2tk4unagVXbCzf+x7znue85zze8/z/PGa
+4d77pmlpqbmqdr/9P9htJxoa13riJcPMnccnjXgnODRZeJl4whvA+fpsqhx
5xjNuF9W6jvCc/agUDCqDr0PyW55I2IILie4kLs0sczgo0V4rRgviyfaFtH0
MHfPXe7VZDFOL/mZLj9ohNDX70NWeYiRYn7J3PfHRQjOOqbYqiNGlM+cwK8X
WGDmZHiYokkExd79yaFVDPBzq4VVUhGcD4yFDWozYRymq9i4TwReyZQyxYcJ
9y6GvClAhHyzC707M5mQP/j0jO4pwqV71YGbe5gICZCt8XcSwThvnzRKg4Cf
7NV0goXKy8tMaykCFzdNTSTSRMieil/DW0PA4JrCfl+/A4qkfXOa/Qh0F+6t
dKpyQMe1NKdt8QQ61c9vUHIc0GjxZH1WIoEQbx+Tn9QdsMlu/9sGGYF7SXKZ
bY8QMcN+i9suEhjOKSh5ViiEeGV+rzybQFcm5/CJGCFky52J44UE4qSSIfZG
IY4OcNWt/yQwKp7U6KQLQSMjQ6pvECCUTi2RE/Yw09H249QSoAfOFxu12EPM
XaqjeEig/Iar5IXYHi+M3ldbKVW8Zsb54/Ps0bNQyb36koBoHZXB6LfDfNtp
/1VvCAzGT+5svm6H3CAvH/1xAsL8GWVEkh2kpc8MaFMEmBUuJgt97ZBtcOmc
iQaJstoa/XqeHXRkZ7u3aZHoux7VFEazQzu98lGNIYmrmSEi08e2kD7UXdbI
J9GwjmZY7G6L8ZtZntZOJLJSYgLPmthC/FsSy2o1iaHsA4c/vbWB5I+uxrLt
JPKODW4cbLCBWW20ZWsEiRa+8o1vug3q/op1O5hEwr/UY8PWCBtQev3s4nwS
IWquBx+72WCX1xVFVCMJ5eLru5SLbOCbdwftr0nUf5s/7/txAfp6AzZ3JVuh
e6D+hdRbgFZlWGD9LSuULGuuE5MCjDAslbLXVphODz0l+sKHU2lCvXgBC3cm
CwSHOvi4EX/GoE7CwviWuPr3eXwEpLp00qUsZN4cE5VEq/iRyx/9f2eh3Hgm
rWg9H66JhWdin7PgHFvwqJ/Ox5Hg7Wei9NlYOjA07fORh4zs5ji1ITbkp40a
5m3gYXrCQKZlSuFLcq3zcSYPPvrFu73XUqCt1l6o8dkaxe/S/lFIKZwtee69
pNAak2mtkpQCCumSUYGXtzXEUx47E7ooWBq6XMue4WI/ybQr/UyBa9jV89Wv
XOQarWpbQOdALrmSnujFRXNzBbNCwkFNSbk6/QsHQUOWwhWVHLxacvID2UdB
otXRoXzCQZG70+PsBAq36tUL6t5yELj5SNNJNoUKrYpbw6o707Ur7j3tZsN9
eHKurzoXTWSqIjOGjcAdNamGUxxEjPww2spgQ3u3pq/hKAfaFzqMQ9tZkHzs
273jKQcFZJXXoWgWdBn2V4ZU+eIcXsYYnYXgvw3Nb6dyUK/GHXvywArtsRLr
nCAOwsMjg4YireA80PvOxVHVW0Yz2mJmhXLdjtBcPVXfAOUss04SPE1G+p0R
CoJBddbKU6q/bX16NPc+hbnm4afvLifhtG1s/vIiCuQ3TFbebBKtJcF7cpIp
nCtgzlbeJxDYgZDbERTcPkQYRaYRUKuMtri8lYLrBO27oCAC/wK32C/J
"], 0.02]},
{Hue[1, 1, 0.7], Thickness[Large], Opacity[1],
{Arrowheads[Medium],
ArrowBox[{{8.438148870942456, 1.9500000030765832`}, {
17.884292949152268`, 0.}}, 0.02]}},
{Arrowheads[Medium],
ArrowBox[{{2.460183168295771*^-10, 25.35000003999558}, {0.,
27.300000043072163`}}, 0.02]},
{Arrowheads[Medium], ArrowBox[CompressedData["
1:eJwBgQN+/CFib1JlAgAAADcAAAACAAAAAAAAAADo8D01YUWamVk5QAou1OfK
A8I/cZuxRS5COUDj+Ne9hPbSPwdwvdpLKDlAmUUN3t3d3T/z3mhZ8gs5QJT+
RGr42+Q/NuizwSHtOEDID6fQXkLrP9GLnhPayzhAMmsWERER8T/CyShPG6g4
QDgpay+hvfQ/DKJSdOWBOED0wVHD36b4P60UHIM4WThAZjXKzMzM/D+kIYV7
FC44QNM2ZuoFiQBAprfps80BOEBpKigyoKwCQGzFpYK41TdAdPWqPTXRBEDy
Srnn1Kk3QPOX7gzF9gZAN0gk4yJ+N0DnEfOfTx0JQD295nSiUjdAT2O49tRE
C0AEqgCdUyc3QC6MPhFVbQ1Aiw5yWzb8NkB/jIXvz5YPQNPqOrBK0TZAxcl/
UcAIFkAesf53v9s1QNAu0A+SlxZAb5yIMFfDNUDy0XBslhUXQBjg6pSVqDVA
LbNhZ82CF0AWfCWleos1QH/SogA33xdAZnA4YQZsNUDqLzQ40yoYQAy9I8k4
SjVAbMsVDqJlGEAGYufcESY1QAWlR4KjjxhAVl+DnJH/NEC3vMmU16gYQPu0
9we41jRAYJmPRT6xGEDETQQVrkc0QIl4piy+tRhAP6wmC5QbNEBcLPbhPcMY
QG0THBMF8DNA1rR+Zb3ZGEBMg+QsAcUzQPoRQLc8+RhA2vt/WIiaM0DGQzrX
uyEZQBl97pWacDNAOkptxTpTGUAMBzDlN0czQFgl2YG5jRlArJlERmAeM0Ae
1X0MONEZQP80LLkT9jJADZNjrKQXG0DT48PhelQyQC9zEG7mdhtAe01e3w8p
MkCCLDlSoN4bQC7Wu/2N/zFABL/dWNJOHEDtfdw89dcxQLEq/oF8xxxAtETA
nEWyMUCQb5rNnkgdQIYqZx1/jjFAno2yOznSHUBiL9G+oWwxQNqERsxLZB5A
SVP+gK1MMUBGVVZ/1v4eQDqW7mOiLjFA4P7hVNmhH0A1+KFngBIxQPPgeN+i
hyBAVX2QyR7XMECO3XdD4jAhQCmHomIdoDBAP/Vt1qrMIUCvFdgyfG0wQAco
W5j8WiJA6CgxOjs/MEDkdT+J19siQNTArXhaFTBA2t4aqTtPI0Dnupvcs98v
QOVi7fcotSNAi/0iNnOdL0AHArd1nw0kQJZJ8f3yYy9AQLx3Ip9YJEAGnwY0
MzMvQHhkgiw=
"], 0.02]},
{Arrowheads[Medium], ArrowBox[CompressedData["
1:eJwl0AtQkwcSB3CmymkrKiFAIIHkywMIiAkhxCTa8P3Lo/ISRYgnTpRHgUoO
hHKiqIgoYmlVUBuYQquC0uKJTRMQpYoiYBGUhwKHQ0FACR4PEQ9RKmBtG3dm
Z+c3u7M7s+zopI2xH5iYmMT8lX9XY4y8UEiifIsKw+VQ7ug9usz0AvnFd3pf
gZccvOnutzq/X8hFyTd+C+TLsZsRq/EcbSBf9m8Pn1oiR33tZ0Ov2u+Rq0Yq
69gTMqRXvpSQrh3kg6NnqL/dkyFn8e/WCXXdZH0zfz3jggwfDtzUHCzrJc3O
bdw5fFCGA4zSh2TSIPmTpV2WLFwG8eIAsVg8RJays/dZCmQg/x2csFPwlLxX
W3Ch+gMZfIq0lEdJo+S74XBlTI8UnvvV3MSZZ+QaTdtBWoUUNsvqNpyKfkEe
uDu9suOYFMeuz/56MGGKbMtpCdfESzH/afT/DxdOk47tStNtflJs1810fDf6
msw5fcJN6CxF+8w1daPqDTn9Mr13kZkUaoWTcHb7EsTsuqTRj0iQ1Wyzyfay
GXpaAmpPtkpQ7jtVop1YCufjUrVaJ8GQvtLimtVyhFxNyV9zUgKLLwVd9tbm
2BA4D9NkCVav3K0v/NYcjv5dCXeCJFDfE5dssKCgWzdrc8hJgrNRMee9sijY
dijJV2IiQd/k4uqkcQpqbrhPDXZ7AIze8lIaFbfXLbTSrvXA4zcC1cUUKk6E
KQ4FMzwgO5ltpmulQnd51+Tz52L4PO6vqeJbgrNDp8qrF2PB2OrE61mWGM4c
axYWiJFWXmhf12+JN8940vvxYpxzmGttlFshuiKiNFkhRubmiIwWjRXsHhRR
KBQxLH0aBR2TVnD2787QG9xRxAu6VEqjoXOo4fHeMHfkq8fMj6bSMCXpXXue
7w6EP3nk3kPDR2k/n+19K0LBCzH1ey8b2F3EKLdLhCK3AV2j3ga8llxeerkI
wbaGKxWOtuD1F4YYskTQXvRyiCyxhf1gVLJqqwg1htm5NjYdSzueZhqkIuy+
Y7bmXRkdM5X8rHSqCFhnsFiSYY+hPVnatVFuGPswOqiPxYRHXg1jxMMNThsy
pPJCJgbor3NyFrthiiXvYo8x0SyPfBZSLUTAnlOcAgsWjrj8t/FUhBCrVF8b
PbsosKTzH0LomgjjPLujbp+lVoDqm0rjvvkc+SalUoAQT2fjvVzXCreC+ZVQ
fSJN+8LAQCo99jW/zxXlRWWexV4MjNY8uh+f5Yp66t5Q72Y6SnOV5RddXFF8
SXtlSxodZXkt2eMPVsA71nf70/V0jNd6RbruWQGdwtPoNFb16kRiBZ5ICo3z
AVpXK+0dF/St22TcF51QPPl8hwvOZKca790Kp94VWrvgtsX8MlUqE08VD/eK
9vNx9M7NlOgJJgxNpW63FHwoTaZm/P/JAr/+fEvYnBM4N/LPWFSyoHfuCp6s
csLvf4SJt5kQSH8nuZqX6ITIKNoFLkEg17vZdBXHCXdNT/3UIyNgeHV89ZNO
R3g8u+2dGUAg0/qwUnPIEcWWOjVNSSDyh/JNQQJHNKRt5JzdTICXdthZtdwB
5qz3Vru+XnD6Cg+suRCjKwY/73+0lYdJs/f9WU1PNdOUhwNh7w3/wG8iLnFx
/8F757ytSSwO5eLJ4VCj2/UCv8ezHFQlhhltHVfM4ZzjwO+Y0uitdIu30f4c
dNK3GO1duqDhFZ8NP8VXsXUqAmHrN4/v7CDg1UgV8uMJzP8v5efkTAI3qt5k
dO4nIN8RunzUncD1JWuUDUUErG6/tKrpZOHjpof6mVoCw0dafM4GsIDxdk3y
BIEBnqh8310mGndy/1jJZWPhGbZ/SCgT7TEdE8IoNsKmTjOJYXtsud732a4y
NtrYP64YOWCPxumHfoNxHNzKdaiifGkHnYmNXyuNi8zEinbzEgaoA99HKa5x
QbkZtG+4lY4XeXH5bsE8JGROX81bSocfNXXox04e8i//J3t5pC3o8U2BxQEO
OL4lwRDzqw3iTka22VU6ICTl4648hQ0ExxT/slvqCMOcrfJEEw3J4RF//ccR
PjMLP4+Lo+FPJNirzw==
"], 0.02]},
{Hue[1, 1, 0.7], Thickness[Large], Opacity[1],
{Arrowheads[Medium], ArrowBox[CompressedData["
1:eJwBYQKe/SFib1JlAgAAACUAAAACAAAAAAAAAADo8D01YUWamVk5QMe02o4m
vu49cZuxRS5COUBwzQ+LlFnrPQdwvdpLKDlA90mf9Emi5z3z3mhZ8gs5QFsq
ictGmOM9NuizwSHtOEA83ZofFnfePdGLnhPayzhAhS3Ygi0Y1T3CyShPG6g4
QBKLlIGnJ8Y9DKJSdOWBOEAgU0lcNoJ6Pa0UHIM4WThAZmZmZmbKxb2kIYV7
FC44QFa3WG4s5ks/N7Z2YbcBOEDCeFKKLOZrP66/2Thf1TdAliNhI/Jifz8F
Pq4BDKk3QEVmOZQs5os/PDH0u718N0DQjRfV0suVP1WZq2d0UDdA7NjIKfJi
nz9QdtQEMCQ3QD1KGCQ6XKU/K8huk/D3NkA5YCeYLOarP+mOehO2yzZAmSk7
GSSWuj+0t0RI4To2QK4YMmP4Q8A/jeVFKuMPNkCu9KQzWj7FP9O61/Wn5zVA
zCj2fTc6zD+EN/qqL8I1QITaEiHIm9I/oFutSXqfNUCzzBlAMhvYPyon8dGH
fzVA7uoPHFqb3j8emsVDWGI1QJ6aetofDuM/frQqn+tHNUDK1WSF8U7nP0l2
IORBMDVAAKfGDiIQ7D+B36YSWxs1QEdHsipSkvY/Y13CSb7YNEAyZ1l3CXH+
P1zozoBbmzRAolmsdhvSAkBrgMy3MmM0QLoVWEbtFQZAiyW77kMwNEDl568q
+gMJQMDXmiWPAjRAItCzI0KcC0ALl2tcFNozQHDOYzHF3g1AamMtk9O2M0DP
4r9Tg8sPQN084MnMmDNAoAZkRT6xEEBkI4QAAIAzQB9wBNc=
"], 0.02]}},
{Arrowheads[Medium], ArrowBox[CompressedData["
1:eJwdkn8803kcx79rG/rh/Erya8WY2bDNbMNhbw1hnVvi6LoTJUrFHbp+nF8V
68fRUT0k1dTx0NVFE9eKO5+vH/3k+qVmktT8WCqRH2kxrrvX4/F8PP94/vuy
25ASvmkehmHhn/nP/+/VqC8vLrD05FovyAiKXOTVfB3Fm08F5fp7gUnINvWh
O23oQVRHb7mjFzSqKAsqvlOinfSn8R/JXuCTfL+AqepF0QcWKveqPWH/GLWx
ijmAdqYncqHBE/Ipra8th1+jByPDGdxCT5DZxtNcS0ZRglZ2ZV2cJwQ7LE1V
fBpHgqI9j6+5eUIgNUvFlE0hkSJHHfpRAAVOjhb061q0epeNN69TAIheLfu5
bhoFuoqOt9UJQEWzTKEV6hBFOTFqWCSALruEg/RVc0iVypHMbBWAOj90EtIx
fDdRW1McKACxfkfoSXcCrjsgXtJjKwB6TnuA7UsCnoA5Z96f4MOeKX5fe/Y8
vHZb0eD2u3xYauI32RZDwguzVpSx2HwoWjjnEfKYhOMjRbIv9PjgXH9+IpxH
xtVEBvliNw96bDw9hvaS8fH6BR2EGh5c4srHF9aT8bHFHgZLpDwonTXiNvSQ
8RcmlRWD3/Lgt8yosQ9vyXhjTezvaSwe3JRLOUhDxvMnNpr9TeSBQcmZUbN7
ZDz46eWB5k4PKG3wNXSzI+OtX5HMq1d6QLlPcqhYQ8Kv9I1GRFt7wNBjK1LE
RRIueB/gvWSEC0m5Iu/gJBIe/hN2Q9PMBUfxq7dOTiSckEadbC/mgq3zfJvx
F0Q8SFN190YSFySUylsXThBx+46ywEd+XGhkoBGxmIgf5Ws3jZlyYXNYxPGu
6Xn4SZN6Jk3jDiVPSm3ePyXgi9OPrGZL3OEyRYTfPkTAg/IehSkc3GGuhtuV
7EvA6wLMXahaDhz8dVti3ySGr7vyzVDaPxwIUQwn0Wox3PdesfTCOQ4EOCv6
BDswfG3JE2LrDg7sGrj90MIHw+XGZnEtIRzof2PPu6mP4f6Cr2XnbTlguvuw
tVQ+hwwXHW744T0b5jsYx6eUz6K66gMbCLFsIPMwv7aoWVQz5iQe5LIh/8cC
b0PzWVR5TOTYos+Gc12Ktbzuz/+h/vmSpWCBcHv2KdFFHVKputbdiWHBZpf+
OcE+HcoKnrwWrscCisWg1HSjDpmk6mvbqtwgxjWP3bFKhwoijW14kW7ASGma
2S3UoYkxI/sjM66Q0zfxRu9LHRpcJv1Af+YCyo/TbncoOmRk3dszmOsCZe5N
U0Z3Z9B0uV6vjO0CzwsDgrp9ZpC8fkYr6WVCvpnUirlzGjmub3LTFTJBXp+X
PrfrE4orisgsD2RCsFQUEb1Ci2JXXx0Q6Rgg+Qld53VMIYeywcTnCgbcO6yt
OMH8gKr3DBDTdjAA8+hOO2/Uj0iryIXNk3QYYb65XSt9hvpzohMXnaUDpvxr
X1jWA/TparLnZgkdLpVURWQslSP/dyuJSj06UFYenatraRI20vpvRbY4gdut
5T4yL6Vwa6xIqslzgqjmYaNiTC0MO7XJ75cwJ1hQnWG+wmZIGN8ZOgq2n/ux
mBNDglFh9eLxUwZjNLAv7qyq0I0LGWti/NXtNGD7WYycrieAWs1PJIhoMEwz
zk5VGQBVeKx2easjBOcp9dZEG4EmMY0GEkcoc+GJlp0xBdb3nWi9xgG2PBzI
shKag46CsrMPOQCBk8m3PmoBkipGQhnfARLF01vsii2BZmCVht5R4fTyWEtX
sTXsZxVU9tZQ4az8jwC/GhuIp+ZiWA4V/gUhGF11
"], 0.02]},
{Arrowheads[Medium], ArrowBox[CompressedData["
1:eJwB8QIO/SFib1JlAgAAAC4AAAACAAAAAAAAAADo8D01YUWamVk5QHhfupfX
Jam/ZdxfSQ9COUAxSGcNCZi6v9ZzdunPJzlAr+TH4asHxb+GJ4l62wo5QKJZ
K/drfM2/dPeX/DHrOEB5AW9jIlXTv6Pjom/TyDhATvBvKJtI2L8O7KnTv6M4
QFJ5mEqgmN2/uxCtKPd7OEBCTvTkmKLhv6ZRrG55UThA8iww0yen5L/Qrqel
RiQ4QKIfeCYTcOe/wDhO1PX5N0DJBr8YZijqv5pEUQpnzzdAZuIEqiDQ7L9c
0rBHmqQ3QHqySdpCZ++/BOJsjI95N0CCu8ZU5vbwv5RzhdhGTjdAAhjoC98x
8r8Mh/orwCI3QL7uiJKLZPO/bBzMhvv2NkC0P6no6470v7Qz+uj4yjZAmf1f
rFc0+L+0t0RI4To2QDhfEZtUH/m/dVISxHcPNkB7c2ZMb6T5v3JuCV365TVA
XzpfwKfD+b+pCyoTab41QOKz+/b9fPm/Gip05sOYNUAI4DvwcdD4v8nJ59YK
dTVAzr4frAO+97+x6oTkPVM1QDZQpyqzRfa/1IxLD10zNUBAlNJrgGf0vzKw
O1doFTVA2OTN+KdZv7/ETQQVrkc0QJ2v0cY6tMA/+bWz43sbNECoB1nva5nY
P1U6UHWk7zNAKovO0sBz5D/U2tnJJ8QzQOyBGkMvouw/eJdQ4QWZM0AMNEik
AGzyPz9wtLs+bjNA1h6YcZuK9j8tZQVZ0kMzQFcBfQnorPo/PnZDucAZM0CM
2/Zr5tL+P3SjbtwJ8DJAu9aCTEt+AUDP7IbCrcYyQPbd4GSA1ANAj4oQQoaY
MkBaHV2VKQYGQB2q55owbTJA5JT33UYTCEB5SwzNrEQyQJNEsD7Y+wlAoW5+
2PoeMkBpLIe33b8LQJYTPr0a/DFAZUx8SFdfDUBaOkt7DNwxQIikj/FE2g5A
6uKlEtC+MUBommBZUxgQQEgNToNlpDFAoH4IRj6xEEBzuUPNzIwxQF0aZwI=
"], 0.02]},
{Arrowheads[Medium], ArrowBox[CompressedData["
1:eJwlxwk4FPgfx/GJcV9jzIHc4xjHmBnDjLGt+XZgWcXaQTE0zkpkHWulY5NG
ts3RubI5UlqbI1SUa345smq0aleXlnHWlOQIUfj/136e5/18npdpeLxflBwG
g4n7f//+2l5PfekU5lZwYQcXLGNpT7bUtotHNz6b1d3IhUaZv1Cc3Sf+U2X7
mXkKFw4uN8dX5A6J5293pDrIcWEkeWPyTXeZONDH6Iqk3xlO0l6GLs9Nieck
kcTOGmdQeYazFIvnxD3MfMn6dGd4d6c1txjzSTx86HZ3r7czFMhmtvoIMIhZ
26k+quMM09qbLQaS5FHzA/E5/yccwLnmkObLscg7f1eisJkDoq7RdtEfCgjV
CiqghAM+1e607MeKSF+3GObTORA7c8NPvUsJBTywd0gP44D0jJ2j/FVllPpA
7ciQKwd+P13zKCFeBR3UZduQ9Tlwb5Jnu52iiqLrqhhms2zglr+A+ruqiHUh
8YzcfTZc5Hdpv8lURzEufW0hdDb0QgzXcEEdWY1f7tmtwIZDDDbdMEgDZXWw
tG37neAyxXZWdl0Dnew7ln2lxglc9T1FGR81kIPeL5v6RE7gQ8gbk7E0UVpu
DKMlyAmeaWMIhuGaKNJ5NUBAd4IX+As4wwxNNKPjX18n7wR+5OB+2XlNZGYW
uw09dQQM0S05o1ATdWzFEqs9HMH6eTBf8LsmSo1t1u5Z7wi++EsfxiWayJeQ
RJNNsSAVEfwpylrIy426W66LBfkj9d9rB2uhqNX+u7pFLGg8cDygtlMLlW7K
cbFLYUHslvYD68xxSF6L93iDDwvSFILs5BNw6FjkZJaXNQuU1ym3/NONQ9ab
L4b6Y1mQ05rbV87VQTffI0e+gwO4iA7z/riig/R/fZNhrOEAkU2nvJVUCCjm
VtMH/CsmKId1f46KJqDLro7H7RETqCkWvqPNBNTO5n+RmM+EjqUy96PqRPSw
cL32QDwTXk56SXn+RNSWdEI50Z0JCX4EQ8NfiKjodompvQET0i3klvUeE1Fk
bKgAP82ASrqsIPMACT0PjKi2DWKAqkndzf7fSIjZ4Uv0ojOAz3ArWnxIQmp/
q578AsuAn4SlgdIpEurRpFhg6uhQXtMtzdUgo4zm7m/owXS4ZdLEVbYgI9da
lSIslg5VNSnhnhwyWp4YVjlSaQ95ws9B324ho5Z4/3OX+PYgZHhTLL3J6Ag3
DPZ8pkH0YETT3W1kNG6cOU99aQemr8LXTPt7oXdPhh3Mr4StOTFrT8U1GzsY
tPzPzRv6RW8f2YI0VLjmddPeQrv9trB4deeaPctaXeJMbIG6GrrmvB0MYnWX
Dezb9Z+faJS+n9xnA5LBkDUbtencp5NsQBgnWDPWWyGvbY4Kp7bWyw+6k9GP
ONOuT0VUsOrpeMmmk1H0XF6DhTcVTCeOu3crkdGtJX4YLFvBwWurcL6XhPaZ
xHV8XWcFLsp2ksKfSCgv+rnUY68VhChovB50ICGDngv1jlQrGL5UelYgISI8
v9oNL7MEyT8Tj3QCiCjxEylHWmUJ+PdPjY5l4ZCXjUKDsN8cbv08nTz5gxay
juEdOpFtDmEtK+72IxpocXbz9b2u5mCR9PRGl586qu/Cb8VOUmC18kBT4z1V
tHOsIoB/kQKzMW9DlHgqaMFbSxLsSYGVSstfq5qU0OGVDVX6c2ZglkRLqtqg
iGYWHZfyis1gZ8vqmGIbFvF5C3WtX5lBdl5USYIiBm2+It8+RzUFjvx39dcp
y+Lvuj08AntNALfbt+Kc85I4rpdhvPSDCZT4xBqf+3pBzL7T6jVgbAKyO+34
asEHcb7SyBmlPGN4ezVAJN07LQ4Tnub2SY3Ah+Y1uX1mQtxx8OdMCwcjcMaH
9lJUXonbBQ/TPmYYwvnPr2tMDYbEIZhg0rYnBsCI+OBX4trI6yxRuGMk0off
1GiBnvOPeQmHZRnNz/QAO1TMPd4yyNvp/jDtNFsPEiWqAzWJ47ysjzcKS4p0
oVTPI36C/Y73/mzBxDhOF1RjN1GbiDO88+uP7orKJsOo/DBYlc/x0k7GaBoQ
yBDKP5re6LfIK3z17ZBqGQn2h1DeJBOXeSt2rlImkKAgN/xL21QMFAqs1U6N
EWGcNnYvLEIRYro7UyjDBHh3oumS73M10G8Y3XV/RgcC/5oZ/xSLg0qLzAER