shunkuntype 1.0.15 → 1.1.1

data/lib/shunkuntype/#mk_summary.rb#

@@ -1,77 +0,0 @@
-class MkSummary
-  def initialize(tmp_dir)
-    $mem_dir=File.join(tmp_dir,"mem_data")
-    files = Dir::entries($mem_dir)
-    member = mk_member(files)
-    @scores = take_scores(files,member)
-  end
-
-  def mk_member(files)
-    member = []
-    files.each{|file|
-      if file.include?('training') then
-        name=file.split('_')[0]
-        member << name
-      end
-    }
-    return member
-  end
-
-  def take_scores(files,member)
-    scores = {}
-    member.each{|name|
-      p name
-      speed_file="#{name}_speed_data.txt"
-      if files.include?(speed_file)
-        p speed_file
-        file = File.readlines(File.join($mem_dir,speed_file))
-        init= (file[0]!=nil ? file[0].split(",")[2].to_f : 0.0 )
-        cur = (file[-1]!=nil ? file[-1].split(",")[2].to_f : 0.0 )
-        scores[name]=[init,cur]
-      end
-      training_file="#{name}_training_data.txt"
-      if files.include?(training_file)
-        p training_file
-        file = File.readlines(File.join($mem_dir,training_file))
-        work_time = file.inject(0){|sum,line|
-          sec=line.split(',')[3].to_i
-          sec= (sec!=0)? sec : 60
-          sum + sec
-        }
-        step = (file[-1]!=nil ? file[-1].match(/STEP-(\d*)/)[1].to_i : 0 )
-        scores[name] << work_time/60 << step
-      end
-    }
-    return scores
-  end
-
-  def mk_html_table()
-    cont = ""
-    title = "Shunkun typer"
-    cont << "<table border=\"1\">\n<caption>#{title}<caption>\n"
-    cont << "<tr><th></th><th colspan=2>speed[sec]</th><th colspan=2>training</th></tr>\n"
-    cont << "<tr><th></th><th>init</th><th>current</th><th>total time[min]</th><th>step</th></tr>\n"
-    @scores.each_pair{|key,score|
-      cont << "<tr><th>#{key}</th>"
-      score.each{|val| cont << sprintf("<td>%5.2f</td>",val)}
-      cont << "</tr>\n"
-    }
-    cont << "</table>\n"
-    return cont
-  end
-
-  def mk_hiki_table()
-    t= Time.now
-    cont = "!!Shunkun typer #{t.localtime}\n"
-    cont << "|| ||>speed[sec]||>training\n"
-    cont << "||||init||current||total time[min]||step\n"
-    @scores.each_pair{|key,score|
-      cont << "||#{key}"
-      score.each{|val| cont << sprintf("||%5.2f",val)}
-      cont << "\n"
-    }
-    cont << "\n"
-    return cont
-  end
-end
-

data/lib/shunkuntype/merge.rb

@@ -1,52 +0,0 @@
-require 'time'
-
-def data_merge(file_current, file_server)
-  all_data=[]
-  i,j=0,0
-  while (file_current.length > i) and (file_server.length > j) do
-    line_current,line_server = file_current[i], file_server[j]
-    break if line_current=="\n" or line_server=="\n"
-    time_current=Time.parse(line_current.split(',')[0])
-    time_server=Time.parse(line_server.split(',')[0])
-    if time_current == time_server then
-      all_data << line_current
-      i += 1
-      j += 1
-    elsif time_current < time_server then
-      all_data << line_current
-      i += 1
-    else
-      all_data << line_server
-      j += 1
-    end
-  end
-  while (file_current.length > i)
-    all_data << file_current[i]
-    i += 1
-  end
-  while (file_server.length > j)
-    all_data <<  file_server[j]
-    j += 1
-  end
-  all_data.delete("\n")
-  return all_data.join
-end
-
-if $0 == __FILE__ then
-  file_current = <<'EOS'
-2016-09-23 13:41:36 +0900,STEP-1.txt,60,60
-2016-09-23 13:48:45 +0900,STEP-2.txt,5,60
-2016-09-28 11:41:56 +0900,STEP-2.txt,0,60
-2016-09-28 11:51:46 +0900,STEP-15.txt,29,60
-2016-09-28 12:47:48 +0900,STEP-3.txt,48,60
-2016-09-28 12:50:12 +0900,STEP-1.txt,60,60
-
-EOS
-  file_server = <<'EOS'
-2016-09-23 13:41:36 +0900,STEP-1.txt,60,60
-2016-09-23 13:48:45 +0900,STEP-2.txt,5,60
-2016-09-28 12:48:57 +0900,STEP-4.txt,50,60
-
-EOS
-  print data_merge(file_current.lines, file_server.lines)
-end

data/lib/shunkuntype/mk_summary.rb

@@ -1,77 +0,0 @@
-class MkSummary
-  def initialize(tmp_dir)
-    $mem_dir=File.join(tmp_dir,"mem_data")
-    files = Dir::entries($mem_dir)
-    member = mk_member(files)
-    @scores = take_scores(files,member)
-  end
-
-  def mk_member(files)
-    member = []
-    files.each{|file|
-      if file.include?('training') then
-        name=file.split('_')[0]
-        member << name
-      end
-    }
-    return member
-  end
-
-  def take_scores(files,member)
-    scores = {}
-    member.each{|name|
-      p name
-      speed_file="#{name}_speed_data.txt"
-      if files.include?(speed_file)
-        p speed_file
-        file = File.readlines(File.join($mem_dir,speed_file))
-        init= (file[0]!=nil ? file[0].split(",")[2].to_f : 0.0 )
-        cur = (file[-1]!=nil ? file[-1].split(",")[2].to_f : 0.0 )
-        scores[name]=[init,cur]
-      end
-      training_file="#{name}_training_data.txt"
-      if files.include?(training_file)
-        p training_file
-        file = File.readlines(File.join($mem_dir,training_file))
-        work_time = file.inject(0){|sum,line|
-          sec=line.split(',')[3].to_i
-          sec= (sec!=0)? sec : 60
-          sum + sec
-        }
-        step = (file[-1]!=nil ? file[-1].match(/STEP-(\d*)/)[1].to_i : 0 )
-        scores[name] << work_time/60 << step
-      end
-    }
-    return scores
-  end
-
-  def mk_html_table()
-    cont = ""
-    title = "Shunkun typer"
-    cont << "<table border=\"1\">\n<caption>#{title}<caption>\n"
-    cont << "<tr><th></th><th colspan=2>speed[sec]</th><th colspan=2>training</th></tr>\n"
-    cont << "<tr><th></th><th>init</th><th>current</th><th>total time[min]</th><th>step</th></tr>\n"
-    @scores.each_pair{|key,score|
-      cont << "<tr><th>#{key}</th>"
-      score.each{|val| cont << sprintf("<td>%5.2f</td>",val)}
-      cont << "</tr>\n"
-    }
-    cont << "</table>\n"
-    return cont
-  end
-
-  def mk_hiki_table()
-    t= Time.now
-    cont = "!!Shunkun typer #{t.localtime}\n"
-    cont << "|| ||>speed[sec]||>training\n"
-    cont << "||||init||current||total time[min]||step\n"
-    @scores.each_pair{|key,score|
-      cont << "||#{key}"
-      score.each{|val| cont << sprintf("||%5.2f",val)}
-      cont << "\n"
-    }
-    cont << "\n"
-    return cont
-  end
-end
-

data/lib/shunkuntype/options.rb

@@ -1,24 +0,0 @@
-#coding: utf-8
-
-require 'optparse'
-
-module Shunkuntype
-  class Command
-    module Options
-
-      def self.parse!(argv)
-        options = {}
-        command_parser = OptionParser.new do |opt|
-          opt.on_head('-v', '--version','Show program version') do |v|
-            puts options.ver
-            opt.version = Shunkuntype::VERSION
-            exit
-          end
-        end
-
-        command_parser.parse!(argv)
-      end
-
-    end
-  end
-end

data/lib/shunkuntype/plot.rb

@@ -1,66 +0,0 @@
-require 'time'
-require 'tempfile'
-
-class PlotPersonalData
-  def initialize
-    plot_data = read_data()
-    make_data_file(plot_data)
-
-    text=["Typing speed [words/min]","Work minutes [min]"]
-    opts = {:title=>"Elapsed time vs #{text[0]}",
-      :plot=>"plot \"#{$temp.path}\"  using 1:2 w st\n",
-      :xlabel=>"Elapsed time[hrs]",:ylabel=>text[0],:xtics=>"0 2"}
-    listplot(opts)
-    opts = {:title=>"Elapsed time vs #{text[1]}",
-      :plot=>"plot \"#{$temp.path}\" using 1:3 w st\n",
-      :xlabel=>"Elapsed time[hrs]",:ylabel=>text[1],:xtics=>"0 2"}
-    listplot(opts)
-  end
-
-  def read_data
-    today=Time.now.to_s
-    plot_data=[]
-    d_total_min=0
-    File.open(Shunkuntype::TRAIN_FILE,'r'){|file|
-      while line=file.gets do
-        tmp=line.chomp.split(',')
-        d_day = ((Time.parse(tmp[0])-Time.parse(today))/3600/24) #hours
-        tmp << "60" if tmp.size ==3 # for backward consist. to "d,f,w"+",t"
-        d_speed = tmp[2].to_f/tmp[3].to_f*60
-        d_total_min += tmp[3].to_f/60.0  # total_second
-        name = tmp[1]
-        step = name.scan(/\d+/)[0].to_i # extract step from file name
-        plot_data << [d_day,d_speed,d_total_min]
-      end
-    }
-    return plot_data
-  end
-
-  def make_data_file(outdata)
-    cont=""
-    outdata.each {|idata|
-      idata.each{|ele| cont << sprintf("%7.2f ",ele)}
-      cont << "\n"
-    }
-    $temp=Tempfile.new(["tmp",".data"])
-    $temp.puts(cont)
-    $temp.close # must! before another use
-  end
-
-  def listplot(opts)
-    cont = ""
-    cont << "set xrange \[#{opts[:x]}\]\n" if opts.has_key?(:x)
-    cont << "set yrange \[#{opts[:y]}\]\n" if opts.has_key?(:y)
-    cont << "set title \"#{opts[:title]}\"\n" if opts.has_key?(:title)
-    cont << "set xlabel \"#{opts[:xlabel]}\"\n" if opts.has_key?(:xlabel)
-    cont << "set ylabel \"#{opts[:ylabel]}\"\n" if opts.has_key?(:ylabel)
-    cont << "set xtics #{opts[:xtics]} \n" if opts.has_key?(:xtics)
-    cont << "#{opts[:plot]} \n"
-    temp2= Tempfile.new(["tmp",".txt"])
-    temp2.print(cont)
-    temp2.close # must! before another use
-    p command ="gnuplot #{temp2.path}"
-    system command
-  end
-
-end

data/lib/shunkuntype/plot_data.rb

@@ -1,200 +0,0 @@
-# -*- coding: utf-8 -*-
-require 'time'
-require 'fileutils'
-require "gnuplot"
-
-# = gnuplotが扱えるデータフォーマットへの変換
-# ==Usage
-#    data0 = PlotData.new(name0,0,3,name)
-#    data0.add_general_data(name1, 0, 2)
-#    start=Time.parse(Time.now.to_s)
-#    x_func = proc{|x| ((Time.parse(x)-start)/3600/24) }
-#    y_func = proc{|y| y.to_f/60.0 }
-#    data0.mk_plot_data(x_func,y_func)
-#    data0.sort
-#    data0.sum_data
-#
-class PlotData
-  attr_accessor :data, :title
-
-  def initialize(file_name="",x_col=nil,y_col=nil,title="")
-    @data=[]
-    read_general_data(file_name,x_col,y_col) if ""!=file_name
-    @title=title if ""!=title
-  end
-
-# @!group data read
-  def add_general_data(file, x_col, y_col)
-    read_general_data(file, x_col, y_col)
-  end
-
-  def read_general_data(file, x_col, y_col)
-    begin
-      File.open(file,'r'){|file|
-        while line=file.gets do
-          tmp=line.chomp.split(',')
-          @data << [tmp[x_col],tmp[y_col]]
-        end
-      }
-    rescue => e
-      p e
-    end
-  end
-# @!endgroup
-
-  #gnuplot libraryに沿った形のdataを出力．
-  # 列データを行データに
-  def to_gnuplot()
-    x,y=[],[]
-    @data.each{|ele|
-      x << ele[0]
-      y << ele[1]
-    }
-    return [x,y]
-  end
-
-  # x_func,y_funcに変換関数をyieldで入れる
-  def mk_plot_data(x_func,y_func)
-    tmp_data=[]
-    @data.each{|ele|
-      x_data = x_func.call(ele[0])
-      y_data = y_func.call(ele[1])
-      tmp_data << [x_data,y_data]
-    }
-    @data = tmp_data
-  end
-
-  #y軸の値の積分を取る
-  def sum_data
-    tmp_data=[]
-    y_data=0
-    @data.each{|ele| tmp_data << [ele[0], y_data+=ele[1]]}
-    @data = tmp_data
-  end
-
-  #x軸の値によってsortをかける．
-  def sort
-    @data.sort!{|x,y| x[0] <=> y[0]}
-  end
-end
-
-class MkPlots
-
-  def initialize(tmp_dir,opts={})
-    @source_dir=File.join(tmp_dir,'mem_data')
-    @mem_names=[]
-    @opts = opts
-    mk_mem_names()
-    work_all()
-    speed_all()
-  end
-
-  def work_all
-    all_data= @mem_names.inject([]){|all,name|
-      all << work_view(name)
-    }
-    text="Work minutes [min]"
-    plot(all_data,text)
-  end
-
-  def speed_all
-    mk_mem_names
-    all_data= @mem_names.inject([]){|all,name| all << speed_view(name) }
-    text="Typing speed [sec/20 words]"
-
-    plot(all_data,text)
-  end
-
-  def speed_view(name)
-    name1 = "#{@source_dir}/#{name}_speed_data.txt"
-    data0 = PlotData.new(name1, 0, 2, name)
-    start=Time.parse(Time.now.to_s)
-    x_func = proc{|x| ((Time.parse(x)-start)/3600/24) }
-    y_func = proc{|y| y }
-    data0.mk_plot_data(x_func,y_func)
-    return data0
-  end
-
-  def mk_mem_names
-    names = Dir.entries(@source_dir)
-    names.each{|name|
-      title = name.split('_')[0]
-      @mem_names << title if (!@mem_names.include?(title) and title.match(/\w/))
-    }
-  end
-
-  def work_view(name)
-    p name0 = "#{@source_dir}/#{name}_training_data.txt"
-    p name1 = "#{@source_dir}/#{name}_speed_data.txt"
-    data0 = PlotData.new(name0,0,3,name)
-    data0.add_general_data(name1, 0, 2)
-    start=Time.parse(Time.now.to_s)
-    x_func = proc{|x| ((Time.parse(x)-start)/3600/24) }
-    y_func = proc{|y| y.to_f/60.0 }
-    data0.mk_plot_data(x_func,y_func)
-    data0.sort
-    data0.sum_data
-    return data0
-  end
-
-  def plot(data,text0,opts={})
-    Gnuplot.open do |gp|
-      Gnuplot::Plot.new( gp ) do |plot|
-        plot.title  "Elapsed time vs #{text0}"
-        plot.ylabel text0
-        plot.xlabel "Elapsed time[days]"
-        plot.xtics "7"
-        plot.xrange "[-49:1]"
-        if true==opts.has_key?(:png) then
-          plot.term "pngcairo enhanced size 480,360"
-          plot.output "res.png"
-        end
-
-        plot.data = []
-        data.each{|ele|
-          plot.data << Gnuplot::DataSet.new( ele.to_gnuplot ) do |ds|
-            ds.with = "line"
-            if ""==ele.title then
-              ds.notitle
-            else
-              ds.title=ele.title
-            end
-          end
-        }
-      end
-    end
-  end
-end
-
-if __FILE__ == $0 then
-  data0 = PlotData.new()
-  data0.read_general_data(ARGV[0], 0, 3)
-  data0.add_general_data(ARGV[1], 0, 2)
-
-  start=Time.parse(data0.data[0][0])
-  x_func = proc{|x| ((Time.parse(x)-start)/3600/24) }
-  y_func = proc{|x| x.to_f/60.0 }
-  data0.mk_plot_data(x_func,y_func)
-  data0.sort
-  data0.sum_data
-
-  text="Work minutes [min]"
-  Gnuplot.open do |gp|
-    Gnuplot::Plot.new( gp ) do |plot|
-      plot.title  "Elapsed time vs #{text}"
-      plot.ylabel text
-      plot.xlabel "Elapsed time[days]"
-      plot.xtics "0 2"
-      x,y = data0.to_gnuplot
-
-      plot.data << Gnuplot::DataSet.new( [x, y] ) do |ds|
-        ds.with = "line"
-        ds.notitle
-      end
-    end
-  end
-
-end
-
-
-

data/shunkuntype_bob/.gitignore

@@ -1 +0,0 @@
-.hikirc