mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

93_PWMR.pm : fix adjust rounding of PVal and newpulsePID

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@12775 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
jamesgo
2016-12-14 17:22:30 +00:00
parent ebe423892a
commit d715053a87
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
fhem/FHEM/93_PWMR.pm
View File

@@ -41,6 +41,7 @@
# 16.11.16 GA fix format desired-temp with one digit after the decimal point # 16.11.16 GA fix format desired-temp with one digit after the decimal point
# 17.11.16 GA add internals for configuration parameters: p_factor, p_tsensor, p_actor, p_window, p_pid # 17.11.16 GA add internals for configuration parameters: p_factor, p_tsensor, p_actor, p_window, p_pid
# 11.12.16 GA add alternative PID calculation, selectable by usePID=2, implementation from user Albatros_ # 11.12.16 GA add alternative PID calculation, selectable by usePID=2, implementation from user Albatros_
# 14.12.16 GA fix adjust rounding of PVal and newpulsePID
# module for PWM (Pulse Width Modulation) calculation # module for PWM (Pulse Width Modulation) calculation
@@ -1094,6 +1095,7 @@ PWMR_ReadRoom(@)
my $IVal = $ISum; my $IVal = $ISum;
my $DVal = $room->{c_PID_DFactor} * ($room->{h_deltaTemp_D} - $room->{h_deltaTemp}); my $DVal = $room->{c_PID_DFactor} * ($room->{h_deltaTemp_D} - $room->{h_deltaTemp});
$PVal = sprintf ("%.4f", $PVal);
$IVal = minNum (1, sprintf ("%.4f", $IVal)); $IVal = minNum (1, sprintf ("%.4f", $IVal));
$DVal = minNum (1, sprintf ("%.4f", $DVal)); $DVal = minNum (1, sprintf ("%.4f", $DVal));
@@ -1101,8 +1103,8 @@ PWMR_ReadRoom(@)
my $newpulsePID = ($PVal + $IVal + $DVal); my $newpulsePID = ($PVal + $IVal + $DVal);
$newpulsePID = minNum ($MaxPulse, sprintf ("%.4f", $newpulsePID)); $newpulsePID = minNum ($MaxPulse, sprintf ("%.2f", $newpulsePID));
$newpulsePID = maxNum (0, sprintf ("%.4f", $newpulsePID)); $newpulsePID = maxNum (0, sprintf ("%.2f", $newpulsePID));
my $PWMPulsePID = $newpulsePID * 100; my $PWMPulsePID = $newpulsePID * 100;
my $PWMOnTimePID = sprintf ("%02s:%02s", int ($newpulsePID * $cycletime / 60), ($newpulsePID * $cycletime) % 60); my $PWMOnTimePID = sprintf ("%02s:%02s", int ($newpulsePID * $cycletime / 60), ($newpulsePID * $cycletime) % 60);