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

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: dim devname
program: dim ave
program: dim avemax
program: dim avemin
program: devname(0)="pir": devname(1)="lux": devname(2)="temp":devname(3)="humid":devname(4)="co2":devname(5)="dst"
program: ex("service","clear sendBuffer")
program: output=""
program: url="http://www.yama-lab.org/adk-wiki-1/index.php?sensors-1-h-"
program: for j=0 to 5
program:    dx=devname(j)
program:    ave(dx)=0
program:    avemax(dx)=0
program:    avemin(dx)=60000
program: next j
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:   for j=0 to 5
program:     dname=devname(j)
program:     y0=sumif(dataTable,rowLabel,columnLabel("device"),"=",dname,columnLabel("v"))
program:     c0=countif(dataTable,rowLabel,columnLabel("device"),"=",dname)
program:     ave(dname)=1.0*y0/c0
program:     if ave(dname)>avemax(dname) then avemax(dname)=ave(dname)
program:     if ave(dname)<avemin(dname) then avemin(dname)=ave(dname)
program:     dataline="device="+dname+", Date="+dataTable(0,columnLabel("Date"))+",ave="+ave(dname)
program:     ex("service","println "+dataline)
program:     ex("service","putSendBuffer "+dataline)
program:   next j
program: next i
program: for j=0 to 5
program:   dname=devname(j)
program:   dataline="dev-max-min="+dname+",Data="+dataTable(0,columnLabel("Date"))
program:   dataline=dataline+",max="+avemax(dname)+",min="+avemin(dname)
program:   ex("service","println "+dataline)
program:   ex("service","putSendBuffer "+dataline)
program: next j
program: ex("service","sendResults.")
command: end daily
command: run daily
command: set pageName="sensors-1-d-<day>"

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