evosynth 0.1.0

data/lib/evosynth/evolvers/evolution_strategies/adaptive_es.rb

@@ -0,0 +1,104 @@
+#	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'
+
+
+module EvoSynth
+	module Evolvers
+
+		# ES-ADAPTIV (Weicker Page 135)
+		# 
+		# TODO: rdoc (mutation and adjustment are fixed!)
+
+		class AdaptiveES
+			include EvoSynth::Evolvers::Evolver
+
+			attr_reader :success
+
+			DEFAULT_SIGMA = 0.1
+			DEFAULT_CHILD_FACTOR = 5
+			DEFAULT_MODIFICATION_FREQUENCY = 10
+			DEFAULT_MUTATION = EvoSynth::Mutations::GaussMutation.new(DEFAULT_SIGMA)
+			DEFAULT_PARENT_SELECTION = EvoSynth::Selections::RandomSelection.new
+			DEFAULT_ENV_SELECTION = EvoSynth::Selections::SelectBest.new
+			DEFAULT_ADJUSTMENT = EvoSynth::Adjustments::AdaptiveAdjustment.new
+
+			def initialize(profile)
+				init_profile :population,
+				    :evaluator,
+					:sigma					=> DEFAULT_SIGMA,
+				    :child_factor			=> DEFAULT_CHILD_FACTOR,
+				    :modification_frequency => DEFAULT_MODIFICATION_FREQUENCY,
+				    :enviromental_selection => DEFAULT_ENV_SELECTION,
+				    :parent_selection		=> DEFAULT_PARENT_SELECTION
+
+				use_profile profile
+				@adjustment = DEFAULT_ADJUSTMENT
+				@mutation = DEFAULT_MUTATION
+				@success = 0
+
+				@population.each { |individual| @evaluator.calculate_and_set_initial_fitness(individual) }
+			end
+
+			def to_s
+				"adaptive ES <sigma: #{@sigma}, success: #{@success}, mutation: #{@mutation}, parent selection: #{@parent_selection}, enviromental selection: #{@enviromental_selection}>"
+			end
+
+			def best_solution
+				@population.best
+			end
+
+			def worst_solution
+				@population.worst
+			end
+
+			def return_result
+				@population
+			end
+
+			def next_generation
+				child_population = EvoSynth::Population.new
+
+				(@child_factor * @population.size).times do
+					parent = @parent_selection.select(@population, 1).first
+					@mutation.sigma = @sigma
+					child = @mutation.mutate(parent)
+ 
+					@evaluator.calculate_and_set_fitness(child)
+					@success += 1 if child > parent
+					child_population << child
+				end
+
+				@population = @enviromental_selection.select(child_population, @population.size)
+				if @generations_computed % @modification_frequency == 0
+					success_rate =  @success / (@modification_frequency - (@child_factor * @population.size))
+					@sigma = @adjustment.adjust(@sigma, success_rate)
+					@success = 0
+				end
+			end
+		end
+
+	end
+end

data/lib/evosynth/evolvers/evolution_strategies/derandomized_es.rb

@@ -0,0 +1,120 @@
+#	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'
+
+
+module EvoSynth
+	module Evolvers
+
+		# DERANDOMISIERTE-ES (Weicker Page 139)
+		#
+		# TODO: rdoc
+
+		class DerandomizedES
+			include EvoSynth::Evolvers::Evolver
+
+			attr_reader :s
+
+			DEFAULT_SIGMA = 0.1
+			DEFAULT_ALPHA = 0.2
+			DEFAULT_TAU = 4		# Math.sqrt(genome.size) is a common value
+			DEFAULT_CHILD_FACTOR = 5
+			DEFAULT_MUTATION = EvoSynth::Mutations::GaussMutation.new(DEFAULT_SIGMA)
+			DEFAULT_RECOMBINATION = EvoSynth::GlobalRecombinations::GlobalArithmeticCrossover.new
+			DEFAULT_ENV_SELECTION = EvoSynth::Selections::SelectBest.new
+
+			def initialize(profile)
+				init_profile :population,
+				    :evaluator,
+					:sigma					=> DEFAULT_SIGMA,
+					:alpha					=> DEFAULT_ALPHA,
+					:tau					=> DEFAULT_TAU,
+				    :child_factor			=> DEFAULT_CHILD_FACTOR,
+				    :enviromental_selection => DEFAULT_ENV_SELECTION
+
+				use_profile profile
+				@mutation = DEFAULT_MUTATION
+				@recombination = DEFAULT_RECOMBINATION
+
+				genome_length = 0;
+				@population.each do |individual|
+					@evaluator.calculate_and_set_initial_fitness(individual)
+					genome_length = individual.genome.size if individual.genome.size > genome_length
+				end
+				@s = [0.0] * genome_length
+			end
+
+			def to_s
+				"derandomized ES <sigma: #{@sigma}, success: #{@success}, mutation: #{@mutation}, parent selection: #{@parent_selection}, enviromental selection: #{@enviromental_selection}>"
+			end
+
+			def best_solution
+				@population.best
+			end
+
+			def worst_solution
+				@population.worst
+			end
+
+			def return_result
+				@population
+			end
+
+			def next_generation
+				z = []
+				child_population = EvoSynth::Population.new
+				child = @recombination.recombine(@population)
+
+				(@child_factor * @population.size).times do
+					mutated_child = @mutation.mutate(child)
+					child_population << mutated_child
+
+					z = []
+					mutated_child.genome.each_with_index { |gene, index| z << gene - child.genome[index] }
+				end
+
+				child_population.each { |individual| @evaluator.calculate_and_set_fitness(individual) }
+				@population = @enviromental_selection.select(child_population, @population.size)
+
+				adjust_parameters(z)
+			end
+
+			private
+
+			def adjust_parameters(z)
+				# TODO: rename z and z_strich to something better
+				z_strich = 1.0 / @population.size * z.inject(0.0) { |sum, index| sum += index }
+
+				add_to_s = Math.sqrt(@alpha * (2 - @alpha) * @population.size) * z_strich
+				@s.each_index { |index|	@s[index] = (1 - @alpha) * @s[index] + add_to_s }
+
+				length_of_s = Math.sqrt( @s.inject(0.0) { |sum_of_pows, num| sum_of_pows += num**2 } )
+				@sigma = @sigma * Math.exp( (length_of_s**2 - @s.size) / (2 * @tau * @s.size))
+			end
+
+		end
+
+	end
+end

data/lib/evosynth/evolvers/evolution_strategies/selfadaptive_es.rb

@@ -0,0 +1,82 @@
+#	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 Evolvers
+
+		# ES-SELBSTADAPTIV (Weicker Page 135)
+
+		class SelfAdaptiveES
+			include EvoSynth::Evolvers::Evolver
+
+			DEFAULT_CHILD_FACTOR = 5
+			DEFAULT_MUTATION = EvoSynth::Mutations::SelfAdaptiveGaussMutation.new
+			DEFAULT_PARENT_SELECTION = EvoSynth::Selections::RandomSelection.new
+			DEFAULT_ENV_SELECTION = EvoSynth::Selections::SelectBest.new
+
+			def initialize(profile)
+				init_profile :population,
+				    :evaluator,
+				    :child_factor			=> DEFAULT_CHILD_FACTOR,
+				    :mutation				=> DEFAULT_MUTATION,
+				    :enviromental_selection => DEFAULT_ENV_SELECTION,
+				    :parent_selection		=> DEFAULT_PARENT_SELECTION
+
+				use_profile profile
+
+				@population.each { |individual| @evaluator.calculate_and_set_initial_fitness(individual) }
+			end
+
+			def to_s
+				"selfadaptive ES <mutation: #{@mutation}, parent selection: #{@parent_selection}, parent selection: #{@parent_selection}, enviromental selection: #{@enviromental_selection}>"
+			end
+
+			def best_solution
+				@population.best
+			end
+
+			def worst_solution
+				@population.worst
+			end
+
+			def return_result
+				@population
+			end
+
+			def next_generation
+				child_population = EvoSynth::Population.new
+
+				(@child_factor * @population.size).times do
+					parent = @parent_selection.select(@population, 1).first
+					child = @mutation.mutate(parent)
+					@evaluator.calculate_and_set_fitness(child)
+					child_population << child
+				end
+
+				@population = @enviromental_selection.select(child_population, @population.size)
+			end
+		end
+
+	end
+end

data/lib/evosynth/evolvers/evolver.rb

@@ -0,0 +1,43 @@
+#	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/evolvers/runnable_evolver'
+require 'evosynth/evolvers/profile_using_evolver'
+
+
+module EvoSynth
+	module Evolvers
+
+		# This Module provides some basic functionality for evolvers, its simply a union
+		# of RunnableEvolver and ProfileUsingEvolver. Every evolver should mix-in this
+		# module of provide similiar functionality to be compatible with the other classes
+		# and modules in EvoSynth.
+
+		module Evolver
+			include RunnableEvolver
+			include ProfileUsingEvolver
+		end
+
+	end
+end

data/lib/evosynth/evolvers/local_search/acceptance_great_deluge.rb

@@ -0,0 +1,60 @@
+#	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 Evolvers
+
+		class LocalSearch
+
+			# AKZEPTANZ-GD (Weicker Page 158)
+
+			class GreatDelugeAcceptance
+				attr_accessor :water, :rain_speed
+
+				DEFAULT_WATER_LEVEL = Float::MIN
+				DEFAULT_RAIN_SPEED = 1.0
+
+				def initialize(start_water_level = DEFAULT_WATER_LEVEL, rain_speed = DEFAULT_RAIN_SPEED)
+					@water = start_water_level
+					@rain_speed = rain_speed
+				end
+
+				def accepts(parent, child, generation)
+					if parent.maximizes?
+						child.fitness > @water + generation * @rain_speed
+					else
+						child.fitness < @water - generation * @rain_speed
+					end
+				end
+
+				def to_s
+					"Great Deluge Acceptance"
+				end
+
+			end
+
+		end
+
+	end
+end

data/lib/evosynth/evolvers/local_search/acceptance_hillclimber.rb

@@ -0,0 +1,47 @@
+#	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 Evolvers
+
+		class LocalSearch
+
+			# AKZEPTANZ-HC (Weicker Page 156)
+
+			class HillclimberAcceptance
+
+				def accepts(parent, child, generation)
+					child > parent
+				end
+
+				def to_s
+					"Hillclimber Acceptance"
+				end
+
+			end
+
+		end
+
+	end
+end