Backup of Daily-Class-1(No. 2)

List of Backups
View the diff.
View the diff current.
View the source.
Go to Daily-Class-1.
- 1 (2016-06-02 (Thu) 16:22:57)
- 2 (2016-06-02 (Thu) 16:23:25)
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/adk-wiki-2/index.php?pir-1-"
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"),"=","a-0",columnLabel("sdv"))
program:   c0=countif(dataTable,rowLabel,columnLabel("device"),"=","a-0")
program:   ave0=1.0*y0/c0
program:   if ave0>avemax0 then avemax0=ave0
program:   if ave0<avemin0 then avemin0=ave0
program:   dataline="device=a-0, Date="+dataTable(0,columnLabel("Date"))+",ave="+ave0
program:   ex("service","println "+dataline)
program:   ex("service","putSendBuffer "+dataline)
program:   y1=sumif(dataTable,rowLabel,columnLabel("device"),"=","a-1",columnLabel("v"))
program:   c1=countif(dataTable,rowLabel,columnLabel("device"),"=","a-1")
program:   ave1=1.0*y1/c1
program:   if ave1>avemax1 then avemax1=ave1
program:   if ave1<avemin1 then avemin1=ave1
program:   dataline="device=a-1, Date="+dataTable(0,columnLabel("Date"))+",ave="+ave1
program:   ex("service","println "+dataline)
program:   ex("service","putSendBuffer "+dataline)
program:   y2=sumif(dataTable,rowLabel,columnLabel("device"),"=","a-2",columnLabel("v"))
program:   c2=countif(dataTable,rowLabel,columnLabel("device"),"=","a-2")
program:   ave2=1.0*y2/c2
program:   centdeg=(500.0*ave2)/1023-50
program:   if centdeg>tmpmax then tmpmax=centdeg
program:   if centdeg<tmpmin then tmpmin=centdeg
program:   dataline="device=a-2, Date="+dataTable(0,columnLabel("Date"))+",ave="+ave2+",cd="+centdeg
program:   ex("service","println "+dataline)
program:   ex("service","putSendBuffer "+dataline)
program:   y3=sumif(dataTable,rowLabel,columnLabel("device"),"=","a-3",columnLabel("v"))
program:   c3=countif(dataTable,rowLabel,columnLabel("device"),"=","a-3")
program:   ave3=1.0*y3/c3
program:   dataline="device=a-3, 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="daily-1-<day>"
Backup of Daily-Class-1 (No. 2)
