[[FrontPage]]

 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: url="http://www.yama-lab.org/adk-wiki-1/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>"

Front page   Edit Diff Backup Upload Copy Rename Reload   New List of pages Search Recent changes   Help   RSS of recent changes