evosynth 0.1.0

data/lib/evosynth/operators/adjustments.rb

@@ -0,0 +1,26 @@
+#	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/adjustments/adaptive_adjustment'
+require 'evosynth/operators/adjustments/predefined_adjustment'

data/lib/evosynth/operators/adjustments/adaptive_adjustment.rb

@@ -0,0 +1,55 @@
+#	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 Adjustments
+
+		# ADAPTIVE-ANPASSUNG (Weicker page 113)
+
+		class AdaptiveAdjustment
+			attr_accessor :alpha, :theta
+
+			DEFAULT_ALPHA = 1.2
+			DEFAULT_THETA = 0.2
+			DEFAULT_SUCCESS_RATE = 0.0
+
+			def initialize(alpha = DEFAULT_ALPHA, theta = DEFAULT_THETA)
+				@alpha = alpha
+				@theta = theta
+			end
+
+			def adjust(sigma, success_rate = DEFAULT_SUCCESS_RATE)
+				if success_rate > @theta
+					sigma * @alpha
+				elsif success_rate < @theta
+					sigma / @alpha
+				else
+					sigma
+				end
+			end
+
+		end
+
+	end
+end

data/lib/evosynth/operators/adjustments/predefined_adjustment.rb

@@ -0,0 +1,46 @@
+#	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 Adjustments
+
+		# VORDEFINIERTE-ANPASSUNG (Weicker page 111)
+
+		class PredifinedAdjustment
+			attr_accessor :alpha
+
+			DEFAULT_ALPHA = 0.99
+
+			def initialize(alpha = DEFAULT_ALPHA)
+				@alpha = alpha
+			end
+
+			def adjust(sigma)
+				sigma * @alpha
+			end
+
+		end
+
+	end
+end

data/lib/evosynth/operators/global_recombinations.rb

@@ -0,0 +1,26 @@
+#	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/global_recombinations/global_uniform_crossover'
+require 'evosynth/operators/global_recombinations/global_arithmetic_crossover'

data/lib/evosynth/operators/global_recombinations/global_arithmetic_crossover.rb

@@ -0,0 +1,50 @@
+#	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 GlobalRecombinations
+
+		#	GLOBALER-ARITHMETISCHER-CROSSOVER (Weicker Page 138)
+
+		class GlobalArithmeticCrossover
+
+			def recombine(population)
+				child = population[EvoSynth.rand(population.size)].deep_clone
+
+				child.genome.each_index do |index|
+					sum = population.inject(0.0) { |sum, individual| sum += individual.genome[index] }
+					child.genome[index] = (1.0 / population.size) * sum
+				end
+
+				child
+			end
+
+			def to_s
+				"global arithmetic crossover"
+			end
+
+		end
+
+	end
+end

data/lib/evosynth/operators/global_recombinations/global_uniform_crossover.rb

@@ -0,0 +1,49 @@
+#	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 GlobalRecombinations
+
+		#	GLOBALER-UNIFORMER-CROSSOVER (Weicker Page 137)
+
+		class GlobalUniformCrossover
+
+			def recombine(population)
+				child = population[EvoSynth.rand(population.size)].deep_clone
+
+				child.genome.each_index do |index|
+					child.genome[index] = population[EvoSynth.rand(population.size)].genome[index]
+				end
+
+				child
+			end
+
+			def to_s
+				"global uniform crossover"
+			end
+
+		end
+
+	end
+end

data/lib/evosynth/operators/meta_operators.rb

@@ -0,0 +1,36 @@
+#	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
+
+	# All meta operators of EvoSynth should be inside this Module. A meta operator basically combines other operators
+	# in some way.
+
+	module MetaOperators
+	end
+end
+
+require 'evosynth/operators/meta_operators/proportional_combined_operator'
+require 'evosynth/operators/meta_operators/sequential_combined_operator'
+require 'evosynth/operators/meta_operators/conditional_combined_operator'

data/lib/evosynth/operators/meta_operators/conditional_combined_operator.rb

@@ -0,0 +1,65 @@
+#	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 MetaOperators
+
+		# TODO: document me, could be used to swap mutations after N generations
+
+		class ConditionalCombinedOperator
+
+			def initialize
+				@operators = []
+			end
+
+
+			# condition has to return boolean
+
+			def add(operator, &condition)
+				@operators << [operator, condition]
+				self
+			end
+
+			def method_missing(method_name, *args)
+				raise "no operator to call" if @operators.empty?
+
+				result = args
+				@operators.each do |operator|
+					result = operator[0].send(method_name, *result) if operator[1].call
+				end
+
+				result
+			end
+
+
+			def to_s
+				operators_to_s = []
+				@operators.each { |op| operators_to_s << "#{op[0].to_s} (probability: #{op[1]})" }
+				"conditional combinded operator <operators: #{operators_to_s.join(', ')}>"
+			end
+
+		end
+
+	end
+end

data/lib/evosynth/operators/meta_operators/proportional_combined_operator.rb

@@ -0,0 +1,84 @@
+#	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 MetaOperators
+
+		# This operator is a container for other operators. When ProportionalCombinedOperator gets called with a method,
+		# that it does not implement, each operator has a probability to get called with that method. Most likely
+		# you will combine mutations and recombinations and therefore mutate() or recombine() will get called.
+
+		class ProportionalCombinedOperator
+
+			def initialize(*ops)
+				@operators = []
+				ops.each { |operator| add(operator) }
+			end
+
+
+			def add(operator, probability = 1.0 / (@operators.size > 0 ? @operators.size : 1.0))
+				@operators << [operator, probability]
+				normalize_operator_probabilities
+				self
+			end
+
+
+			def method_missing(method_name, *args)
+				raise "no operator to call" if @operators.empty?
+
+				operator = nil
+				rand_value = EvoSynth.rand
+				sum = 0.0
+				@operators.each do |op|
+					sum += op[1];
+					operator = op[0];
+					break if sum >= rand_value
+				end
+
+				operator.send(method_name, *args)
+			end
+
+
+			def to_s
+				operators_to_s = []
+				@operators.each { |op| operators_to_s << "#{op[0].to_s} (probability: #{op[1]})" }
+				"proportional combinded operator <operators: #{operators_to_s.join(', ')}>"
+			end
+
+			private
+
+			# this function normalizes the given probabilities between 0.0 and 1.0
+
+			def normalize_operator_probabilities
+				sum = @operators.inject(0.0) { |sum, operator| sum += operator[1] }
+
+				if sum > 1.0
+					subtract = (sum - 1.0) / (@operators.size)
+					@operators.each { |operator| operator[1] -= subtract }
+				end
+			end
+		end
+
+	end
+end