daily
command: set readInterval=3600000
command: set sendInterval=3600000
command: program daily
program: dim dataTable
program: dim columnLabel
program: dim rowLabel
program: output=""
program: url="http://www.yama-lab.org/adk-wiki-1/pir-1-"
program: for i=0 to 23
program: hour=0
program: page=ex("connector" , "getpage "+url+hour)
program: ex("service","println "+page)
program: parseCsv(page,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: ex("service","println ave0="+ave0);
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: ex("service","println ave1="+ave1);
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: ex("service","println ave2="+ave2);
program: output="Date="+dataTable(0,columnLabel("Date"))+
program: ",ave-a0="+ave0+",ave-a1="+ave1+",ave-a2="+ave2+".\n"
program: ex("service","putSendBuffer "+output)
program: next i
command: end daily
command: set pageName="daily-1-<day>"
command: set result=""
command: run daily
result:
device=a-0, Date=2012/12/24/ 0, sdv=10.434068380627922.
device=a-1, Data=2012/12/24/ 0, v=100.
, max=631, min=556, f1=2, f2=0, f3=0, n=600, dt=100.
device=a-2, Date=2012/12/24/ 17:46:54, v=174.
device=d, Date=2012/12/24/ 17:46:54, v=0x0c0.
device=a-1, Date=2012/12/24/ 17:47:17, ave=15, sdv=33.053828152810915, max=88, min=0, f1=2, f2=0, f3=0, n=10, dt=10000.