binary_matrix 0.0.1

data/README.md

@@ -0,0 +1,42 @@
+# BinaryMatrix
+[![Build Status](https://travis-ci.org/jjs0sbw/BinaryMatrix.svg?branch=master)](https://travis-ci.org/jjs0sbw/BinaryMatrix)
+
+An implementation of a binary matrix with Boolean operators.  This program is used to perform 
+Warfield Augumented Boolean Logic (WABL) operations.  WABL operations are a primary component
+system structural modeling.  More information is available at: 
+
+Systems Concepts web site:  http://systemsconcept.org/
+
+Github:  https://github.com/jjs0sbw/bsmp
+
+Github:  https://github.com/jjs0sbw/smp
+
+Wikipedia:  http://en.wikipedia.org/wiki/Logical_matrix
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+```ruby
+gem 'binary_matrix'
+```
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install binary_matrix
+
+## Usage
+
+Usage instructions are located at the above referenced web sites.
+
+## Contributing
+
+1. Fork it ( https://github.com/[my-github-username]/binary_matrix/fork )
+2. Create your feature branch (`git checkout -b my-new-feature`)
+3. Commit your changes (`git commit -am 'Add some feature'`)
+4. Push to the branch (`git push origin my-new-feature`)
+5. Create a new Pull Request

data/Rakefile

@@ -0,0 +1,8 @@
+require "bundler/gem_tasks"
+require "rspec/core/rake_task"
+
+RSpec::Core::RakeTask.new
+
+task :default => :spec
+task :test => :spec
+

data/binary_matrix.gemspec

@@ -0,0 +1,24 @@
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'binary_matrix/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = "binary_matrix"
+  spec.version       = BinaryMatrix::VERSION
+  spec.authors       = ["Joseph Simpson"]
+  spec.email         = ["jjs0sbw@gmail.com"]
+  spec.summary       = %q{Binary matrix with Boolean operators.}
+  spec.description   = %q{Binary matrix with Boolean operators that implements Warfield augumented Boolean logic.}
+  spec.homepage      = ""
+  spec.license       = "GPL3"
+
+  spec.files         = `git ls-files -z`.split("\x0")
+  spec.executables   = spec.files.grep(%r{^bin/}) { |f| File.basename(f) }
+  spec.test_files    = spec.files.grep(%r{^(test|spec|features)/})
+  spec.require_paths = ["lib"]
+
+  spec.add_development_dependency "bundler", "~> 1.6"
+  spec.add_development_dependency "rake", "~> 10.0"
+  spec.add_development_dependency "rspec"
+end

data/lib/binary_matrix.rb

@@ -0,0 +1,100 @@
+require "#{File.dirname(__FILE__)}/binary_matrix/version"
+require "#{File.dirname(__FILE__)}/matrix_index"
+require "#{File.dirname(__FILE__)}/binary_matrix_utilities"
+require "#{File.dirname(__FILE__)}/log_and_print"
+
+# Binary matrix class for Warfield Augumented Boolean Logic
+class BinaryMatrix
+  include Utilities
+  include LogAndPrint
+  attr_accessor :size, :number_of_rows, :number_of_columns, :bm, :bmi
+
+  def initialize(size)
+    @size = size
+    @number_of_rows = size
+    @number_of_columns = size
+    @bm = Array.new(size) { Array.new(size, 0) }
+    @bmi = MatrixIndex.new(size)
+  end
+
+  def add(matrix = bm)
+    sum = 0
+    matrix.each { |x| x.each { |y| sum += y } }
+    sum
+  end
+
+  def enter_cell_content(index_1, index_2, number = 1, matrix = bm, matrix_in = bmi.mi)
+    number = 0 if index_1 == index_2
+    r_1 = matrix_in.index(index_1)
+    r_2 = matrix_in.index(index_2)
+    matrix[r_1][r_2] = number
+    matrix
+  end
+
+  def boolean_add(matrix_one, matrix_two)
+    temp_matrix_one = matrix_one.dup
+    temp_matrix_two = matrix_two.dup
+    sz = (temp_matrix_two[0].length - 1)
+    temp_matrix_out = Array.new(sz + 1) { Array.new(sz + 1, 0) }
+    (0..sz).map do | x|
+      (0..sz).map do |y|
+        temp_matrix_out[x][y] = (temp_matrix_one[x][y] + temp_matrix_two[x][y])
+      end
+    end
+    boolean_map(temp_matrix_out)
+    temp_matrix_out
+  end
+
+  def boolean_subtract(matrix_one, matrix_two)
+    temp_matrix_one = matrix_one.dup
+    temp_matrix_two = matrix_two.dup
+    sz = (temp_matrix_two[0].length - 1)
+    temp_matrix_out = Array.new(size) { Array.new(size, 0) }
+    (0..sz).map do | x|
+      (0..sz).map do |y|
+        temp_matrix_out[x][y] = (temp_matrix_one[x][y] - temp_matrix_two[x][y])
+      end
+    end
+    boolean_map(temp_matrix_out)
+    temp_matrix_out
+  end
+
+  def boolean_multiply(matrix_one, matrix_two)
+    sz = (matrix_one[0].length - 1)
+    id_1 = id_matrix(size).dup
+    id_2 = id_matrix(size).dup
+    m_1 = boolean_add(id_1, matrix_one.dup)
+    m_2 = boolean_add(id_2, matrix_two.dup)
+    m_2_t = m_2.transpose
+    b_m_out = (0..sz).map do |j|
+      (0..sz).map { |i| m_1[j].zip(m_2_t[i]).map { |x, y| x * y }.inject(:+) }
+    end
+    boolean_map(b_m_out)
+    b_m_out
+  end
+
+  def expand(matrix, index_1)
+    new_matrix = expand_end(matrix)
+    last_index = new_matrix[0].length - 1
+    matrix_out = swap_row_column([index_1], [last_index], new_matrix)
+    matrix_out
+  end
+
+  def compress(index_1, index_2, matrix = bm, matrix_index = bmi.mi)
+    new_matrix = matrix.dup
+    i_1 = matrix_index.index(index_1)
+    i_2 = matrix_index.index(index_2)
+    a_1 = new_matrix[i_1]
+    a_2 = new_matrix[i_2]
+    a_c_1_2 = compress_array(a_1, a_2, i_1)
+    new_matrix[i_1] = a_c_1_2
+    new_matrix.delete_at(i_2)
+    new_matrix_t = new_matrix.transpose.dup
+    a_1_t = new_matrix_t[i_1]
+    a_2_t = new_matrix_t[i_2]
+    a_c_1_2_t = compress_array(a_1_t, a_2_t, i_1)
+    new_matrix_t[i_1] = a_c_1_2_t
+    new_matrix_t.delete_at(i_2)
+    new_matrix_t.transpose.dup
+  end
+end

data/lib/binary_matrix/version.rb

@@ -0,0 +1,3 @@
+class BinaryMatrix
+  VERSION = "0.0.1"
+end

data/lib/binary_matrix_utilities.rb

@@ -0,0 +1,93 @@
+# encoding : utf-8
+#
+# binary_matrix_utilities.rb
+# Utilities that support different output forms for a BinaryMatrix instance
+#
+# Copyright GPL 3 -- Joseph J. Simpson -- 2014 11-23-2014
+module Utilities
+  def boolean_map(matrix)
+    m_size = (matrix[0].length - 1)
+    (0..m_size).map do
+      |x| (0..m_size).map do
+        |y| matrix[x][y] > 1 ? matrix[x][y] = 1 : matrix[x][y]
+      end
+    end
+  end
+
+  def id_matrix(size)
+    id = Array.new(size) { Array.new(size, 0) }
+    id[0][0] = 1
+    (0..size - 1).map { |x| id[x][x] = 1 }
+    id
+  end
+
+  def compress_array(array_1, array_2, index_1)
+    sz = array_1.length - 1
+    a_1 = array_1.dup
+    a_2 = array_2.dup
+    a_out = []
+    (0..sz).each { |x| a_out[x] = a_1[x] + a_2[x] }
+    (0..sz).each { |x| a_out[x] > 1 ? a_out[x] = 1 : a_out[x] }
+    a_out[index_1] = 0 # change to index_1 may need to add index_2
+    a_out
+  end
+
+  def expand_end(matrix)
+    new_size = matrix[0].length
+    new_row = Array.new(new_size, 0)
+    new_matrix = matrix.dup
+    new_matrix << new_row
+    new_column = Array.new(new_size + 1, 0)
+    new_matrix_t = new_matrix.transpose.dup
+    new_matrix_t << new_column
+    matrix_out = new_matrix_t.transpose.dup
+    matrix_out
+  end
+
+  def swap_row_column(index_1, index_2, matrix = bm,  matrix_index = bmi.mi)
+    tm = matrix.dup
+    i1 = matrix_index.index(index_1)
+    i2 = matrix_index.index(index_2)
+    ta1 = tm[i1]
+    ta2 = tm[i2]
+    tm[i1] = ta2
+    tm[i2] = ta1
+    tmt = tm.transpose
+    tat1 = tmt[i1]
+    tat2 = tmt[i2]
+    tmt[i1] = tat2
+    tmt[i2] = tat1
+    tout = tmt.transpose.dup
+    tout
+  end
+
+  def swap_index(index_1, index_2, matrix_index)
+    tm = matrix_index.dup
+    i1 = bmi.mi.index(index_1)
+    i2 = bmi.mi.index(index_2)
+    ta1 = tm[i1]
+    ta2 = tm[i2]
+    tm[i1] = ta2
+    tm[i2] = ta1
+    tm.dup
+  end
+
+  def reachability_matrix(matrix)
+    tmp_matrix = matrix.dup
+    guard_num = 0
+    check_matrix_1 = boolean_multiply(tmp_matrix, tmp_matrix)
+    check_matrix_2 = boolean_multiply(check_matrix_1, check_matrix_1)
+    until boolean_subtract(check_matrix_1, check_matrix_2) == 0 || guard_num > 10
+      guard_num += 1
+      check_matrix_1 = boolean_multiply(check_matrix_2, check_matrix_2)
+      check_matrix_2 = boolean_multiply(check_matrix_1, check_matrix_1)
+    end
+    check_matrix_2
+  end
+
+  def subtract_id_matrix(matrix)
+    sz = (matrix[0].length - 1)
+    (0..sz).map { |x| matrix[x][x] = 0 }
+    matrix
+  end
+end

data/lib/log_and_print.rb

@@ -0,0 +1,18 @@
+# encoding : utf-8
+#
+# Utilities that support logging and printing
+#
+# Copyright GPL 3 -- Joseph J. Simpson -- 2014 11-27-2014
+# code to create log file
+module LogAndPrint
+  def  square_print_with_comment(comment, matrix = bm)
+    puts '  '
+    puts comment
+    puts matrix.to_a.map(&:inspect)
+    puts '  '
+  end
+
+  def write_log(log_name, data)
+    File.open(log_name, 'a+') { |f| f.write(data)  }
+  end
+end

data/lib/matrix_index.rb

@@ -0,0 +1,20 @@
+# encoding : utf-8
+#
+# An index of a binary matrix
+# Copyright GPL 3 -- Joseph J. Simpson -- 2014 11-22-2014
+class MatrixIndex
+  attr_accessor :mi
+  def initialize(size)
+    @mi = Array.new(size) { |i| Array.new(1, i + 1) }
+  end
+
+  def compress_index(index_1, index_2)
+    temp_mi = mi.dup
+    i1 = temp_mi.index([index_1])
+    i2 = temp_mi.index([index_2])
+    temp_mi[i1].push(temp_mi[i2])
+    temp_mi.delete_at(i2)
+    mi = temp_mi
+    mi
+  end
+end

data/spec/binary_matrix_general_spec.rb

@@ -0,0 +1,895 @@
+require File.expand_path("../../lib/binary_matrix.rb", __FILE__)
+require "#{File.dirname(__FILE__)}/spec_helper"
+require 'logger'
+
+describe BinaryMatrix do 
+  logger = Logger.new('general_log_one.txt')
+  logger.formatter = proc do |severity, datetime, progname, msg|
+    "Binary Matrix: #{msg}\n"
+  end
+  logger.info "\nThis is a info logging file for the general subordination matrix\n"
+  before :each do
+    @binary_matrix = BinaryMatrix.new(12)
+  end
+  describe "#new" do
+    it "takes one parameter and returns a BinaryMatrix object" do
+      expect(@binary_matrix).to be_a_kind_of(BinaryMatrix)
+    end
+
+    it "has a size of tweleve (12)" do
+      expect(@binary_matrix.size).to be == 12
+    end
+
+    it "has tweleve (12) rows in the matrix" do
+      expect(@binary_matrix.number_of_rows).to be == 12
+    end
+
+    it "has tweleve (12) columns in the matrix" do
+      expect(@binary_matrix.number_of_columns).to be == 12
+    end
+
+    it "has a two dimensional tweleve (12) by tweleve (12) array" do
+      expect(@binary_matrix.bm).to be_a_kind_of(Array)
+    end
+
+    it "bm array is filled with zeros" do
+      expect(@binary_matrix.add(@binary_matrix.bm)).to be == 0
+    end
+
+    it "has an matrix index" do
+      expect(@binary_matrix.bmi).to be_a_kind_of(MatrixIndex)
+    end
+  end 
+
+  describe "#add" do
+      it "will add up all the values in a matrix" do
+      temp_matrix = Array.new(4) { Array.new(4, 1)}
+      expect(@binary_matrix.add(temp_matrix)).to be == 16
+    end
+  end
+
+  describe "#enter_cell_content" do
+
+    it "will enter a one (1) into a matrix cell" do
+      @binary_matrix.enter_cell_content([2], [5])
+      expect(@binary_matrix.add).to be == 1
+    end
+
+    it "will enter a zero into the cell if the index numbers are the same" do
+      @binary_matrix.enter_cell_content([2], [2])
+      expect(@binary_matrix.add).to be == 0
+    end
+
+  end  
+
+  describe "#boolean_add" do
+    it "will add cell contents from two same size matrices" do
+      temp_matrix_1 = Array.new(10) { Array.new(10, 1) }
+      temp_matrix_2 = Array.new(10) { Array.new(10, 2) }
+      temp_matrix_out = Array.new(10) { Array.new(10, 0) }
+      temp_matrix_answer = Array.new(10) { Array.new(10, 1) }
+      temp_matrix_out = @binary_matrix.boolean_add(temp_matrix_1, temp_matrix_2)
+      expect(temp_matrix_out).to eq temp_matrix_answer
+    end
+  end
+
+  describe "#boolean_multiply" do
+    it "will multipley two square matrices together and return a Boolean matrix" do
+      temp_matrix_1 = Array.new(10) { Array.new(10, 0) }
+      temp_matrix_2 = Array.new(10) { Array.new(10, 0) }
+      temp_matrix_a1 = Array.new(10) { Array.new(10, 0) }
+      temp_matrix_a2 = @binary_matrix.id_matrix(10)
+      temp_matrix_answer = @binary_matrix.boolean_add(temp_matrix_a1, temp_matrix_a2)
+      temp_matrix_out = @binary_matrix.boolean_multiply(temp_matrix_1, temp_matrix_2)
+      expect(temp_matrix_out).to eq temp_matrix_answer
+    end
+  end
+
+  describe "#expand_end" do
+    it "will expand the matrix by one row and column at the end" do
+      temp_matrix_answer = Array.new(13) { Array.new(13, 0) }
+      expect(@binary_matrix.expand_end(@binary_matrix.bm)).to eq temp_matrix_answer
+    end
+  end
+
+  describe "#expand" do
+    it "will expand the matrix inserting a row and column at the given index " do
+      temp_matrix_answer = Array.new(13) { Array.new(13, 0) }
+      expect(@binary_matrix.expand(@binary_matrix.bm, 4)).to eq temp_matrix_answer
+    end
+  end
+
+  describe "#compress" do
+    it "will compress two rows and columns into one" do
+      temp_matrix_answer = Array.new(11) { Array.new(11, 0) }
+      expect(@binary_matrix.compress([2], [6])).to eq temp_matrix_answer # added brackets
+    end
+  end
+
+  describe "#square_print_with_comment" do
+    it "will print the matrix in a square format with a commnet" do
+      expect { print "test one" }.to output("test one").to_stdout
+    end
+    it "will print the matrix in a square format with a commnet" do
+      expect { @binary_matrix.square_print_with_comment("testOne", \
+        @binary_matrix.bm)}.to output("  \ntestOne
+[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
+[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
+[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
+[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
+[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
+[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
+[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
+[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
+[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
+[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
+[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
+[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
+  \n").to_stdout
+    end
+  end 
+
+   describe "#write_log" do
+      it "will log the matrix in a square format with a comment to a local file" do
+        puts "\n Binary Matrix .. General\n"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\n Enter base binary matrix.. General\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        "#{@binary_matrix.bmi.mi.to_a{ logger.info inspect } }"
+      end
+    end
+    
+    # 1 and 10 were randomly selected to as the first set to compare
+    # City 1 and city 10 are at the same level, so the rows and columns must be merged
+    describe "#compress" do
+      it "will compress two rows and columns into one" do
+        @binary_matrix.bm = @binary_matrix.compress([1], [10])
+        @binary_matrix.bmi.mi = @binary_matrix.bmi.compress_index(1, 10)
+        puts "Compress rows columns 1 and 10\n"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nCompress rows and columns 1 and 10\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end
+
+      describe "#enter_cell_content" do
+      it "will enter a 1 into the selected matrix cell" do
+        @binary_matrix.bm = @binary_matrix.compress([1], [10])
+        @binary_matrix.bmi.mi = @binary_matrix.bmi.compress_index(1, 10)
+        @binary_matrix.enter_cell_content([1, [10]], [8], 1, @binary_matrix.bm)
+        puts "Enter 8 is north of 1\n"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nEnter 8 is north of 1\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end
+
+      describe "#swap_row_column" do
+      it "will swap selected rows and columns to create proper alignment" do
+        @binary_matrix.bm = @binary_matrix.compress([1], [10])
+        @binary_matrix.bmi.mi = @binary_matrix.bmi.compress_index(1, 10)
+        @binary_matrix.enter_cell_content([1, [10]], [8], 1, @binary_matrix.bm)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([1, [10]], [8], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([1, [10]], [8], @binary_matrix.bmi.mi)
+        puts "Swap rows and columns 1 and 8"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nSwap rows and columns 1 and 8\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end
+
+      describe "#enter_cell_content" do
+      it "will enter a 1 into the selected matrix cell" do
+        @binary_matrix.bm = @binary_matrix.compress([1], [10])
+        @binary_matrix.bmi.mi = @binary_matrix.bmi.compress_index(1, 10) 
+        @binary_matrix.enter_cell_content([1, [10]], [8], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([1, [10]], [8], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([1, [10]], [8], @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([12], [8], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        puts "Enter 8 is north of 12"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nEnter 8 is north of 12\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end
+
+      describe "#enter_cell_content" do
+      it "will enter a 1 into the selected matrix cell" do
+        @binary_matrix.bm = @binary_matrix.compress([1], [10])
+        @binary_matrix.bmi.mi = @binary_matrix.bmi.compress_index(1, 10) 
+        @binary_matrix.enter_cell_content([1, [10]], [8], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([1, [10]], [8], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([1, [10]], [8], @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([12], [8], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([12], [5], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        puts "Enter 5 is north of 12"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nEnter 5 is north of 12\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end
+
+      describe "#enter_cell_content" do
+      it "will enter a 1 into the selected matrix cell" do
+        @binary_matrix.bm = @binary_matrix.compress([1], [10])
+        @binary_matrix.bmi.mi = @binary_matrix.bmi.compress_index(1, 10) 
+        @binary_matrix.enter_cell_content([1, [10]], [8], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([1, [10]], [8], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([1, [10]], [8], @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([12], [8], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([12], [5], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([3], [5], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        puts "Enter 5 is north of 3"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nEnter 5 is north of 3\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end
+          
+      describe "#swap_row_column" do
+      it "will swap the selected rows and columns" do
+        @binary_matrix.bm = @binary_matrix.compress([1], [10])
+        @binary_matrix.bmi.mi = @binary_matrix.bmi.compress_index(1, 10) 
+        @binary_matrix.enter_cell_content([1, [10]], [8], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([1, [10]], [8], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([1, [10]], [8], @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([12], [8], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([12], [5], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([3], [5], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([3], [5], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([3], [5], @binary_matrix.bmi.mi)
+        puts "Swap row column 3 and 5"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nSwap row column 3 and 5\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end    
+
+      def part_one
+        @binary_matrix.bm = @binary_matrix.compress([1], [10])
+        @binary_matrix.bmi.mi = @binary_matrix.bmi.compress_index(1, 10) 
+        @binary_matrix.enter_cell_content([1, [10]], [8], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([1, [10]], [8], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([1, [10]], [8], @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([12], [8], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([12], [5], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([3], [5], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([3], [5], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([3], [5], @binary_matrix.bmi.mi)
+      end
+          
+
+      describe "#enter_cell_content" do
+      it "will place a one in the selected matrix cell" do
+        part_one
+        @binary_matrix.enter_cell_content([4], [3], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        puts "Enter 3 is north of 4"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nEnter 3 is north of 4\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end      
+
+      
+      describe "#swap_row_column" do
+      it "will swap the selected row and column" do
+        part_one
+        @binary_matrix.enter_cell_content([4], [3], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([4], [3], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([4], [3], @binary_matrix.bmi.mi)
+        puts "Swap row column 4 and 3"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nSwap row column 4 and 3\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end     
+
+
+      describe "#enter_cell_content" do
+      it "will enter a 1 into the selected matrix cell" do
+        part_one
+        @binary_matrix.enter_cell_content([4], [3], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([4], [3], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([4], [3], @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([4], [7], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        puts "Enter 7 is north of 4"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nEnter 7 is north of 4\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end            
+
+      describe "#swap_row_column" do
+      it "will swap the selected rows and columns" do
+        part_one
+        @binary_matrix.enter_cell_content([4], [3], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([4], [3], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([4], [3], @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([4], [7], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([4], [7], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([4], [7], @binary_matrix.bmi.mi)
+        puts "Swap rows and columns 4 and 7"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nSwap rows and columns 4 and 7\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end     
+
+
+      describe "#enter_cell_content" do
+      it "will enter a 1 in the selected matrix cell" do
+        part_one
+        @binary_matrix.enter_cell_content([4], [3], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([4], [3], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([4], [3], @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([4], [7], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([4], [7], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([4], [7], @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([7], [11], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        puts "Enter 11 is north of 7"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nEnter 11 is north of 7\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end                               
+            
+      describe "#swap_row_column" do
+      it "will swap the selected matrix cell" do
+        part_one
+        @binary_matrix.enter_cell_content([4], [3], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([4], [3], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([4], [3], @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([4], [7], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([4], [7], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([4], [7], @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([7], [11], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([7], [11], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([7], [11], @binary_matrix.bmi.mi)
+        puts "Swap rows columns 11 and 7"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nSwap rows columns 11 and 7\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end              
+
+      describe "#swap_row_column" do
+      it "will swap the selected matrix cell" do
+        part_one
+        @binary_matrix.enter_cell_content([4], [3], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([4], [3], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([4], [3], @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([4], [7], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([4], [7], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([4], [7], @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([7], [11], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([7], [11], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([7], [11], @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([4], [11], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([4], [11], @binary_matrix.bmi.mi)
+        puts "Swap rows columns 11 and 4"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nSwap rows columns 11 and 4\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end  
+
+      describe "#swap_row_column" do
+      it "will swap the selected matrix cell" do
+        part_one
+        @binary_matrix.enter_cell_content([4], [3], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([4], [3], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([4], [3], @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([4], [7], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([4], [7], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([4], [7], @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([7], [11], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([7], [11], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([7], [11], @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([4], [11], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([4], [11], @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([4], [7], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([4], [7], @binary_matrix.bmi.mi)
+        puts "Swap rows columns 7 and 4"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nSwap rows columns 7 and 4\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end      
+
+      describe "#swap_row_column" do
+      it "will swap the selected matrix cell" do
+        part_one
+        @binary_matrix.enter_cell_content([4], [3], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([4], [3], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([4], [3], @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([4], [7], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([4], [7], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([4], [7], @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([7], [11], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([7], [11], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([7], [11], @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([4], [11], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([4], [11], @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([4], [7], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([4], [7], @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([7], [11], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([7], [11], @binary_matrix.bmi.mi)
+        puts "Swap rows columns 11 and 7"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nSwap rows columns 11 and 7\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end                                                                                                                                                                                                                                                                                            
+                                      
+      def part_two
+        part_one
+        @binary_matrix.enter_cell_content([4], [3], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([4], [3], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([4], [3], @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([4], [7], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([4], [7], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([4], [7], @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([7], [11], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([7], [11], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([7], [11], @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([4], [11], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([4], [11], @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([4], [7], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([4], [7], @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([7], [11], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([7], [11], @binary_matrix.bmi.mi)
+      end                                
+      
+
+      describe "#enter_cell_content" do
+      it "will enter a 1 in the selected matrix cell" do
+        part_two
+        @binary_matrix.enter_cell_content([6], [11], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.reachability_matrix(@binary_matrix.bm) # infer data
+        @binary_matrix.bm = @binary_matrix.subtract_id_matrix(@binary_matrix.bm)
+        puts "Enter 11 is north of 6"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nEnter 11 is north of 6\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end          
+
+      describe "#enter_cell_content" do
+      it "will enter a 1 in the selected matrix cell" do
+        part_two
+        @binary_matrix.enter_cell_content([6], [11], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.reachability_matrix(@binary_matrix.bm) # infer data
+        @binary_matrix.bm = @binary_matrix.subtract_id_matrix(@binary_matrix.bm)
+        @binary_matrix.enter_cell_content([6], [9], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([6], [9], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([6], [9], @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.reachability_matrix(@binary_matrix.bm) # infer data
+        @binary_matrix.bm = @binary_matrix.subtract_id_matrix(@binary_matrix.bm)
+        puts "Enter 9 is north of 6"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nEnter 9 is north of 6\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end                                                                                                                                      
+
+      describe "#enter_cell_content" do
+      it "will enter a 1 in the selected matrix cell" do
+        part_two
+        @binary_matrix.enter_cell_content([6], [11], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.reachability_matrix(@binary_matrix.bm) # infer data
+        @binary_matrix.bm = @binary_matrix.subtract_id_matrix(@binary_matrix.bm)
+        @binary_matrix.enter_cell_content([6], [9], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([6], [9], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([6], [9], @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.reachability_matrix(@binary_matrix.bm) # infer data
+        @binary_matrix.bm = @binary_matrix.subtract_id_matrix(@binary_matrix.bm)
+        @binary_matrix.enter_cell_content([9], [2], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.reachability_matrix(@binary_matrix.bm) # infer data
+        @binary_matrix.bm = @binary_matrix.subtract_id_matrix(@binary_matrix.bm)
+        puts "Enter 2 is north of 9"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nEnter 2 is north of 9\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end    
+
+      def part_three
+        part_two
+        @binary_matrix.enter_cell_content([6], [11], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.reachability_matrix(@binary_matrix.bm) # infer data
+        @binary_matrix.bm = @binary_matrix.subtract_id_matrix(@binary_matrix.bm)
+        @binary_matrix.enter_cell_content([6], [9], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([6], [9], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([6], [9], @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.reachability_matrix(@binary_matrix.bm) # infer data
+        @binary_matrix.bm = @binary_matrix.subtract_id_matrix(@binary_matrix.bm)
+        @binary_matrix.enter_cell_content([9], [2], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.reachability_matrix(@binary_matrix.bm) # infer data
+        @binary_matrix.bm = @binary_matrix.subtract_id_matrix(@binary_matrix.bm)
+      end
+
+      describe "#enter_cell_content" do
+      it "will enter a 1 in the selected matrix cell" do
+        part_three
+        @binary_matrix.enter_cell_content([2], [8], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.reachability_matrix(@binary_matrix.bm) # infer data
+        @binary_matrix.bm = @binary_matrix.subtract_id_matrix(@binary_matrix.bm) 
+        puts "Enter 2 is north of 8"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nEnter 2 is north of 8\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end   
+
+      describe "#enter_cell_content" do
+      it "will enter a 1 in the selected matrix cell" do
+        part_three
+        @binary_matrix.enter_cell_content([2], [8], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.reachability_matrix(@binary_matrix.bm) # infer data
+        @binary_matrix.bm = @binary_matrix.subtract_id_matrix(@binary_matrix.bm) 
+        @binary_matrix.enter_cell_content([5], [2], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.reachability_matrix(@binary_matrix.bm) # infer data
+        @binary_matrix.bm = @binary_matrix.subtract_id_matrix(@binary_matrix.bm) 
+        puts "Enter 2 is north of 5"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nEnter 2 is north of 5\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end    
+
+      describe "#compress" do
+      it "will compress row columns 5 and 11 into row columns 5" do
+        part_three
+        @binary_matrix.enter_cell_content([2], [8], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.reachability_matrix(@binary_matrix.bm) # infer data
+        @binary_matrix.bm = @binary_matrix.subtract_id_matrix(@binary_matrix.bm) 
+        @binary_matrix.enter_cell_content([5], [2], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.reachability_matrix(@binary_matrix.bm) # infer data
+        @binary_matrix.bm = @binary_matrix.subtract_id_matrix(@binary_matrix.bm) 
+        @binary_matrix.bm = @binary_matrix.compress([5], [11])
+        @binary_matrix.bmi.mi = @binary_matrix.bmi.compress_index(5, 11)
+        @binary_matrix.bm = @binary_matrix.reachability_matrix(@binary_matrix.bm) # infer data
+        @binary_matrix.bm = @binary_matrix.subtract_id_matrix(@binary_matrix.bm) 
+        puts "Compress 5 and 11 into 5"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nCompress 5 and 11 into 5\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end      
+
+      describe "#enter_cell_content" do
+      it "will enter a 1 into the selected matrix cell" do
+        part_three
+        @binary_matrix.enter_cell_content([2], [8], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.reachability_matrix(@binary_matrix.bm) # infer data
+        @binary_matrix.bm = @binary_matrix.subtract_id_matrix(@binary_matrix.bm) 
+        @binary_matrix.enter_cell_content([5], [2], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.reachability_matrix(@binary_matrix.bm) # infer data
+        @binary_matrix.bm = @binary_matrix.subtract_id_matrix(@binary_matrix.bm) 
+        @binary_matrix.bm = @binary_matrix.compress([5], [11])
+        @binary_matrix.bmi.mi = @binary_matrix.bmi.compress_index(5, 11)
+        @binary_matrix.bm = @binary_matrix.reachability_matrix(@binary_matrix.bm) # infer data
+        @binary_matrix.bm = @binary_matrix.subtract_id_matrix(@binary_matrix.bm) 
+        @binary_matrix.enter_cell_content([1, [10]], [2], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.reachability_matrix(@binary_matrix.bm) # infer data
+        @binary_matrix.bm = @binary_matrix.subtract_id_matrix(@binary_matrix.bm) 
+        puts "Enter 2 is north of 1-10"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nEnter 2 is north of 1-10\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end      
+
+      def part_four
+        part_three
+        @binary_matrix.enter_cell_content([2], [8], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.reachability_matrix(@binary_matrix.bm) # infer data
+        @binary_matrix.bm = @binary_matrix.subtract_id_matrix(@binary_matrix.bm) 
+        @binary_matrix.enter_cell_content([5], [2], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.reachability_matrix(@binary_matrix.bm) # infer data
+        @binary_matrix.bm = @binary_matrix.subtract_id_matrix(@binary_matrix.bm) 
+        @binary_matrix.bm = @binary_matrix.compress([5], [11])
+        @binary_matrix.bmi.mi = @binary_matrix.bmi.compress_index(5, 11)
+        @binary_matrix.bm = @binary_matrix.reachability_matrix(@binary_matrix.bm) # infer data
+        @binary_matrix.bm = @binary_matrix.subtract_id_matrix(@binary_matrix.bm) 
+        @binary_matrix.enter_cell_content([1, [10]], [2], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.reachability_matrix(@binary_matrix.bm) # infer data
+        @binary_matrix.bm = @binary_matrix.subtract_id_matrix(@binary_matrix.bm) 
+      end
+
+      describe "#enter_cell_content" do
+      it "will enter a 1 into the selected matrix cell" do
+        part_four
+        @binary_matrix.enter_cell_content([9], [3], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.reachability_matrix(@binary_matrix.bm) # infer data
+        @binary_matrix.bm = @binary_matrix.subtract_id_matrix(@binary_matrix.bm) 
+        puts "Enter 3 is north of 9"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nEnter 3 is north of 9\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end      
+
+      describe "#enter_cell_content" do
+      it "will enter a 1 into the selected matrix cell" do
+        part_four
+        @binary_matrix.enter_cell_content([9], [3], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.reachability_matrix(@binary_matrix.bm) # infer data
+        @binary_matrix.bm = @binary_matrix.subtract_id_matrix(@binary_matrix.bm) 
+        @binary_matrix.enter_cell_content([7], [3], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        puts "Enter 3 is north of 7"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nEnter 3 is north of 7\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end      
+
+      describe "#enter_cell_content" do
+      it "will enter a 1 into the selected matrix cell" do
+        part_four
+        @binary_matrix.enter_cell_content([9], [3], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.reachability_matrix(@binary_matrix.bm) # infer data
+        @binary_matrix.bm = @binary_matrix.subtract_id_matrix(@binary_matrix.bm) 
+        @binary_matrix.enter_cell_content([7], [3], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([7], [9], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        puts "Enter 9 is north of 7"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nEnter 9 is north of 7\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end      
+
+      describe "#compress" do
+      it "will compress row columns 3 and 6 into 3" do
+        part_four
+        @binary_matrix.enter_cell_content([9], [3], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.reachability_matrix(@binary_matrix.bm) # infer data
+        @binary_matrix.bm = @binary_matrix.subtract_id_matrix(@binary_matrix.bm) 
+        @binary_matrix.enter_cell_content([7], [3], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([7], [9], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.compress([3], [6])
+        @binary_matrix.bmi.mi = @binary_matrix.bmi.compress_index(3, 6) 
+        puts "Compress 3 and 6 into 3"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nCompress 3 and 6b into 3\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end      
+
+      describe "#swap_row_column" do
+      it "will swap_row_column 1-10 and 3-6 " do
+        part_four
+        @binary_matrix.enter_cell_content([9], [3], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.reachability_matrix(@binary_matrix.bm) # infer data
+        @binary_matrix.bm = @binary_matrix.subtract_id_matrix(@binary_matrix.bm) 
+        @binary_matrix.enter_cell_content([7], [3], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([7], [9], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.compress([3], [6])
+        @binary_matrix.bmi.mi = @binary_matrix.bmi.compress_index(3, 6) 
+        @binary_matrix.bm = @binary_matrix.swap_row_column([1, [10]], [3, [6]], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([1, [10]], [3, [6]], @binary_matrix.bmi.mi)
+        puts "Swap rows columns 1-10 and 3-6"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nCompress 3 and 6b into 3\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end     
+
+      describe "#enter_cell_content" do
+      it "will enter a 1 in the selected matrix cell" do
+        part_four
+        @binary_matrix.enter_cell_content([9], [3], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.reachability_matrix(@binary_matrix.bm) # infer data
+        @binary_matrix.bm = @binary_matrix.subtract_id_matrix(@binary_matrix.bm) 
+        @binary_matrix.enter_cell_content([7], [3], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([7], [9], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.compress([3], [6])
+        @binary_matrix.bmi.mi = @binary_matrix.bmi.compress_index(3, 6) 
+        @binary_matrix.bm = @binary_matrix.swap_row_column([1, [10]], [3, [6]], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([1, [10]], [3, [6]], @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([9], [3, [6]], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        puts "Enter 3-6 is north of 9"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nEnter 3-6 is north of 9\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end       
+  
+      describe "#swap_row_column" do
+      it "will swap rows and column 3-6 and 9" do
+        part_four
+        @binary_matrix.enter_cell_content([9], [3], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.reachability_matrix(@binary_matrix.bm) # infer data
+        @binary_matrix.bm = @binary_matrix.subtract_id_matrix(@binary_matrix.bm) 
+        @binary_matrix.enter_cell_content([7], [3], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([7], [9], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.compress([3], [6])
+        @binary_matrix.bmi.mi = @binary_matrix.bmi.compress_index(3, 6) 
+        @binary_matrix.bm = @binary_matrix.swap_row_column([1, [10]], [3, [6]], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([1, [10]], [3, [6]], @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([9], [3, [6]], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([9], [3, [6]], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([9], [3, [6]], @binary_matrix.bmi.mi)
+        puts "Enter 3-6 is north of 9"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nEnter 3-6 is north of 9\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end     
+
+      def part_five  
+        part_four
+        @binary_matrix.enter_cell_content([9], [3], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.reachability_matrix(@binary_matrix.bm) # infer data
+        @binary_matrix.bm = @binary_matrix.subtract_id_matrix(@binary_matrix.bm) 
+        @binary_matrix.enter_cell_content([7], [3], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([7], [9], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.compress([3], [6])
+        @binary_matrix.bmi.mi = @binary_matrix.bmi.compress_index(3, 6) 
+        @binary_matrix.bm = @binary_matrix.swap_row_column([1, [10]], [3, [6]], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([1, [10]], [3, [6]], @binary_matrix.bmi.mi)
+        @binary_matrix.enter_cell_content([9], [3, [6]], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([9], [3, [6]], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([9], [3, [6]], @binary_matrix.bmi.mi)
+      end
+    
+      describe "#compress" do
+      it "will compress rows and columns 9 and 12" do
+        part_five
+        @binary_matrix.bm = @binary_matrix.compress([9], [12])
+        @binary_matrix.bmi.mi = @binary_matrix.bmi.compress_index(9, 12)
+        puts "Compress row and columns 9 and 12"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nCompress rows and columns 9 and 12\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end     
+
+      describe "#enter_cell_content" do
+      it "will enter a 1 in the selected matrix cell" do
+        part_five
+        @binary_matrix.bm = @binary_matrix.compress([9], [12])
+        @binary_matrix.bmi.mi = @binary_matrix.bmi.compress_index(9, 12)
+        @binary_matrix.enter_cell_content([7], [9, [12]], 1, @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bm = @binary_matrix.swap_row_column([7], [9, [12]], @binary_matrix.bm, @binary_matrix.bmi.mi)
+        @binary_matrix.bmi.mi = @binary_matrix.swap_index([7], [9, [12]], @binary_matrix.bmi.mi)
+        puts "Enter 9-12 north of 7"
+        puts @binary_matrix.bm.to_a.map(&:inspect)
+        puts "Matrix Index .. \n"
+        p @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        logger.info "\nEnter 9-12 north of 7\n"
+        "#{@binary_matrix.bm.to_a.each{ |r| logger.info r.inspect } }"
+        logger.info "\n\nMatrix Index"
+        logger.info @binary_matrix.bmi.mi.to_a.map(&:inspect)
+        end
+      end     
+
+
+end