sensors-1-d-class の変更点

追加された行はこの色です。
削除された行はこの色です。
sensors-1-d-class へ行く。
sensors-1-d-class の差分を削除
[[sensors-1-h-18]]

 command: set readInterval=3600000
 command: set sendInterval=0
 command: program daily
 program: dim dataTable
 program: dim columnLabel
 program: dim rowLabel
 program: ex("service","clear sendBuffer")
 program: output=""
 program: url="http://www.yama-lab.org/fwb4pi/index.php?sensors-1-d-"
 program: avemax0=0
 program: avemax1=0
 program: tmpmax=-20
 program: avemin0=1024
 program: avemin1=1024
 program: tmpmin=200
 program: for i=0 to 23
 program:   page=ex("connector" , "getpage "+url+i)
 program:   rpart=getResultPart(page)
 program:   ex("service","println "+rpart)
 program:   parseCsv(rpart,dataTable,rowLabel,columnLabel)
 program:   y0=sumif(dataTable,rowLabel,columnLabel("device"),"=","motion",columnLabel("v"))
 program:   c0=countif(dataTable,rowLabel,columnLabel("device"),"=","motion")
 program:   ave0=1.0*y0/c0
 program:   if ave0>avemax0 then avemax0=ave0
 program:   if ave0<avemin0 then avemin0=ave0
 program:   dataline="device=motion, Date="+dataTable(0,columnLabel("Date"))+",ave="+ave0
 program:   ex("service","println "+dataline)
 program:   ex("service","putSendBuffer "+dataline)
 program:   y1=sumif(dataTable,rowLabel,columnLabel("device"),"=","light",columnLabel("v"))
 program:   c1=countif(dataTable,rowLabel,columnLabel("device"),"=","light")
 program:   ave1=1.0*y1/c1
 program:   if ave1>avemax1 then avemax1=ave1
 program:   if ave1<avemin1 then avemin1=ave1
 program:   dataline="device=light, Date="+dataTable(0,columnLabel("Date"))+",ave="+ave1
 program:   ex("service","println "+dataline)
 program:   ex("service","putSendBuffer "+dataline)
 program:   y2=sumif(dataTable,rowLabel,columnLabel("device"),"=","temp",columnLabel("v"))
 program:   c2=countif(dataTable,rowLabel,columnLabel("device"),"=","temp")
 program:   ave2=1.0*y2/c2
 program:   if ave2>tmpmax then tmpmax=ave2
 program:   if ave2<tmpmin then tmpmin=ave2
 program:   dataline="device=temp, Date="+dataTable(0,columnLabel("Date"))+",ave="+ave2
 program:   ex("service","println "+dataline)
 program:   ex("service","putSendBuffer "+dataline)
 program:   y3=sumif(dataTable,rowLabel,columnLabel("device"),"=","airPol",columnLabel("v"))
 program:   c3=countif(dataTable,rowLabel,columnLabel("device"),"=","airPol")
 program:   ave3=1.0*y3/c3
 program:   dataline="device=airPol, Date="+dataTable(0,columnLabel("Date"))+",ave="+ave3
 program:   ex("service","println "+dataline)
 program:   ex("service","putSendBuffer "+dataline)
 program: next i
 program: dataline="device=maxvalues, Data="+dataTable(0,columnLabel("Date"))
 program: dataline=dataline+",avemax0="+avemax0+",avemax1="+avemax1+",tmpmax="+tmpmax
 program: ex("service","println "+dataline)
 program: ex("service","putSendBuffer "+dataline)
 program: ex("service","sendResults.")
 program: if avemax0 < 7.0 then ex("service","set out-a-8=255") else ex("service","set out-d-8=0")
 program: if avemax1 < 100.0 then ex("service","set out-a-9=255") else ex("service","set out-d-9=0")
 program: if tmpmax > 35.0 then ex("service","set out-a-10=255") else ex("service","set out-d-10=0")
 command: end daily
 command: run daily
 command: set pageName="sensors-1-d-<day>"