evosynth 0.1.0

data/test/operators/selections/tc_tournament_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.
+
+
+require 'shoulda'
+
+require 'evosynth'
+require 'test/test_util/test_helper'
+
+
+class TournamentSelectionTest < Test::Unit::TestCase
+
+	SELECT_N_TIMES = 1000
+	DELTA = 0.05
+
+	context "when run on a population of minimizing individuals " do
+
+		should "select a super-individual" do
+			fitness_proportional_selection = EvoSynth::Selections::TournamentSelection.new
+			population = EvoSynth::Population.new
+			expected = EvoSynth::Population.new
+
+			population.add(TestMinimizingIndividual.new(10))
+			population.add(TestMinimizingIndividual.new(1))
+			population.add(TestMinimizingIndividual.new(1))
+
+			expected.add(TestMinimizingIndividual.new(1))
+
+			count = 0
+			SELECT_N_TIMES.times do
+				result = fitness_proportional_selection.select(population, 1)
+				count += 1 if expected != result
+			end
+			assert_in_delta 0, count, SELECT_N_TIMES * DELTA
+		end
+
+	end
+
+	context "when run on a population of maximizing individuals " do
+
+		should "select a super-individual" do
+			fitness_proportional_selection = EvoSynth::Selections::TournamentSelection.new
+			population = EvoSynth::Population.new
+			expected = EvoSynth::Population.new
+
+			population.add(TestMaximizingIndividual.new(1))
+			population.add(TestMaximizingIndividual.new(10))
+			population.add(TestMaximizingIndividual.new(10))
+
+			expected.add(TestMaximizingIndividual.new(10))
+
+			count = 0
+			SELECT_N_TIMES.times do
+				result = fitness_proportional_selection.select(population, 1)
+				count += 1 if expected != result
+			end
+			assert_in_delta 0, count, SELECT_N_TIMES * DELTA
+		end
+
+	end
+
+
+end

data/test/problems/tc_binary_benchmark_functions.rb

@@ -0,0 +1,126 @@
+#	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 'shoulda'
+
+require 'evosynth'
+
+
+class BenchmarkFunctionsTest < Test::Unit::TestCase
+
+	context "the count ones function" do
+
+		should "be zero at [0,0,0,0,0,0,0]" do
+			bs = [0,0,0,0,0,0,0]
+			assert_equal 0, EvoSynth::Problems::BinaryBenchmarkFuntions.count_ones(bs)
+		end
+
+		should "be zero at [false,false,false,false,false,false,false]" do
+			bs = [false,false,false,false,false,false,false]
+			assert_equal 0, EvoSynth::Problems::BinaryBenchmarkFuntions.count_ones(bs)
+		end
+
+		should "be [1,1,1,1,1,1,1].size at [1,1,1,1,1,1,1]" do
+			bs = [1,1,1,1,1,1,1]
+			assert_equal bs.size, EvoSynth::Problems::BinaryBenchmarkFuntions.count_ones(bs)
+		end
+
+		should "be [true,true,true,true,true,true,true].size at [true,true,true,true,true,true,true]" do
+			bs = [true,true,true,true,true,true,true]
+			assert_equal bs.size, EvoSynth::Problems::BinaryBenchmarkFuntions.count_ones(bs)
+		end
+
+		should "be [1,1,1,5,1,0,1].size - 2 at [1,1,1,5,1,0,1]" do
+			bs = [1,1,1,5,1,0,1]
+			assert_equal bs.size - 2, EvoSynth::Problems::BinaryBenchmarkFuntions.count_ones(bs)
+		end
+
+	end
+
+	context "the royal round function" do
+
+		should "be zero at [0,1,0,2,0,3,0,4] with k = 2" do
+			bs = [0,1,0,2,0,3,0,4]
+			assert_equal 0, EvoSynth::Problems::BinaryBenchmarkFuntions.royal_road(2, bs)
+		end
+
+		should "be 2 at [1,1,0,0,1,1,0,0] with k = 2" do
+			bs = [1,1,0,0,1,1,0,0]
+			assert_equal 2, EvoSynth::Problems::BinaryBenchmarkFuntions.royal_road(2, bs)
+		end
+
+		should "be 1 at  [1,1,1,1,0,0,0,0,1] with k = 2" do
+			bs = [1,1,1,1,0,0,0,0,1]
+			assert_equal 1, EvoSynth::Problems::BinaryBenchmarkFuntions.royal_road(4, bs)
+		end
+
+		should "be 1 at [1,1,1,1,1,1,1,1] with k = 8" do
+			bs = [1,1,1,1,1,1,1,1]
+			assert_equal 1, EvoSynth::Problems::BinaryBenchmarkFuntions.royal_road(8, bs)
+		end
+
+		should "be 2 at [1,1,1,1,1,1,1,1] with k = 4" do
+			bs = [1,1,1,1,1,1,1,1]
+			assert_equal 2, EvoSynth::Problems::BinaryBenchmarkFuntions.royal_road(4, bs)
+		end
+
+		should "be 4 at [1,1,1,1,1,1,1,1] with k = 2" do
+			bs = [1,1,1,1,1,1,1,1]
+			assert_equal 4, EvoSynth::Problems::BinaryBenchmarkFuntions.royal_road(2, bs)
+		end
+
+		should "be 8 at [1,1,1,1,1,1,1,1] with k = 1" do
+			bs = [1,1,1,1,1,1,1,1]
+			assert_equal 8, EvoSynth::Problems::BinaryBenchmarkFuntions.royal_road(1, bs)
+		end
+	end
+
+	context "the n-peaks function" do
+
+		should "be 1.0 in this case (integer)" do
+			peaks = [[0,0,0,0,0,0,0]]
+			xs = [0,0,0,0,0,0,0]
+			assert_equal 1.0, EvoSynth::Problems::BinaryBenchmarkFuntions.n_peaks(peaks, xs)
+		end
+
+		should "be 1.0 in this case (boolean)" do
+			peaks = [[false,false,false,false,false,false,false]]
+			xs = [false,false,false,false,false,false,false]
+			assert_equal 1.0, EvoSynth::Problems::BinaryBenchmarkFuntions.n_peaks(peaks, xs)
+		end
+
+		should "be 0.5 in this case (integer)" do
+			peaks = [[0,1,0,1,0,1,0,1],[1,1,1,1,1,1,0],[1,1,1,1,1,1,0]]
+			xs = [0,0,0,0,0,0,0,0]
+			assert_equal 0.5, EvoSynth::Problems::BinaryBenchmarkFuntions.n_peaks(peaks, xs)
+		end
+
+		should "be 0.5 in this case (mixed)" do
+			peaks = [[false,1,false,1,false,1,false,1],[1,1,1,1,1,1,false],[1,1,1,1,1,1,false]]
+			xs = [false,false,false,false,false,false,false,false]
+			assert_equal 0.5, EvoSynth::Problems::BinaryBenchmarkFuntions.n_peaks(peaks, xs)
+		end
+
+	end
+end

data/test/problems/tc_float_benchmark_functions.rb

@@ -0,0 +1,100 @@
+#	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 'shoulda'
+
+require 'evosynth'
+
+
+class BenchmarkFunctionsTest < Test::Unit::TestCase
+
+	context "the sinus_sum function" do
+
+		should "be near zero at [420.9687463, 420.9687463, 420.9687463]" do
+			xs = [420.9687463, 420.9687463, 420.9687463]
+			assert_in_delta 0, EvoSynth::Problems::FloatBenchmarkFuntions.sinus_sum(xs), 0.0001
+		end
+
+		should "be near 48.452841639435974 at [422.400, 418.840, 406.880, 421.700, 424.780, 412.740, 419.800, 416.000, 413.040, 417.620]" do
+			xs = [422.400, 418.840, 406.880, 421.700, 424.780, 412.740, 419.800, 416.000, 413.040, 417.620]
+			assert_in_delta 48.452841639435974, EvoSynth::Problems::FloatBenchmarkFuntions.sinus_sum(xs), 0.0001
+		end
+
+	end
+
+	context "the double_sum function" do
+
+		should "be near zero at [0,0,0,0,0,0,0]" do
+			xs = [0,0,0,0,0,0,0]
+			assert_in_delta 0, EvoSynth::Problems::FloatBenchmarkFuntions.double_sum(xs), 0.0001
+		end
+
+	end
+
+	context "the sphere function" do
+
+		should "be near zero at [0,0,0,0,0,0,0]" do
+			xs = [0,0,0,0,0,0,0]
+			assert_in_delta 0, EvoSynth::Problems::FloatBenchmarkFuntions.sphere(xs), 0.0001
+		end
+
+	end
+
+	context "the rastgrin function" do
+
+		should "be near zero at [0,0,0,0,0,0,0]" do
+			xs = [0,0,0,0,0,0,0]
+			assert_in_delta 0, EvoSynth::Problems::FloatBenchmarkFuntions.rastgrin(xs), 0.0001
+		end
+
+	end
+
+	context "the rosenbrock function" do
+
+		should "be near zero at [1,1,1,1,1,1,1]" do
+			xs = [1,1,1,1,1,1,1]
+			assert_in_delta 0, EvoSynth::Problems::FloatBenchmarkFuntions.rosenbrock(xs), 0.0001
+		end
+
+	end
+
+	context "the ackley function" do
+
+		should "be near zero at [0,0,0,0,0,0,0]" do
+			xs = [0,0,0,0,0,0,0]
+			assert_in_delta 0, EvoSynth::Problems::FloatBenchmarkFuntions.ackley(xs), 0.0001
+		end
+
+	end
+
+	context "the griewak function" do
+
+		should "be near zero at [0,0,0,0,0,0,0]" do
+			xs = [0,0,0,0,0,0,0]
+			assert_in_delta 0, EvoSynth::Problems::FloatBenchmarkFuntions.griewank(xs), 0.0001
+		end
+
+	end
+
+end

data/test/test_util/test_helper.rb

@@ -0,0 +1,128 @@
+#	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'
+
+class TestMutationA
+	attr_accessor :called
+	def initialize
+		@called = 0
+	end
+	def mutate(individual)
+		@called += 1
+		"A"
+	end
+end
+
+
+class TestMutationB
+	attr_accessor :called
+	def initialize
+		@called = 0
+	end
+	def mutate(individual)
+		@called += 1
+		"B"
+	end
+end
+
+class TestMutationC
+	attr_accessor :called
+	def initialize
+		@called = 0
+	end
+	def mutate(individual)
+		@called += 1
+		"C"
+	end
+end
+
+class TestRecombinationA
+	attr_accessor :called
+	def initialize
+		@called = 0
+	end
+	def recombine(parent_one, parent_two)
+		@called += 1
+		["RecA", "RecA"]
+	end
+end
+
+class TestRecombinationB
+	attr_accessor :called
+	def initialize
+		@called = 0
+	end
+	def recombine(parent_one, parent_two)
+		@called += 1
+		["RecB", "RecB"]
+	end
+end
+
+class TestMinimizingIndividual < EvoSynth::MinimizingIndividual
+
+	def initialize(fitness = 0.0)
+		@fitness = fitness
+		@genome = EvoSynth::ArrayGenome.new
+	end
+
+end
+
+
+class TestMaximizingIndividual < EvoSynth::MaximizingIndividual
+
+	def initialize(fitness = 0.0)
+		@fitness = fitness
+		@genome = EvoSynth::ArrayGenome.new
+	end
+
+end
+
+
+class TestBinaryGenomeIndividual < EvoSynth::MinimizingIndividual
+
+	def initialize(value)
+		@genome = EvoSynth::BinaryGenome.new(value)
+	end
+
+end
+
+
+class TestArrayBinaryIndividual < EvoSynth::MinimizingIndividual
+
+	def initialize(genome_size)
+		@genome = EvoSynth::ArrayGenome.new(genome_size)
+	end
+
+end
+
+
+class TestArrayGenomeIndividual < EvoSynth::MinimizingIndividual
+
+	def initialize(genes)
+		@fitness = 0.0
+		@genome = EvoSynth::ArrayGenome.new(genes)
+	end
+
+end

data/test/ts_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 'test/operators/adjustments/tc_predefined_adjustment'
+require 'test/operators/adjustments/tc_adaptive_adjustment'