From 2154665b59dff883592fd67f9850dd83b5d1f2f0 Mon Sep 17 00:00:00 2001 From: tpoitzsch <> Date: Wed, 12 Mar 2014 18:17:26 +0000 Subject: [PATCH] LUXTRONIK2: min/max and cumulative statistics git-svn-id: https://svn.fhem.de/fhem/trunk@5206 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/23_LUXTRONIK2.pm | 603 +++++++++++++++++++++++++++++-------- 1 file changed, 471 insertions(+), 132 deletions(-) diff --git a/fhem/FHEM/23_LUXTRONIK2.pm b/fhem/FHEM/23_LUXTRONIK2.pm index 6f23de325..117379a21 100644 --- a/fhem/FHEM/23_LUXTRONIK2.pm +++ b/fhem/FHEM/23_LUXTRONIK2.pm @@ -39,13 +39,19 @@ use IO::Socket; use Time::HiRes qw/ time /; use Net::Telnet; +sub LUXTRONIK2_doStatisticThermalPower ($$$$$$$); +sub LUXTRONIK2_doStatisticMinMax ($$$); +sub LUXTRONIK2_doStatisticMinMaxSingle ($$$$); +sub LUXTRONIK2_storeReadings ($$$$$); +sub LUXTRONIK2_doStatisticDelta ($$$$) ; + # Modul Version for remote debugging - my $modulVersion = "2014-02-20"; + my $modulVersion = "2014-03-03"; #List of firmware versions that are known to be compatible with this modul my $testedFirmware = "#V1.54C#V1.60#V1.69#"; my $compatibleFirmware = "#V1.54C#V1.60#V1.69#"; - + sub ######################################## LUXTRONIK2_Initialize($) { @@ -59,10 +65,11 @@ LUXTRONIK2_Initialize($) $hash->{AttrList} = "disable:0,1 ". "allowSetParameter:0,1 ". "autoSynchClock:slider,10,5,300 ". + "boilerVolumn ". "doStatistics:0,1 ". "ignoreFirmwareCheck:0,1 ". "statusHTML ". - $readingFnAttributes; + $readingFnAttributes; } sub ######################################## @@ -151,6 +158,7 @@ LUXTRONIK2_Notify(@) { hotWaterState => "opStateHotWater", heatingSystemCirculationPump => "heatingSystemCircPump", hotWaterCirculationPumpExtern => "hotWaterCircPumpExtern", + currentThermalOutput => "thermalPower", statGradientBoilerTempLoss => "statBoilerGradientHeatUp' and 'statBoilerGradientCoolDown" ); my $oldReading; my $newReading; @@ -192,31 +200,40 @@ LUXTRONIK2_Set($$@) my ($hash, $name, $cmd, $val) = @_; my $resultStr = ""; - if($cmd eq 'statusRequest') { - $hash->{LOCAL} = 1; - LUXTRONIK2_GetUpdate($hash); - $hash->{LOCAL} = 0; - return undef; - } - elsif ($cmd eq 'resetStatistics') { - if ( ($val eq "all" || $val eq "statBoilerGradientCoolDownMin") - && exists($defs{$name}{READINGS}{statBoilerGradientCoolDownMin})) { - delete $defs{$name}{READINGS}{statBoilerGradientCoolDownMin}; - $resultStr .= " statBoilerGradientCoolDownMin"; + if($cmd eq 'statusRequest') { + $hash->{LOCAL} = 1; + LUXTRONIK2_GetUpdate($hash); + $hash->{LOCAL} = 0; + return undef; } - if ( $resultStr eq "" ) { - $resultStr = "$name: No statistics to reset"; - } else { - $resultStr = "$name: Statistic value(s) deleted:" . $resultStr; + elsif ($cmd eq 'resetStatistics') { + if ( $val eq "statBoilerGradientCoolDownMin" + && exists($hash->{READINGS}{statBoilerGradientCoolDownMin})) { + delete $hash->{READINGS}{statBoilerGradientCoolDownMin}; + $resultStr .= " statBoilerGradientCoolDownMin"; + } + elsif ($val eq 'all') { + foreach (sort keys %{ $hash->{READINGS} }) { + if ($_ =~ /^\.?stat/ && $_ ne "state") { + delete $hash->{READINGS}{$_}; + $resultStr .= " " . $_; + } + } + } + if ( $resultStr eq "" ) { + $resultStr = "$name: No statistics to reset"; + } else { + $resultStr = "$name: Statistic value(s) deleted:" . $resultStr; + WriteStatefile(); + } + # Log3 $hash, 3, $resultStr; + return $resultStr; + } + elsif($cmd eq 'INTERVAL' && int(@_)==4 ) { + $val = 30 if( $val < 30 ); + $hash->{INTERVAL}=$val; + return "Polling interval set to $val seconds."; } - Log3 $hash, 3, $resultStr; - return $resultStr; - } - elsif($cmd eq 'INTERVAL' && int(@_)==4 ) { - $val = 30 if( $val < 30 ); - $hash->{INTERVAL}=$val; - return "Polling interval set to $val seconds."; - } #Check Firmware and Set-Paramter-lock if ($cmd eq 'synchronizeClockHeatPump' || @@ -256,12 +273,13 @@ LUXTRONIK2_Set($$@) return $resultStr; } - my $list = "statusRequest:noArg". - " resetStatistics:all,statBoilerGradientCoolDownMin". - " hotWaterTemperatureTarget:slider,30.0,0.5,65.0". - " opModeHotWater:Auto,Party,Off". - " synchronizeClockHeatPump:noArg". - " INTERVAL:slider,30,30,1800"; + my $list = "statusRequest:noArg" + ." resetStatistics:all,statBoilerGradientCoolDownMin" + ." hotWaterTemperatureTarget:slider,30.0,0.5,65.0" + ." opModeHotWater:Auto,Party,Off" + ." synchronizeClockHeatPump:noArg" + ." INTERVAL:slider,30,30,1800"; + return "Unknown argument $cmd, choose one of $list"; } @@ -443,9 +461,9 @@ LUXTRONIK2_DoUpdate($) #(FVA) read next 4 bytes of response -> should be number_of_Visibility_Attributes > 0 $socket->recv($result,4); - $count = unpack("N", $result); - if($count == 0) { - Log3 $name, 2, "$name LUXTRONIK2_DoUpdate-Error: 0 visibility attributes announced: ".length($result)." -> ".$count; + my $countVisibAttr = unpack("N", $result); + if($countVisibAttr == 0) { + Log3 $name, 2, "$name LUXTRONIK2_DoUpdate-Error: 0 visibility attributes announced: ".length($result)." -> ".$countVisibAttr; $socket->close(); return "$name|0|0 visibility attributes announced"; } @@ -454,25 +472,25 @@ LUXTRONIK2_DoUpdate($) $i=1; $result=""; $buf=""; - while($i<=$count) { + while($i<=$countVisibAttr) { $socket->recv($buf,1); $result.=$buf; $i++; } - if(length($result) != $count) { - Log3 $name, 1, "$name LUXTRONIK2_DoUpdate-Error: Visibility attributes length check: ".length($result)." should have been ". $count; + if(length($result) != $countVisibAttr) { + Log3 $name, 1, "$name LUXTRONIK2_DoUpdate-Error: Visibility attributes length check: ".length($result)." should have been ". $countVisibAttr; $socket->close(); return "$name|0|Number of Visibility attributes read mismatch ( $!)\n"; } - @heatpump_visibility = unpack("C$count", $result); - if(scalar(@heatpump_visibility) != $count) { - Log3 $name, 2, "$name LUXTRONIK2_DoUpdate-Error: Unpacking problem by visibility attributes: ".scalar(@heatpump_visibility)." instead of ".$count; + @heatpump_visibility = unpack("C$countVisibAttr", $result); + if(scalar(@heatpump_visibility) != $countVisibAttr) { + Log3 $name, 2, "$name LUXTRONIK2_DoUpdate-Error: Unpacking problem by visibility attributes: ".scalar(@heatpump_visibility)." instead of ".$countVisibAttr; $socket->close(); return "$name|0|Unpacking problem of visibility attributes"; } - Log3 $name, 5, "$name: $count visibility attributs received"; + Log3 $name, 5, "$name: $countVisibAttr visibility attributs received"; #################################### @@ -560,7 +578,7 @@ LUXTRONIK2_DoUpdate($) $return_str .= "|". ($heatpump_visibility[196]==1 ? $heatpump_values[65] : "no"); # 36 - counterHeatQHeating $return_str .= "|" . $heatpump_values[151]; - # 37 - counterHeatQHeating + # 37 - counterHeatQHotWater $return_str .= "|". $heatpump_values[152]; # 38 - counterHours2ndHeatSource2 $return_str .= "|". ($heatpump_visibility[85]==1 ? $heatpump_values[61] : "no"); @@ -592,7 +610,8 @@ LUXTRONIK2_DoUpdate($) $return_str .= "|". ($heatpump_visibility[37]==1 ? $heatpump_values[27] : "no"); # 52 - counterHoursSolar $return_str .= "|". ($heatpump_visibility[248]==1 ? $heatpump_values[161] : "no"); - + # 53 - Number of visibility attributes + $return_str .= "|".$countVisibAttr; return $return_str; } @@ -676,6 +695,8 @@ LUXTRONIK2_UpdateDone($) my $counterRetry = $hash->{fhem}{counterRetry}; $counterRetry++; + my $doStatistic = AttrVal($name,"doStatistics",0); + if ($a[1]==0 ) { readingsSingleUpdate($hash,"state","Error: ".$a[2],1); $counterRetry = 0; @@ -700,19 +721,21 @@ LUXTRONIK2_UpdateDone($) my $hotWaterTemperature = LUXTRONIK2_CalcTemp($a[14]); my $hotWaterTemperatureTarget = LUXTRONIK2_CalcTemp($a[25]); my $hotWaterTemperatureThreshold = LUXTRONIK2_CalcTemp($a[25] - $a[49]); - my $thresholdHeatingLimit = LUXTRONIK2_CalcTemp($a[21]); + my $heatSourceIN = LUXTRONIK2_CalcTemp($a[23]); + my $thresholdHeatingLimit = LUXTRONIK2_CalcTemp($a[21]); my $thresholdTemperatureSetBack = LUXTRONIK2_CalcTemp($a[48]); my $flowTemperature = LUXTRONIK2_CalcTemp($a[15]); my $returnTemperature = LUXTRONIK2_CalcTemp($a[16]); # if selected, do all the statistic calculations - if ( AttrVal($name,"doStatistics",0) == 1) { + if ( $doStatistic == 1) { #LUXTRONIK2_doStatisticBoilerHeatUp $hash, $currOpHours, $currHQ, $currTemp, $opState, $target $value = LUXTRONIK2_doStatisticBoilerHeatUp ($hash, $a[35], $a[37]/10, $hotWaterTemperature, $a[3],$hotWaterTemperatureTarget); if ($value ne "") { readingsBulkUpdate($hash,"statBoilerGradientHeatUp",$value); Log3 $name,3,"$name: statBoilerGradientHeatUp set to $value"; } + #LUXTRONIK2_doStatisticBoilerCoolDown $hash, $time, $currTemp, $opState, $target, $threshold $value = LUXTRONIK2_doStatisticBoilerCoolDown ($hash, $a[22], $hotWaterTemperature, $a[3], $hotWaterTemperatureTarget, $hotWaterTemperatureThreshold); if ($value ne "") { @@ -730,8 +753,18 @@ LUXTRONIK2_UpdateDone($) Log3 $name,3,"$name: statBoilerGradientCoolDownMin set to $value"; } } - } + + # LUXTRONIK2_doStatisticThermalPower: $hash, $MonitoredOpState, $currOpState, $currHeatQuantity, $currOpHours, $currAmbTemp, $currHeatSourceIn + $value = LUXTRONIK2_doStatisticThermalPower ($hash, 5, $a[3], $a[37]/10, $a[35], $ambientTemperature, $heatSourceIN); + if ($value ne "") { readingsBulkUpdate($hash,"statThermalPowerBoiler",$value); } + $value = LUXTRONIK2_doStatisticThermalPower ($hash, 0, $a[3], $a[36]/10, $a[34], $ambientTemperature, $heatSourceIN); + if ($value ne "") { readingsBulkUpdate($hash,"statThermalPowerHeating",$value); } + # LUXTRONIK2_doStatisticMinMax $hash, $readingName, $value + LUXTRONIK2_doStatisticMinMax ( $hash, "statAmbientTemp", $ambientTemperature); + + } + #Operating status of heat pump my $opStateHeatPump1 = $wpOpStat1{$a[2]}; ############## $opStateHeatPump1 = "unbekannt (".$a[2].")" unless $opStateHeatPump1; @@ -824,10 +857,22 @@ LUXTRONIK2_UpdateDone($) readingsBulkUpdate( $hash, "returnTemperatureTarget",LUXTRONIK2_CalcTemp($a[17])); if ($a[18] !~ /no/) {readingsBulkUpdate( $hash, "returnTemperatureExtern",LUXTRONIK2_CalcTemp($a[18]))}; readingsBulkUpdate( $hash, "flowRate",$a[19]); - readingsBulkUpdate( $hash, "heatSourceIN",LUXTRONIK2_CalcTemp($a[23])); + readingsBulkUpdate( $hash, "heatSourceIN",$heatSourceIN); readingsBulkUpdate( $hash, "heatSourceOUT",LUXTRONIK2_CalcTemp($a[24])); readingsBulkUpdate( $hash, "hotGasTemperature",LUXTRONIK2_CalcTemp($a[26])); + # Operating hours (seconds->hours) and heat quantities + # LUXTRONIK2_storeReadings: $hash, $readingName, $value, $factor, $doStatistic + LUXTRONIK2_storeReadings $hash, "counterHours2ndHeatSource1", $a[32], 3600, $doStatistic; + LUXTRONIK2_storeReadings $hash, "counterHours2ndHeatSource2", $a[38], 3600, $doStatistic; + LUXTRONIK2_storeReadings $hash, "counterHours2ndHeatSource3", $a[39], 3600, $doStatistic; + LUXTRONIK2_storeReadings $hash, "counterHoursHeatPump", $a[33], 3600, $doStatistic; + LUXTRONIK2_storeReadings $hash, "counterHoursHeating", $a[34], 3600, $doStatistic; + LUXTRONIK2_storeReadings $hash, "counterHoursHotWater", $a[35], 3600, $doStatistic; + LUXTRONIK2_storeReadings $hash, "counterHeatQHeating", $a[36], 10, $doStatistic; + LUXTRONIK2_storeReadings $hash, "counterHeatQHotWater", $a[37], 10, $doStatistic; + LUXTRONIK2_storeReadings $hash, "counterHeatQTotal", $a[36] + $a[37], 10, $doStatistic; + # Input / Output status readingsBulkUpdate($hash,"heatingSystemCircPump",$a[27]?"on":"off"); @@ -852,41 +897,36 @@ LUXTRONIK2_UpdateDone($) $value = "unbekannt (".$a[31].")" unless $value; readingsBulkUpdate($hash,"typeHeatpump",$value); - # Operating hours (seconds->hours) and heat quantities, write/create readings only if >0 - if ($a[32] !~ /no/) {readingsBulkUpdate($hash,"counterHours2ndHeatSource1", sprintf("%.1f", $a[32]/3600));} - if ($a[38] !~ /no/) {readingsBulkUpdate($hash,"counterHours2ndHeatSource2", sprintf("%.1f", $a[38]/3600));} - if ($a[39] !~ /no/) {readingsBulkUpdate($hash,"counterHours2ndHeatSource3", sprintf("%.1f", $a[39]/3600));} - if ($a[33] !~ /no/) {readingsBulkUpdate($hash,"counterHoursHeatPump", sprintf("%.1f", $a[33]/3600));} - if ($a[34] !~ /no/) {readingsBulkUpdate($hash,"counterHoursHeating", sprintf("%.1f", $a[34]/3600));} - if ($a[35] !~ /no/) {readingsBulkUpdate($hash,"counterHoursHotWater", sprintf("%.1f", $a[35]/3600));} - if ($a[36] > 0) {readingsBulkUpdate($hash,"counterHeatQHeating", $a[36]/10);} - if ($a[37] > 0) {readingsBulkUpdate($hash,"counterHeatQHotWater" ,$a[37]/10);} - if ($a[36] > 0 && $a[37] > 0) {readingsBulkUpdate($hash,"counterHeatQTotal",($a[36]+$a[37])/10);} #WM[kW] = delta_Temp [K] * Durchfluss [l/h] / ( 3.600 [kJ/kWh] / ( 4,179 [kJ/(kg*K)] (H2O Wärmekapazität bei 30 & 40°C) * 0,994 [kg/l] (H2O Dichte bei 35°C) ) - $value = ($flowTemperature-$returnTemperature) * $a[19] / 866.65; - readingsBulkUpdate( $hash, "currentThermalOutput", sprintf("%.1f", $value)); - - # Solar + my $thermalPower = 0; + # 0=Heizen, 5=Brauchwasser, 7=Abtauen, 16=Durchflussüberwachung + if ($a[3] =~ /^(0|5|16)$/ ) { $thermalPower = sprintf "%.1f", abs($flowTemperature - $returnTemperature) * $a[19] / 866.65; } + readingsBulkUpdate( $hash, "thermalPower", $thermalPower); + + # Solar if ($a[50] !~ /no/) {readingsBulkUpdate($hash, "solarCollectorTemperature", LUXTRONIK2_CalcTemp($a[50]));} if ($a[51] !~ /no/) {readingsBulkUpdate($hash, "solarBufferTemperature", LUXTRONIK2_CalcTemp($a[51]));} if ($a[52] !~ /no/) {readingsBulkUpdate($hash, "counterHoursSolar", sprintf("%.1f", $a[52]/3600));} # HTML for floorplan if(AttrVal($name, "statusHTML", "none") ne "none") { - $value = "
" . $a[0] . "
"; - $value .= "$opStateHeatPump1
"; - $value .= "$opStateHeatPump2
"; - $value .= "$opStateHeatPump3
"; + $value = ""; #"
" . $a[0] . "
\n"; + $value .= "$opStateHeatPump1
\n"; + $value .= "$opStateHeatPump2
\n"; + $value .= "$opStateHeatPump3
\n"; $value .= "Brauchwasser: $hotWaterTemperature °C"; readingsBulkUpdate($hash,"floorplanHTML",$value); } # State update - readingsBulkUpdate($hash,"state","$opStateHeatPump1 $opStateHeatPump2 - $opStateHeatPump3"); + $value = "$opStateHeatPump1 $opStateHeatPump2 - $opStateHeatPump3"; + if ($thermalPower != 0) { $value .= " ($thermalPower kW)"; } + readingsBulkUpdate($hash, "state", $value); readingsEndUpdate($hash,1); $hash->{helper}{fetched_calc_values} = $a[44]; $hash->{helper}{fetched_parameters} = $a[45]; + $hash->{helper}{fetched_visib_attr} = $a[53]; ############################ #Auto Synchronize Device Clock @@ -921,7 +961,6 @@ LUXTRONIK2_UpdateDone($) } - sub ######################################## LUXTRONIK2_UpdateAborted($) { @@ -1072,7 +1111,7 @@ LUXTRONIK2_synchronizeClock (@) Log3 $name, 5, "$name: Read current time of host"; my @output = $telnet->cmd('date +%s'); - $delay = floor(time()) - $output[0]; + $delay = sprintf("%.1f",time() - $output[0]); Log3 $name, 5, "$name: Current time is ".localtime($output[0])." Delay is $delay seconds."; if (abs($delay)>$maxDelta && $maxDelta!=0) { @@ -1110,21 +1149,60 @@ LUXTRONIK2_checkFirmware ($) } } +# Calculate heat-up gradients of boiler based on hotWaterTemperature and counterHeatQHeating +sub ######################################## +LUXTRONIK2_doStatisticThermalPower ($$$$$$$) +{ + my ($hash, $MonitoredOpState, $currOpState, $currHeatQuantity, $currOpHours, $currAmbTemp, $currHeatSourceIn) = @_; + my @last = split / /, $hash->{fhem}{"statThermalPowerOpState_".$MonitoredOpState} || "1"; + my $saveCurrent = 0; + my $returnStr = ""; + my $value1; + my $value2; + my $value3; + + if ($last[0] != $MonitoredOpState && $currOpState == $MonitoredOpState ) { + $saveCurrent = 1; + } elsif ($last[0] == $MonitoredOpState && $currOpState != $MonitoredOpState && $currOpState != 16 ) { #16=Durchflussüberwachung + $saveCurrent = 1; + $value2 = ($currOpHours - $last[2])/60; + if ($value2 > 9.5) { + $value1 = ($currAmbTemp + $last[3]) / 2; + $returnStr = "aT: " . sprintf "%.1f", $value1; + $value1 = $currHeatQuantity - $last[1]; + $value3 = $value1 * 60 / $value2; + $returnStr .= " thP: " . sprintf "%.1f", $value3; + $returnStr .= " t: " . sprintf "%.0f", $value2; + $returnStr .= " DQ: " . sprintf "%.1f", $value1; + $value1 = ($currHeatSourceIn + $last[4]) / 2; + $returnStr .= " iT: " . sprintf "%.1f", $value1; + } + } + if ($saveCurrent == 1) { + $last[0] = $currOpState; + $last[1] = $currHeatQuantity; + $last[2] = $currOpHours; + $last[3] = $currAmbTemp; + $last[4] = $currHeatSourceIn; + $hash->{fhem}{"statThermalPowerOpState_".$MonitoredOpState} = join( " ", @last); + } + return $returnStr; +} + # Calculate heat-up gradients of boiler based on hotWaterTemperature and counterHeatQHeating sub ######################################## LUXTRONIK2_doStatisticBoilerHeatUp ($$$$$$) { - - my ($hash, $currOpHours, $currHQ, $currTemp, $opState, $target) = @_; + my ($hash, $currOpHours, $currHQ, $currTemp, $opState, $target) = @_; my $name = $hash->{NAME}; - my $step = $hash->{fhem}{statBoilerHeatUpStep}; + my $step = $hash->{fhem}{statBoilerHeatUpStep}; my $minTemp = $hash->{fhem}{statBoilerHeatUpMin}; my $maxTemp = $hash->{fhem}{statBoilerHeatUpMax}; my $lastHQ = $hash->{fhem}{statBoilerHeatUpHQ}; my $lastOpHours = $hash->{fhem}{statBoilerHeatUpOpHours}; my $value1 = 0; - my $value2 = 0; - my $value3 = 0; + my $value2 = 0; + my $value3 = 0; my $returnStr = ""; # step 0 = Initialize - if hot water preparation is off @@ -1191,18 +1269,22 @@ LUXTRONIK2_doStatisticBoilerHeatUp ($$$$$$) Log3 $name, 4, "$name: Statistic Boiler Heat-Up step 3->1: Boiler heat-up measurement finished"; $value1 = ( int(10 * $maxTemp) - int(10 * $minTemp) ) / 10; # delta hot water temperature $value2 = ( $currOpHours - $lastOpHours ) / 60; # delta time (minutes) - # $value3 = floor(100 * $value1 / $value2 + 0.5) / 100; # Temperature gradient over time rounded to 1/100th - # $value2 = floor(100 * $value2 + 0.5) / 100; # rounded to 1/100th $returnStr = "DT/min: ".sprintf("%.2f", $value1/$value2)." DT: ".sprintf("%.2f", $value1)." Dmin: ".sprintf("%.0f", $value2); - $value2 = $currHQ - $lastHQ; # delta heat quantity - # $value2 = floor(10*($currHQ - $lastHQ)+0.5)/10; # delta heat quantity - # $value3 = floor(100 * $value2 / $value1 + 0.5) / 100; # heat gradient over temperature rounded to 1/100th - $returnStr .= " DQ/T: ".sprintf("%.2f",$value2/$value1)." DQ: ".sprintf("%.1f",$value2); - - #Volumen [l] = Wärmemenge [kWh] / (delta T) [K] * ( 3.600 [kJ/kWh] / ( 4,179 [kJ/(kg*K)] (H2O Wärmekapazität bei 40°C) * 0,992 [kg/l] (H2O Dichte bei 40°C) ) [K/(kWh*l)] ) - $value3 = 868.4 * $value2 / $value1 ; # heated water volume in liter - $returnStr .= " DV: ".sprintf("%.0f",$value3); + $value3 = $currHQ - $lastHQ; # delta heat quantity + # Delta Heat Quantity + $returnStr .= " DQ: ".sprintf("%.1f",$value3); + # Average thermal power + $returnStr .= " thP: ".sprintf("%.1f",$value3 * 60 / $value2); + + + #real (mixed) Temperature-Difference + my $boilerVolumn = AttrVal($name, "boilerVolumn", 0); + if ($boilerVolumn >0 ) { + # (delta T) [K] = Wärmemenge [kWh] / #Volumen [l] * ( 3.600 [kJ/kWh] / ( 4,179 [kJ/(kg*K)] (H2O Wärmekapazität bei 40°C) * 0,992 [kg/l] (H2O Dichte bei 40°C) ) [K/(kWh*l)] ) + $value2 = 868.4 * $value3 / $boilerVolumn ; + $returnStr .= " realDT: ".sprintf("%.0f", $value2); + } $step = 1; $lastOpHours = $currOpHours; @@ -1211,8 +1293,8 @@ LUXTRONIK2_doStatisticBoilerHeatUp ($$$$$$) } } - $hash->{fhem}{statBoilerHeatUpStep} = $step; - $hash->{fhem}{statBoilerHeatUpMin} = $minTemp; + $hash->{fhem}{statBoilerHeatUpStep} = $step; + $hash->{fhem}{statBoilerHeatUpMin} = $minTemp; $hash->{fhem}{statBoilerHeatUpMax} = $maxTemp; $hash->{fhem}{statBoilerHeatUpHQ} = $lastHQ; $hash->{fhem}{statBoilerHeatUpOpHours} = $lastOpHours; @@ -1225,18 +1307,20 @@ LUXTRONIK2_doStatisticBoilerHeatUp ($$$$$$) sub ######################################## LUXTRONIK2_doStatisticBoilerCoolDown ($$$$$$) { - my ($hash, $time, $currTemp, $opState, $target, $threshold) = @_; + my ($hash, $time, $currTemp, $opState, $target, $threshold) = @_; my $name = $hash->{NAME}; - my $step = $hash->{fhem}{statBoilerCoolDownStep}; + my $step = $hash->{fhem}{statBoilerCoolDownStep}; my $maxTemp = $hash->{fhem}{statBoilerCoolDownMax}; my $startTime = $hash->{fhem}{statBoilerCoolDownStartTime}; - my $value1 = 0; - my $value2 = 0; - my $value3 = 0; + my $lastTime = $hash->{fhem}{statBoilerCoolDownLastTime}; + my $lastTemp = $hash->{fhem}{statBoilerCoolDownLastTemp}; + my $value1 = 0; + my $value2 = 0; + my $value3 = 0; my $returnStr = ""; # step 0 = Initialize - if hot water preparation is off and target reached, - if ($step == 0) { + if ($step == 0) { if ($opState == 5 || $currTemp < $target) { # -> stay step 0 # Log3 $name, 4, "$name: Statistic Boiler Cool-Down step 0: Wait till hot water preparation stops and target is reached ($currTemp < $target)"; } else { @@ -1246,34 +1330,262 @@ LUXTRONIK2_doStatisticBoilerCoolDown ($$$$$$) $maxTemp = $currTemp; } # step 1 = wait till threshold is reached -> do calculation, monitor maximal temperature - } elsif ($step == 1) { - if ($currTemp > $maxTemp) { # monitor maximal temperature - Log3 $name, 4, "$name: Statistic Boiler Cool-Down step 1: Temperature still increasing ($currTemp > $maxTemp)"; + } elsif ($step == 1) { + if ($currTemp > $maxTemp) { # monitor maximal temperature + Log3 $name, 4, "$name: Statistic Boiler Cool-Down step 1: Temperature still increasing ($currTemp > $maxTemp)"; $maxTemp = $currTemp; - $startTime = $time; - } - if ($opState == 5) { - Log3 $name, 4, "$name: Statistic Boiler Cool-Down step 1: Measurement cancelled (restart of hot water preparation)"; - $step = 0; - } elsif ($currTemp <= $threshold) { - Log3 $name, 4, "$name: Statistic Boiler Cool-Down step 2->1: Measurement finished, threshold reached ($currTemp <= $threshold)"; - $value1 = ( int(10 * $currTemp) - int(10 * $maxTemp) ) / 10; # delta hot water temperature - $value2 = ( $time - $startTime ) / 3600; # delta time (hours) - $value3 = floor(100 * $value1 / $value2 + 0.5) / 100; # Temperature gradient over time rounded to 1/100th - $value2 = floor(100 * $value2 + 0.5) / 100; # rounded to 1/100th - $returnStr = "DT/h: $value3 DT: $value1 Dh: $value2"; + $startTime = $time; + } + if ($opState == 5 || $currTemp <= $threshold) { + if ($opState == 5) { + Log3 $name, 4, "$name: Statistic Boiler Cool-Down step 1->0: Heat-up started, measurement finished"; + $value1 = $lastTemp - $maxTemp; # delta hot water temperature + $value2 = ( $lastTime - $startTime ) / 3600; # delta time (hours) + } elsif ($currTemp <= $threshold) { + Log3 $name, 4, "$name: Statistic Boiler Cool-Down step 1->0: Measurement finished, threshold reached ($currTemp <= $threshold)"; + $value1 = $currTemp - $maxTemp; # delta hot water temperature + $value2 = ( $time - $startTime ) / 3600; # delta time (hours) + } + $value3 = sprintf("%.2f", $value1 / $value2 ); # Temperature gradient over time rounded to 1/100th + $value2 = sprintf("%.2f", $value2 ); # rounded to 1/100th + $value1 = sprintf("%.1f", $value1 ); # rounded to 1/10th + $returnStr = "DT/h: $value3 DT: $value1 Dh: $value2"; + $step = 0; + } + } - $step = 0; - } - } - - $hash->{fhem}{statBoilerCoolDownStep} = $step; + $hash->{fhem}{statBoilerCoolDownStep} = $step; $hash->{fhem}{statBoilerCoolDownMax} = $maxTemp; $hash->{fhem}{statBoilerCoolDownStartTime} = $startTime; + $hash->{fhem}{statBoilerCoolDownLastTime} = $time; + $hash->{fhem}{statBoilerCoolDownLastTemp} = $currTemp; return $returnStr; } +# Calculates single MaxMin Values and informs about end of day and month +sub ######################################## +LUXTRONIK2_doStatisticMinMax ($$$) +{ + my ($hash, $readingName, $value) = @_; + my $dummy; + my $saveLast; + my $statReadingName; + + my $lastReading; + my $lastSums; + my @newReading; + + my $yearLast; + my $monthLast; + my $dayLast; + my $dayNow; + my $monthNow; + my $yearNow; + + # Determine date of last and current reading + if (exists($hash->{READINGS}{$readingName."Day"}{TIME})) { + ($yearLast, $monthLast, $dayLast) = $hash->{READINGS}{$readingName."Day"}{TIME} =~ /^(\d\d\d\d)-(\d\d)-(\d\d)/; + } else { + ($dummy, $dummy, $dummy, $dayLast, $monthLast, $yearLast) = localtime; + $yearLast += 1900; + $monthLast ++; + } + ($dummy, $dummy, $dummy, $dayNow, $monthNow, $yearNow) = localtime; + $yearNow += 1900; + $monthNow ++; + + # Daily Statistic + $saveLast = ($dayNow != $dayLast); + $statReadingName = $readingName."Day"; + LUXTRONIK2_doStatisticMinMaxSingle $hash, $statReadingName, $value, $saveLast; + + # Monthly Statistic + $saveLast = ($monthNow != $monthLast); + $statReadingName = $readingName."Month"; + LUXTRONIK2_doStatisticMinMaxSingle $hash, $statReadingName, $value, $saveLast; + + # Yearly Statistic + $saveLast = ($yearNow != $yearLast); + $statReadingName = $readingName."Year"; + LUXTRONIK2_doStatisticMinMaxSingle $hash, $statReadingName, $value, $saveLast; + + return ; + +} + +# Calculates single MaxMin Values and informs about end of day and month +sub ######################################## +LUXTRONIK2_doStatisticMinMaxSingle ($$$$) +{ + my ($hash, $readingName, $value, $saveLast) = @_; + my $result; + + my $lastReading = $hash->{READINGS}{$readingName}{VAL} || ""; + + # Initializing + if ( $lastReading eq "" ) { + my $since = strftime "%Y-%m-%d_%H:%M:%S", localtime(); + $result = "Count: 1 Sum: $value ShowDate: 1"; + readingsBulkUpdate($hash, ".".$readingName, $result); + $result = "Min: $value Avg: $value Max: $value (since: $since )"; + readingsBulkUpdate($hash, $readingName, $result); + + # Calculations + } else { + my @a = split / /, $hash->{READINGS}{"." . $readingName}{VAL}; # Internal values + my @b = split / /, $lastReading; + # Do calculations + if ($saveLast) { + readingsBulkUpdate($hash, $readingName . "Last", $lastReading); + $a[1] = 1; $a[3] = $value; $a[5] = 0; + $b[1] = $value; $b[3] = $value; $b[5] = $value; + } else { + $a[1]++; # Count + $a[3] += $value; # Sum + if ($value < $b[1]) { $b[1]=$value; } # Min + $b[3] = sprintf "%.1f" , $a[3] / $a[1]; # Avg + if ($value > $b[5]) { $b[5]=$value; } # Max + } + # Store internal calculation values + $result = "Count: $a[1] Sum: $a[3] ShowDate: $a[5]"; + readingsBulkUpdate($hash, ".".$readingName, $result); + # Store visible Reading + if ($a[5] == 1) { + $result = "Min: $b[1] Avg: $b[3] Max: $b[5] (since: $b[7] )"; + } else { + $result = "Min: $b[1] Avg: $b[3] Max: $b[5]"; + } + readingsBulkUpdate($hash, $readingName, $result); + } + return; +} + + +sub ######################################## +LUXTRONIK2_storeReadings($$$$$) +{ + my ($hash, $readingName, $value, $factor, $doStatistics) = @_; + + if ($value eq "no" || $value == 0 ) { return; } + + readingsBulkUpdate($hash, $readingName, sprintf("%.1f", $value / $factor)); + + $readingName =~ s/counter//; + + # LUXTRONIK2_doStatisticDelta: $hash, $readingName, $value, $factor + if ( $doStatistics == 1) { LUXTRONIK2_doStatisticDelta $hash, "stat".$readingName, $value, $factor; } +} + + +# Calculates deltas for day, month and year +sub ######################################## +LUXTRONIK2_doStatisticDelta ($$$$) +{ + my ($hash, $readingName, $value, $factor) = @_; + my $dummy; + + my @curr = split / /, $hash->{READINGS}{$readingName}{VAL} || ""; + my @start = split / /, $hash->{READINGS}{"." . $readingName . "Start"}{VAL} || ""; + + my $saveLast=0; + my @last; + if (exists ($hash->{READINGS}{$readingName."Last"})) { + @last = split / /, $hash->{READINGS}{$readingName."Last"}{VAL}; + } else { + @last = split / /, "Day: - Month: - Year: -"; + } + + my $result; + my $yearLast; + my $monthLast; + my $dayLast; + my $dayNow; + my $monthNow; + my $yearNow; + + # Determine date of last and current reading + if (exists($hash->{READINGS}{$readingName}{TIME})) { + ($yearLast, $monthLast, $dayLast) = ($hash->{READINGS}{$readingName}{TIME} =~ /^(\d\d\d\d)-(\d\d)-(\d\d)/); + } else { + ($dummy, $dummy, $dummy, $dayLast, $monthLast, $yearLast) = localtime; + $yearLast += 1900; + $monthLast ++; + $start[1] = $value; + $start[3] = $value; + $start[5] = $value; + $start[7] = 6; + $curr[7] = strftime "%Y-%m-%d_%H:%M:%S", localtime(); # Start + } + ($dummy, $dummy, $dummy, $dayNow, $monthNow, $yearNow) = localtime; + $yearNow += 1900; + $monthNow ++; + + # Yearly Statistic + if ($yearNow != $yearLast){ + $last[5] = $curr[5]; + $start[5] = $value; + # Do not show the "since:" value for year changes anymore + if ($start[7] == 1) { $start[7] = 0; } + # Shows the "since:" value for the first year change + if ($start[7] >= 2) { + $last[7] = $curr[7]; + $start[7] = 1; + } + } + $curr[5] = sprintf "%.1f", ($value - $start[5]) / $factor; + + # Monthly Statistic + if ($monthNow != $monthLast){ + $last[3] = $curr[3]; + $start[3] = $value; + # Do not show the "since:" value for month changes anymore + if ($start[7] == 3) { $start[7] = 2; } + # Shows the "since:" value for the first month change + if ($start[7] >= 4) { + $last[7] = $curr[7]; + $start[7] = 3; + } + } + $curr[3] = sprintf "%.1f", ($value - $start[3]) / $factor; + + # Daily Statistic + if ($dayNow != $dayLast){ + $last[1] = $curr[1]; + $start[1] = $value; + # Do not show the "since:" value for day changes anymore + if ($start[7] == 5) { $start[7] = 4; } + # Shows the "since:" value for the first day change + if ($start[7] >= 6) { + $last[7] = $curr[7]; + $start[7] = 5; + # Next monthly and yearly values start at 00:00 + $curr[7] = strftime "%Y-%m-%d", localtime(); # Start + $start[3] = $value; + $start[5] = $value; + } + $saveLast = 1; + } + $curr[1] = sprintf "%.1f", ($value - $start[1]) / $factor; + + # Store internal calculation values + $result = "Day: $start[1] Month: $start[3] Year: $start[5] ShowDate: $start[7]"; + readingsBulkUpdate($hash, ".".$readingName."Start", $result); + + # Store visible Reading + $result = "Day: $curr[1] Month: $curr[3] Year: $curr[5]"; + if ($start[7] != 0 ) { $result .= " (since: $curr[7] )"; } + readingsBulkUpdate($hash,$readingName,$result); + + if ($saveLast == 1) { + $result = "Day: $last[1] Month: $last[3] Year: $last[5]"; + if ( $start[7] =~ /1|3|5/ ) { $result .= " (since: $last[7] )";} + readingsBulkUpdate($hash,$readingName."Last",$result); + } + + return ; +} + 1; @@ -1283,7 +1595,7 @@ LUXTRONIK2_doStatisticBoilerCoolDown ($$$$$$)

LUXTRONIK2

@@ -1360,8 +1684,11 @@ LUXTRONIK2_doStatisticBoilerCoolDown ($$$$$$)

LUXTRONIK2