-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathgenetic_super.nb
7853 lines (7712 loc) · 380 KB
/
genetic_super.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 11.1' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 388533, 7845]
NotebookOptionsPosition[ 384486, 7742]
NotebookOutlinePosition[ 384905, 7760]
CellTagsIndexPosition[ 384862, 7757]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
RowBox[{
RowBox[{"Import", "[",
RowBox[{"FileNameJoin", "[",
RowBox[{"{",
RowBox[{
RowBox[{"NotebookDirectory", "[", "]"}], ",",
"\"\<modules/breed.m\>\""}], "}"}], "]"}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Import", "[",
RowBox[{"FileNameJoin", "[",
RowBox[{"{",
RowBox[{
RowBox[{"NotebookDirectory", "[", "]"}], ",",
"\"\<modules/fitfunctions.m\>\""}], "}"}], "]"}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Import", "[",
RowBox[{"FileNameJoin", "[",
RowBox[{"{",
RowBox[{
RowBox[{"NotebookDirectory", "[", "]"}], ",",
"\"\<modules/generators.m\>\""}], "}"}], "]"}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Import", "[",
RowBox[{"FileNameJoin", "[",
RowBox[{"{",
RowBox[{
RowBox[{"NotebookDirectory", "[", "]"}], ",",
"\"\<modules/gielis.m\>\""}], "}"}], "]"}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Import", "[",
RowBox[{"FileNameJoin", "[",
RowBox[{"{",
RowBox[{
RowBox[{"NotebookDirectory", "[", "]"}], ",",
"\"\<modules/helpers.m\>\""}], "}"}], "]"}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Import", " ", "[",
RowBox[{"FileNameJoin", "[",
RowBox[{"{",
RowBox[{
RowBox[{"NotebookDirectory", "[", "]"}], ",",
"\"\<modules/phenotypes.m\>\""}], "}"}], "]"}], "]"}], ";"}]}], "Input",
CellChangeTimes->{{3.7108483996386113`*^9, 3.7108484144478784`*^9}, {
3.71084845168755*^9, 3.710848514843519*^9}, {3.7108485546172805`*^9,
3.7108485823964005`*^9}, {3.711357348096528*^9, 3.7113573550087814`*^9}, {
3.711438071842171*^9,
3.7114380744549036`*^9}},ExpressionUUID->"f7d5ab41-3ff7-461e-9000-\
0143e0edfe21"],
Cell[CellGroupData[{
Cell["Script Start", "Title",
CellChangeTimes->{{3.710483352434765*^9,
3.7104833558107214`*^9}},ExpressionUUID->"17f87955-8817-4034-adfe-\
e428a951507f"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"(*",
RowBox[{"Input", " ", "Data"}], "*)"}], "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{
RowBox[{"imgData", "=",
RowBox[{"Import", "[",
RowBox[{"SystemDialogInput", "[", "\"\<FileOpen\>\"", "]"}], "]"}]}],
";"}], "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"orignalImg", " ", "=", " ",
RowBox[{"Import", "[",
RowBox[{"FileNameJoin", "[",
RowBox[{"{",
RowBox[{
RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<ball2.png\>\""}],
"}"}], "]"}], "]"}]}], "\[IndentingNewLine]",
RowBox[{"orignalImgDim", " ", "=", " ",
RowBox[{"ImageDimensions", "[", "orignalImg", "]"}]}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"imgData", " ", "=", " ",
RowBox[{"CropX", "[", "orignalImg", "]"}]}], ";"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"imgDataPixels", " ", "=", " ",
RowBox[{"PixelValuePositions", "[",
RowBox[{"imgData", ",", "Black", ",", "0.5"}], "]"}]}], ";"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"imgDataPixelsMirrored", " ", "=", " ",
RowBox[{"Map", "[",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}],
",", " ",
RowBox[{"-",
RowBox[{
"#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}],
"}"}], "&"}], ",", "imgDataPixels"}], "]"}]}], ";"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"allImageFitness", " ", "=", " ",
RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"allDistanceFitness", " ", "=", " ",
RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{"Live", " ", "Data", " ", "Variables"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"fitnessPlots", "=", "Null"}], ";",
RowBox[{"Dynamic", "[", "fitnessPlots", "]"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"text", " ", "=", " ", "Null"}], ";", " ",
RowBox[{"Dynamic", "[", "text", "]"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"timingText", "=", " ", "Null"}], ";", " ",
RowBox[{"Dynamic", "[", "timingText", "]"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"allImages", " ", "=", " ", "Null"}], ";", " ",
RowBox[{"Dynamic", "[", "allImages", "]"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"fittestHistory", " ", "=", " ",
RowBox[{"{", "}"}]}], ";", " ",
RowBox[{"Dynamic", "[", "fittestHistory", "]"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"fittestPhenotype", " ", "=", " ",
RowBox[{"{", "}"}]}], ";", " ",
RowBox[{"Dynamic", "[", "fittestPhenotype", "]"}]}],
"\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{"Algorithm", " ", "Related", " ", "Parameters"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"fittestIndex", " ", "=", " ",
RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"showPopulation", " ", "=", " ", "False"}], ";"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"currentStep", " ", "=", "0"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"nsteps", " ", "=", " ", "50000"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"updatePlotsRate", " ", "=", " ", "50"}], ";"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"gaussianparam", " ", "=", " ",
RowBox[{"{",
RowBox[{"5", ",", "3"}], "}"}]}], ";"}], "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{"Biological", " ", "Structure", " ", "Parameters"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"numGenoms", " ", "=", " ", "10"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"resolution", " ", "=", " ", "10"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"gielisPoints", " ", "=", " ", "200"}], ";"}],
"\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{"Mutation", " ", "Parameters"}], "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"nextGenFrac", " ", "=", " ", "0.5"}], ";"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"pcross", " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"pEliteBreed", " ", "=", " ", "0.1"}], ";"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"pmut", " ", "=", " ", "0.01"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"pMutElite", " ", "=", " ", "0.01"}], ";"}],
"\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{
RowBox[{"paramRanges", "=",
RowBox[{"{", "\[IndentingNewLine]",
RowBox[{
RowBox[{"{",
RowBox[{"0.1", ",", "2"}], "}"}], ",", " ",
RowBox[{"(*", "a", "*)"}], "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"0.1", ",", "2"}], "}"}], ",",
RowBox[{"(*", "b", "*)"}], "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"-", "10"}], ",", "10"}], "}"}], ",",
RowBox[{"(*", "m1", "*)"}], "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"-", "10"}], ",", "10"}], "}"}], ",",
RowBox[{"(*", "m2", "*)"}], "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"1", ",", "20"}], "}"}], ",",
RowBox[{"(*", "n1", "*)"}], "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"-", "20"}], ",", "20"}], "}"}], ",",
RowBox[{"(*", "n2", "*)"}], "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"-", "20"}], ",", "20"}], "}"}]}],
RowBox[{"(*", "n3", "*)"}], "\[IndentingNewLine]", "}"}]}], ";"}], " ",
"\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{"Calculated", " ", "Configuration"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"replaceN", " ", "=", " ",
RowBox[{"IntegerPart", "[",
RowBox[{"numGenoms", "*", "nextGenFrac"}], "]"}]}], ";"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"imgDim", " ", "=", " ",
RowBox[{"ImageDimensions", "[", "imgData", "]"}]}], ";"}],
"\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{"setup", " ", "debug", " ", "variables"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"imgDataPixels", "\[LeftDoubleBracket]",
RowBox[{
RowBox[{"1", " ", ";;", " ",
RowBox[{"Length", "[", "imgDataPixels", "]"}]}], ",", " ", "1"}],
"\[RightDoubleBracket]"}], "=", " ",
RowBox[{
RowBox[{"imgDataPixels", "\[LeftDoubleBracket]",
RowBox[{
RowBox[{"1", " ", ";;", " ",
RowBox[{"Length", "[", "imgDataPixels", "]"}]}], ",", " ", "1"}],
"\[RightDoubleBracket]"}], " ", "-", " ",
RowBox[{
RowBox[{
"imgDim", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "/",
"2"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"imgDataPixelsMirrored", "\[LeftDoubleBracket]",
RowBox[{
RowBox[{"1", " ", ";;", " ",
RowBox[{"Length", "[", "imgDataPixelsMirrored", "]"}]}], ",", " ",
"1"}], "\[RightDoubleBracket]"}], "=", " ",
RowBox[{
RowBox[{"imgDataPixelsMirrored", "\[LeftDoubleBracket]",
RowBox[{
RowBox[{"1", " ", ";;", " ",
RowBox[{"Length", "[", "imgDataPixelsMirrored", "]"}]}], ",", " ",
"1"}], "\[RightDoubleBracket]"}], " ", "-", " ",
RowBox[{
RowBox[{
"imgDim", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "/",
"2"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"totalFitness", " ", "=", " ",
RowBox[{"Table", "[",
RowBox[{"0", ",",
RowBox[{"{",
RowBox[{"i", ",", "1", ",", "nsteps"}], "}"}]}], "]"}]}], ";"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"maxFitness", " ", "=", " ",
RowBox[{"Table", "[",
RowBox[{"0", ",",
RowBox[{"{",
RowBox[{"i", ",", "1", ",", "nsteps"}], "}"}]}], "]"}]}], ";"}],
"\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{
RowBox[{"genotypeLength", " ", "=", " ",
RowBox[{"7", "*", "resolution"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"ffitfunc", " ", "=", " ",
RowBox[{"GielisFFitGen", "[",
RowBox[{"imgData", ",", " ", "gaussianparam"}], "]"}]}], ";"}],
"\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{"Start", ",", " ",
RowBox[{"Beginning", " ", "of", " ", "Evolution"}]}], "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"genotypes", " ", "=", " ",
RowBox[{"BinPopGenerator", " ", "[",
RowBox[{"numGenoms", ",", "genotypeLength"}], "]"}]}],
";"}]}]}]], "Input",
CellChangeTimes->{
3.710827092191591*^9, {3.7108273302789793`*^9, 3.710827407147359*^9}, {
3.7108274663309274`*^9, 3.7108274702879286`*^9}, {3.710827516767864*^9,
3.7108275214073844`*^9}, {3.7108275608757696`*^9, 3.710827616891882*^9}, {
3.710827646913097*^9, 3.7108277002561398`*^9}, {3.710827755301865*^9,
3.710827762805294*^9}, {3.7108278328574686`*^9, 3.7108279338964024`*^9}, {
3.71082800277638*^9, 3.7108280475736623`*^9}, {3.710828118657527*^9,
3.7108282642686048`*^9}, {3.710828330825428*^9, 3.7108284536893687`*^9}, {
3.7108284884213734`*^9, 3.710828574493148*^9}, {3.7108286142466316`*^9,
3.7108286758664913`*^9}, {3.710828747603171*^9, 3.7108287817059636`*^9}, {
3.710828852446971*^9, 3.7108288655024543`*^9}, {3.710828943411783*^9,
3.7108289879991255`*^9}, {3.7108290238199224`*^9, 3.7108290318021*^9}, {
3.7108292763646755`*^9, 3.710829320288681*^9}, {3.710829560359432*^9,
3.7108295916999173`*^9}, 3.710830206367674*^9, {3.710831040994874*^9,
3.710831050831744*^9}, {3.7108311514131823`*^9, 3.7108311678714504`*^9}, {
3.710831318226936*^9, 3.7108313465271187`*^9}, {3.7108314529293933`*^9,
3.710831455940031*^9}, {3.7108317607234726`*^9, 3.710831783564583*^9}, {
3.710831867921791*^9, 3.710831883813717*^9}, {3.7108319974549646`*^9,
3.7108320075486026`*^9}, {3.710832067110559*^9, 3.7108320677460265`*^9},
3.710832189647955*^9, {3.7108322302031603`*^9, 3.710832247233493*^9}, {
3.71083228435351*^9, 3.710832332483046*^9}, {3.710832619515048*^9,
3.7108326326139903`*^9}, {3.710832787296956*^9, 3.7108327893510637`*^9}, {
3.7108328688466635`*^9, 3.710832918654696*^9}, {3.7108341596240416`*^9,
3.7108341635837584`*^9}, {3.7108345080803947`*^9,
3.7108346307779617`*^9}, {3.7108379233436785`*^9,
3.7108379548838367`*^9}, {3.710838006769229*^9, 3.710838007324545*^9}, {
3.7108382336526427`*^9, 3.710838328620104*^9}, {3.7108384184045763`*^9,
3.7108384474216805`*^9}, {3.7108384931330194`*^9,
3.7108385241255894`*^9}, {3.7108388194419336`*^9,
3.7108388294827204`*^9}, {3.710838881223916*^9, 3.710839046339241*^9}, {
3.71083916293486*^9, 3.710839230210307*^9}, {3.7108392612871113`*^9,
3.710839339105196*^9}, {3.7108393794166822`*^9, 3.710839486741437*^9}, {
3.7108395329360733`*^9, 3.710839645206748*^9}, {3.7108397302605157`*^9,
3.7108397525960107`*^9}, {3.710840546028946*^9, 3.710840546890258*^9}, {
3.7108468132785206`*^9, 3.710846827609087*^9}, {3.710846860775038*^9,
3.7108469114190416`*^9}, 3.7108469966556664`*^9, {3.7108470963593225`*^9,
3.710847096429323*^9}, {3.7108471529058037`*^9, 3.7108471950233755`*^9}, {
3.7108472896873226`*^9, 3.7108473541145372`*^9}, {3.7108474283602753`*^9,
3.7108476760668216`*^9}, {3.710847722619829*^9, 3.7108477351718287`*^9}, {
3.710847784333002*^9, 3.710847829308369*^9}, {3.710847862709819*^9,
3.710847873743819*^9}, {3.7108479123584194`*^9, 3.710848243216511*^9}, {
3.7108486695968003`*^9, 3.710848673624772*^9}, {3.7108487898778095`*^9,
3.710848846693715*^9}, {3.7108489298421774`*^9, 3.7108489314531784`*^9}, {
3.7108491036584888`*^9, 3.710849112022356*^9}, {3.7108491558265276`*^9,
3.710849180682186*^9}, {3.7108496836527915`*^9, 3.710849684277792*^9}, {
3.710849866819432*^9, 3.7108498808304744`*^9}, {3.710849976331602*^9,
3.710849976975282*^9}, {3.710850037576543*^9, 3.710850040051544*^9}, {
3.7108501157916284`*^9, 3.710850169027341*^9}, {3.7108503384776497`*^9,
3.710850363568384*^9}, {3.7108503946276197`*^9, 3.71085040989262*^9}, {
3.7108504416124144`*^9, 3.7108504957729483`*^9}, {3.7108506210548196`*^9,
3.710850708569407*^9}, {3.7108511463632994`*^9, 3.7108511469132996`*^9}, {
3.7108511970426474`*^9, 3.7108512001016483`*^9}, {3.7108535946151123`*^9,
3.7108535956331124`*^9}, {3.710854688004854*^9, 3.7108546896678553`*^9},
3.71091806817794*^9, {3.710918102956919*^9, 3.7109181032497563`*^9}, {
3.7109181703625307`*^9, 3.7109182386883984`*^9}, {3.7109182815912337`*^9,
3.7109182858188763`*^9}, {3.7109183175908976`*^9,
3.7109183562783113`*^9}, {3.710918415264806*^9, 3.7109185486309834`*^9}, {
3.710918603417058*^9, 3.710918700757679*^9}, {3.710918735860836*^9,
3.7109188626684093`*^9}, {3.710918896386451*^9, 3.710918977117985*^9}, {
3.7109192307518024`*^9, 3.7109193035310345`*^9}, {3.710919445390873*^9,
3.710919446218997*^9}, 3.7109198268011036`*^9, {3.7109210164996367`*^9,
3.7109210625294905`*^9}, {3.710921096695492*^9, 3.7109211658182735`*^9}, {
3.710921325494622*^9, 3.7109213276949267`*^9}, {3.7109217117176685`*^9,
3.710921830401238*^9}, {3.710922237457436*^9, 3.7109222422431297`*^9}, {
3.710922289740922*^9, 3.7109222932606745`*^9}, 3.7109223793325367`*^9, {
3.710922858797366*^9, 3.7109230597796187`*^9}, {3.7109231105650105`*^9,
3.7109231120608687`*^9}, {3.7109234826945686`*^9,
3.7109235048055873`*^9}, {3.7109235578344812`*^9, 3.710923593267867*^9},
3.7109237220430765`*^9, 3.71092377274661*^9, {3.710924092454556*^9,
3.7109240937045574`*^9}, {3.7109242894779754`*^9, 3.710924315911294*^9},
3.710924507104414*^9, {3.7109254401965957`*^9, 3.7109254965625286`*^9},
3.710925565483227*^9, {3.7109258852028923`*^9, 3.710925903047121*^9}, {
3.7109271589424458`*^9, 3.710927214881856*^9}, {3.7109272806270933`*^9,
3.710927292067937*^9}, {3.710928760250919*^9, 3.7109287626596527`*^9}, {
3.7109289697583838`*^9, 3.710928972695885*^9}, {3.7110029331764755`*^9,
3.711002944724597*^9}, {3.7110030507031775`*^9, 3.7110030507947617`*^9},
3.71100309831806*^9, {3.711003157067464*^9, 3.711003157720178*^9}, {
3.7110031879724874`*^9, 3.711003217684043*^9}, {3.7110033048917465`*^9,
3.711003363057954*^9}, {3.7110033984545665`*^9, 3.7110034283941154`*^9}, {
3.7110035378838835`*^9, 3.711003547228675*^9}, {3.711003581028489*^9,
3.711003717204379*^9}, {3.711003755490825*^9, 3.7110037610816364`*^9}, {
3.711003878285761*^9, 3.711003894971304*^9}, 3.7110039512566276`*^9,
3.7110041611601467`*^9, {3.711004206395412*^9, 3.7110042148121934`*^9}, {
3.7110045033194*^9, 3.7110045391041083`*^9}, {3.7110047220900416`*^9,
3.711004758420884*^9}, {3.71100479807073*^9, 3.711004805219926*^9}, {
3.7110048462455955`*^9, 3.7110048464487195`*^9}, {3.7110048878798666`*^9,
3.7110048891910424`*^9}, {3.71100497836887*^9, 3.711004999992702*^9}, {
3.7110051162969465`*^9, 3.711005130817371*^9}, {3.711005504182507*^9,
3.7110055338738565`*^9}, {3.711005588152855*^9, 3.711005588482317*^9}, {
3.7110057735306625`*^9, 3.711005800376665*^9}, 3.7110074265357018`*^9, {
3.7111046054349346`*^9, 3.711104643471849*^9}, 3.7111047762760754`*^9, {
3.711104954089096*^9, 3.711104955039465*^9}, {3.711105084416802*^9,
3.7111050887293277`*^9}, {3.711105190736051*^9, 3.711105220089873*^9}, {
3.711105367582793*^9, 3.7111053795973496`*^9}, {3.7111060302321644`*^9,
3.7111060338755302`*^9}, {3.711106194424404*^9, 3.7111062072553673`*^9}, {
3.7111065929341583`*^9, 3.711106599793313*^9}, {3.711106674533819*^9,
3.71110667702382*^9}, {3.7111068807720766`*^9, 3.7111069555216064`*^9}, {
3.7111071779839954`*^9, 3.7111071782964954`*^9}, {3.7111075669584875`*^9,
3.711107576406707*^9}, {3.711113697544751*^9, 3.7111136994197493`*^9}, {
3.711356232909013*^9, 3.7113563066857643`*^9}, {3.7113564431111217`*^9,
3.7113564456416283`*^9}, {3.7113566180171013`*^9,
3.7113568360266185`*^9}, {3.7113568971810904`*^9, 3.7113569021894627`*^9},
3.7113569616064076`*^9, {3.711358569791754*^9, 3.7113587354884233`*^9}, {
3.711358768817873*^9, 3.711358776132237*^9}, {3.711358824409844*^9,
3.7113588753142853`*^9}, {3.711359088722677*^9, 3.7113591320124683`*^9}, {
3.711359210473549*^9, 3.7113592360085964`*^9}, {3.711359428469135*^9,
3.711359441900695*^9}, {3.711359475553772*^9, 3.711359562505282*^9}, {
3.711359626101554*^9, 3.7113596266688128`*^9}, {3.7113601614521914`*^9,
3.7113602635627604`*^9}, {3.7113602980952525`*^9, 3.711360332506649*^9}, {
3.7113607880525694`*^9, 3.7113607975711184`*^9}, {3.7113622219481125`*^9,
3.71136224691*^9}, {3.71136231155077*^9, 3.711362311901431*^9}, {
3.7113624259175496`*^9, 3.7113624586889067`*^9}, {3.711362500329256*^9,
3.7113625084634476`*^9}, {3.7113657865575485`*^9,
3.7113657868882923`*^9}, {3.711366904629101*^9, 3.7113669116169367`*^9}, {
3.7113671531235495`*^9, 3.7113672026628723`*^9}, {3.7113672848506694`*^9,
3.7113672937430058`*^9}, 3.711367817708683*^9, 3.711368471659664*^9,
3.7113741110657043`*^9, {3.7113759082775946`*^9, 3.7113759337546263`*^9}, {
3.7113766221803513`*^9, 3.7113766286675997`*^9}, {3.7113770322409267`*^9,
3.7113770541519156`*^9}, 3.711377422424731*^9, 3.711377707410928*^9, {
3.711378293563079*^9, 3.7113783179582677`*^9}, {3.7113784863990765`*^9,
3.711378486658139*^9}, {3.711378569843259*^9, 3.711378570726231*^9}, {
3.711378612579402*^9, 3.711378612746275*^9}, {3.7113787335634575`*^9,
3.7113787486430683`*^9}, {3.7113788478514767`*^9, 3.711378852983372*^9}, {
3.7113791633273296`*^9, 3.711379209583581*^9}, 3.7113792725045867`*^9, {
3.711379341837166*^9, 3.7113793520153093`*^9}, {3.7113793825958576`*^9,
3.7113793961316533`*^9}, {3.711379583409315*^9, 3.7113795952156777`*^9}, {
3.711379636844471*^9, 3.711379638323928*^9}, {3.711379803061552*^9,
3.7113798099106483`*^9}, {3.7113798602452083`*^9, 3.7113798633843637`*^9},
3.71138056464228*^9, {3.7113806520699806`*^9, 3.7113806816650195`*^9}, {
3.7113825350822306`*^9, 3.711382537431347*^9}, {3.7113832691040287`*^9,
3.71138327009151*^9}, {3.7113848938781757`*^9, 3.711384897939677*^9}, {
3.711387470274883*^9, 3.71138747219118*^9}, {3.7114269147065268`*^9,
3.711426928965063*^9}, {3.7114286221278305`*^9, 3.711428633128332*^9}, {
3.711429748093356*^9, 3.7114297535929475`*^9}, {3.7114298186022196`*^9,
3.7114299683174543`*^9}, {3.711430111686104*^9, 3.7114301148376026`*^9},
3.711430257131345*^9, 3.7114307961064115`*^9, {3.7114309783303075`*^9,
3.7114309867953186`*^9}, {3.711431070251131*^9, 3.711431077934659*^9}, {
3.7114312465150814`*^9, 3.7114312613906217`*^9}, {3.7114313187428255`*^9,
3.7114313223548265`*^9}, {3.7114314013105145`*^9,
3.7114314431025867`*^9}, {3.7114316711759667`*^9,
3.7114316722591157`*^9}, {3.7114330928878856`*^9, 3.711433093908489*^9}, {
3.7114332138922963`*^9, 3.7114332342563*^9}, 3.7114334798047132`*^9, {
3.7114335357855844`*^9, 3.711433541749008*^9}, {3.711437545077258*^9,
3.7114375524633293`*^9}, 3.7114393326476917`*^9, {3.7114394652857776`*^9,
3.7114394686288805`*^9}, {3.711456667726118*^9, 3.7114566709854727`*^9}, {
3.7114568361298127`*^9, 3.711456836832939*^9}, 3.7114590885800433`*^9, {
3.7114606355553484`*^9, 3.711460635664028*^9}, 3.7114611948683643`*^9, {
3.711461283906601*^9, 3.711461284857609*^9}, {3.711461473282404*^9,
3.711461490650423*^9}, {3.7114617372130804`*^9, 3.711461738061737*^9}, {
3.711462619653311*^9, 3.7114626477496395`*^9}, 3.7114628970374775`*^9, {
3.711462976841517*^9, 3.7114630082818565`*^9}, {3.711463270578332*^9,
3.7114632716171036`*^9}, {3.7114633949426155`*^9,
3.7114633958715286`*^9}, {3.711512009245801*^9, 3.711512021790105*^9}, {
3.711512066372656*^9, 3.711512066706162*^9}, {3.7115121957669425`*^9,
3.711512214418193*^9}, {3.7115125365148726`*^9, 3.7115125366777477`*^9},
3.7115131843230906`*^9, {3.711527508863608*^9, 3.711527509854288*^9}, {
3.711527740410097*^9, 3.7115277406737895`*^9}, 3.7115283642633204`*^9, {
3.7115284284548335`*^9, 3.7115284290669713`*^9}, {3.7115284743351555`*^9,
3.7115284775381556`*^9}, {3.7115285208230953`*^9, 3.711528545082595*^9}, {
3.711528587895258*^9, 3.7115285884427958`*^9}, 3.71152867687894*^9, {
3.7115288198548784`*^9, 3.7115288202948785`*^9}, {3.7115288790035076`*^9,
3.711528889227084*^9}, {3.7115292250279036`*^9, 3.7115292261878815`*^9}, {
3.7115294565042543`*^9, 3.7115294813761425`*^9}, {3.7115297406641636`*^9,
3.711529746470929*^9}, {3.711529831028097*^9, 3.711529831919098*^9}, {
3.7115299039284124`*^9, 3.7115299053081536`*^9}, {3.711529990940241*^9,
3.71152999184324*^9}, {3.711530113404951*^9, 3.711530116223603*^9}, {
3.711531205041078*^9, 3.7115313436691923`*^9}, {3.71153139357066*^9,
3.7115314158729086`*^9}, {3.7115316824273195`*^9, 3.71153168324083*^9},
3.711531777498022*^9, {3.711531983353815*^9, 3.7115320113695045`*^9}, {
3.711532094622878*^9, 3.7115321223755016`*^9}, {3.711532183311653*^9,
3.711532201343296*^9}, {3.711532270112926*^9, 3.7115322744006324`*^9}, {
3.711532339078685*^9, 3.7115323395743465`*^9}, {3.7115333707725897`*^9,
3.7115333714863205`*^9}, {3.711533683726919*^9, 3.711533684585088*^9}, {
3.7115405765172343`*^9, 3.71154058162634*^9}, {3.711540645086653*^9,
3.711540645651803*^9}, {3.711541905750668*^9, 3.7115419064225426`*^9}, {
3.7115420493019595`*^9, 3.711542050217861*^9}, {3.7115434018711796`*^9,
3.711543405703024*^9}, {3.711543455814965*^9, 3.7115434568392878`*^9}, {
3.711543587290246*^9, 3.7115436162796*^9}, 3.7115437904251537`*^9, {
3.7115438340683537`*^9, 3.7115438379199553`*^9}, {3.7115441435223475`*^9,
3.711544145769268*^9}, 3.711544250217555*^9, {3.711544512504834*^9,
3.7115445163337135`*^9}, 3.7115446112589397`*^9, {3.7115449026430845`*^9,
3.7115449029712086`*^9}, {3.7115454328539157`*^9,
3.7115454433887644`*^9}, {3.7115454955123253`*^9,
3.7115454956685753`*^9}, {3.7115455817303996`*^9, 3.711545598413421*^9}, {
3.7115463744355893`*^9, 3.711546375827772*^9}, {3.7115464829031754`*^9,
3.7115464836037397`*^9}, {3.71154664046696*^9, 3.711546642988*^9}, {
3.7115467015195317`*^9, 3.7115467033754625`*^9}, {3.7115467870715733`*^9,
3.711546789343007*^9}, {3.7115468547741137`*^9, 3.7115468592481794`*^9}, {
3.7115471839916754`*^9, 3.7115471848410807`*^9}, {3.711547877815235*^9,
3.711547878394158*^9}, {3.71159845081905*^9, 3.7115984519868603`*^9}, {
3.7129003939598885`*^9, 3.7129003949646378`*^9}, 3.712900459116028*^9,
3.7129004912365284`*^9, 3.7129007962135334`*^9, 3.712901189815728*^9,
3.712901444494683*^9, {3.712903333543655*^9, 3.7129033647866945`*^9},
3.712913667851748*^9, {3.7129143180716505`*^9, 3.712914320720091*^9}, {
3.712918397691306*^9, 3.71291842784138*^9}, {3.712918478614318*^9,
3.712918478911192*^9}, {3.7129190514508934`*^9, 3.712919052561867*^9}, {
3.712919256059536*^9, 3.712919264873109*^9}, {3.712919470154434*^9,
3.712919473343187*^9}, {3.7129195325667925`*^9, 3.712919533201662*^9}, {
3.7129196770379195`*^9, 3.712919677380179*^9}, {3.712919746533849*^9,
3.712919746627595*^9}, {3.712919786560665*^9, 3.7129197933779*^9}, {
3.712919848514021*^9, 3.712919876655307*^9}, {3.7129199219481583`*^9,
3.712919923404092*^9}, 3.7129200075722933`*^9, {3.7129200533899555`*^9,
3.7129200715689297`*^9}, {3.7129201043591433`*^9, 3.712920106741661*^9}, {
3.71292015756135*^9, 3.712920169941595*^9}, {3.712920296467287*^9,
3.7129203405237017`*^9}, {3.7129203867541666`*^9,
3.7129203968765926`*^9}, {3.712920814717537*^9, 3.712920820219434*^9},
3.7129210419645743`*^9, 3.7129211031580553`*^9, {3.7129211869570026`*^9,
3.7129212005152454`*^9}, {3.712921821787878*^9, 3.712921822343402*^9},
3.7129219895302444`*^9},ExpressionUUID->"f4559b18-0f33-47cc-bb62-\
1965bb6b0299"],
Cell[BoxData[
GraphicsBox[
TagBox[RasterBox[CompressedData["
1:eJzt2UFuE1EQhGELNiy5Ardgy5JtEAdIFBOxMZKDhLghtxoGmZ2Tcc/M6371
uv9PSpRk0dNdrliR8uHhx923N4fD4fnd/Onu/ten8/n+95f38zdfT8/fn07H
x8+nn8en4/njw9v5h4/zx5/549/XEwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAo4tND7CKhoUqciNSMEi7YVSpktOazSPK5kqZLGWjGJ3dQ7hlcR
xQZ+ZyaIdNsJrfS+frvI04aL1GPhVTNFclil40X6wcbsppzANgqHGFONz7bL
Mjrnb6a2v07B+j59eQHvR+8ku3n3dvVtlGWTyB1W0V+4V7tEGnVzny7LLBto
1Sn2b1q1Ui1v1XGla0MseS2gWpqlWt6t917/ia9n4VQt/WRkN5RdbIO21Rol
Gc0lNbfao0kfRinVhdqqavu0srMVI8YitbDUMm3tqVaOXvXaWWcTJ9sOHDcW
kc0VdvC29kaRl2YzheUVdghgP3P0Uk0ar2n3BWLY26LwouzX94ocGRpZjrXX
Txy9CmPpTJpA6FWkOr2auv6FkyZDo5tvWZkC6fU7kul3027h6mSB0KtI9Crr
c7t77fB8gcRflC9DuxdvTxnI9VHed6WM0YheRT7R9XFqXgw8ZSCRp2XN0K5I
qS7oVZjivfI4MH2MRnV6NYW8k6TP0Kh4r9reWCFDozqlugjuVcPhY6FXowwf
TqleTW7/Va8ToFHxXrW6tE6ARqVKNdGrKPTKY2yTmUOr1qvJpwOlArSgV80H
pg/QomAm9CpAwUzoVYCCmXj3av/ABOiV4MAE6JXgwAQKZkKvvPFmRa880Ct6
5YFe0SsP9Ep25tCq9crp3lIZWtArj7FNZg6NXnmMbTJzaMV75TEzfYYWpTKJ
ebPKnaFRqUzoVZhSmcT0qsnM0VXulfjYodEr2bGjq5PJ5gL8BYiamKM=
"], {{0, 100}, {200, 0}}, {0, 255},
ColorFunction->RGBColor],
BoxForm`ImageTag[
"Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation ->
Association["Comments" -> Association["Comment" -> "Created with GIMP"]]],
Selectable->False],
DefaultBaseStyle->"ImageGraphics",
ImageSizeRaw->{200, 100},
PlotRange->{{0, 200}, {0, 100}}]], "Output",
CellChangeTimes->{
3.711530956658244*^9, 3.7115310635582905`*^9, 3.7115311179216146`*^9,
3.711531354121991*^9, 3.7115314213059034`*^9, 3.711531686398059*^9, {
3.711531752442715*^9, 3.7115317805435658`*^9}, 3.711531937667745*^9, {
3.7115319856363325`*^9, 3.7115320147257147`*^9}, {3.7115321015491595`*^9,
3.7115321246009855`*^9}, {3.7115321889694233`*^9, 3.711532203498994*^9},
3.711532276875326*^9, 3.7115323427488513`*^9, 3.7115324556149*^9,
3.711533375332181*^9, 3.711533688491978*^9, 3.711533858671212*^9,
3.7115339100269976`*^9, 3.711533959351077*^9, {3.7115405852992325`*^9,
3.711540612558903*^9}, 3.711540647133048*^9, 3.711541216857582*^9,
3.711541287229767*^9, 3.7115413231623573`*^9, 3.7115416722634087`*^9,
3.7115418248129377`*^9, 3.711541861275453*^9, 3.711541908984669*^9,
3.711541974938263*^9, 3.7115420527606297`*^9, 3.7115421892103815`*^9,
3.7115422742621994`*^9, 3.711543370959264*^9, 3.7115434076755867`*^9,
3.7115434594669495`*^9, 3.7115435907599*^9, 3.711543626820479*^9,
3.711543685384827*^9, 3.7115437937111645`*^9, 3.7115438404870825`*^9,
3.711544012358432*^9, 3.711544084701151*^9, 3.7115441484176598`*^9,
3.711544258756976*^9, 3.711544308648467*^9, 3.711544398970852*^9, {
3.711544517876993*^9, 3.711544528596183*^9}, 3.711544617800931*^9,
3.71154467611677*^9, 3.7115449056175957`*^9, 3.711544973122517*^9,
3.7115450232374153`*^9, {3.7115461715895643`*^9, 3.7115461978738794`*^9},
3.711546378654372*^9, 3.7115464866166263`*^9, 3.711546646026967*^9,
3.711546706203535*^9, 3.711546792537613*^9, 3.7115468619184113`*^9,
3.711546905436572*^9, 3.711547105600416*^9, 3.7115471883079624`*^9, {
3.7115478810244255`*^9, 3.7115479015368505`*^9}, 3.711547956553064*^9, {
3.7115479940672517`*^9, 3.711548019451707*^9}, 3.711548111812587*^9,
3.7115984568128357`*^9, 3.7128978306167116`*^9, 3.712899648106393*^9,
3.712900257491418*^9, 3.7129003981576796`*^9, 3.7129004956062455`*^9,
3.7129007991484137`*^9, 3.7129011941575212`*^9, 3.712901448531819*^9,
3.7129034712892637`*^9, 3.71290855573584*^9, 3.712913672024749*^9,
3.7129143248106403`*^9, {3.712918401931398*^9, 3.712918431143186*^9},
3.7129184815996876`*^9, 3.7129186277783146`*^9, {3.712918673648184*^9,
3.712918696341524*^9}, 3.7129187814412775`*^9, 3.7129188320983105`*^9, {
3.7129190556777077`*^9, 3.7129190802606306`*^9}, {3.7129191367756233`*^9,
3.712919153799265*^9}, 3.7129192808525753`*^9, 3.7129193152421722`*^9,
3.71292070214015*^9, 3.712920824502044*^9, 3.712920949267742*^9,
3.71292104492864*^9, 3.7129211062485046`*^9, 3.7129212027284975`*^9,
3.712921825568207*^9,
3.7129219954704013`*^9},ExpressionUUID->"37b1938d-c124-4445-a4de-\
68b629950b71"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"200", ",", "100"}], "}"}]], "Output",
CellChangeTimes->{
3.711530956658244*^9, 3.7115310635582905`*^9, 3.7115311179216146`*^9,
3.711531354121991*^9, 3.7115314213059034`*^9, 3.711531686398059*^9, {
3.711531752442715*^9, 3.7115317805435658`*^9}, 3.711531937667745*^9, {
3.7115319856363325`*^9, 3.7115320147257147`*^9}, {3.7115321015491595`*^9,
3.7115321246009855`*^9}, {3.7115321889694233`*^9, 3.711532203498994*^9},
3.711532276875326*^9, 3.7115323427488513`*^9, 3.7115324556149*^9,
3.711533375332181*^9, 3.711533688491978*^9, 3.711533858671212*^9,
3.7115339100269976`*^9, 3.711533959351077*^9, {3.7115405852992325`*^9,
3.711540612558903*^9}, 3.711540647133048*^9, 3.711541216857582*^9,
3.711541287229767*^9, 3.7115413231623573`*^9, 3.7115416722634087`*^9,
3.7115418248129377`*^9, 3.711541861275453*^9, 3.711541908984669*^9,
3.711541974938263*^9, 3.7115420527606297`*^9, 3.7115421892103815`*^9,
3.7115422742621994`*^9, 3.711543370959264*^9, 3.7115434076755867`*^9,
3.7115434594669495`*^9, 3.7115435907599*^9, 3.711543626820479*^9,
3.711543685384827*^9, 3.7115437937111645`*^9, 3.7115438404870825`*^9,
3.711544012358432*^9, 3.711544084701151*^9, 3.7115441484176598`*^9,
3.711544258756976*^9, 3.711544308648467*^9, 3.711544398970852*^9, {
3.711544517876993*^9, 3.711544528596183*^9}, 3.711544617800931*^9,
3.71154467611677*^9, 3.7115449056175957`*^9, 3.711544973122517*^9,
3.7115450232374153`*^9, {3.7115461715895643`*^9, 3.7115461978738794`*^9},
3.711546378654372*^9, 3.7115464866166263`*^9, 3.711546646026967*^9,
3.711546706203535*^9, 3.711546792537613*^9, 3.7115468619184113`*^9,
3.711546905436572*^9, 3.711547105600416*^9, 3.7115471883079624`*^9, {
3.7115478810244255`*^9, 3.7115479015368505`*^9}, 3.711547956553064*^9, {
3.7115479940672517`*^9, 3.711548019451707*^9}, 3.711548111812587*^9,
3.7115984568128357`*^9, 3.7128978306167116`*^9, 3.712899648106393*^9,
3.712900257491418*^9, 3.7129003981576796`*^9, 3.7129004956062455`*^9,
3.7129007991484137`*^9, 3.7129011941575212`*^9, 3.712901448531819*^9,
3.7129034712892637`*^9, 3.71290855573584*^9, 3.712913672024749*^9,
3.7129143248106403`*^9, {3.712918401931398*^9, 3.712918431143186*^9},
3.7129184815996876`*^9, 3.7129186277783146`*^9, {3.712918673648184*^9,
3.712918696341524*^9}, 3.7129187814412775`*^9, 3.7129188320983105`*^9, {
3.7129190556777077`*^9, 3.7129190802606306`*^9}, {3.7129191367756233`*^9,
3.712919153799265*^9}, 3.7129192808525753`*^9, 3.7129193152421722`*^9,
3.71292070214015*^9, 3.712920824502044*^9, 3.712920949267742*^9,
3.71292104492864*^9, 3.7129211062485046`*^9, 3.7129212027284975`*^9,
3.712921825568207*^9,
3.712921995501647*^9},ExpressionUUID->"9480b89d-68ca-4e04-b39e-\
d11479b846a1"],
Cell[BoxData[
DynamicBox[ToBoxes[$CellContext`fitnessPlots, StandardForm],
ImageSizeCache->{1239., {198., 208.}}]], "Output",
CellChangeTimes->{
3.711530956658244*^9, 3.7115310635582905`*^9, 3.7115311179216146`*^9,
3.711531354121991*^9, 3.7115314213059034`*^9, 3.711531686398059*^9, {
3.711531752442715*^9, 3.7115317805435658`*^9}, 3.711531937667745*^9, {
3.7115319856363325`*^9, 3.7115320147257147`*^9}, {3.7115321015491595`*^9,
3.7115321246009855`*^9}, {3.7115321889694233`*^9, 3.711532203498994*^9},
3.711532276875326*^9, 3.7115323427488513`*^9, 3.7115324556149*^9,
3.711533375332181*^9, 3.711533688491978*^9, 3.711533858671212*^9,
3.7115339100269976`*^9, 3.711533959351077*^9, {3.7115405852992325`*^9,
3.711540612558903*^9}, 3.711540647133048*^9, 3.711541216857582*^9,
3.711541287229767*^9, 3.7115413231623573`*^9, 3.7115416722634087`*^9,
3.7115418248129377`*^9, 3.711541861275453*^9, 3.711541908984669*^9,
3.711541974938263*^9, 3.7115420527606297`*^9, 3.7115421892103815`*^9,
3.7115422742621994`*^9, 3.711543370959264*^9, 3.7115434076755867`*^9,
3.7115434594669495`*^9, 3.7115435907599*^9, 3.711543626820479*^9,
3.711543685384827*^9, 3.7115437937111645`*^9, 3.7115438404870825`*^9,
3.711544012358432*^9, 3.711544084701151*^9, 3.7115441484176598`*^9,
3.711544258756976*^9, 3.711544308648467*^9, 3.711544398970852*^9, {
3.711544517876993*^9, 3.711544528596183*^9}, 3.711544617800931*^9,
3.71154467611677*^9, 3.7115449056175957`*^9, 3.711544973122517*^9,
3.7115450232374153`*^9, {3.7115461715895643`*^9, 3.7115461978738794`*^9},
3.711546378654372*^9, 3.7115464866166263`*^9, 3.711546646026967*^9,
3.711546706203535*^9, 3.711546792537613*^9, 3.7115468619184113`*^9,
3.711546905436572*^9, 3.711547105600416*^9, 3.7115471883079624`*^9, {
3.7115478810244255`*^9, 3.7115479015368505`*^9}, 3.711547956553064*^9, {
3.7115479940672517`*^9, 3.711548019451707*^9}, 3.711548111812587*^9,
3.7115984568128357`*^9, 3.7128978306167116`*^9, 3.712899648106393*^9,
3.712900257491418*^9, 3.7129003981576796`*^9, 3.7129004956062455`*^9,
3.7129007991484137`*^9, 3.7129011941575212`*^9, 3.712901448531819*^9,
3.7129034712892637`*^9, 3.71290855573584*^9, 3.712913672024749*^9,
3.7129143248106403`*^9, {3.712918401931398*^9, 3.712918431143186*^9},
3.7129184815996876`*^9, 3.7129186277783146`*^9, {3.712918673648184*^9,
3.712918696341524*^9}, 3.7129187814412775`*^9, 3.7129188320983105`*^9, {
3.7129190556777077`*^9, 3.7129190802606306`*^9}, {3.7129191367756233`*^9,
3.712919153799265*^9}, 3.7129192808525753`*^9, 3.7129193152421722`*^9,
3.71292070214015*^9, 3.712920824502044*^9, 3.712920949267742*^9,
3.71292104492864*^9, 3.7129211062485046`*^9, 3.7129212027284975`*^9,
3.712921825568207*^9,
3.712921995501647*^9},ExpressionUUID->"90efe1ee-d272-4326-92cd-\
3dd6fdc7128c"],
Cell[BoxData[
DynamicBox[ToBoxes[$CellContext`text, StandardForm],
ImageSizeCache->{992., {4., 16.}}]], "Output",
CellChangeTimes->{
3.711530956658244*^9, 3.7115310635582905`*^9, 3.7115311179216146`*^9,
3.711531354121991*^9, 3.7115314213059034`*^9, 3.711531686398059*^9, {
3.711531752442715*^9, 3.7115317805435658`*^9}, 3.711531937667745*^9, {
3.7115319856363325`*^9, 3.7115320147257147`*^9}, {3.7115321015491595`*^9,
3.7115321246009855`*^9}, {3.7115321889694233`*^9, 3.711532203498994*^9},
3.711532276875326*^9, 3.7115323427488513`*^9, 3.7115324556149*^9,
3.711533375332181*^9, 3.711533688491978*^9, 3.711533858671212*^9,
3.7115339100269976`*^9, 3.711533959351077*^9, {3.7115405852992325`*^9,
3.711540612558903*^9}, 3.711540647133048*^9, 3.711541216857582*^9,
3.711541287229767*^9, 3.7115413231623573`*^9, 3.7115416722634087`*^9,
3.7115418248129377`*^9, 3.711541861275453*^9, 3.711541908984669*^9,
3.711541974938263*^9, 3.7115420527606297`*^9, 3.7115421892103815`*^9,
3.7115422742621994`*^9, 3.711543370959264*^9, 3.7115434076755867`*^9,
3.7115434594669495`*^9, 3.7115435907599*^9, 3.711543626820479*^9,
3.711543685384827*^9, 3.7115437937111645`*^9, 3.7115438404870825`*^9,
3.711544012358432*^9, 3.711544084701151*^9, 3.7115441484176598`*^9,
3.711544258756976*^9, 3.711544308648467*^9, 3.711544398970852*^9, {
3.711544517876993*^9, 3.711544528596183*^9}, 3.711544617800931*^9,
3.71154467611677*^9, 3.7115449056175957`*^9, 3.711544973122517*^9,
3.7115450232374153`*^9, {3.7115461715895643`*^9, 3.7115461978738794`*^9},
3.711546378654372*^9, 3.7115464866166263`*^9, 3.711546646026967*^9,
3.711546706203535*^9, 3.711546792537613*^9, 3.7115468619184113`*^9,
3.711546905436572*^9, 3.711547105600416*^9, 3.7115471883079624`*^9, {
3.7115478810244255`*^9, 3.7115479015368505`*^9}, 3.711547956553064*^9, {
3.7115479940672517`*^9, 3.711548019451707*^9}, 3.711548111812587*^9,
3.7115984568128357`*^9, 3.7128978306167116`*^9, 3.712899648106393*^9,
3.712900257491418*^9, 3.7129003981576796`*^9, 3.7129004956062455`*^9,
3.7129007991484137`*^9, 3.7129011941575212`*^9, 3.712901448531819*^9,
3.7129034712892637`*^9, 3.71290855573584*^9, 3.712913672024749*^9,
3.7129143248106403`*^9, {3.712918401931398*^9, 3.712918431143186*^9},
3.7129184815996876`*^9, 3.7129186277783146`*^9, {3.712918673648184*^9,
3.712918696341524*^9}, 3.7129187814412775`*^9, 3.7129188320983105`*^9, {
3.7129190556777077`*^9, 3.7129190802606306`*^9}, {3.7129191367756233`*^9,
3.712919153799265*^9}, 3.7129192808525753`*^9, 3.7129193152421722`*^9,
3.71292070214015*^9, 3.712920824502044*^9, 3.712920949267742*^9,
3.71292104492864*^9, 3.7129211062485046`*^9, 3.7129212027284975`*^9,
3.712921825568207*^9,
3.712921995517271*^9},ExpressionUUID->"bd43f3cb-0710-4837-a83b-\
b002ae896f3d"],
Cell[BoxData[
DynamicBox[ToBoxes[$CellContext`timingText, StandardForm],
ImageSizeCache->{398., {105., 20.}}]], "Output",
CellChangeTimes->{
3.711530956658244*^9, 3.7115310635582905`*^9, 3.7115311179216146`*^9,
3.711531354121991*^9, 3.7115314213059034`*^9, 3.711531686398059*^9, {
3.711531752442715*^9, 3.7115317805435658`*^9}, 3.711531937667745*^9, {
3.7115319856363325`*^9, 3.7115320147257147`*^9}, {3.7115321015491595`*^9,
3.7115321246009855`*^9}, {3.7115321889694233`*^9, 3.711532203498994*^9},
3.711532276875326*^9, 3.7115323427488513`*^9, 3.7115324556149*^9,
3.711533375332181*^9, 3.711533688491978*^9, 3.711533858671212*^9,
3.7115339100269976`*^9, 3.711533959351077*^9, {3.7115405852992325`*^9,
3.711540612558903*^9}, 3.711540647133048*^9, 3.711541216857582*^9,
3.711541287229767*^9, 3.7115413231623573`*^9, 3.7115416722634087`*^9,
3.7115418248129377`*^9, 3.711541861275453*^9, 3.711541908984669*^9,
3.711541974938263*^9, 3.7115420527606297`*^9, 3.7115421892103815`*^9,
3.7115422742621994`*^9, 3.711543370959264*^9, 3.7115434076755867`*^9,
3.7115434594669495`*^9, 3.7115435907599*^9, 3.711543626820479*^9,
3.711543685384827*^9, 3.7115437937111645`*^9, 3.7115438404870825`*^9,
3.711544012358432*^9, 3.711544084701151*^9, 3.7115441484176598`*^9,
3.711544258756976*^9, 3.711544308648467*^9, 3.711544398970852*^9, {
3.711544517876993*^9, 3.711544528596183*^9}, 3.711544617800931*^9,
3.71154467611677*^9, 3.7115449056175957`*^9, 3.711544973122517*^9,
3.7115450232374153`*^9, {3.7115461715895643`*^9, 3.7115461978738794`*^9},
3.711546378654372*^9, 3.7115464866166263`*^9, 3.711546646026967*^9,
3.711546706203535*^9, 3.711546792537613*^9, 3.7115468619184113`*^9,
3.711546905436572*^9, 3.711547105600416*^9, 3.7115471883079624`*^9, {
3.7115478810244255`*^9, 3.7115479015368505`*^9}, 3.711547956553064*^9, {
3.7115479940672517`*^9, 3.711548019451707*^9}, 3.711548111812587*^9,
3.7115984568128357`*^9, 3.7128978306167116`*^9, 3.712899648106393*^9,
3.712900257491418*^9, 3.7129003981576796`*^9, 3.7129004956062455`*^9,
3.7129007991484137`*^9, 3.7129011941575212`*^9, 3.712901448531819*^9,
3.7129034712892637`*^9, 3.71290855573584*^9, 3.712913672024749*^9,
3.7129143248106403`*^9, {3.712918401931398*^9, 3.712918431143186*^9},
3.7129184815996876`*^9, 3.7129186277783146`*^9, {3.712918673648184*^9,
3.712918696341524*^9}, 3.7129187814412775`*^9, 3.7129188320983105`*^9, {
3.7129190556777077`*^9, 3.7129190802606306`*^9}, {3.7129191367756233`*^9,
3.712919153799265*^9}, 3.7129192808525753`*^9, 3.7129193152421722`*^9,
3.71292070214015*^9, 3.712920824502044*^9, 3.712920949267742*^9,
3.71292104492864*^9, 3.7129211062485046`*^9, 3.7129212027284975`*^9,
3.712921825568207*^9,
3.712921995517271*^9},ExpressionUUID->"fd513868-77be-4f86-a0bf-\
dc7a1bb003b0"],
Cell[BoxData[
DynamicBox[ToBoxes[$CellContext`allImages, StandardForm],
ImageSizeCache->{1621.5, {293., 90.}}]], "Output",
CellChangeTimes->{
3.711530956658244*^9, 3.7115310635582905`*^9, 3.7115311179216146`*^9,
3.711531354121991*^9, 3.7115314213059034`*^9, 3.711531686398059*^9, {
3.711531752442715*^9, 3.7115317805435658`*^9}, 3.711531937667745*^9, {
3.7115319856363325`*^9, 3.7115320147257147`*^9}, {3.7115321015491595`*^9,
3.7115321246009855`*^9}, {3.7115321889694233`*^9, 3.711532203498994*^9},
3.711532276875326*^9, 3.7115323427488513`*^9, 3.7115324556149*^9,
3.711533375332181*^9, 3.711533688491978*^9, 3.711533858671212*^9,
3.7115339100269976`*^9, 3.711533959351077*^9, {3.7115405852992325`*^9,
3.711540612558903*^9}, 3.711540647133048*^9, 3.711541216857582*^9,
3.711541287229767*^9, 3.7115413231623573`*^9, 3.7115416722634087`*^9,
3.7115418248129377`*^9, 3.711541861275453*^9, 3.711541908984669*^9,
3.711541974938263*^9, 3.7115420527606297`*^9, 3.7115421892103815`*^9,
3.7115422742621994`*^9, 3.711543370959264*^9, 3.7115434076755867`*^9,
3.7115434594669495`*^9, 3.7115435907599*^9, 3.711543626820479*^9,
3.711543685384827*^9, 3.7115437937111645`*^9, 3.7115438404870825`*^9,
3.711544012358432*^9, 3.711544084701151*^9, 3.7115441484176598`*^9,
3.711544258756976*^9, 3.711544308648467*^9, 3.711544398970852*^9, {
3.711544517876993*^9, 3.711544528596183*^9}, 3.711544617800931*^9,
3.71154467611677*^9, 3.7115449056175957`*^9, 3.711544973122517*^9,
3.7115450232374153`*^9, {3.7115461715895643`*^9, 3.7115461978738794`*^9},
3.711546378654372*^9, 3.7115464866166263`*^9, 3.711546646026967*^9,
3.711546706203535*^9, 3.711546792537613*^9, 3.7115468619184113`*^9,
3.711546905436572*^9, 3.711547105600416*^9, 3.7115471883079624`*^9, {
3.7115478810244255`*^9, 3.7115479015368505`*^9}, 3.711547956553064*^9, {
3.7115479940672517`*^9, 3.711548019451707*^9}, 3.711548111812587*^9,
3.7115984568128357`*^9, 3.7128978306167116`*^9, 3.712899648106393*^9,
3.712900257491418*^9, 3.7129003981576796`*^9, 3.7129004956062455`*^9,
3.7129007991484137`*^9, 3.7129011941575212`*^9, 3.712901448531819*^9,
3.7129034712892637`*^9, 3.71290855573584*^9, 3.712913672024749*^9,
3.7129143248106403`*^9, {3.712918401931398*^9, 3.712918431143186*^9},
3.7129184815996876`*^9, 3.7129186277783146`*^9, {3.712918673648184*^9,
3.712918696341524*^9}, 3.7129187814412775`*^9, 3.7129188320983105`*^9, {
3.7129190556777077`*^9, 3.7129190802606306`*^9}, {3.7129191367756233`*^9,
3.712919153799265*^9}, 3.7129192808525753`*^9, 3.7129193152421722`*^9,
3.71292070214015*^9, 3.712920824502044*^9, 3.712920949267742*^9,
3.71292104492864*^9, 3.7129211062485046`*^9, 3.7129212027284975`*^9,
3.712921825568207*^9,
3.712921995517271*^9},ExpressionUUID->"fbf6d2cf-d6ab-409b-a84a-\
65316f5c59d4"],
Cell[BoxData[
DynamicBox[ToBoxes[$CellContext`fittestHistory, StandardForm],
ImageSizeCache->{612., {329., 339.}}]], "Output",
CellChangeTimes->{
3.711530956658244*^9, 3.7115310635582905`*^9, 3.7115311179216146`*^9,
3.711531354121991*^9, 3.7115314213059034`*^9, 3.711531686398059*^9, {
3.711531752442715*^9, 3.7115317805435658`*^9}, 3.711531937667745*^9, {
3.7115319856363325`*^9, 3.7115320147257147`*^9}, {3.7115321015491595`*^9,
3.7115321246009855`*^9}, {3.7115321889694233`*^9, 3.711532203498994*^9},
3.711532276875326*^9, 3.7115323427488513`*^9, 3.7115324556149*^9,
3.711533375332181*^9, 3.711533688491978*^9, 3.711533858671212*^9,
3.7115339100269976`*^9, 3.711533959351077*^9, {3.7115405852992325`*^9,
3.711540612558903*^9}, 3.711540647133048*^9, 3.711541216857582*^9,
3.711541287229767*^9, 3.7115413231623573`*^9, 3.7115416722634087`*^9,
3.7115418248129377`*^9, 3.711541861275453*^9, 3.711541908984669*^9,
3.711541974938263*^9, 3.7115420527606297`*^9, 3.7115421892103815`*^9,
3.7115422742621994`*^9, 3.711543370959264*^9, 3.7115434076755867`*^9,
3.7115434594669495`*^9, 3.7115435907599*^9, 3.711543626820479*^9,
3.711543685384827*^9, 3.7115437937111645`*^9, 3.7115438404870825`*^9,
3.711544012358432*^9, 3.711544084701151*^9, 3.7115441484176598`*^9,
3.711544258756976*^9, 3.711544308648467*^9, 3.711544398970852*^9, {
3.711544517876993*^9, 3.711544528596183*^9}, 3.711544617800931*^9,
3.71154467611677*^9, 3.7115449056175957`*^9, 3.711544973122517*^9,
3.7115450232374153`*^9, {3.7115461715895643`*^9, 3.7115461978738794`*^9},
3.711546378654372*^9, 3.7115464866166263`*^9, 3.711546646026967*^9,
3.711546706203535*^9, 3.711546792537613*^9, 3.7115468619184113`*^9,
3.711546905436572*^9, 3.711547105600416*^9, 3.7115471883079624`*^9, {
3.7115478810244255`*^9, 3.7115479015368505`*^9}, 3.711547956553064*^9, {
3.7115479940672517`*^9, 3.711548019451707*^9}, 3.711548111812587*^9,
3.7115984568128357`*^9, 3.7128978306167116`*^9, 3.712899648106393*^9,
3.712900257491418*^9, 3.7129003981576796`*^9, 3.7129004956062455`*^9,
3.7129007991484137`*^9, 3.7129011941575212`*^9, 3.712901448531819*^9,
3.7129034712892637`*^9, 3.71290855573584*^9, 3.712913672024749*^9,
3.7129143248106403`*^9, {3.712918401931398*^9, 3.712918431143186*^9},
3.7129184815996876`*^9, 3.7129186277783146`*^9, {3.712918673648184*^9,
3.712918696341524*^9}, 3.7129187814412775`*^9, 3.7129188320983105`*^9, {
3.7129190556777077`*^9, 3.7129190802606306`*^9}, {3.7129191367756233`*^9,
3.712919153799265*^9}, 3.7129192808525753`*^9, 3.7129193152421722`*^9,
3.71292070214015*^9, 3.712920824502044*^9, 3.712920949267742*^9,
3.71292104492864*^9, 3.7129211062485046`*^9, 3.7129212027284975`*^9,
3.712921825568207*^9,
3.712921995532898*^9},ExpressionUUID->"42fb36a1-6a9c-4052-a08c-\
7500d566cc18"],
Cell[BoxData[
DynamicBox[ToBoxes[$CellContext`fittestPhenotype, StandardForm],
ImageSizeCache->{706., {4., 14.}}]], "Output",
CellChangeTimes->{
3.711530956658244*^9, 3.7115310635582905`*^9, 3.7115311179216146`*^9,
3.711531354121991*^9, 3.7115314213059034`*^9, 3.711531686398059*^9, {
3.711531752442715*^9, 3.7115317805435658`*^9}, 3.711531937667745*^9, {
3.7115319856363325`*^9, 3.7115320147257147`*^9}, {3.7115321015491595`*^9,
3.7115321246009855`*^9}, {3.7115321889694233`*^9, 3.711532203498994*^9},
3.711532276875326*^9, 3.7115323427488513`*^9, 3.7115324556149*^9,
3.711533375332181*^9, 3.711533688491978*^9, 3.711533858671212*^9,
3.7115339100269976`*^9, 3.711533959351077*^9, {3.7115405852992325`*^9,
3.711540612558903*^9}, 3.711540647133048*^9, 3.711541216857582*^9,
3.711541287229767*^9, 3.7115413231623573`*^9, 3.7115416722634087`*^9,
3.7115418248129377`*^9, 3.711541861275453*^9, 3.711541908984669*^9,
3.711541974938263*^9, 3.7115420527606297`*^9, 3.7115421892103815`*^9,
3.7115422742621994`*^9, 3.711543370959264*^9, 3.7115434076755867`*^9,
3.7115434594669495`*^9, 3.7115435907599*^9, 3.711543626820479*^9,
3.711543685384827*^9, 3.7115437937111645`*^9, 3.7115438404870825`*^9,
3.711544012358432*^9, 3.711544084701151*^9, 3.7115441484176598`*^9,
3.711544258756976*^9, 3.711544308648467*^9, 3.711544398970852*^9, {
3.711544517876993*^9, 3.711544528596183*^9}, 3.711544617800931*^9,
3.71154467611677*^9, 3.7115449056175957`*^9, 3.711544973122517*^9,
3.7115450232374153`*^9, {3.7115461715895643`*^9, 3.7115461978738794`*^9},
3.711546378654372*^9, 3.7115464866166263`*^9, 3.711546646026967*^9,
3.711546706203535*^9, 3.711546792537613*^9, 3.7115468619184113`*^9,
3.711546905436572*^9, 3.711547105600416*^9, 3.7115471883079624`*^9, {
3.7115478810244255`*^9, 3.7115479015368505`*^9}, 3.711547956553064*^9, {
3.7115479940672517`*^9, 3.711548019451707*^9}, 3.711548111812587*^9,
3.7115984568128357`*^9, 3.7128978306167116`*^9, 3.712899648106393*^9,
3.712900257491418*^9, 3.7129003981576796`*^9, 3.7129004956062455`*^9,
3.7129007991484137`*^9, 3.7129011941575212`*^9, 3.712901448531819*^9,
3.7129034712892637`*^9, 3.71290855573584*^9, 3.712913672024749*^9,
3.7129143248106403`*^9, {3.712918401931398*^9, 3.712918431143186*^9},
3.7129184815996876`*^9, 3.7129186277783146`*^9, {3.712918673648184*^9,
3.712918696341524*^9}, 3.7129187814412775`*^9, 3.7129188320983105`*^9, {
3.7129190556777077`*^9, 3.7129190802606306`*^9}, {3.7129191367756233`*^9,
3.712919153799265*^9}, 3.7129192808525753`*^9, 3.7129193152421722`*^9,
3.71292070214015*^9, 3.712920824502044*^9, 3.712920949267742*^9,
3.71292104492864*^9, 3.7129211062485046`*^9, 3.7129212027284975`*^9,
3.712921825568207*^9,
3.712921995532898*^9},ExpressionUUID->"82de0649-a8c0-4ee1-aec8-\
85cf7da207f8"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"outDir", " ", "=", " ",
RowBox[{"FileNameJoin", "[",
RowBox[{"{",
RowBox[{
RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<sim/current\>\""}],
"}"}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"If", "[",
RowBox[{
RowBox[{"!",
RowBox[{"DirectoryQ", "[", "outDir", "]"}]}], ",", " ",
RowBox[{"CreateDirectory", "[", "outDir", "]"}]}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Do", "[",
RowBox[{
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{
"isEliteBreed", ",", " ", "eliteList", ",", " ", "mutationList"}],
"}"}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{"isEliteBreed", " ", "=", " ",
RowBox[{
RowBox[{"RandomReal", "[", "]"}], "<", "pEliteBreed"}]}], ";",
"\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{"timeTotal", " ", "=", " ",
RowBox[{"AbsoluteTime", "[", "]"}]}], ";", "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{"timefitness", " ", "=", " ",
RowBox[{"AbsoluteTiming", "[", "\[IndentingNewLine]",
RowBox[{
RowBox[{"phenotypes", " ", "=", " ",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{"params", ",", " ", "points"}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{
RowBox[{"params", " ", "=", " ",
RowBox[{"GielisPhenotype", "[",
RowBox[{
RowBox[{
"genotypes", "\[LeftDoubleBracket]", "i",
"\[RightDoubleBracket]"}], ",", "resolution", ",", " ",
"paramRanges"}], " ", "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"points", " ", "=", " ",
RowBox[{"GielisScaled", "[",
RowBox[{"gielisPoints", ",",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
"imgDim", "\[LeftDoubleBracket]", "1",
"\[RightDoubleBracket]"}]}], "/", "2"}], ",",
RowBox[{
RowBox[{
"imgDim", "\[LeftDoubleBracket]", "1",
"\[RightDoubleBracket]"}], "/", "2"}]}], "}"}], ",", " ",
"params"}], "]"}]}]}]}], "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{"points", " ", "=", " ",
RowBox[{"GielisOffset", "[",
RowBox[{"gielisPoints", ",", " ", "params"}], "]"}]}],
"*)"}], "\[IndentingNewLine]", "]"}], ",", " ",
RowBox[{"{",
RowBox[{"i", ",", " ", "1", ",", "numGenoms"}], "}"}]}],
"]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{"imageFitness", " ", "=", " ",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"ffitfunc", "[", " ",
RowBox[{
"phenotypes", "\[LeftDoubleBracket]", "i",
"\[RightDoubleBracket]"}], "]"}], ",",
RowBox[{"{",
RowBox[{"i", ",", " ", "1", ",", "numGenoms"}], "}"}]}],
"]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"AppendTo", "[",
RowBox[{"allImageFitness", ",", " ", "imageFitness"}], "]"}], ";",
"\[IndentingNewLine]",
RowBox[{"distanceFitness", " ", "=", " ",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{"distances", ",", " ", "quantile"}], "}"}], ",",