deepbeige 0.2.0

data/neural_net.rb

@@ -0,0 +1,174 @@
+require 'rubygems'
+require 'uuid'
+require 'node'
+
+class NeuralNet
+  attr_accessor :input, :id   
+  attr_reader :network       
+
+  def initialize
+    @id = UUID.new.to_s.split(':')[1].chop
+    @network = []
+  end
+    
+  def evaluate 
+    #we expect to find one input value in input for each of our input nodes
+    input_nodes = @network.first
+    
+    i = 0
+    input_nodes.each do |node|
+      node.input_value = @input[i]
+      i += 1
+    end
+    
+    @network.each do |tier|
+      tier.each do |node|
+        node.evaluate
+      end
+    end
+    
+    self.output
+  end  
+  
+  def output
+    @network.last
+  end
+  
+  def output_value
+    value = 0
+    self.output.each do |node|
+      value += node.output_value
+    end
+    value
+  end
+  
+  def generate inputs, outputs, tiers
+    @network = []
+    input_nodes = []
+    inputs.times do 
+      input_nodes << Node.new
+    end
+    if input_nodes.count > 0
+      @network << input_nodes
+    end
+    (tiers - 2).times do
+      tier = []
+      10.times do
+        tier << Node.new  
+      end
+      @network << tier
+    end
+    
+    output_nodes = []
+    outputs.times do
+      output_nodes << Node.new
+    end
+    if output_nodes.count >0
+      @network << output_nodes
+    end
+    link_tiers
+  end
+  
+  def fingerprint
+    topline = ""
+    fingerprint = ""
+    @network.each do |tier|
+      topline << "#{tier.count},"
+      tier.each do |node| 
+        fingerprint << node.fingerprint
+      end
+    end  
+    topline.chop + "\n" + fingerprint
+  end
+  
+  def reload fingerprint
+    #fingerprint contains an array of strings
+    i = 0
+    tiers = fingerprint[i].split(',').to_a
+    i += 1
+        
+    @network = []
+    tiers.each do |tier|
+      nodes = []
+      tier.to_i.times do
+        node_fingerprint = fingerprint[i]
+        i += 1
+        node = Node.new
+        node.reload node_fingerprint
+        nodes << node
+      end
+      @network << nodes
+    end
+  
+    link_tiers
+    true
+  end
+
+  #Nets can make small changes (mutations) to themselves
+  def mutate
+    #for the time being we won't take on
+    #the ability to mutate the number of
+    #nodes and their configuration
+    #focussing instead on simple node weight mutation
+    @network.each do |tier|
+      tier.each do |node|
+        node.mutate
+      end
+    end
+    self
+  end
+  
+  def clone
+    clone = NeuralNet.new
+    #iterate in through each tier
+    @network.each do |tier|
+      nodes = []
+      tier.each do |node|
+        cloned_node = node.clone
+        cloned_node.detatch_all_forward_nodes
+        nodes << cloned_node
+      end
+      clone.network << nodes
+    end
+    #now relink the network
+    clone.link_tiers
+    #and send back our clone
+    clone
+  end
+  
+  def save_to_file file
+    File.open(file, 'w')  do |f|
+       f.puts id
+       f.write(self.fingerprint) 
+    end
+  end
+  
+  def load_from_file file
+    fingerprint = []
+    File.open(file, 'r') do |f|
+      @id = f.gets.chop
+      while line = f.gets do
+        fingerprint << line
+      end
+    end
+    reload fingerprint
+  end
+  
+protected
+  def link_tiers
+    #first cut lets link every node on a tier to each node on the subsequent tier
+    i = 1
+    @network.each do |tier|
+      if i < @network.count
+        tier.each do |node|
+          j = 0
+          @network[i].each do |next_node|
+            node.attach_forward_node next_node, j
+            j += 1
+          end
+        end
+      end
+      i +=1
+    end
+  end
+end

data/node.rb

@@ -0,0 +1,106 @@
+class Node
+  attr_reader :forward_nodes, :output_value
+  attr_accessor :input_value, :deviation, :weights
+  def initialize
+    @forward_nodes = {}
+    @weights =[]
+    @input_value = 0
+    @deviation = rand / 4
+  end
+  #take our input value, pass it through our sigmoid function (tanh)
+  #and then pass on our output value to each of our forward nodes
+  def evaluate
+    @output_value = Math.tanh(@input_value)
+    #p "output value #{@output_value}"
+    @forward_nodes.each do |node, weight|
+      #p "weight #{weight} old input #{node.input_value}"
+      node.input_value += @output_value * weight
+      #p "new input #{node.input_value}"
+    end
+    @input_value = 0
+  end
+  
+  def attach_forward_node node, sequence
+    if @weights.count <= sequence
+      @weights << rand
+    end
+    
+    @forward_nodes[node] = @weights[sequence]
+  end
+  
+  def detatch_all_forward_nodes
+    @forward_nodes = {}
+  end
+  
+  def mutate
+    new_weights = []
+    @weights.each do |weight|
+      new_weights << gaussian_random * @deviation + weight   # new_random_number = gaussian_rand * standard_deviation + average
+    end
+    @weights = new_weights
+    if @forward_values
+      i = 0
+      @forward_values.each do |key,value|
+        @forward_values[key] = @weights[i]
+        i += 1
+      end
+    end
+    
+    #and now mutate the deviation
+    @deviation = (gaussian_random * @deviation)/2 + @deviation
+  end
+  
+  def breed
+  end
+  
+  def clone
+    clone = Node.new
+    
+    clone.deviation = self.deviation
+    @weights.each do |weight|
+      clone.weights << weight
+    end
+    
+    #being pure we clone the forward node refs as well
+    #although in practice these are about to be updated with new nodes
+    self.forward_nodes.each do |key,value| 
+      clone.forward_nodes[key] = value
+    end
+    
+    clone
+  end
+  
+  def fingerprint
+    fingerprint = "#{@deviation}:"
+    @weights.each do |weight|
+      fingerprint += "#{weight.to_s},"
+    end
+    fingerprint = fingerprint.chop + "\n"
+  end
+  
+  def reload fingerprint
+    self.detatch_all_forward_nodes
+    @weights = []
+    self.deviation = fingerprint.split(':')[0].to_f
+    if fingerprint.split(":").count == 2
+      fingerprint.split(":")[1].split(',').each do |weight|
+        @weights << weight.to_f
+      end
+    end
+  end
+  
+private  
+  def gaussian_random
+     u1 = u2 = w = g1 = g2 = 0  # declare
+     begin
+       u1 = 2 * rand - 1
+       u2 = 2 * rand - 1
+       w = u1 * u1 + u2 * u2
+     end while w >= 1
+      
+     w = Math::sqrt( ( -2 * Math::log(w)) / w )
+     g2 = u1 * w;
+     g1 = u2 * w;
+     # g1 is returned  
+  end
+end

data/noughts_and_crosses.rb

@@ -0,0 +1,141 @@
+require 'game'
+class NoughtsAndCrosses < Game
+  
+  attr_reader :winner, :move_list, :next_player
+  attr_accessor :quiet, :verbose
+  def initialize
+    @position = {:A1 => 0, :B1 => 0, :C1 => 0, :A2 => 0, :B2  => 0, :C2 => 0, :A3 => 0, :B3 => 0, :C3 => 0}
+    @next_player = 0
+    @move_list = []
+  end
+
+  def name
+    "NoughtsAndCrosses"
+  end
+  
+  def show_board
+    board = " - - - \n"
+    i = 0
+    @position.each do |move|
+      i += 1   
+      board += "|"
+      if move[1] == 0
+        board += " "
+      elsif move[1] == 1
+        board += "X"
+      else
+        board += "O"
+      end  
+
+      if i == 3
+        board += "|\n _ _ _\n"
+        i = 0
+      end   
+
+    end
+    board
+  end
+  
+  def legal_moves
+    legal_moves = []
+    @position.each do |move|
+      if move[1] == 0
+        legal_moves << move[0].to_s
+      end
+    end
+    legal_moves
+  end
+  
+  def play_move(player, move)
+    sym_move = move.to_sym
+    unless player == @next_player
+      display "not player #{player}'s turn"
+      return false
+    end
+    unless @position[sym_move] == 0
+      display "illegal move by player #{player}"
+      return false
+    end
+    if won?
+      display "player #{winner} has already won"
+      return false
+    elsif drawn?
+      display "game was drawn"
+      return false
+    end
+
+    @move_list << [player,move]
+    
+    if player == 1
+      @position[sym_move] = 1
+    else
+      @position[sym_move] = -1
+    end
+    if won?
+      display "player #{player} wins!"
+      @winner = player
+    elsif drawn?
+      display "game drawn"
+    end
+    
+    if @next_player == 1
+      @next_player = 0
+    else
+      @next_player = 1
+    end
+    if @verbose
+      display show_board
+      display @position
+    end
+    true      
+  end
+  
+  def current_position
+    return @position
+  end
+    
+  def won?
+    if @position[:A1] != 0
+      if @position[:A1] == @position[:A2] && @position[:A2] == @position[:A3]
+        return true
+      elsif @position[:A1] == @position[:B2] && @position[:B2] == @position[:C3]
+        return true
+      elsif @position[:A1] == @position[:B1] && @position[:B1] == @position[:C1]
+        return true
+      end
+    end
+    if @position[:B1] != 0
+      if @position[:B1] == @position[:B2] && @position[:B2] == @position[:B3]
+        return true
+      end
+    end
+    if @position[:C1] != 0
+      if @position[:C1] == @position[:C2] && @position[:C2] == @position[:C3]
+        return true
+      elsif @position[:C1] == @position[:B2] && @position[:B2] == @position[:A3]
+        return true
+      end
+    end
+    if @position[:A2] != 0
+      if @position[:A2] == @position[:B2] && @position[:B2] == @position[:C2]
+        return true
+      end
+    end
+    if @position[:A3] != 0
+      if @position[:A3] == @position[:B3] && @position[:B3] == @position[:C3]
+        return true
+      end
+    end
+    false
+  end
+  
+  def drawn?
+    unless legal_moves.count == 0
+      return false
+    end
+    if won?
+      return false
+    end
+    true
+  end
+end

data/pick_a_number.rb

@@ -0,0 +1,97 @@
+require 'game'
+
+class PickANumber < Game
+  
+  attr_reader :winner, :move_list, :next_player
+  attr_accessor :quiet, :verbose
+  def initialize
+    @position = {"1" => 0,"2" => 0, "3" => 0}
+    @next_player = 0
+    @move_list = []
+  end
+  
+  def name
+    "PickANumber"
+  end
+  
+  def legal_moves
+    legal_moves = []
+    @position.each do |move|
+      if move[1] == 0
+        legal_moves << move[0].to_s
+      end
+    end
+    legal_moves
+  end
+  
+  def show_board
+    board = "Please Pick from the following Numbers:\n"
+
+    @position.each do |move|
+      if move[1] == 0
+        board += "#{move[0]},"
+      end  
+    end
+    board +"\n"
+  end
+  
+  def play_move(player, move)
+    unless player == @next_player
+      display "not player #{player}'s turn"
+      return false
+    end
+    unless @position[move] == 0
+      display "illegal move by player #{player}"
+      return false
+    end
+    if won?
+      display "player #{winner} has already won"
+      return false
+    elsif drawn?
+      display "game was drawn"
+      return false
+    end
+
+    @move_list << [player,move]
+    
+    if player == 1
+      @position[move] = 1
+    else
+      @position[move] = -1
+    end
+    if won?
+      display "player #{player} wins!"
+      @winner = player
+    elsif drawn?
+      display "game drawn"
+    end
+    
+    if @next_player == 1
+      @next_player = 0
+    else
+      @next_player = 1
+    end
+    if @verbose
+      display @position
+    end
+    true      
+  end
+  
+  def current_position
+    return @position
+  end
+    
+  def won?
+    if @position["3"] != 0
+      return true
+    end
+    false
+  end
+  
+  def drawn?
+    if @position["2"] != 0
+      return true
+    end
+    false
+  end
+end

data/player.rb

@@ -0,0 +1,4 @@
+class Player
+  def initialize
+  end
+end

data/population/best.txt

@@ -0,0 +1,20 @@
+9,9,1
+1.9888959877114751:1.1713694063264486,0.2131550943633837,-1.4389857774549193,-2.3761064404471623,1.4125388307828852,1.7962657856192086,3.98673652586089,-0.710563267563527,-4.693733927431782
+-0.5537104997469708:4.353881179541187,-3.7749306975412615,3.9092173844936307,-1.5574066495330294,-1.9867317023123854,2.4016056161982515,0.19093366894771083,2.583574894805702,-0.7814428807197851
+-3.718402720378594:0.21375589104869108,-0.5952570280952669,3.163222183572866,-2.0666315462205604,1.8466894347641758,2.5737190736563127,0.09083797921525782,-1.7152005515495705,-1.9147906116034963
+-1.1774113223565559:0.9684176432281265,1.2633322113651906,0.9105205858738161,0.9952880033669778,2.428832023642873,1.1378171183057832,1.2346794709653666,1.614577823722882,-0.5727461748243102
+-4.240095691598348:5.619686966308787,2.496099436318761,4.236594219999468,-4.089909848411157,-8.583782402447191,7.909784634413837,3.709149525845639,-0.1221209138110586,-1.7739191236891263
+-0.45644848049775455:0.7525477703501269,0.4416094908434702,0.5151634042799693,0.6494784464984971,-0.21066540646710413,0.9328293326003011,0.4934365894119864,-0.5075989699963754,0.2534248521563641
+2.000438515839109:-0.18715599814429473,-4.079321241532847,3.0082374216290035,1.6554995963981736,1.2134208468740142,-0.7234607792621472,0.9168360804604427,-0.5284806911574953,3.6316017295618748
+0.9920544697574241:-0.15133215482382756,0.9977877837645512,-0.06456539820799904,-1.0288035250624143,0.9008138652841244,0.6826185088601288,0.8553527568600676,0.21975379677495055,1.0495630337690707
+3.8437737235828924:-2.429075885974877,3.0482320934712477,-9.512832982617503,-8.273686259303359,1.5413233764892178,-2.2156195050047747,-7.2849426757667315,5.202236097167509,-0.9365606034293558
+2.4821899389695874:2.1743832447567346
+-2.9564446473766672:-3.2541845089551904
+3.2605627963240384:-0.20795953070592393
+2.605813320828736:3.154050922464929
+-0.4579599997104075:2.349414728456047
+2.653465191369256:4.365018317781122
+0.6373485836872791:1.7163198231060346
+0.711515408592374:0.8702577537323323
+-1.7351499679943323:1.24799151515672
+2.902919261517124

data/table.rb

@@ -0,0 +1,22 @@
+#A Table is where players come to play a game (possibly as part of a match as part of a tournament if required)
+#Essentially a Table is a Game Controller
+class Table
+  attr_reader :players, :games
+  attr_accessor :quiet
+  
+  def initialize game, players
+    @game = game
+    @players = players
+  end
+  
+  def play_game
+    until @game.won? || @game.drawn?
+      next_player = @players[@game.next_player]
+      move = next_player.get_move @game.current_position, @game.move_list
+      unless @quiet
+        p "player #{@game.next_player} plays move #{move }"
+      end
+      @game.play_move @game.next_player, move
+    end
+  end
+end

data/test/helper.rb

@@ -0,0 +1,10 @@
+require 'rubygems'
+require 'test/unit'
+require 'shoulda'
+
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+require 'deepbeige'
+
+class Test::Unit::TestCase
+end

data/test/test_deepbeige.rb

@@ -0,0 +1,7 @@
+require 'helper'
+
+class TestDeepbeige < Test::Unit::TestCase
+  should "probably rename this file and start testing for real" do
+    flunk "hey buddy, you should probably rename this file and start testing for real"
+  end
+end

data/tournament.rb

@@ -0,0 +1 @@
+#A tournament is a series of matches between a set of players

data/ui/Rakefile

@@ -0,0 +1,5 @@
+require 'rubygems'
+require 'hotcocoa/application_builder'
+require 'hotcocoa/standard_rake_tasks'
+
+task :default => [:run]

data/ui/config/build.yml

@@ -0,0 +1,8 @@
+name: DeepBeige
+load: lib/application.rb
+version: "1.0"
+icon: resources/DeepBeige.icns
+resources:
+  - resources/**/*.*
+sources: 
+  - lib/**/*.rb

data/ui/lib/application.rb

@@ -0,0 +1,47 @@
+$Cocoa = true
+require 'rubygems'
+require 'hotcocoa'
+$: << File.expand_path(File.dirname(__FILE__)) + "/../../"
+require 'main.rb'
+
+
+class Application
+
+  include HotCocoa
+  
+  def start
+    application :name => "Deep Beige" do |app|
+      app.delegate = self
+      window :frame => [100, 100, 500, 500], :title => "Test" do |win|
+        win << label(:text => "Hello from Deep Beige", :layout => {:start => false})
+        win.will_close { exit }
+      end
+    end
+  end
+  
+  # file/open
+  def on_open(menu)
+  end
+  
+  # file/new 
+  def on_new(menu)
+  end
+  
+  # help menu item
+  def on_help(menu)
+  end
+  
+  # This is commented out, so the minimize menu item is disabled
+  #def on_minimize(menu)
+  #end
+  
+  # window/zoom
+  def on_zoom(menu)
+  end
+  
+  # window/bring_all_to_front
+  def on_bring_all_to_front(menu)
+  end
+end
+
+Application.new.start

data/ui/lib/menu.rb

@@ -0,0 +1,32 @@
+module HotCocoa
+  def application_menu
+    menu do |main|
+      main.submenu :apple do |apple|
+        apple.item :about, :title => "About #{NSApp.name}"
+        apple.separator
+        apple.item :preferences, :key => ","
+        apple.separator
+        apple.submenu :services
+        apple.separator
+        apple.item :hide, :title => "Hide #{NSApp.name}", :key => "h"
+        apple.item :hide_others, :title => "Hide Others", :key => "h", :modifiers => [:command, :alt]
+        apple.item :show_all, :title => "Show All"
+        apple.separator
+        apple.item :quit, :title => "Quit #{NSApp.name}", :key => "q"
+      end
+      main.submenu :file do |file|
+        file.item :new, :key => "n"
+        file.item :open, :key => "o"
+      end
+      main.submenu :window do |win|
+        win.item :minimize, :key => "m"
+        win.item :zoom
+        win.separator
+        win.item :bring_all_to_front, :title => "Bring All to Front", :key => "o"
+      end
+      main.submenu :help do |help|
+        help.item :help, :title => "#{NSApp.name} Help"
+      end
+    end
+  end
+end