Kotz’i’jに恋して6

Posted on 2017-05-10 by 13 No'j

キチェ語コースはまだ挨拶に留まっているけど単語数は増えてきた。動詞はまだ、殆どないけど。

コースの進行と共にKotz’ij(Kotz’i’j)も少しずつ賢くならないと！

単語リストについては後ほど書こうと思うけどGoogle SheetsからLaTex変換する方法があったので、今後はGoogle Sheetsで管理しようと思う。空いた時間に単語を入力するのはブラウザからの方がファイル管理の意味でも楽。バックアップとしては.txtファイルに変換したものをGitで管理する訳だし。

今回のプログラムにはパターン認識を新たに追加。取り敢えず三つの単語に反応する様にした。

パターン認識用の.txtファイルを新たに作成（こちら）。これはdictionariesフォルダ内に。新たにDictionary.rbを作成。

Dictionary.rb

class Dictionary
  def initialize
    @random = []                                  
    open('dictionaries/list01.txt') do |f|
      f.each do |line|
        line.chomp!
        next if line.empty?
        @random.push(line)
      end
    end

    @pattern = []                                 
    open('dictionaries/patterns01.txt') do |f|
      f.each do |line|
        pattern, phrases = line.chomp.split("\t") #split by tab
        next if pattern.nil? or phrases.nil?
        @pattern.push({'pattern'=>pattern, 'phrases'=>phrases})
      end
    end
  end

  attr_reader :random, :pattern            
end

class Dictionary

def initialize

@random = []

open('dictionaries/list01.txt') do |f|

f.each do |line|

line.chomp!

next if line.empty?

@random.push(line)

end

@pattern = []

open('dictionaries/patterns01.txt') do |f|

f.each do |line|

pattern, phrases = line.chomp.split("\t") #split by tab

next if pattern.nil? or phrases.nil?

@pattern.push({'pattern'=>pattern, 'phrases'=>phrases})

end

attr_reader :random, :pattern

end

それからKotzij.rbとResponder.rbを編集

Kotzij.rb

require './Responder'
require './Dictionary'

class Kotzij                      
  def initialize
  
    @dictionary = Dictionary.new
	
	@responderWhat     = WhatResponder.new('Kotz\'ij', @dictionary)
    @responderRandom   = RandomResponder.new('Kotz\'ij', @dictionary) 
	@responderPatterns = PatternResponder.new('Kotz\'ij', @dictionary)
	@responder = @responderRandom
  end

  def dialogue(input)
    case rand(5)
	when 0
	  @responder = @responderWhat
	when 1..2
	  @responder = @responderRandom
	else
	  @responder = @responderPatterns
	end
	return @responder.response(input)
  end

  def responderName
    return @responder.name
  end
  
  attr_reader :name
end

def randomSelect(ary)
  return ary[rand(ary.size)]
end

require './Responder'

require './Dictionary'

class Kotzij

def initialize

@dictionary = Dictionary.new

@responderWhat = WhatResponder.new('Kotz\'ij', @dictionary)

@responderRandom = RandomResponder.new('Kotz\'ij', @dictionary)

@responderPatterns = PatternResponder.new('Kotz\'ij', @dictionary)

@responder = @responderRandom

end

def dialogue(input)

case rand(5)

when 0

@responder = @responderWhat

when 1..2

@responder = @responderRandom

else

@responder = @responderPatterns

end

return @responder.response(input)

end

def responderName

return @responder.name

end

attr_reader :name

end

def randomSelect(ary)

return ary[rand(ary.size)]

end

Responder.rb

class Responder
  def initialize(name, dictionary)
    @name = name
	@dictionary = dictionary
  end
  
  def response(input)
    return ''
  end
  
  attr_reader :name
end

class WhatResponder < Responder
  def response(input)
  "Jas #{input}?"
  end  
end

class RandomResponder < Responder
  def response(input)
    return randomSelect(@dictionary.random)
  end
end

class PatternResponder < Responder
  def response(input)
    @dictionary.pattern.each do |patternItems|
      if m = input.match(patternItems['pattern'])
        resp = randomSelect(patternItems['phrases'].split('|'))
        return resp.gsub(/%match%/, m.to_s)
      end
    end

    return randomSelect(@dictionary.random)
  end
end

class Responder

def initialize(name, dictionary)

@name = name

@dictionary = dictionary

end

def response(input)

return ''

end

attr_reader :name

end

class WhatResponder < Responder

def response(input)

"Jas #{input}?"

end

class RandomResponder < Responder

def response(input)

return randomSelect(@dictionary.random)

end

class PatternResponder < Responder

def response(input)

@dictionary.pattern.each do |patternItems|

if m = input.match(patternItems['pattern'])

resp = randomSelect(patternItems['phrases'].split('|'))

return resp.gsub(/%match%/, m.to_s)

end

return randomSelect(@dictionary.random)

end

Tzijonik.rbは今回も日付とバージョン番号の変更のみ。

ホ

Posted on 2017-05-10 by 13 No'j

マヤの象形文字で「ホ」の音を表す文字の一つ。中々のデザインだと思う。

Ajtz’ib’

Posted on 2017-05-09 by 13 No'j

Ajtz’ib’とはライター(writer)やペインター(painter)の意味。以前、マヤの世界ではこの2つは同義語だった。象形文字を使っていたから。

でそのajtz’ib’を表す象形文字がこれ

ajというのはマヤ語でよく聞く単語。「～をする人」と言った意味。tzi’b’は書くという意味があるのでajtz’ib’は先程述べた通り。Ajkemで織物職人、ajkunは医者等。

ソロラ県の女性

Posted on 2017-05-09 by 13 No'j

以前触れたソロラ県の女性の平均身長が世界一低いという件についてデータを調べてみた。

新聞記事にあった通り確かに平均身長は145CMで低いことは低いけど、ENSMI2014/15のデータによると幾つかの県の女性の平均身長はソロラ県の女性とあまり変わりがない。確かに貧しい県ではあるけど、平均身長が他の県と比べて低いのはやはり先住民率が高いことが主要因だと思う。特に西部の先住民は東部の人たちと比べても小柄そうだし。

Rのコードはこんな感じで。

par(las=1, xaxs="i", yaxs="i")
hist(subHeight, freq = FALSE, xlab = "Height", main = "", xlim = c(100, 180), 
ylim = c(0, 0.1), breaks = 50, col="#165e83")
lines(density(subHeight), col = "#ed6d3d", lwd = 3)
axis(side=1, at=seq(100, 180, 10))

par(las=1, xaxs="i", yaxs="i")

hist(subHeight, freq = FALSE, xlab = "Height", main = "", xlim = c(100, 180),

ylim = c(0, 0.1), breaks = 50, col="#165e83")

lines(density(subHeight), col = "#ed6d3d", lwd = 3)

axis(side=1, at=seq(100, 180, 10))

今回は和色を使ってみた。藍色はソロラ県にも関係があると言える色。

Kotz’i’jに恋して5

Posted on 2017-05-08 by 13 No'j

前回のプログラムでは４つの単語からひとつをランダムに選択し回答する仕様にした。今回は単語数を９３に増やしたため、単語リストを単独に作成した。また、回答もリストから選んだ単語を返すだけではなく、「～って何(Jas….?)」というも再度利用することに。

1/4の確率でJas….?を、残りの3/4の確率でリストからの単語を返す仕様にした。変更点は主にKotzij.rbのこの部分

  def initialize
    @responderRandom = RandomResponder.new('Kotz\'ij') 
    @responderWhat   = WhatResponder.new('Kotz\'ij')
    @responder = @responderRandom
  end

  def dialogue(input)
  @responder = rand(4) ==0 ? @responderWhat : @responderRandom;
    return @responder.response(input)
  end

def initialize

@responderRandom = RandomResponder.new('Kotz\'ij')

@responderWhat = WhatResponder.new('Kotz\'ij')

@responder = @responderRandom

end

def dialogue(input)

@responder = rand(4) ==0 ? @responderWhat : @responderRandom;

return @responder.response(input)

end

と

Responder.rbの

class RandomResponder < Responder
  def initialize(name)
    super
    @phrases = []
	open('dictionaries/dic01.txt') do |f|
	  f.each do |line|
	    line.chomp!
	    next if line.empty?
	    @phrases.push(line)
	  end
	end
  end
      
  def response(input)
    return randomSelect(@phrases)
  end
  
  def randomSelect(ary)
    return ary[rand(ary.size)]
  end

class RandomResponder < Responder

def initialize(name)

super

@phrases = []

open('dictionaries/dic01.txt') do |f|

f.each do |line|

line.chomp!

next if line.empty?

@phrases.push(line)

end

def response(input)

return randomSelect(@phrases)

end

def randomSelect(ary)

return ary[rand(ary.size)]

end

まず、回答方法がランダムに決定され、その後単語を返すこととなった場合、単語リストから単語をひとつランダムで選択。

長くなるけどResponder.rbとKotzij.rbの全体のコードはこうなっている。Tzijonikについては日付を変えただけ。

Responder.rb

class Responder
  def initialize(name)
    @name = name
  end
  
  def response(input)
    return ''
  end

  def name
    return @name
  end
end

class WhatResponder < Responder
  def response(input)
  "Jas #{input}?"
  end  
end

class RandomResponder < Responder
  def initialize(name)
    super
    @phrases = []
	open('dictionaries/dic01.txt') do |f|
	  f.each do |line|
	    line.chomp!
	    next if line.empty?
	    @phrases.push(line)
	  end
	end
  end
      
  def response(input)
    return randomSelect(@phrases)
  end
  
  def randomSelect(ary)
    return ary[rand(ary.size)]
  end
end

class Responder

def initialize(name)

@name = name

end

def response(input)

return ''

end

def name

return @name

end

class WhatResponder < Responder

def response(input)

"Jas #{input}?"

end

class RandomResponder < Responder

def initialize(name)

super

@phrases = []

open('dictionaries/dic01.txt') do |f|

f.each do |line|

line.chomp!

next if line.empty?

@phrases.push(line)

end

def response(input)

return randomSelect(@phrases)

end

def randomSelect(ary)

return ary[rand(ary.size)]

end

Kotzij.rb

require './Responder'

class Kotzij                      
  def initialize
    @responderRandom = RandomResponder.new('Kotz\'ij') 
    @responderWhat   = WhatResponder.new('Kotz\'ij')
    @responder = @responderRandom
  end

  def dialogue(input)
  @responder = rand(4) ==0 ? @responderWhat : @responderRandom;
    return @responder.response(input)
  end

  def responder_name
    return @responder.name
  end
end

require './Responder'

class Kotzij

def initialize

@responderRandom = RandomResponder.new('Kotz\'ij')

@responderWhat = WhatResponder.new('Kotz\'ij')

@responder = @responderRandom

end

def dialogue(input)

@responder = rand(4) ==0 ? @responderWhat : @responderRandom;

return @responder.response(input)

end

def responder_name

return @responder.name

end

プログラムを実行してみる。

現在の単語リストはこれ。会話になってないけど、少し前進してるかな。

13 No'j

グアテマラ、マヤ文明とプログラミング/Mayan World and Programming

Author Archives: 13 No'j

Kotz’i’jに恋して6

ホ

Ajtz’ib’

ソロラ県の女性

Kotz’i’jに恋して5