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

76_SolarForecast.pm: contrib 0.72.4

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@26665 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
DS_Starter
2022-11-06 15:08:43 +00:00
parent 843da3e486
commit 4906c20b86
1 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
fhem/contrib/DS_Starter/76_SolarForecast.pm
View File

@@ -8357,27 +8357,27 @@ sub _calcCAQwithSolCastPercentil {
$est60 = sprintf "%.0f", ($est50 + ($highdm * 1)); $est60 = sprintf "%.0f", ($est50 + ($highdm * 1));
$est70 = sprintf "%.0f", ($est50 + ($highdm * 2)); $est70 = sprintf "%.0f", ($est50 + ($highdm * 2));
$est80 = sprintf "%.0f", ($est50 + ($highdm * 3)); $est80 = sprintf "%.0f", ($est50 + ($highdm * 3));
my %pc = ( my %pc = (
10 => $est10, 1 => { perc => 40, est => $est40 },
20 => $est20, 2 => { perc => 30, est => $est30 },
30 => $est30, 3 => { perc => 20, est => $est20 },
40 => $est40, 4 => { perc => 10, est => $est10 },
60 => $est60, 5 => { perc => 60, est => $est60 },
70 => $est70, 6 => { perc => 70, est => $est70 },
80 => $est80, 7 => { perc => 80, est => $est80 },
90 => $est90, 8 => { perc => 90, est => $est90 },
); );
my $perc = 50; # Standardpercentil my $perc = 50; # Standardpercentil
my $diff0 = abs ($est50 - $pvval); my $diff0 = abs ($est50 - $pvval);
## no critic 'NoStrict' ## no critic 'NoStrict'
for my $p (sort keys %pc) { for my $p (sort keys %pc) {
my $diff1 = abs ($pc{$p} - $pvval); my $diff1 = abs ($pc{$p}{est} - $pvval);
if($diff1 < $diff0) { if($diff1 < $diff0) {
$diff0 = $diff1; $diff0 = $diff1;
$perc = $p; $perc = $pc{$p}{perc};
} }
} }