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

76_SolarForecast: contrib version 1.59.6

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@30425 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
DS_Starter
2025-10-21 07:05:30 +00:00
parent 58af881e86
commit 0ea6f36354
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -12206,7 +12206,7 @@ sub __batChargeOptTargetPower {
## weiter mit Überschuß (Prognose) ## weiter mit Überschuß (Prognose)
#################################### ####################################
my $otpMargin = $hsurp->{$hod}{$sbn}{otpMargin}; my $otpMargin = $hsurp->{$hod}{$sbn}{otpMargin};
my $fref = ___batFindMinPhWh ($hsurp, \@remaining_hods, $runwhneed, $befficiency); my $fref = ___batFindMinPhWh ($hsurp, \@remaining_hods, $runwhneed);
my $needraw = min ($fref->{ph}, $spls); # Ladeleistung auf Surplus begrenzen my $needraw = min ($fref->{ph}, $spls); # Ladeleistung auf Surplus begrenzen
$needraw = $bpinmax if(!$hsurp->{$hod}{$sbn}{lcintime}); $needraw = $bpinmax if(!$hsurp->{$hod}{$sbn}{lcintime});
@@ -12226,7 +12226,7 @@ sub __batChargeOptTargetPower {
## NextHour 00 bearbeiten ## NextHour 00 bearbeiten
########################### ###########################
if ($nhr eq '00') { if ($nhr eq '00') {
my $target = $needraw > 0 ? $needraw : 0; my $target = $needraw > 0 ? $needraw / $befficiency : 0; # Zielleistung mit Batterie Effizienzgrad erhöhen
if ($achievable) { # Tagesziel erreichbar: Basisziel um otpMargin% erhöhen if ($achievable) { # Tagesziel erreichbar: Basisziel um otpMargin% erhöhen
$target *= 1 + ($otpMargin / 100); $target *= 1 + ($otpMargin / 100);
@@ -12347,7 +12347,7 @@ return $value;
# die vollständige Ausnutzung der vorhandenen Kapazität. # die vollständige Ausnutzung der vorhandenen Kapazität.
############################################################################################### ###############################################################################################
sub ___batFindMinPhWh { sub ___batFindMinPhWh {
my ($hsurp, $aref, $Ereq, $befficiency) = @_; my ($hsurp, $aref, $Ereq) = @_;
my @hods = @$aref; my @hods = @$aref;
my $low = 0; my $low = 0;