rowan.a.tl/propeller
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Implement :bmx-same-gene-count to select only second parents with same number of genes as first

Browse Source
This commit is contained in:
Lee Spector 2023-12-21 19:08:11 -05:00
parent 1e29f88405
commit d9e5523c99
1 changed files with 21 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
src/propeller/variation.cljc
View File

@ -232,13 +232,17 @@ The function `new-individual` returns a new individual produced by selection and
;
:bmx ;; best match crossover
(let [parent1 (selection/select-parent pop argmap)
parent2 (if (:bmx-complementary? argmap)
(selection/select-parent
pop
(assoc argmap
:initial-cases
(reverse (:selection-cases parent1))))
(selection/select-parent pop argmap))
parent2 (let [pool (if (:bmx-same-gene-count argmap)
(let [n (utils/count-genes (:plushy parent1))]
(filter #(= n (utils/count-genes (:plushy %))) pop))
pop)]
(if (:bmx-complementary? argmap)
(selection/select-parent
pool
(assoc argmap
:initial-cases
(reverse (:selection-cases parent1))))
(selection/select-parent pool argmap)))
plushy1 (:plushy parent1)
plushy2 (:plushy parent2)
bmx-exchange-rate (utils/onenum (or (:bmx-exchange-rate argmap) 0.5))
@ -259,12 +263,16 @@ The function `new-individual` returns a new individual produced by selection and
(let [umad-rate (utils/onenum (:umad-rate argmap))
gap-change-prob (utils/onenum (:bmx-gap-change-probability argmap))]
(-> (let [parent1 (selection/select-parent pop argmap)
parent2 (if (:bmx-complementary? argmap)
(selection/select-parent pop
(assoc argmap
:initial-cases
(reverse (:selection-cases parent1))))
(selection/select-parent pop argmap))
parent2 (let [pool (if (:bmx-same-gene-count argmap)
(let [n (utils/count-genes (:plushy parent1))]
(filter #(= n (utils/count-genes (:plushy %))) pop))
pop)]
(if (:bmx-complementary? argmap)
(selection/select-parent pool
(assoc argmap
:initial-cases
(reverse (:selection-cases parent1))))
(selection/select-parent pool argmap)))
plushy1 (:plushy parent1)
plushy2 (:plushy parent2)
bmx-exchange-rate (utils/onenum (or (:bmx-exchange-rate argmap) 0.5))