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

Fixing previous issues and adding elitism as an option

Browse Source
This commit is contained in:
Mahran-Yousef 2020-06-18 22:38:45 -04:00
parent 6f930841fc
commit 1d12a36566
2 changed files with 48 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
src/propeller/gp.clj
View File

@ -22,21 +22,39 @@
"Main GP loop." "Main GP loop."
[{:keys [population-size max-generations error-function instructions [{:keys [population-size max-generations error-function instructions
max-initial-plushy-size] max-initial-plushy-size]
:as argmap}] :as argmap}]
(println "Starting GP with args:" argmap) (println "Starting GP with args:" argmap)
(loop [generation 0 (if
population (repeatedly (:elitism argmap)
population-size (loop [generation 0
#(hash-map :plushy population (repeatedly
(make-random-plushy instructions population-size
max-initial-plushy-size)))] #(hash-map :plushy
(let [evaluated-pop (sort-by :total-error (make-random-plushy instructions
(map (partial error-function argmap) max-initial-plushy-size)))]
population))] (let [evaluated-pop (sort-by :total-error
(report evaluated-pop generation) (map (partial error-function argmap)
(cond population))]
(zero? (:total-error (first evaluated-pop))) (println "SUCCESS") (report evaluated-pop generation)
(>= generation max-generations) nil (cond
:else (recur (inc generation) (zero? (:total-error (first evaluated-pop))) (println "SUCCESS")
(repeatedly population-size (>= generation max-generations) nil
#(new-individual evaluated-pop argmap))))))) :else (recur (inc generation)
(conj (repeatedly (- population-size 1)
#(new-individual evaluated-pop argmap)) (first evaluated-pop))))))
(loop [generation 0
population (repeatedly
population-size
#(hash-map :plushy
(make-random-plushy instructions
max-initial-plushy-size)))]
(let [evaluated-pop (sort-by :total-error
(map (partial error-function argmap)
population))]
(report evaluated-pop generation)
(cond
(zero? (:total-error (first evaluated-pop))) (println "SUCCESS")
(>= generation max-generations) nil
:else (recur (inc generation)
(repeatedly population-size
#(new-individual evaluated-pop argmap))))))))

21
src/propeller/variation.clj
View File

@ -31,7 +31,8 @@
(defn uniform-deletion (defn uniform-deletion
"Randomly deletes instructions from plushy at some rate." "Randomly deletes instructions from plushy at some rate."
[plushy UMADRate] [plushy UMADRate]
(remove (fn [x] (< (rand) (/ 1(+ 1 (/ 1 UMADRate))))) (remove (fn [x] (< (rand)
(/ 1 (+ 1 (/ 1 UMADRate)))))
plushy)) plushy))
(defn new-individual (defn new-individual
@ -41,10 +42,14 @@
{:plushy {:plushy
(let [prob (rand)] (let [prob (rand)]
(cond (cond
(< prob (:crossover (:variation argmap))) (crossover (:plushy (select-parent pop argmap)) (< prob (:crossover (:variation argmap)))
(:plushy (select-parent pop argmap))) (crossover (:plushy (select-parent pop argmap))
(< prob (+ (:crossover (:variation argmap)) (/ (:UMAD (:variation argmap)) 2))) (uniform-addition (:plushy (select-parent pop argmap)) (:plushy (select-parent pop argmap)))
(:instructions argmap) (< prob (+ (:crossover (:variation argmap))
(:UMADRate argmap)) (/ (:UMAD (:variation argmap)) 2)))
:else (uniform-deletion (:plushy (select-parent pop argmap)) (do (uniform-addition (:plushy (select-parent pop argmap))
(:UMADRate argmap))))}) (:instructions argmap)
(:UMADRate argmap))
(uniform-deletion (:plushy (select-parent pop argmap))
(:UMADRate argmap)))
:else (:plushy (select-parent pop argmap))))})