evosynth 0.1.0

data/lib/evosynth/operators/selections/n_stage_tournament_selection.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 Selections
+
+		# Q-STUFIGE-TURNIER-SELEKTION (Weicker Page 69)
+
+		class NStageTournamentSelection
+
+			attr_accessor :stages
+
+			DEFAULT_STAGES = 2
+
+			def initialize(stages = DEFAULT_STAGES)
+				@stages = stages
+			end
+
+			def select(population, select_count = 1)
+				selected_population = EvoSynth::Population.new
+
+				scores = calculate_scores(population)
+				scores = scores.sort { |first, second| first[0] <=> second[0] * -1 }
+				scores.first(select_count).each { |winner| selected_population.add(winner[1]) }
+
+				selected_population
+			end
+
+			def to_s
+				"n-stage tournament selection <stages: #{@stages}>"
+			end
+
+			private
+
+			def calculate_scores(population)
+				scores = []
+
+				population.each do |individual|
+					victories = fight(population, individual)
+					scores << [victories, individual]
+				end
+
+				scores
+			end
+
+			def fight(population, individual)
+				victories = 0
+
+				@stages.times do
+					enemy = population[EvoSynth.rand(population.size)]
+					victories += 1 if individual > enemy
+				end
+
+				victories
+			end
+
+		end
+
+	end
+
+end
+

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

@@ -0,0 +1,44 @@
+#	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
+
+		class RandomSelection
+
+			def select(population, select_count = 1)
+				selected_population = EvoSynth::Population.new
+				select_count.to_i.times { selected_population << population[EvoSynth.rand(population.size)] }
+				selected_population
+			end
+
+			def to_s
+				"select random individuals"
+			end
+
+		end
+
+	end
+
+end

data/lib/evosynth/operators/selections/roulette_wheel_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
+
+		# STOCHASTISCHES-UNIVERSELLES-SAMPLING (Weicker Page 75)
+
+		class RouletteWheelSelection < EvoSynth::Selections::FitnessProportionalSelection
+
+			def select(population, select_count = 1)
+				selected_population = EvoSynth::Population.new
+				fitness_hash = generate_fitness_hash(population)
+
+				limit = EvoSynth.rand(fitness_hash[population.size - 1] / select_count)
+
+				select_count.to_i.times do
+					next_individual = select_next_individual(population, limit, fitness_hash)
+					selected_population.add(next_individual)
+					limit += fitness_hash[population.size - 1] / select_count
+				end
+
+				selected_population
+			end
+
+			def to_s
+				"roulette wheel selection"
+			end
+
+		end
+	end
+end

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

@@ -0,0 +1,71 @@
+#	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
+
+		# TURNIER-SELEKTION (Weicker Page 76)
+
+		class TournamentSelection
+
+			attr_accessor :enemies
+
+			DEFAULT_ENEMIES = 2
+
+			def initialize(enemies = DEFAULT_ENEMIES)
+				@enemies = enemies
+			end
+
+			def select(population, select_count = 1)
+				selected_population = EvoSynth::Population.new
+
+				select_count.to_i.times do
+					individual = fight(population, population[EvoSynth.rand(population.size)])
+					selected_population.add(individual)
+				end
+
+				selected_population
+			end
+
+			def to_s
+				"tournament selection <enemies: #{@enemies}>"
+			end
+
+			private
+
+			def fight(population, individual)
+				@enemies.times do
+					enemy = population[EvoSynth.rand(population.size)]
+					individual = enemy if enemy > individual
+				end
+
+				individual
+			end
+
+		end
+
+	end
+
+end

data/lib/evosynth/output.rb

@@ -0,0 +1,28 @@
+#	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/output/logger'
+require 'evosynth/output/console_writer'
+require 'evosynth/output/exporter'
+require 'evosynth/output/factory'

data/lib/evosynth/output/console_writer.rb

@@ -0,0 +1,45 @@
+#	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 'observer'
+
+
+module EvoSynth
+	module Output
+
+		class ConsoleWriter
+
+			def initialize(step_size = 1)
+				@step_size = step_size
+			end
+
+			def update(logger, counter, line)
+				return unless counter % @step_size == 0
+				puts "#{line.join("\t")}"
+			end
+
+		end
+
+	end
+end

data/lib/evosynth/output/exporter.rb

@@ -0,0 +1,27 @@
+#	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/output/exporter/gnuplot_exporter'
+require 'evosynth/output/exporter/gruff_exporter'
+require 'evosynth/output/exporter/csv_exporter'

data/lib/evosynth/output/exporter/csv_exporter.rb

@@ -0,0 +1,62 @@
+#	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 'observer'
+
+
+module EvoSynth
+	module Output
+
+		class CSVExporter
+
+			def initialize(logger, write_header = false, separator = ',')
+				@logger = logger
+				@write_header = write_header
+				@separator = separator
+			end
+
+			def export(filename)
+				# Note: I see no advantage in using the 'csv' library for this
+
+				File.open(filename,  "w+") do |file|
+					if @write_header
+						file.write("counter")
+						file.write(@separator) unless @logger.column_names.nil?
+						file.write(@logger.column_names.join(@separator))
+						file.write("\n")
+					end
+
+					@logger.data.each_key do |key|
+						file.write(key)
+						file.write(@separator) unless @logger.data[key].nil?
+						file.write(@logger.data[key].join(@separator))
+						file.write("\n")
+					end
+				end
+			end
+
+		end
+
+	end
+end

data/lib/evosynth/output/exporter/gnuplot_exporter.rb

@@ -0,0 +1,81 @@
+#	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 'observer'
+
+
+module EvoSynth
+	module Output
+
+		# exports the contents (data) of a logger to gnuplot
+
+		class GnuPlotExporter
+
+			def initialize(logger)
+				begin
+					require 'gnuplot'
+				rescue
+					puts "Could not require 'gnuplot' gem, please install with gem install gnuplot"
+				end
+
+				@logger = logger
+			end
+
+			def export(title)
+				begin
+					Gnuplot.open do |gp|
+						Gnuplot::Plot.new( gp ) do |plot|
+
+							plot.title  title
+							# plot.ylabel "fitness"
+							# plot.xlabel "generation"
+
+							x, ys = [], []
+							data_sets = 0
+							@logger.data.each_pair do |key, value|
+								data_sets = value.size if value.size > data_sets
+								x << key
+								value.each_with_index do |y, index|
+									ys[index] = [] if ys[index].nil?
+									ys[index] << y
+								end
+							end
+
+							data_sets.times do |set|
+								plot.data << Gnuplot::DataSet.new( [x, ys[set]] ) do |ds|
+									ds.with = "lines"
+									ds.title = @logger.column_names[set]
+								end
+							end
+						end
+					end
+				rescue
+					puts "Could not run gnuplot - have you gnuplot installed? It does not work on windows yet!"
+				end
+			end
+
+		end
+
+	end
+end