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

Add variable umad (vumad) genetic operator; mul3 parameter experiments

Browse Source
This commit is contained in:
Lee Spector 2023-08-30 16:43:49 -04:00
parent b49ced0567
commit aeae30d0d4
2 changed files with 30 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
src/propeller/problems/boolean/mul3.cljc
View File

@ -173,13 +173,13 @@
:boolean_nand ;; defined here
:boolean_nor ;; defined here
:boolean_xnor ;; defined here
:boolean_dup
:boolean_swap
:boolean_rot
:boolean_pop
:exec_pop
:exec_dup
'close
;:boolean_dup
;:boolean_swap
;:boolean_rot
;:boolean_pop
;:exec_pop
;:exec_dup
;'close
true
false))
@ -238,13 +238,13 @@
:parent-selection :lexicase
;:parent-selection :tournament
:tournament-size 5
:umad-rate 0.1
;:variation {:umad 1}
:diploid true
:variation {:diploid-umad 0.8
:diploid-uniform-silent-replacement 0.1
:diploid-flip 0.1}
:replacement-rate 0.1
:diploid-flip-rate 0.1
:umad-rate 0.01
:variation {:vumad 1}
;:diploid true
;:variation {:diploid-umad 0.8
; :diploid-uniform-silent-replacement 0.1
; :diploid-flip 0.1}
;:replacement-rate 0.1
;:diploid-flip-rate 0.1
:elitism false}
(apply hash-map (map #(if (string? %) (read-string %) %) args)))))

24
src/propeller/variation.cljc
View File

@ -202,13 +202,13 @@ The function `new-individual` returns a new individual produced by selection and
(case op
:crossover
(crossover
(:plushy (selection/select-parent pop argmap))
(:plushy (selection/select-parent pop argmap)))
(:plushy (selection/select-parent pop argmap))
(:plushy (selection/select-parent pop argmap)))
;
:tail-aligned-crossover
(tail-aligned-crossover
(:plushy (selection/select-parent pop argmap))
(:plushy (selection/select-parent pop argmap)))
(:plushy (selection/select-parent pop argmap))
(:plushy (selection/select-parent pop argmap)))
;
:umad
(-> (:plushy (selection/select-parent pop argmap))
@ -229,6 +229,12 @@ The function `new-individual` returns a new individual produced by selection and
(uniform-deletion after-addition effective-addition-rate))
; Adds and deletes instructions in the parent genome with the same rate
:vumad ;; variable umad: :umad-rate is interpreted as max, actual uniform 0-max
(let [rate (rand (:umad-rate argmap))]
(-> (:plushy (selection/select-parent pop argmap))
(uniform-addition (:instructions argmap) rate)
(uniform-deletion rate)))
:uniform-addition
(-> (:plushy (selection/select-parent pop argmap))
(uniform-addition (:instructions argmap) (:umad-rate argmap)))
@ -247,13 +253,13 @@ The function `new-individual` returns a new individual produced by selection and
;
:diploid-crossover
(diploid-crossover
(:plushy (selection/select-parent pop argmap))
(:plushy (selection/select-parent pop argmap)))
(:plushy (selection/select-parent pop argmap))
(:plushy (selection/select-parent pop argmap)))
;
:tail-aligned-diploid-crossover
(tail-aligned-diploid-crossover
(:plushy (selection/select-parent pop argmap))
(:plushy (selection/select-parent pop argmap)))
(:plushy (selection/select-parent pop argmap))
(:plushy (selection/select-parent pop argmap)))
;
:diploid-umad
(-> (:plushy (selection/select-parent pop argmap))
@ -278,4 +284,4 @@ The function `new-individual` returns a new individual produced by selection and
:else
(throw #?(:clj (Exception. (str "No match in new-individual for " op))
:cljs (js/Error
(str "No match in new-individual for " op))))))})
(str "No match in new-individual for " op))))))})