evosynth 0.1.0

data/lib/evosynth/operators/recombinations/ordered_recombination.rb

@@ -0,0 +1,75 @@
+#	Copyright (c) 2009, 2010 Yves Adler <yves.adler@googlemail.com>
+#
+#	Permission is hereby granted, free of charge, to any person
+#	obtaining a copy of this software and associated documentation
+#	files (the "Software"), to deal in the Software without
+#	restriction, including without limitation the rights to use,
+#	copy, modify, merge, publish, distribute, sublicense, and/or sell
+#	copies of the Software, and to permit persons to whom the
+#	Software is furnished to do so, subject to the following
+#	conditions:
+#
+#	The above copyright notice and this permission notice shall be
+#	included in all copies or substantial portions of the Software.
+#
+#	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+#	EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+#	OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+#	NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+#	HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+#	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+#	FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+#	OTHER DEALINGS IN THE SOFTWARE.
+
+
+require 'set'
+
+
+module EvoSynth
+	module Recombinations
+
+		# ORDNUNGSREKOMBINATION (Weicker page 29)
+		# 
+		# this can only recombine permutations (see partially mapped crossover).
+		# at least it only works on genomes without duplicate genes!
+
+		class OrderedRecombination
+
+			def recombine(parent_one, parent_two)
+				shorter = EvoSynth::Recombinations.individual_with_shorter_genome(parent_one, parent_two)
+
+				child_one = recombine_to_one(parent_one, parent_two, shorter)
+				child_two = recombine_to_one(parent_two, parent_one, shorter)
+
+				[child_one, child_two]
+			end
+
+			def to_s
+				"ordered recombination"
+			end
+
+			private
+
+			def recombine_to_one(parent_one, parent_two, shorter)
+				child = parent_one.deep_clone
+
+				rand_index = EvoSynth.rand(shorter.genome.size)
+				used_genes = child.genome[0..rand_index].to_set
+
+				insert_index = rand_index + 1
+				parent_two.genome.each_with_index do |gene, index|
+					next if used_genes.include?(gene)
+
+					child.genome[insert_index] = gene
+					used_genes << gene
+					insert_index += 1
+					break if insert_index >= child.genome.size
+				end
+
+				child
+			end
+
+		end
+
+	end
+end

data/lib/evosynth/operators/recombinations/partially_mapped_crossover.rb

@@ -0,0 +1,102 @@
+#	Copyright (c) 2009, 2010 Yves Adler <yves.adler@googlemail.com>
+#
+#	Permission is hereby granted, free of charge, to any person
+#	obtaining a copy of this software and associated documentation
+#	files (the "Software"), to deal in the Software without
+#	restriction, including without limitation the rights to use,
+#	copy, modify, merge, publish, distribute, sublicense, and/or sell
+#	copies of the Software, and to permit persons to whom the
+#	Software is furnished to do so, subject to the following
+#	conditions:
+#
+#	The above copyright notice and this permission notice shall be
+#	included in all copies or substantial portions of the Software.
+#
+#	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+#	EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+#	OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+#	NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+#	HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+#	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+#	FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+#	OTHER DEALINGS IN THE SOFTWARE.
+
+
+require 'set'
+
+
+module EvoSynth
+	module Recombinations
+
+		# ABBILDUNGSREKOMBINATION (Weicker Page 133)
+		#
+		# this recombination can only combine permutations, at least
+		# it only works on genomes without duplicate genes!
+
+		class PartiallyMappedCrossover
+
+			def recombine(parent_one, parent_two)
+				shorter = EvoSynth::Recombinations.individual_with_shorter_genome(parent_one, parent_two)
+				indexes = rand_indexes(shorter)
+				child_one = recombine_to_one(parent_one, parent_two, indexes, shorter)
+				child_two = recombine_to_one(parent_two, parent_one, indexes, shorter)
+
+				[child_one, child_two]
+			end
+
+			def to_s
+				"mapping recombination"
+			end
+
+			private
+
+			def recombine_to_one(parent_one, parent_two, indexes, shorter)
+				child = parent_one.deep_clone
+				mapping = mapping_array(parent_one.genome, parent_two.genome)
+
+				index_one, index_two = indexes
+				range = (index_one..index_two)
+				child.genome[range] = parent_two.genome[range]
+				used_genes = parent_two.genome[range].to_set
+
+				range = 0..(index_one - 1)
+				fill_range(range, mapping, used_genes, parent_one, child)
+
+				range = (index_two + 1)..(shorter.genome.size - 1)
+				fill_range(range, mapping, used_genes, parent_one, child)
+
+				child
+			end
+
+			def fill_range(range, mapping, used_genes, parent, child)
+				range.each do |index|
+					gene = parent.genome[index]
+					first_gene = gene
+
+					while used_genes.include?(gene) do
+						gene = mapping[gene]
+						raise "duplicate gene in genome. would cause infinite loop!" if gene == first_gene
+					end
+
+					child.genome[index] = gene
+					used_genes << gene
+				end
+			end
+
+			def rand_indexes(shorter)
+				index_one = EvoSynth.rand(shorter.genome.size)
+				index_two = EvoSynth.rand(shorter.genome.size)
+				index_one, index_two = index_two, index_one if index_one > index_two
+				[index_one, index_two]
+			end
+
+			def mapping_array(genome_from, genome_to)
+				mapping = Hash.new
+				genome_from.each_with_index { |gene, index| mapping[gene] = genome_to[index] }
+				mapping
+			end
+
+		end
+
+	end
+end

data/lib/evosynth/operators/recombinations/uniform_crossover.rb

@@ -0,0 +1,54 @@
+#	Copyright (c) 2009, 2010 Yves Adler <yves.adler@googlemail.com>
+#
+#	Permission is hereby granted, free of charge, to any person
+#	obtaining a copy of this software and associated documentation
+#	files (the "Software"), to deal in the Software without
+#	restriction, including without limitation the rights to use,
+#	copy, modify, merge, publish, distribute, sublicense, and/or sell
+#	copies of the Software, and to permit persons to whom the
+#	Software is furnished to do so, subject to the following
+#	conditions:
+#
+#	The above copyright notice and this permission notice shall be
+#	included in all copies or substantial portions of the Software.
+#
+#	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+#	EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+#	OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+#	NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+#	HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+#	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+#	FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+#	OTHER DEALINGS IN THE SOFTWARE.
+
+
+module EvoSynth
+	module Recombinations
+
+		#	UNIFORMER-CROSSOVER (Weicker Page 80)
+
+		class UniformCrossover
+
+			def recombine(individual_one, individual_two)
+				child_one = individual_one.deep_clone
+				child_two = individual_two.deep_clone
+				shorter = EvoSynth::Recombinations.individual_with_shorter_genome(individual_one, individual_two)
+
+				shorter.genome.each_index do |index|
+					if EvoSynth.rand_bool
+						child_one.genome[index] = individual_two.genome[index]
+						child_two.genome[index] = individual_one.genome[index]
+					end
+				end
+
+				[child_one, child_two]
+			end
+
+			def to_s
+				"uniform crossover"
+			end
+
+		end
+
+	end
+end

data/lib/evosynth/operators/selections.rb

@@ -0,0 +1,31 @@
+#	Copyright (c) 2009, 2010 Yves Adler <yves.adler@googlemail.com>
+#
+#	Permission is hereby granted, free of charge, to any person
+#	obtaining a copy of this software and associated documentation
+#	files (the "Software"), to deal in the Software without
+#	restriction, including without limitation the rights to use,
+#	copy, modify, merge, publish, distribute, sublicense, and/or sell
+#	copies of the Software, and to permit persons to whom the
+#	Software is furnished to do so, subject to the following
+#	conditions:
+#
+#	The above copyright notice and this permission notice shall be
+#	included in all copies or substantial portions of the Software.
+#
+#	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+#	EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+#	OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+#	NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+#	HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+#	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+#	FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+#	OTHER DEALINGS IN THE SOFTWARE.
+
+
+require 'evosynth/operators/selections/fitness_proportional_selection'
+require 'evosynth/operators/selections/best_selection'
+require 'evosynth/operators/selections/n_stage_tournament_selection'
+require 'evosynth/operators/selections/tournament_selection'
+require 'evosynth/operators/selections/roulette_wheel_selection'
+require 'evosynth/operators/selections/random_selection'
+require 'evosynth/operators/selections/identity'

data/lib/evosynth/operators/selections/best_selection.rb

@@ -0,0 +1,54 @@
+#	Copyright (c) 2009, 2010 Yves Adler <yves.adler@googlemail.com>
+#
+#	Permission is hereby granted, free of charge, to any person
+#	obtaining a copy of this software and associated documentation
+#	files (the "Software"), to deal in the Software without
+#	restriction, including without limitation the rights to use,
+#	copy, modify, merge, publish, distribute, sublicense, and/or sell
+#	copies of the Software, and to permit persons to whom the
+#	Software is furnished to do so, subject to the following
+#	conditions:
+#
+#	The above copyright notice and this permission notice shall be
+#	included in all copies or substantial portions of the Software.
+#
+#	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+#	EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+#	OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+#	NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+#	HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+#	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+#	FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+#	OTHER DEALINGS IN THE SOFTWARE.
+
+
+module EvoSynth
+
+	module Selections
+
+		# BESTEN-SELEKTION (Weicker Page 65)
+
+		class SelectBest
+
+			def select(population, select_count = 1)
+				selected_population = EvoSynth::Population.new
+
+				if select_count > 1
+					best = population.best(select_count)
+					best.each { |individual| selected_population.add(individual) }
+				else
+					selected_population.add(population.best)
+				end
+
+				selected_population
+			end
+
+			def to_s
+				"select best individuals"
+			end
+
+		end
+
+	end
+
+end

data/lib/evosynth/operators/selections/fitness_proportional_selection.rb

@@ -0,0 +1,83 @@
+#	Copyright (c) 2009, 2010 Yves Adler <yves.adler@googlemail.com>
+#
+#	Permission is hereby granted, free of charge, to any person
+#	obtaining a copy of this software and associated documentation
+#	files (the "Software"), to deal in the Software without
+#	restriction, including without limitation the rights to use,
+#	copy, modify, merge, publish, distribute, sublicense, and/or sell
+#	copies of the Software, and to permit persons to whom the
+#	Software is furnished to do so, subject to the following
+#	conditions:
+#
+#	The above copyright notice and this permission notice shall be
+#	included in all copies or substantial portions of the Software.
+#
+#	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+#	EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+#	OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+#	NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+#	HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+#	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+#	FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+#	OTHER DEALINGS IN THE SOFTWARE.
+
+
+module EvoSynth
+
+	module Selections
+
+		# FITNESSPROPORTIONALE-SELETION (Weicker Page 71)
+
+		class FitnessProportionalSelection
+
+			def select(population, select_count = 1)
+				selected_population = EvoSynth::Population.new
+				fitness_hash = generate_fitness_hash(population)
+
+				select_count.to_i.times do
+					limit = EvoSynth.rand(fitness_hash.values.max).floor
+					next_individual = select_next_individual(population, limit, fitness_hash)
+					selected_population.add(next_individual)
+				end
+
+				selected_population
+			end
+
+			def to_s
+				"fitness proportional selection"
+			end
+
+			private
+
+			def generate_fitness_hash(population)
+				fitness_hash = {}
+				fitness_sum = 0.0
+
+				# we need to invert the fitnesse's only if we minimize!
+				max_fitness = population.worst.fitness if population[0].minimizes?
+
+				population.each_with_index do |individual, index|
+					if population[0].minimizes?
+						fitness_sum += max_fitness - individual.fitness + 1
+					else
+						fitness_sum += individual.fitness
+					end
+
+					fitness_sum = fitness_sum.infinite? * Float::MAX if fitness_sum.infinite?
+					fitness_hash[index] = fitness_sum
+				end
+
+				fitness_hash
+			end
+
+			def select_next_individual(population, limit, fitness_hash)
+				population.each_with_index do |individual, index|
+					return individual if fitness_hash[index] >= limit
+				end
+			end
+
+		end
+
+	end
+
+end

data/lib/evosynth/operators/selections/identity.rb

@@ -0,0 +1,48 @@
+#	Copyright (c) 2009, 2010 Yves Adler <yves.adler@googlemail.com>
+#
+#	Permission is hereby granted, free of charge, to any person
+#	obtaining a copy of this software and associated documentation
+#	files (the "Software"), to deal in the Software without
+#	restriction, including without limitation the rights to use,
+#	copy, modify, merge, publish, distribute, sublicense, and/or sell
+#	copies of the Software, and to permit persons to whom the
+#	Software is furnished to do so, subject to the following
+#	conditions:
+#
+#	The above copyright notice and this permission notice shall be
+#	included in all copies or substantial portions of the Software.
+#
+#	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+#	EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+#	OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+#	NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+#	HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+#	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+#	FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+#	OTHER DEALINGS IN THE SOFTWARE.
+
+
+module EvoSynth
+
+	module Selections
+
+		# Selects select_count (from beginning of population)
+
+		class Identity
+
+			def select(population, select_count = 1)
+				selected_population = EvoSynth::Population.new
+				selected_population << population.first(select_count)
+				selected_population.flatten!
+				selected_population
+			end
+
+			def to_s
+				"identity selection"
+			end
+
+		end
+
+	end
+
+end