FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-18 05:56:03 +00:00
Code Issues Releases Wiki Activity

59_HCS: Simplify idle/demand condition implementation.

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@15866 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
hjr 2018-01-13 10:47:22 +00:00
parent fd6068e2ac
commit 305a04256f
1 changed files with 6 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
fhem/FHEM/59_HCS.pm
View File

@ -522,11 +522,9 @@ HCS_getValues($$) {
if($td eq " n/a" || $tm eq " n/a") {
$delta = " n/a";
} else {
$delta = sprintf(" %.1f",$td-$tm);
$delta = sprintf("+%.1f",$tm-$td) if($tm > $td);
$delta = sprintf("-%.1f",$td-$tm) if($td > $tm);
$delta = sprintf("%+5.1f",$tm-$td);
}
$str .= sprintf("%-${ln}s: desired: %s°C measured: %s°C delta: %s valve: %${lv}d%% state: %s\n",
$str .= sprintf("%-${ln}s: desired: %s°C measured: %s°C delta: %s valve: %${lv}d%% state: %s\n",
$d,$td,$tm,$delta,$act,$info);
}
@ -601,7 +599,6 @@ HCS_getValues($$) {
my $act = $devs{$d}{actuator};
my $tm = $devs{$d}{tempMeasured};
my $td = $devs{$d}{tempDesired};
my $delta;
my $str;
if(!$hash->{helper}{device}{$d}{demand}) {
@ -613,37 +610,20 @@ HCS_getValues($$) {
my $tOn = AttrVal($name,"thermostatThresholdOn",$defaults{thermostatThresholdOn});
my $tOff = AttrVal($name,"thermostatThresholdOff",$defaults{thermostatThresholdOff});
if($tm > $td && $tm-$td >= $tOff) {
if( $tm >= $td + $tOff ) {
$devState = "idle";
$hash->{helper}{device}{$d}{demand} = 0;
$delta = $tm-$td;
$str = sprintf("desired: %4.1f measured: %4.1f delta: +%.1f open: %${lv}d%% state: %s",$td,$tm,$delta,$act,$devState);
$sumIdle++;
} elsif($td > $tm && $td-$tm >= $tOn) {
} elsif( $tm <= $td - $tOn ) {
$devState = "demand";
$hash->{helper}{device}{$d}{demand} = 1;
$delta = $td-$tm;
$str = sprintf("desired: %4.1f measured: %4.1f delta: -%.1f open: %${lv}d%% state: %s",$td,$tm,$delta,$act,$devState);
$sumDemand++;
} elsif($tm > $td) {
$devState = $lastState;
$delta = $tm-$td;
$str = sprintf("desired: %4.1f measured: %4.1f delta: +%.1f open: %${lv}d%% state: %s",$td,$tm,$delta,$act,$devState);
$sumIdle++ if($devState eq "idle");
$sumDemand++ if($devState eq "demand");
} elsif($td > $tm) {
$devState = $lastState;
$delta = $td-$tm;
$str = sprintf("desired: %4.1f measured: %4.1f delta: -%.1f open: %${lv}d%% state: %s",$td,$tm,$delta,$act,$devState);
$sumIdle++ if($devState eq "idle");
$sumDemand++ if($devState eq "demand");
} else {
$devState = $lastState;
$delta = $td-$tm;
$str = sprintf("desired: %4.1f measured: %4.1f delta: %.1f open: %${lv}d%% state: %s",$td,$tm,$delta,$act,$devState);
$sumIdle++ if($devState eq "idle");
$sumDemand++ if($devState eq "demand");
}
$str = sprintf("desired: %4.1f measured: %4.1f d: %+5.1f open: %${lv}d%% state: %s",$td,$tm,$tm-$td,$act,$devState);
} elsif($mode eq "valve") {
my $vOn = AttrVal($name,"valveThresholdOn",$defaults{valveThresholdOn});
my $vOff = AttrVal($name,"valveThresholdOff",$defaults{valveThresholdOff});
@ -670,12 +650,8 @@ HCS_getValues($$) {
$hash->{helper}{device}{$d}{demand} = 0;
$sumIdle++;
}
}
$delta = sprintf(" %.1f",$td-$tm);
$delta = sprintf("+%.1f",$tm-$td) if($tm > $td);
$delta = sprintf("-%.1f",$td-$tm) if($td > $tm);
$str = sprintf("desired: %4.1f measured: %4.1f delta: %s valve: %${lv}d%% state: %s",$td,$tm,$delta,$valve,$devState);
$str = sprintf("desired: %4.1f measured: %4.1f delta: %+5.1f valve: %${lv}d%% state: %s",$td,$tm,$tm-$td,$valve,$devState);
}
Log3 $name, 4, "$type $name $d: $str";