EVOLVE

(defun evolve (ngenerations nmutations ncrossovers)

"Runs the genetic algorithm for NGENERATIONS times."

(setf *population* *initial-population*)

(dotimes (i ngenerations)

(dotimes (j nmutations)

(let ((mutated-one (mutate (random-individual))))

(add-individual mutated-one) ) )

(dotimes (j ncrossovers)

(let* ((individual1 (random-individual))

(individual2

(another-individual individual1) )

(crossing-result

(crossover individual1

individual2) ) )

(add-individual crossing-result) ) )

(format t "~%In generation ~D, population is: ~S.~%"

(1+ i) *population*)

) )

Previous slide

Next slide

Back to first slide

View graphic version