Backup of sensors-1-d-class(No. 1)

List of Backups
View the diff.
View the diff current.
View the source.
Go to sensors-1-d-class.
- 1 (2019-06-11 (Tue) 17:22:02)
- 2 (2019-06-11 (Tue) 19:28:50)
- 3 (2019-06-12 (Wed) 18:49:29)
- 4 (2019-06-21 (Fri) 08:56:48)
- 5 (2024-04-13 (Sat) 07:34:05)
- 6 (2024-04-22 (Mon) 08:09:38)

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://yama-lab.fuip.fukuyama-u.ac.jp/fueng-04303/index.php?sensors-1-h-"
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+",motion="+avemax0+",light="+avemax1+",temp="+tmpmax
program: ex("service","println "+dataline)
program: ex("service","putSendBuffer "+dataline)
program: ex("service","sendResults.")
command: end daily
command: run daily
command: set pageName="daily-1-<day>"

Backup of sensors-1-d-class (No. 1)