mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-04-06 18:28:44 +00:00
LUXTRONIK2: min/max and cumulative statistics
git-svn-id: https://svn.fhem.de/fhem/trunk@5206 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
tpoitzsch
parent
20ad12a21c
commit
2154665b59
@ -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 = "<div class=fp_" . $a[0] . "_title>" . $a[0] . "</div>";
|
||||
$value .= "$opStateHeatPump1<br>";
|
||||
$value .= "$opStateHeatPump2<br>";
|
||||
$value .= "$opStateHeatPump3<br>";
|
||||
$value = ""; #"<div class=fp_" . $a[0] . "_title>" . $a[0] . "</div> \n";
|
||||
$value .= "$opStateHeatPump1<br>\n";
|
||||
$value .= "$opStateHeatPump2<br>\n";
|
||||
$value .= "$opStateHeatPump3<br>\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 ($$$$$$)
|
||||
<a name="LUXTRONIK2"></a>
|
||||
<h3>LUXTRONIK2</h3>
|
||||
<ul>
|
||||
Luxtronik 2.0 is a heating controller used in <a href="http://www.alpha-innotec.de">Alpha Innotec</a> and Siemens Novelan (WPR NET) heat pumps.
|
||||
Luxtronik 2.0 is a heating controller used in <a href="http://www.alpha-innotec.de">Alpha Innotec</a>, Siemens Novelan (WPR NET) and Wolf Heiztechnik (BWL/BWS) heat pumps.
|
||||
<br>
|
||||
It has a built-in ethernet port, so it can be directly integrated into a local area network (LAN).
|
||||
<br>
|
||||
@ -1306,13 +1618,17 @@ LUXTRONIK2_doStatisticBoilerCoolDown ($$$$$$)
|
||||
<b>Set</b>
|
||||
<ul>A firmware check assures before each set operation that a heat pump with untested firmware is not damaged accidently.
|
||||
<li><code>opModeHotWater <Mode></code><br>
|
||||
Operating Mode of domestic hot water boiler (Auto | Party | Off)</li>
|
||||
Operating Mode of domestic hot water boiler (Auto | Party | Off)
|
||||
</li><br>
|
||||
<li><code>hotWaterTemperatureTarget <temperature></code><br>
|
||||
Target temperature of domestic hot water boiler in °C</li>
|
||||
Target temperature of domestic hot water boiler in °C
|
||||
</li><br>
|
||||
<li><code>INTERVAL <polling interval></code><br>
|
||||
Polling interval in seconds</li>
|
||||
Polling interval in seconds
|
||||
</li><br>
|
||||
<li><code>statusRequest</code><br>
|
||||
Update device information</li>
|
||||
Update device information
|
||||
</li><br>
|
||||
<li><code>synchClockHeatPump</code><br>
|
||||
Synchronizes controller clock with FHEM time. <b>!! This change is lost in case of controller power off!!</b></li>
|
||||
</ul>
|
||||
@ -1332,13 +1648,20 @@ LUXTRONIK2_doStatisticBoilerCoolDown ($$$$$$)
|
||||
<br>
|
||||
If set, a HTML-formatted reading named "floorplanHTML" is created. It can be used with the <a href="#FLOORPLAN">FLOORPLAN</a> module.
|
||||
<br>
|
||||
Currently, if the value of this attribute is not NULL, the corresponding reading consists of the current status of the heat pump and the temperature of the water.</li>
|
||||
Currently, if the value of this attribute is not NULL, the corresponding reading consists of the current status of the heat pump and the temperature of the water.
|
||||
</li><br>
|
||||
<li><code>doStatistics < 0 | 1 ></code>
|
||||
<br>
|
||||
Calculates statistic values: <i>statBoilerGradientHeatUp, statBoilerGradientCoolDown, statBoilerGradientCoolDownMin (boiler heat loss)</i></li>
|
||||
Calculates statistic values: <i>statBoilerGradientHeatUp, statBoilerGradientCoolDown, statBoilerGradientCoolDownMin (boiler heat loss)</i>
|
||||
<br>
|
||||
Builds daily, monthly and yearly statistics for certain readings (average/min/max or cumulated values).
|
||||
<br>
|
||||
Logging and visualisation of the statistic should be done with readings of type 'stat<i>ReadingName</i><b>Last</b>'.
|
||||
</li><br>
|
||||
<li><code>allowSetParameter < 0 | 1 ></code>
|
||||
<br>
|
||||
The <a href="#LUXTRONIK2set">parameters</a> of the heat pump controller can only be changed if this attribut is set to 1.</li>
|
||||
The <a href="#LUXTRONIK2set">parameters</a> of the heat pump controller can only be changed if this attribut is set to 1.
|
||||
</li><br>
|
||||
<li><code>autoSynchClock <delay></code>
|
||||
<br>
|
||||
Corrects the clock of the heatpump automatically if a certain <i>delay</i> (10 s - 600 s) against the FHEM time is exeeded. Does a firmware check before.
|
||||
@ -1348,7 +1671,8 @@ LUXTRONIK2_doStatisticBoilerCoolDown ($$$$$$)
|
||||
<br>
|
||||
A firmware check assures before each set operation that a heatpump controller with untested firmware is not damaged accidently.
|
||||
<br>
|
||||
If this attribute is set to 1, the firmware check is ignored and new firmware can be tested for compatibility.</li>
|
||||
If this attribute is set to 1, the firmware check is ignored and new firmware can be tested for compatibility.
|
||||
</li><br>
|
||||
<li><a href="#readingFnAttributes">readingFnAttributes</a></li>
|
||||
</ul>
|
||||
</ul>
|
||||
@ -1360,8 +1684,11 @@ LUXTRONIK2_doStatisticBoilerCoolDown ($$$$$$)
|
||||
<a name="LUXTRONIK2"></a>
|
||||
<h3>LUXTRONIK2</h3>
|
||||
<ul>
|
||||
Die Luxtronik 2.0 ist eine Heizungssteuerung, welche in Wärmepumpen von <a href="http://www.alpha-innotec.de">Alpha Innotec</a> und Siemens Novelan (WPR NET) verbaut ist.<br>
|
||||
Sie besitzt einen Ethernet Anschluss, so dass sie direkt in lokale Netzwerke (LAN) integriert werden kann.<br>
|
||||
Die Luxtronik 2.0 ist eine Heizungssteuerung, welche in Wärmepumpen von <a href="http://www.alpha-innotec.de">Alpha Innotec</a>,
|
||||
Siemens Novelan (WPR NET) und Wolf Heiztechnik (BWL/BWS) verbaut ist.
|
||||
<br>
|
||||
Sie besitzt einen Ethernet Anschluss, so dass sie direkt in lokale Netzwerke (LAN) integriert werden kann.
|
||||
<br>
|
||||
<i>Das Modul wurde bisher mit folgender Steuerungs-Firmware getestet: V1.54C, V1.60, V1.69.</i>
|
||||
<br>
|
||||
<br>
|
||||
@ -1384,16 +1711,20 @@ LUXTRONIK2_doStatisticBoilerCoolDown ($$$$$$)
|
||||
Durch einen Firmware-Test wird vor jeder Set-Operation sichergestellt, dass Wärmepumpen mit ungetester Firmware nicht unabsichtlich beschädigt werden.
|
||||
<li><code>opModeHotWater <Betriebsmodus></code>
|
||||
<br>
|
||||
Betriebsmodus des Heißwasserboilers ( Auto | Party | Off )</li>
|
||||
Betriebsmodus des Heißwasserboilers ( Auto | Party | Off )
|
||||
</li><br>
|
||||
<li><code>hotWaterTemperatureTarget <Temperatur></code>
|
||||
<br>
|
||||
Soll-Temperatur des Heißwasserboilers in °C</li>
|
||||
Soll-Temperatur des Heißwasserboilers in °C
|
||||
</li><br>
|
||||
<li><code>INTERVAL <Abfrageinterval></code>
|
||||
<br>
|
||||
Abfrageinterval in Sekunden</li>
|
||||
Abfrageinterval in Sekunden
|
||||
</li><br>
|
||||
<li><code>statusRequest</code>
|
||||
<br>
|
||||
Aktualisieren der Gerätewerte</li>
|
||||
Aktualisieren der Gerätewerte
|
||||
</li><br>
|
||||
<li><code>synchClockHeatPump</code>
|
||||
<br>
|
||||
Abgleich der Uhr der Steuerung mit der FHEM Zeit. <b>Diese Änderung geht verloren, sobald die Steuerung ausgeschaltet wird!!</b></li>
|
||||
@ -1414,27 +1745,35 @@ LUXTRONIK2_doStatisticBoilerCoolDown ($$$$$$)
|
||||
wenn gesetzt, dann wird ein HTML-formatierter Wert "floorplanHTML" erzeugt,
|
||||
welcher vom Modul <a href="#FLOORPLAN">FLOORPLAN</a> genutzt werden kann.<br>
|
||||
Momentan wird nur geprüft, ob der Wert dieses Attributes ungleich NULL ist,
|
||||
der entsprechende Gerätewerte besteht aus dem aktuellen Wärmepumpenstatus und der Heizwassertemperatur.</li>
|
||||
der entsprechende Gerätewerte besteht aus dem aktuellen Wärmepumpenstatus und der Heizwassertemperatur.
|
||||
</li><br>
|
||||
<li><code>doStatistics < 0 | 1 ></code>
|
||||
<br>
|
||||
Berechnet statistische Werte: <i>statBoilerGradientHeatUp, statBoilerGradientCoolDown,
|
||||
statBoilerGradientCoolDownMin (Wärmeverlust des Boilers)</i></li>
|
||||
statBoilerGradientCoolDownMin (Wärmeverlust des Boilers)</i>
|
||||
<br>
|
||||
Bildet tägliche, monatliche und jährliche Statistiken bestimmter Gerätewerte.<br>
|
||||
Für grafische Auswertungen können die Werte der Form 'stat<i>ReadingName</i><b>Last</b>' genutzt werden.
|
||||
</li><br>
|
||||
<li><code>allowSetParameter < 0 | 1 ></code>
|
||||
<br>
|
||||
Die internen <a href="#LUXTRONIK2set">Parameter</a> der Wärmepumpensteuerung können
|
||||
nur geändert werden, wenn dieses Attribut auf 1 gesetzt ist.</li>
|
||||
nur geändert werden, wenn dieses Attribut auf 1 gesetzt ist.
|
||||
</li><br>
|
||||
<li><code>autoSynchClock <Zeitunterschied></code>
|
||||
<br>
|
||||
Die Uhr der Wärmepumpe wird automatisch korrigiert, wenn ein gewisser <i>Zeitunterschied</i> (10 s - 600 s)
|
||||
gegenüber der FHEM Zeit erreicht ist. Zuvor wird die Kompatibilität der Firmware überprüft.<br>
|
||||
<i>(Ein Gerätewert 'delayDeviceTimeCalc' <= 2 s ist auf die internen Berechnungsintervale der
|
||||
Wärmepumpensteuerung zurückzuführen.)</i></li>
|
||||
Wärmepumpensteuerung zurückzuführen.)</i>
|
||||
</li><br>
|
||||
<li><code>ignoreFirmwareCheck < 0 | 1 ></code>
|
||||
<br>
|
||||
Durch einen Firmware-Test wird vor jeder Set-Operation sichergestellt, dass Wärmepumpen
|
||||
mit ungetester Firmware nicht unabsichtlich beschädigt werden. Wenn dieses Attribute auf 1
|
||||
gesetzt ist, dann wird der Firmware-Test ignoriert und neue Firmware kann getestet werden.
|
||||
Dieses Attribut wird jedoch ignoriert, wenn die Steuerungs-Firmware bereits als nicht kompatibel berichtet wurde.</li>
|
||||
Dieses Attribut wird jedoch ignoriert, wenn die Steuerungs-Firmware bereits als nicht kompatibel berichtet wurde.
|
||||
</li><br>
|
||||
<li><a href="#readingFnAttributes">readingFnAttributes</a></li>
|
||||
</ul>
|
||||
</ul>
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user