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

76_Solarforcast: contrib 0.70.10

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@26579 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2022-10-24 12:28:40 +00:00
parent 949bf36008
commit af04f882a0
1 changed files with 16 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -129,6 +129,7 @@ BEGIN {
# Versions History intern # Versions History intern
my %vNotesIntern = ( my %vNotesIntern = (
"0.70.10"=> "24.10.2022 write best percentil in pvHistory (_calcCAQwithSolCastPercentil instead of ___readPercAndQuality) ",
"0.70.9 "=> "24.10.2022 create additional percentile only for pvCorrectionFactor_Auto on, changed __solCast_ApiResponse ". "0.70.9 "=> "24.10.2022 create additional percentile only for pvCorrectionFactor_Auto on, changed __solCast_ApiResponse ".
"changed _calcCAQwithSolCastPercentil ", "changed _calcCAQwithSolCastPercentil ",
"0.70.8 "=> "23.10.2022 change average calculation in _calcCAQwithSolCastPercentil, unuse Notify/createNotifyDev ". "0.70.8 "=> "23.10.2022 change average calculation in _calcCAQwithSolCastPercentil, unuse Notify/createNotifyDev ".
@ -3794,13 +3795,13 @@ sub ___readPercAndQuality {
$data{$type}{$name}{nexthours}{"NextHour".sprintf("%02d",$num)}{pvcorrf} = $perc."/".$hq; $data{$type}{$name}{nexthours}{"NextHour".sprintf("%02d",$num)}{pvcorrf} = $perc."/".$hq;
if($fd == 0 && $fh1) { #if($fd == 0 && $fh1) {
$paref->{pvcorrf} = $perc."/".$hq; # $paref->{pvcorrf} = $perc."/".$hq;
$paref->{nhour} = sprintf("%02d",$fh1); # $paref->{nhour} = sprintf("%02d",$fh1);
$paref->{histname} = "pvcorrfactor"; # $paref->{histname} = "pvcorrfactor";
setPVhistory ($paref); # setPVhistory ($paref);
delete $paref->{histname}; # delete $paref->{histname};
} #}
return ($hcfound, $perc, $hq); return ($hcfound, $perc, $hq);
} }
@ -8208,7 +8209,13 @@ sub _calcCAQwithSolCastPercentil {
} }
} }
if ($debug) { # nur für Debugging $paref->{pvcorrf} = $perc.'/1'; # bestes Percentil in History speichern
$paref->{nhour} = sprintf("%02d",$h);
$paref->{histname} = "pvcorrfactor";
setPVhistory ($paref);
delete $paref->{histname};
if ($debug) { # nur für Debugging
Log (1, qq{DEBUG> $name summary PV estimates for hour of day "$h":\n}. Log (1, qq{DEBUG> $name summary PV estimates for hour of day "$h":\n}.
qq{est10: $est10, est20: $est20, est30: $est30, est40: $est40, est50 (default): $est50, est60: $est60, est70: $est70, est80: $est80, est90: $est90}); qq{est10: $est10, est20: $est20, est30: $est30, est40: $est40, est50 (default): $est50, est60: $est60, est70: $est70, est80: $est80, est90: $est90});
Log (1, qq{DEBUG> $name percentile -> hour: $h, number checked days: $dnum, pvreal: $pvval, diffbest: $diff0, best percentile: $perc}); Log (1, qq{DEBUG> $name percentile -> hour: $h, number checked days: $dnum, pvreal: $pvval, diffbest: $diff0, best percentile: $perc});
@ -8275,7 +8282,7 @@ sub __avgSolCastPercFromHistory {
my $type = $hash->{TYPE}; my $type = $hash->{TYPE};
my $pvhh = $data{$type}{$name}{pvhist}; my $pvhh = $data{$type}{$name}{pvhist};
my ($usenhd, $calcd) = __useNumHistDays ($name); # ist Attr numHistDays gesetzt ? und welcher Wert my ($usenhd, $calcd) = __useNumHistDays ($name); # ist Attr numHistDays gesetzt ? und welcher Wert
my @k = sort {$a<=>$b} keys %{$pvhh}; my @k = sort {$a<=>$b} keys %{$pvhh};
my $ile = $#k; # Index letztes Arrayelement my $ile = $#k; # Index letztes Arrayelement