Kika på detta inlägg i denna tråd:SuperMike skrev:Jag har gjort enligt denna eminenta guide. Men jag har 1000 pulser per kWh. Dessa rader i graph.pl har jag ändrat:
"CDEF:W=energi,3600,*",
"CDEF:W_real=energi,1,*,1000,/",
Kan någon vänlig själ säga om jag räknat rätt?
Sen får jag ett felmeddelande när jag ska göra en graf med detta kommando:
# ./graph.pl -s 24h -t 'Elförbrukning'
ERROR: start time: did you really mean month 24? at ./graph.pl line 26
Själva beräkningarna kommenterar jag inte här, starta en ny tråd där du postar alla script du använder.SuperMike skrev:Jag har gjort enligt denna eminenta guide. Men jag har 1000 pulser per kWh. Dessa rader i graph.pl har jag ändrat:
"CDEF:W=energi,3600,*",
"CDEF:W_real=energi,1,*,1000,/",
Kan någon vänlig själ säga om jag räknat rätt?
Sen får jag ett felmeddelande när jag ska göra en graf med detta kommando:
# ./graph.pl -s 24h -t 'Elförbrukning'
ERROR: start time: did you really mean month 24? at ./graph.pl line 26
Jag testade med 22 x 3600 / 180 = 440.elf98 skrev:Varje puls ger att du har förbrukat 1Wh (1kWh=1000Wh)
22Wh på 3 min innebär 440W (22Wh/3*60) per timme. Momentanförbrukningen har därmed varit 440W under dina 3 minuter.
Kod: Markera allt
fromtime=UDATE(getutc("2010-10-28 03:00"))
totime=UDATE(getutc(now))
Set WshShell = WScript.CreateObject("WScript.Shell")
Query = "rrdtool graph el.png --start " & fromtime & " --end " & totime & " DEF:energi=energi.rrd:energi:AVERAGE" &_
" CDEF:W=energi,3600,*" &_
" CDEF:W_real=energi,1,*,1000,/" &_
" VDEF:value_sum=W_real,TOTAL" &_
" AREA:W#9999ee" &_
" LINE1:W#FF0000" '&_
'" GPRINT:value_sum: ""Forbrukad mangd: kWh""" '&_
'" GPRINT:W:MIN:""Momentanforbrukning: Min: %0.2lf%sW""" &_
'" GPRINT:W:AVERAGE:""Medel: %0.2lf%sW""" &_
'" GPRINT:W:MAX:""Max: %0.2lf%sW""" &_
'" GPRINT:W:LAST:""Just nu: %0.2lf%sW""" &_
'" COMMENT:""Copyright Freiholtz Consulting 2007"""
Return = WshShell.Run(Query, 1)
function UDate(oldDate)
UDate = DateDiff("s", "01/01/1970 00:00:00", oldDate)
end function
function getutc(mydate)
od = mydate
set oShell = CreateObject("WScript.Shell")
atb = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\TimeZoneInformation\ActiveTimeBias"
offsetMin = oShell.RegRead(atb)
nd = dateadd("n", offsetMin, od)
'wscript.echo nd
'Response.Write("Current = " & od & "<br>UTC = " & nd)
getutc= nd
end function
Så kan du applicera dina 10k blink så här:Enligt information på elmätaren snurrar skivan på elmätaren 120 varv per kWh.
Varje varv på min elmätare motsvarar 1000Wh/120 = 8.333Wh, vilket motsvarar 8.333*3600 = 30000Joule.
Databasens minsta enhet är därmed 1/30000 Joule / Sekund, eller 1/30000Watt
Så för att få ut W:
Multiplicera räknarvärdet med 30000
För att få ut förbrukad effekt Wh:
Multiplicera med 8.3333 och summera över tid.