[[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>"