Add and delete gaps in :bmx, not just :bmx-umad

This commit is contained in:
Lee Spector 2023-12-08 18:39:13 -05:00
parent 9fa35c4562
commit 0a32938c2b

View File

@ -214,8 +214,11 @@ The function `new-individual` returns a new individual produced by selection and
(selection/select-parent pop argmap)) (selection/select-parent pop argmap))
plushy1 (:plushy parent1) plushy1 (:plushy parent1)
plushy2 (:plushy parent2) plushy2 (:plushy parent2)
bmx-exchange-rate (utils/onenum (or (:bmx-exchange-rate argmap) 0.5))] bmx-exchange-rate (utils/onenum (or (:bmx-exchange-rate argmap) 0.5))
(bmx plushy1 plushy2 bmx-exchange-rate)) gap-change-prob (utils/onenum (:bmx-gap-change-probability argmap))]
(-> (bmx plushy1 plushy2 bmx-exchange-rate)
(uniform-gap-addition gap-change-prob)
(uniform-gap-deletion gap-change-prob)))
; ;
:umad ;; uniform mutation by addition and deletion, see uniform-deletion for the :umad ;; uniform mutation by addition and deletion, see uniform-deletion for the
;; adjustment that makes this size neutral on average ;; adjustment that makes this size neutral on average