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

Add autoconstructive hypervariability tournaments

Browse Source
This commit is contained in:
Lee Spector 2023-10-14 16:43:14 -04:00
parent 9f3c6f46ff
commit a8d046e52e
2 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -313,6 +313,7 @@
;:tournament-size 5 ;:tournament-size 5
:umad-rate 0.001 ;; ah-umad :umad-rate 0.001 ;; ah-umad
:ah-umad-rate 0.1 ;; ah-umad :ah-umad-rate 0.1 ;; ah-umad
:ah-umad-tournament-size 2 ;; ah-umad
;:umad-rate [1/2 ;:umad-rate [1/2
; 1/4 1/4 ; 1/4 1/4
; 1/8 1/8 1/8 ; 1/8 1/8 1/8

15
src/propeller/variation.cljc
View File

@ -302,10 +302,17 @@ The function `new-individual` returns a new individual produced by selection and
; ;
:ah-umad :ah-umad
(let [rate (utils/onenum (:umad-rate argmap)) (let [rate (utils/onenum (:umad-rate argmap))
ah-rate (utils/onenum (:ah-umad-rate argmap))] ah-rate (utils/onenum (:ah-umad-rate argmap))
(-> (:plushy (selection/select-parent pop argmap)) tourn-size (utils/onenum (:ah-umad-tournament-size argmap))
(ah-uniform-addition (:instructions argmap) rate ah-rate) parent-genome (:plushy (selection/select-parent pop argmap))
(ah-uniform-deletion rate ah-rate))) offspring (repeatedly
tourn-size
#(-> parent-genome
(ah-uniform-addition (:instructions argmap) rate ah-rate)
(ah-uniform-deletion rate ah-rate)))
hypervariabilities (map #(reduce + (ah-rates % 0 1))
offspring)]
(second (last (sort-by first (map vector hypervariabilities offspring)))))
; ;
:uniform-addition :uniform-addition
(-> (:plushy (selection/select-parent pop argmap)) (-> (:plushy (selection/select-parent pop argmap))