agri-controller 0.0.0

data/lib/agri-controller/multiple_pulse_timer.rb

@@ -0,0 +1,169 @@
+#require "time_module"
+#require "time"
+
+##require "bit"
+
+module AgriController
+  #module Time_module
+    def time?(time)
+      time <= Time.now
+    end
+    def timer(_from,_to)#_from="12:00:00",_to="12:00:05"]
+      if _from.class==Time
+        start=_from
+      else
+        start=Time.parse(_from)
+      end
+      if _to.class==Time
+        end_time=_to
+      else
+        end_time=Time.parse(_to)
+      end
+      
+      if time?(start)
+        #p "time!"
+        if time?(end_time)
+          #"on!"
+          #yield true if block_given
+          #p "over"
+          yield false if block_given?
+          return false
+        else
+          #p "time!"
+          yield true if block_given?
+          return true
+        end
+      end
+      nil
+    end
+    def timers(array)# timers([["12:00","12:00:10"],["13:00","18:00"]])
+      #p array
+      bool=false
+      array.each do |dat|
+        bool=bool | timer(dat[0],dat[1])
+      end
+      return bool#(true,false,nil)
+    end
+    ##
+    #  pulse_timer(["12:00:00",10]) # =>nil   ,if before
+    #  pulse_timer(["12:00:00",10]) # =>true  ,if time
+    #  pulse_timer(["12:00:00",10]) # =>false ,if over
+    def pulse_timer(time)#time=[start_time,seconds] ex["12:00:00",10]
+      if time[0].class==Time
+        start=time[0]
+      else
+        start=Time.parse(time[0])
+      end
+      end_time=start+time[1]
+      if time?(start)
+        #p "time!"
+        if time?(end_time)
+          #"on!"
+          #yield true if block_given
+          #p "over"
+          yield false if block_given?
+          return false
+        else
+          #p "time!"
+          yield true if block_given?
+          return true
+        end
+      end
+      nil
+    end
+  #pulse_timers([["6:00",400],["11:00",400],["14:00",400],["17:00",300]])
+  def pulse_timers(time_array)#time_array=[["12:52:00",10],["12:52:15",3],["7:57:30",10],["6:00",400],["11:00",400],["14:00",400],["17:00",300]]
+      bit=false#return bool
+      bool=false
+      
+      time_array.each do |time|
+        #p time#
+        a=pulse_timer(time)
+        bool ||= a
+      end
+      
+      
+      #p bool
+      if bool
+        if bit==false
+          bit=true
+        end
+      end
+      return bit
+    end
+  ##
+  #multiple_pulse_timer([[sec1=3,4,5],time=["6:00"],["11:00"],["14:00"],["17:00"]],next_wait_sec=2)
+  #returns
+  def multiple_pulse_timer(time_array,pomp_wait_sec=nil)#time_array=[[1,2],["12:52:00"],["12:52:15"],["7:57:30"],["6:00"],["11:00"],["14:00"],["17:00"]]
+      bit=Bit.new
+      #time_array=[[1,2,3],["12:52:00"],["12:52:15"]]
+      size=time_array[0].size
+      
+      #
+      if pomp_wait_sec==nil or size==0
+        z=time_array[0]
+      else
+        array=[]
+        time_array[0].each do |num|
+          array << num
+          array << pomp_wait_sec
+        end
+        array.delete_at(-1)
+        z=array
+      end
+      #p z
+      i=time_array.size-1
+      j=z.size
+      array=time_array[1,i]
+      result=Array.new(j)
+      
+      j.times do |x|
+      result[x]=Array.new(i)
+      end
+      #p result
+      #p time_array
+      x=0
+      last_sec=0
+      z.each do |sec|
+        y=0
+        #p sec
+        array.each do |time|
+          #p x.to_s+","+y.to_s
+          #p sec
+          #plast_sec
+          result[x][y] = [(Time.parse(time[0])+last_sec).to_s,sec]#Time.parse(time[0])
+          #p result
+          y+=1
+        end
+        x+=1
+        last_sec+=sec
+      end
+      #p result
+      x=0
+      result.each do |time|
+      #p time
+        bool=pulse_timers(time)
+        bit.boolbit(bool,x)
+        x+=1
+      end
+      #p bit
+      return bit
+      
+    end
+    
+    def _24hour
+      y=[]
+      24.times do |x|
+      z=x.to_s
+      str=":00"
+      if x<10
+      str="0"+z+str
+      else
+      str=z+str
+      end
+      y << [str]
+      end
+      y
+    end
+  #end
+end

data/lib/agri-controller/n_dan_thermo.rb

@@ -0,0 +1,154 @@
+require "time"
+module AgriController
+  ##
+  #class N_dan_thermo
+  #  How to setting
+  #  Time_list=[["time",set_value], ...]
+  #            [["5:00",13],["8:29:30",20],["14:00",30],["17:00",10],["18:00",5]]
+  #  
+  #            Time_list must be order time(don't reverse).[time < time < time]
+  #SAMPLE
+  #  green_house=N_dan_thermo.new([["5:00",15],["20:00",5]],diff=1)
+  #  #   Time.now    # =>6:00
+  #  #   now_tempereture=10.0
+  #    gerre_house.now_set                   # =>15.0
+  #
+  #    green_house.cooling?(now_tempereture) # =>false
+  #    green_house.hot?(now_tempereture)     # =>false
+  #    green_house.heat?(now_tempereture)    # =>false
+  #
+  #    green_house.warming?(now_tempereture)# =>true
+  #    green_house.cool?(now_tempereture)   # =>true
+  #    green_house.cold?(now_tempereture)   # =>true
+  #    green_house.heating?(now_tempereture)# =>true
+  #    
+  class N_dan_thermo
+    attr_accessor :def,:n,:list,:bool,:dead_value
+    attr_accessor :changed_time,:dead_time
+    def initialize(list=[["0:00",20]],diff=4,dead_time=5,changed_time=Time.now)
+      if list.class==Array
+        if list.size==0
+          list=[["0:00",15]]
+        end
+      else
+        list=[["0:00",15]]
+      end
+      @list=list #|| [["0:00",20]]
+      @n=list.size
+      @diff=diff
+      @bool=false
+      @changed_time=changed_time
+      @dead_time=dead_time
+    end
+    def save(file,dat=@list)
+      Loger::logger(file,Time.now.to_s+","+dat.inspect)
+    end
+    def boolean(input,set)# =>@bool==true or false
+      high=(input>=(set+@diff))
+      low=(input<=set)
+      change=@bool
+      #judge @bool high low
+      #if true(high value)
+      if @bool==true and low
+        @bool=false
+      #if false(low value)
+      elsif @bool==false and high
+        @bool=true
+      else
+        #nothing change
+      end
+      if @bool !=change
+        @changed_time=Time.now
+      end
+      return @bool
+    end
+    
+    def dead_time?
+      Time.now <= (@changed_time+@dead_time)
+    end
+    def move?
+      !dead_time?
+    end
+    def set_now(now=Time.now)#(true or false)
+      set=@list.last[1]#first_set should be last setting
+      @list.reverse.each do |array|
+        if now>=Time.parse(array[0])
+          #p array
+          set=array[1]
+          break
+        end
+      end
+      return set
+    end
+    
+    def cooling?(input)
+      boolean(input,set_now)
+    end
+    
+    def warming?(input)
+      !cooling?(input)
+    end
+    alias hot? cooling?
+    alias cool? warming?
+    alias heating? warming?
+    alias heat? cooling?
+    alias cold? warming?
+    
+  end
+end
+
+if $0==__FILE__
+  include AgriController
+  x=N_dan_thermo.new(["0:00",20])
+  
+  x.list=[["0:00",8]]
+  x.list=[["5:00",13],["8:30",20],["14:00",30],["18:00",5]]
+  #x.list=[["5:00",8],["20:30",20]]
+  
+  print "x.boolean(value,set)=true or false\n"
+  [4,5,9,10,12,9,5.1,5,4].each do|i|
+    print "x.boolean(#{i},5)="+x.boolean(i,5).to_s+"\n"
+  end
+  
+  p x
+  #p x.boolean(10,5)
+  #Array[["time",value(integer)],,,]
+  #x.set_now(Time.parse("23:59"))
+  #i=x.set_now(Time.parse("14:01"))
+  #x.set_now(Time.parse("3:59"))
+  #x.boolean(10,i)
+  p x.set_now#=5
+  p x.warming?(0)
+  p x.warming?(5)
+  p x.warming?(7)
+  p x.warming?(9)
+  p x.warming?(11)
+  p x.warming?(7)
+  p x.warming?(5)
+  p x.warming?(3)
+  p x.warming?(0)
+  p x.set_now#=5
+  p x.cooling?(5)
+  p x.cooling?(6)
+  p x.cooling?(10)
+  p x.cooling?(8)
+  p x.cooling?(6)
+  p x.cooling?(4)
+puts
+a=N_dan_thermo.new(list=[["0:00",20]],diff=4,dead_time=2)
+p a.set_now
+p a.cool?(10);sleep 1
+#p a
+p a.dead_time?
+
+p a.boolean(10,5);sleep 1
+#p a
+p a.dead_time?
+
+p a.boolean(5,5);sleep 1
+#p a
+p a.dead_time?
+p a.move?
+p Time.now
+  
+end

data/lib/agri-controller/save_threads.rb

@@ -0,0 +1,172 @@
+#!ruby
+#coding:utf-8
+require "open-uri"
+module AgriController
+  module_function
+  #ネット上のデータをサーモデータとして利用する
+  def thermo_read(ref="http://maru.selfip.com/cgi-bin/thermo.rb")
+    begin
+      uri=URI(ref)
+      dat=uri.read("Accept-Language" => "ja")
+      return dat
+    rescue
+      nil
+    end
+  end
+  
+  #WRの温度データを、logdirにyaml形式でN_secごとに記録する
+  def thermo_loop_thread(yaml_file,thermo_port,thermo_N,sec=3,logdir="./cgi-bin/config")
+    Thread.start(yaml_file,thermo_port,thermo_N,sec,logdir) do |name,port,n,s,lo|
+      #p "start N:"+n.to_s
+      
+      loop do
+        thermo=nil
+        #load thermo DATA par :sec
+        x=0
+        
+        10.times do |x|
+          
+          begin
+            #res=thermo_read()
+            #thermo=eval(res) if res!=nil
+            
+            thermo=WR1010::list(port,n,0.3+x*0.1)#import WR1010 data
+          rescue
+            thermo=nil
+          end
+          
+          break if (thermo.class==Array && thermo.size>=n)
+          sleep 1
+        end
+        
+        #read error
+        if thermo.class==Array && thermo.size>n
+          thermo=thermo[0..n-1]
+        end
+        
+          yaml_db(name,thermo,lo+"/"+name)#save last data
+        
+        #judge right thermo data
+        if thermo.class==Array && thermo.size==n
+          #p thermo
+          yaml_db("last_thermo_time",Time.now,lo+"/last_thermo_time")
+        else
+          #p "else"
+          
+          #error save and next_try after sleep
+          dat=Time.now.to_s+" |thermo_thread| "+thermo.inspect+"<br/>"
+          Loger::loger(lo+"/../log/errors.txt",dat)
+          Loger::loger(lo+"/../log/errors_.txt",dat)
+          sleep 600
+        end
+        sleep s
+      end
+    end
+  end
+  require "time"
+  def thermo_data_logger_thread(thermo_N=3,config="./cgi-bin/config",log="./cgi-bin/log")
+    
+    Thread.start(thermo_N,config,log) do |n,c,l|
+      #thermo number DEFINE
+      
+      #begin
+        #mainloop
+        before=nil
+        day_before=Time.now.day
+        loop do
+          t=Time.now
+          min=t.min
+          if min!=before
+            before=min
+            
+            t2=t.to_a
+            t2[0]=0
+            tt=Time.parse(t2[2].to_s+":"+t2[1].to_s+":"+t2[0].to_s)
+            #p tt
+            ##
+            #save DATA LOGGER(default,each o'clock)
+            thermo=yaml_dbr("last_thermo_data",c+"/last_thermo_data")
+            word=tt.to_s+","
+            
+            if thermo.class==Array && thermo.size >= n
+              n.times do |a|
+                word=word+thermo[a][0].to_s+","+thermo[a][1].to_s+","
+              end
+              
+            else
+              #nil data define ['c,%]=[0,false]
+              n.times do |a|
+                word=word+"0"+","+"false"+","
+              end
+            end
+              #seve data each minute.
+              str=word.chop+"\n"
+              Loger::loger(l+"/thermo_data.csv",str,"a",150000)
+              #thermo_gruff
+              #yesterday = (Date.today-1).to_s
+              #load yesterday_data
+              #filename=l+"/"+yesterday+"_thermo.csv"
+              #  if File.exist?(filename)
+              #    yesterday_data=File.read(filename)
+              #  else
+              #    yesterday_data=""
+              #  end
+                #load today_data
+             #   filename=l+"/thermo_data.csv"
+             #   if File.exist?(filename)
+             #     today_data=File.read(filename)
+             #   else
+             #     today_data=""
+             #   end
+              
+             # dat=yesterday_data+today_data
+             # open(l+"/data.tmp","w"){|io| io.print dat}
+          end
+          
+          sleep 0.3
+          day=t.day
+          if day_before!=day
+            day_before=day
+            sleep 5
+            Thread.start(l) do |ll|
+              last_day=(Date.today-1).to_s
+              #thermo_gruff(g+'/'+today+'.jpg',l+"/thermo_data.csv",n,"480x420")
+              #p l+'/thermo/'+last_day+"_thermo.csv"
+              
+              #save data every day if needed.
+              #__HERE!!__
+              
+              #
+              File.rename(ll+"/thermo_data.csv",ll+'/thermo/'+last_day+"_thermo.csv")
+              open(ll+"/thermo_data.csv","w"){|io| io.print("")}
+            end
+            sleep 1
+          end
+          #p Time.now
+        end
+        sleep 10
+    end
+  end
+end
+
+if $0==__FILE__
+require "wr1010"
+require "serial"
+require "setting_io"
+require "loger"
+require "bit"
+include AgriController
+  Dir_cgi         ="./cgi-bin"
+  Dir_ht          ="./htdocs"
+  
+  Dir_log         =Dir_cgi+"/log"
+  Dir_config      =Dir_cgi+"/config"
+  Dir_thermo_data =Dir_cgi+"/thermo_data"
+  
+  Dir_gruff       =Dir_ht+"/thermo"
+  Dir_gruff_small =Dir_gruff+"/thumb"
+  t1=thermo_loop_thread(yaml_file="last_thermo_data",thermo_port=8,thermo_N=4,sec=3)
+  t2=thermo_data_logger_thread
+t1.join
+t2.join
+end