RubyGems - agri-controller - Versions diffs - 0.0.0 - Mend

agri-controller 0.0.0

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.

Files changed (158) hide show

data/bin/main.bat +2 -0
data/bin/main.bat /202/326/202/314/203V/203/207/201[/203g/203J/203b/203g.lnk +0 -0
data/bin/main.rb +23 -0
data/bin/memo.txt +4 -0
data/bin/server.bat +1 -0
data/bin/server.bat /202/326/202/314/203V/203/207/201[/203g/203J/203b/203g.lnk +0 -0
data/bin/server.rb +4 -0
data/bin/set_config.rb +47 -0
data/bin/usual.rb +3 -0
data/bin//203R/203}/203/223/203h /203v/203/215/203/223/203v/203g.lnk +0 -0
data/lib/agri-controller.rb +33 -0
data/lib/agri-controller/bcc.rb +53 -0
data/lib/agri-controller/bit.rb +143 -0
data/lib/agri-controller/dacs.rb +114 -0
data/lib/agri-controller/dircopy.rb +30 -0
data/lib/agri-controller/error_caption.rb +46 -0
data/lib/agri-controller/kr.rb +34 -0
data/lib/agri-controller/kr_2.rb +78 -0
data/lib/agri-controller/loger.rb +51 -0
data/lib/agri-controller/main.rb +0 -0
data/lib/agri-controller/main_new.rb +401 -0
data/lib/agri-controller/multiple_pulse_timer.rb +169 -0
data/lib/agri-controller/n_dan_thermo.rb +154 -0
data/lib/agri-controller/save_threads.rb +172 -0
data/lib/agri-controller/serial.rb +114 -0
data/lib/agri-controller/setting_io.rb +53 -0
data/lib/agri-controller/thermo_data_each_day.rb +67 -0
data/lib/agri-controller/thermo_gruff.rb +109 -0
data/lib/agri-controller/thermo_gruff_generate.rb +28 -0
data/lib/agri-controller/thermo_gruff_loop.rb +35 -0
data/lib/agri-controller/value_controller.rb +167 -0
data/lib/agri-controller/version.rb +5 -0
data/lib/agri-controller/web.rb +39 -0
data/lib/agri-controller/webrick_test.rb +46 -0
data/lib/agri-controller/wetsensor.rb +119 -0
data/lib/agri-controller/wr1010.rb +316 -0
data/lib/agri-controller/wr1010_2.rb +0 -0
data/lib/cgi-bin/auto01.cgi +0 -0
data/lib/cgi-bin/auto02.cgi +0 -0
data/lib/cgi-bin/change_step.cgi +42 -0
data/lib/cgi-bin/config/change_step +4 -0
data/lib/cgi-bin/config/house1 +20 -0
data/lib/cgi-bin/config/house2 +8 -0
data/lib/cgi-bin/config/kr01_readable.txt +2 -0
data/lib/cgi-bin/config/kr02_readable.txt +2 -0
data/lib/cgi-bin/config/kr1_bit.txt +2 -0
data/lib/cgi-bin/config/kr2_bit.txt +2 -0
data/lib/cgi-bin/config/last_bit.txt +1 -0
data/lib/cgi-bin/config/last_thermo_data +22 -0
data/lib/cgi-bin/config/last_thermo_time +2 -0
data/lib/cgi-bin/config/manual_bool01.txt +2 -0
data/lib/cgi-bin/config/manual_bool02.txt +2 -0
data/lib/cgi-bin/config/reload_flag +2 -0
data/lib/cgi-bin/config/run_check +2 -0
data/lib/cgi-bin/config/thermo_define.yml +4 -0
data/lib/cgi-bin/config/time_array +10 -0
data/lib/cgi-bin/config/wait_time +2 -0
data/lib/cgi-bin/config/wet0 +3 -0
data/lib/cgi-bin/config/wet0_drain +2 -0
data/lib/cgi-bin/config/wet1 +3 -0
data/lib/cgi-bin/config/wet1_drain +2 -0
data/lib/cgi-bin/config/wet_input.txt +1 -0
data/lib/cgi-bin/curtain_h1.cgi +43 -0
data/lib/cgi-bin/curtain_h1_setting.cgi +43 -0
data/lib/cgi-bin/curtain_h2.cgi +43 -0
data/lib/cgi-bin/curtain_h2_setting.cgi +43 -0
data/lib/cgi-bin/dacs_port.cgi +43 -0
data/lib/cgi-bin/delay_time_0.cgi +43 -0
data/lib/cgi-bin/delay_time_1.cgi +43 -0
data/lib/cgi-bin/error_clear.cgi +0 -0
data/lib/cgi-bin/house1.cgi +42 -0
data/lib/cgi-bin/house1a.cgi +43 -0
data/lib/cgi-bin/house2.cgi +42 -0
data/lib/cgi-bin/house2b.cgi +43 -0
data/lib/cgi-bin/house_n_dan_thermo1.cgi +43 -0
data/lib/cgi-bin/house_n_dan_thermo2.cgi +0 -0
data/lib/cgi-bin/keitai.cgi +25 -0
data/lib/cgi-bin/kr01.cgi +0 -0
data/lib/cgi-bin/kr01_readable.txt.cgi +42 -0
data/lib/cgi-bin/kr02.cgi +0 -0
data/lib/cgi-bin/kr02_readable.txt.cgi +42 -0
data/lib/cgi-bin/kr1_bit.txt.cgi +42 -0
data/lib/cgi-bin/kr2_bit.txt.cgi +42 -0
data/lib/cgi-bin/kr_log.cgi +18 -0
data/lib/cgi-bin/last_bit.txt.cgi +42 -0
data/lib/cgi-bin/last_thermo_data.cgi +42 -0
data/lib/cgi-bin/last_thermo_time.cgi +42 -0
data/lib/cgi-bin/log.cgi +19 -0
data/lib/cgi-bin/log/errors.txt +1 -0
data/lib/cgi-bin/log/errors_.txt +93 -0
data/lib/cgi-bin/log/kr_command_log.txt +240 -0
data/lib/cgi-bin/log/log.txt +441 -0
data/lib/cgi-bin/log/old_log/log_.txt +15 -0
data/lib/cgi-bin/log/thermo/2010-05-22_thermo.csv +1438 -0
data/lib/cgi-bin/log/thermo/2010-06-12_thermo.csv +3 -0
data/lib/cgi-bin/log/thermo/2010-06-13_thermo.csv +2 -0
data/lib/cgi-bin/log/thermo/2010-06-16_thermo.csv +85 -0
data/lib/cgi-bin/log/thermo/2010-06-17_thermo.csv +285 -0
data/lib/cgi-bin/log/thermo_data.csv +643 -0
data/lib/cgi-bin/log/thermo_graph_loop.txt +1 -0
data/lib/cgi-bin/main.cgi +98 -0
data/lib/cgi-bin/manual_bool01.txt.cgi +42 -0
data/lib/cgi-bin/manual_bool02.txt.cgi +42 -0
data/lib/cgi-bin/post_change_step.cgi +44 -0
data/lib/cgi-bin/post_house1.cgi +44 -0
data/lib/cgi-bin/post_house2.cgi +44 -0
data/lib/cgi-bin/post_kr01.cgi +0 -0
data/lib/cgi-bin/post_kr01_readable.txt.cgi +44 -0
data/lib/cgi-bin/post_kr02.cgi +0 -0
data/lib/cgi-bin/post_kr02_readable.txt.cgi +44 -0
data/lib/cgi-bin/post_kr1_bit.txt.cgi +44 -0
data/lib/cgi-bin/post_kr2_bit.txt.cgi +44 -0
data/lib/cgi-bin/post_last_bit.txt.cgi +44 -0
data/lib/cgi-bin/post_last_thermo_data.cgi +44 -0
data/lib/cgi-bin/post_last_thermo_time.cgi +44 -0
data/lib/cgi-bin/post_manual_bool01.txt.cgi +44 -0
data/lib/cgi-bin/post_manual_bool02.txt.cgi +44 -0
data/lib/cgi-bin/post_reload_flag.cgi +44 -0
data/lib/cgi-bin/post_run_check.cgi +44 -0
data/lib/cgi-bin/post_thermo_define.yml.cgi +44 -0
data/lib/cgi-bin/post_time_array.cgi +44 -0
data/lib/cgi-bin/post_wait_time.cgi +44 -0
data/lib/cgi-bin/post_wet0.cgi +44 -0
data/lib/cgi-bin/post_wet0_drain.cgi +44 -0
data/lib/cgi-bin/post_wet1.cgi +44 -0
data/lib/cgi-bin/post_wet1_drain.cgi +44 -0
data/lib/cgi-bin/post_wet_input.txt.cgi +44 -0
data/lib/cgi-bin/reload_flag.cgi +42 -0
data/lib/cgi-bin/reset_.cgi +0 -0
data/lib/cgi-bin/run_check.cgi +42 -0
data/lib/cgi-bin/set.cgi +33 -0
data/lib/cgi-bin/set_post_yml_each.rb +72 -0
data/lib/cgi-bin/set_yml_cgi_each.rb +0 -0
data/lib/cgi-bin/setting.cgi +0 -0
data/lib/cgi-bin/setting.cgi.1 +0 -0
data/lib/cgi-bin/setting_io.rb +53 -0
data/lib/cgi-bin/thermo_data_graphs.cgi +0 -0
data/lib/cgi-bin/thermo_data_list.cgi +0 -0
data/lib/cgi-bin/thermo_define.yml.cgi +42 -0
data/lib/cgi-bin/thermo_graph.cgi +0 -0
data/lib/cgi-bin/time_array.cgi +42 -0
data/lib/cgi-bin/wait_time.cgi +42 -0
data/lib/cgi-bin/web.rb +39 -0
data/lib/cgi-bin/wet0.cgi +42 -0
data/lib/cgi-bin/wet0_drain.cgi +42 -0
data/lib/cgi-bin/wet1.cgi +42 -0
data/lib/cgi-bin/wet1_drain.cgi +42 -0
data/lib/cgi-bin/wet_input.txt.cgi +42 -0
data/lib/htdocs/css/str.css +89 -0
data/lib/htdocs/favicon.ico +0 -0
data/lib/htdocs/thermo/thermo_data.jpg +0 -0
data/lib/htdocs/thermo/thumb/thermo_data.jpg +0 -0
data/test/tc_bit.rb +15 -0
data/test/tc_bit.rb.1 +15 -0
data/test/tc_bit.rb.2 +21 -0
data/test/ts_agri-controller.rb +10 -0
data/test/ts_agri-controller.rb.1 +8 -0
metadata +229 -0

data/lib/agri-controller/version.rb ADDED Viewed

@@ -0,0 +1,5 @@
+#!ruby
+#coding:utf-8
+module AgriController
+  VERSION      = "0.0.0"
+end

data/lib/agri-controller/web.rb ADDED Viewed

@@ -0,0 +1,39 @@
+#!ruby
+#coding:utf-8
+module AgriController
+  module Web
+  module_function
+    def html_head(title="kansi_htm",tuika='')
+    head=<<EOS
+    <html>
+      <head>
+        <meta http-equiv="Content-Language" content="ja" />
+        <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
+        #{tuika}
+          <link rel="stylesheet" type="text/css" href="../css/str.css" title="str"/>
+        <title>#{title}</title>
+      </head>
+      <body>
+EOS
+    end
+    def html_end
+    _end='
+      </body>
+    </html>'
+    return _end
+    end
+    def html_head_refresh(title,time)
+      #time:should be able to convert Integer
+      str= <<eos
+  <META HTTP-EQUIV="Refresh" CONTENT="#{time.to_s};URL=./main.cgi">
+eos
+      html_head(title,str)
+    end
+  end
+end
+if $0==__FILE__
+print Web::html_end
+end

data/lib/agri-controller/webrick_test.rb ADDED Viewed

@@ -0,0 +1,46 @@
+#! ruby -Ku
+#require 'pathname'
+require 'webrick'
+module AgriController
+    module WEBrick::HTTPServlet
+      FileHandler.add_handler('rb', CGIHandler)
+    end
+  module_function
+  def webrick_start(root=Dir.pwd,port=10080)
+    #p approot=Pathname.pwd.parent
+    app_root =root#File.expand_path(File.dirname(__FILE__) + '/..')
+    p document_root = app_root + '/htdocs'
+    p rubybin = 'c:/ruby187/bin/rubyw.exe'
+    #rubybin = 'ruby.exe'
+    server = WEBrick::HTTPServer.new({
+      :DocumentRoot => document_root,
+      :BindAddress => '127.0.0.1',
+      :CGIInterpreter => rubybin,
+      :Port => port
+    })
+    # App/cgi/
+    app_root + '/cgi-bin/*.{cgi,rb}'
+    cgilist = Dir.glob(app_root + '/cgi-bin/*.{cgi,rb}')
+    cgilist.each {|cgi_file|
+      p cgi_file_name = File.basename(cgi_file)
+      server.mount('/cgi-bin/' + cgi_file_name, WEBrick::HTTPServlet::CGIHandler, cgi_file)
+    }
+    ['INT', 'TERM'].each {|signal|
+      Signal.trap(signal){ server.shutdown }
+    }
+    server.start
+  end
+end
+if $0==__FILE__
+$KCODE="s"
+  AgriController::webrick_start
+end

data/lib/agri-controller/wetsensor.rb ADDED Viewed

@@ -0,0 +1,119 @@
+#require "Setting_io"
+#require "wet_sensor"
+module AgriController
+  class WetSensor #< Wet_sensor
+    #include Setting_io
+    attr_reader :name
+    def initialize( delay=1 , name="x")
+      @name=name
+      @keep=false
+      @delay=delay
+      @time=on
+      @command=false
+      @wet_read=yaml_db("wet_read",false, name)
+      @wet_sensor=yaml_db("wet_sensor", false,name)
+      @weted=false
+    end
+    def on
+      @time=Time.now+@delay
+    end
+    def time?
+      Time.now > @time
+    end
+  def commander
+    if @command==true
+      yield
+      @command=false
+      return true
+    else
+      return false
+    end
+  end
+    def run(bit,name=@name)
+      ##illigating check
+      #���������H
+      if bit
+        #print "1"
+        #flag read
+        @wet_read  =yaml_dbr("wet_read",name)
+        @wet_sensor=yaml_dbr("wet_sensor",name)
+        #���m�ォ�H
+        if @weted
+          #print "2"
+          #���m��̓Z���T�[�̊��m�������Ȃ�
+          return !time?
+        #���m���Ă��Ȃ�
+        else
+          #�Z���T�[���m(true)
+          if @wet_sensor
+            #�X�g�b�v����
+            p "#{name} detect:#{Time.now.to_s}"
+            @weted=true
+            #���؏���
+            on
+            #�Z���T�[�s���m
+          else
+            #print "4"
+            #�Z���T�[�̒l�ǂݍ���
+            if @wet_read==false
+              #print "5"
+                #�₢���킹����
+                @command=true
+                @wet_read=yaml_db("wet_read",true,name)
+              # =>�Ԏ��ɂ����sensor���ύX
+            else
+              #wet_read==true
+              #�҂����킹��
+              #print "6"
+            end
+          end
+          #�������s
+          return true
+        end
+      #�������Ă��Ȃ��Ƃ�
+      else
+        #print "."
+        if @wet_sensor
+          @wet_sensor=yaml_db("wet_sensor",false,name)
+        end
+        if @wet_read
+          @wet_read=yaml_db("wet_read",false,name)
+        end
+        @weted=false
+        return bit
+      end
+    end
+  end
+end
+if $0==__FILE__
+require "setting_io"
+include AgriController
+include Setting_io
+name="bit"
+time=Time.now
+bool=false
+bit=WetSensor.new(3,name)
+  loop do
+    break if Time.now >(time+10)
+    p bit.run(true)
+    if Time.now>(time+2) && (bool==false)
+      p Time.now
+      p "detected"
+      yaml_db("wet_sensor",true,name)
+      yaml_db("wet_read",false,name)
+      bool=true
+    end#p yaml_dbr("wet_read","bit")
+    sleep 0.9
+  end
+end

data/lib/agri-controller/wr1010.rb ADDED Viewed

@@ -0,0 +1,316 @@
+module AgriController
+  ##
+  #module WR1010
+  #  before using,you must check COM_port of WR1010,and set same config.
+  #
+  #  How to use
+  #    require "wr1010"
+  #    include WR1010
+  #
+  #    list(com_port=7,child_thermo_numbers=4)
+  #        # =>[[25.9, 36, 36, "10100001000", 5],
+  #             [26.7, false, 21, "10100001000", 5],
+  #             [26.1, false, 3, "10100001000", 5],
+  #             [26.1, false, 51, "10100001000", 5]]
+  #            or nil
+  #
+  #  data meaning
+  #  [Degree,Humidity,Seconds since recorded,status bit,radio(1-5)or errors of status.]
+  #  if fail communicate , returns nil.
+  module WR1010
+    module_function
+    ##
+    #communication setting is very important.please check .
+    # icomno COMNO 1-
+    # idcbflags 0:binariy
+    #           1:parity_on
+    #           2:CTS output flow controll
+    #           b:no check Null char
+    #         c,d:RTS output flow controll
+    # ibaud rate 110,300,600,1200,2400,4800,9600,14400,19200,38400
+    # ibyte 1byte_length 4,5,6,7,8
+    # iparity PARITY 0:none 1:odd 2:even
+    # istopbits STPBIT 0:1bit
+    #                  1:1.5bit
+    #                  2:2bit
+    # irecbuf,isenbuf BUFFERSIZE(recieve,send)
+    # return nil:ok
+    #open(icomno,idcbflags,ibaud,ibyte,iparity,istopbits,irecbuf,isenbuf)
+    #WRexport(com_port,send_port="01",number_of_address="00003",bcc_sum="**",sleep_t=0.05)
+    # =>"%01$RD0C0129002E000f051301FFFF1E0007040E01FFFF030006023201FFFF020001001A\r" (example.)
+    def WRexport(com_port,send_port="01",number_of_address="00003",bcc_sum="**",sleep_t=0.05)
+      a=Serial.new
+        if a.open(com_port,1,57600,8,0,0,8,10) != -1#108,324)!=-1
+          command="%#{send_port}#RDD00000#{number_of_address}#{bcc_sum}\r"
+          yield command if block_given?
+          #p command
+          a.send(command)
+          sleep sleep_t
+          receive=a.receive
+          a.close
+          return receive
+        else
+          return false
+        end
+      nil
+    end
+    ##
+    #returns address number of child thermos(5 chars)
+    #child_thermo(1)# =>"00003"
+    #child_thermo(4)# =>"00015"
+    #child_thermo(56)# =>"00223"
+    def child_thermo(n)
+      begin
+        x=n*4-1
+        y=x.to_s
+        (5-y.size).times{y="0"+y}
+      rescue
+        raise "method child_thermo(#{n}):error"
+      end
+      return y
+    end
+    #thermo_data(recieve_value)# =>["0ff0fffff500ffff","1f00ffffff000000"](ex.)
+    def thermo_data(recieve_value)#ex# =>["0ff0fffff500ffff","1f00ffffff000000"]
+      begin
+        if recieve_value
+          str=recieve_value[6..(-4)]
+          size=str.size
+          if (size)%16 ==0
+          array=[]
+            (size/16).times do |i|
+              array[i]=str.slice!(0..15)
+            end
+          array
+          else
+            nil
+          end
+        else
+          nil
+        end
+      rescue
+        return nil
+      end
+    end
+    def thrmo_array(str)
+      begin
+        result=[]
+        str.each do |data|
+          #p data ;p data.size
+        result_1=[]
+          (data.size/4).times do |i|
+            result_1 << data.slice((i*4),4)
+          end
+          result << anaryze(result_1)
+        end
+        return result
+      rescue
+        return nil
+      end
+    end
+    def anaryze(data)#["0201", "2C00", "2400", "0805"]
+      result=[]
+        #result[0]
+                x=thermo_hex_to_i(data[0])
+        result << judge(x).to_f/10
+        #result[1]
+        x2 = thermo_hex_to_i(data[1])
+        if x2==65535
+          result << false
+        elsif x2<=32766
+          if x2<=100
+            result << x2
+          elsif
+            result << 100
+          end
+        else
+          #p thermo_hex_to_i(data[1])
+          result << false
+        end
+        #result[2]
+        result << thermo_hex_to_i(data[2])
+        #result[3]
+        result << thermo_hex_to_i(data[3]).to_s(2)
+      result
+    end
+    def errors(bit_str)#"10100001000"
+      error_list=[]
+      #if bit_str
+        bit=Bit.new(Integer("0b"+bit_str))
+        #p bit.bit
+        if bit.on?(0)
+          error_list << "bit0:causion:battery. "
+        end
+        if bit.on?(1)
+          error_list << "bit1:Error:sensor cable. "
+        end
+        if bit.on?(2)
+          error_list << "bit2:causion:Temp is too High or Low. "
+        end
+        if bit.off?(3)
+          error_list << "bit3:Error:FATAL ERROR.needs maintainance. "
+        end
+        #p error_list
+        #radio power
+        size=bit_str.size*-1
+        #p bit_str
+        #p bit_str.slice((size..-9))
+        radio_power=Integer("0b"+bit_str.slice((size..-9)))
+        if error_list==[]
+          begin
+            return radio_power
+          rescue
+            return nil
+          end
+        end
+      #else
+      #  nil
+      #end
+      error_list << radio_power
+    end
+  #+-tempereture judge function
+  def judge(x)
+    begin
+      bit=Bit.new(x)
+      unless bit.on?(15)
+        return x
+      else
+        res= x-65535
+        #under -100 'c (degrees Celsius)
+        #thermo must be error 35536 => "1000101011010000" => -2999.9
+        unless res< -1000
+          return res
+        else
+          return nil
+        end
+      end
+    rescue
+      nil
+    end
+  end
+    def thermo_hex_to_i(data)
+      #hex="f100" # =>241
+      x=data.slice(0..1)
+      y=data.slice(2..3)
+      result=((y+x).to_i(16))
+    end
+    def list(com_port=7,thermo=4,sleep_t=0.05)
+      result=[]
+      send_port="01"
+      bcc_sum="**"
+      number_of_address=child_thermo(thermo)
+      recieve_value=WRexport(com_port,send_port,number_of_address,bcc_sum,sleep_t)
+      if recieve_value
+        ret=thermo_data(recieve_value)
+        if ret
+          x=thrmo_array(ret)
+          if x
+            x.each do |data|
+              ret=errors(data[3])
+              data << ret#"10100001000"
+              result << data
+            end
+            return result
+          end
+        end
+      end
+      nil
+    end
+    def to_log(log_file,data)
+      #add data to log_file
+      if data.class!=nil
+        open(log_file,"a") do |io|
+          io.print Time.now
+          io.print "\n"
+          data.each do |str|
+            res=""
+            str.each do |str2|
+              res+=str2.to_s+","
+            end
+            io.print res.chop+"\n"
+          end
+          io.print("\n")
+        end
+        #rename log_file if size too big
+        if File.size?(log_file)>=100000
+          i=1
+          bool=true
+          while bool
+            new_name=i.to_s+log_file
+            unless File.exist?(new_name)
+              File.rename(log_file,new_name)
+              bool=false
+            end
+            i+=1
+          end
+        end
+        nil
+      end
+    end
+    def help
+  '##
+  #module WR1010
+  #  before using,you must check COM_port of WR1010,and set same config.
+  #
+  #  How to use
+  #    require "wr1010"
+  #    include WR1010
+  #
+  #    list(com_port=7,child_thermo_numbers=4)
+  #        # =>[[25.9, 36, 36, "10100001000", 5],
+  #             [26.7, false, 21, "10100001000", 5],
+  #             [26.1, false, 3, "10100001000", 5],
+  #             [26.1, false, 51, "10100001000", 5]]
+  #            or nil
+  #
+  #  data meaning
+  #  [Degree,Humidity,Seconds since recorded,status bit,radio(1-5)or errors of status.]
+  #  if fail communicate , returns nil.'
+    end
+    alias status errors
+    alias com list
+    alias save to_log
+  end
+end
+if $0==__FILE__
+#p $KCODE=""
+include WR1010
+#com_port=7
+#send_port="01"
+#number_of_address="00015"
+#bcc_sum="**"
+#p recieve_value=WRexport(com_port,send_port,number_of_address,bcc_sum)
+#p ret=thermo_data(recieve_value)
+#p x=thrmo_array(ret)
+p x=list(8,4)
+#p judge(65534).to_f/10
+#p thermo_data(nil)
+#thrmo_array(ret)
+#p judge 65535
+p child_thermo(4)
+=begin
+sample="%01$RD0C0129002E000f051301FFFF1E0007040E01FFFF030006023201FFFF020001001A\r"
+#sample=["0D0129000C000f05", "1401FFFF38000804", "0E01FFFF09000802", "3901FFFF1C000900"]
+p ret=thermo_data(sample)
+=end
+#save("foo.txt",list(4))
+end