SonOff Pow r2 Pulses

[MetzgerSau]

I have a little problem with the pulse counter. 1 watt is like many pulses.
That's my rules where I wrote. Works too. But I do not know the factor for the pulse to calculate the watts. Have calculated with power meter, a factor of 686th Unfortunately, I do not think fit.
My Rules

On System#Boot do
TaskValueSet 4,1,0
TaskValueSet 4,2,0
TaskValueSet 4,3,0
TaskValueSet 4,4,0
endon

On Strommesser1#Pulses do
if [Rechnung#var2]>[Strommesser1#Pulses]
TaskValueSet 4,3,[Rechnung#var3]+1
endif

TaskValueSet 4,1,([Rechnung#var3]*65355+[Strommesser1#Pulses])/723.6180904522612
TaskValueSet 4,2,[Strommesser1#Pulses]
endon


I found it out myself..Okey I found in sourcecode 1000 Watt are 201 HZ (201/1000*60*60) 1 Watt are 723,6180904522612 Impulse

[MetzgerSau]

Now... Here is my Rules for Power r2 and works fine. For people who do not have to program it that way.

On System#Boot do
TaskValueSet 4,1,0
TaskValueSet 4,2,0
TaskValueSet 4,3,0
TaskValueSet 4,4,0
timerSet,2,3600
endon

On button#switch do
if [Button#switch]=1
gpio,12,1
TaskValueSet 4,2,1
else
gpio,12,0
endif
endon

On relay#switch do
if [relay#switch]=1
gpio,13,1
else
gpio,13,0
endif
endon

On Strommesser1#Pulses do
if [Rechnung#var2]>[Strommesser1#Pulses]
TaskValueSet 4,3,[Rechnung#var3]+1
endif
TaskValueSet 4,1,([Rechnung#var3]*65355+[Strommesser1#Pulses])/723.618090452
TaskValueSet 4,2,[Strommesser1#Pulses]
TaskValueSet 5,4,[Rechnung#var1]/1000
endon

On Rules#Timer=2 do
TaskValueSet 5,1,([Rechnung#var1]-[Rechnung#var4])/1000
TaskValueSet 4,4,[Rechnung#var1]
TaskValueSet 5,2,[Verbrauch#Gesamter_Verbrauch_Tag]+[Verbrauch#Letzte_Stunde_Verbrauch]
timerSet,2,3600
endon

On Clock#Time=All,23:59 do
TaskValueSet 5,3,[Verbrauch#Gesamter_Verbrauch_Tag]
TaskValueSet 5,2,0
endon



Send this every "Verbrauch" 10 minutes to fhem... (The values ​​are in Kwh)