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

76_SolarForecast: contrib version 1.58.2

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@30275 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
DS_Starter
2025-09-12 13:23:10 +00:00
parent 23118a9e72
commit e8dd7a00fe
1 changed files with 18 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -11900,6 +11900,7 @@ sub __batChargeOptTargetPower {
my @sorted = sort { $hsurp->{$a}{spswh} <=> $hsurp->{$b}{spswh} } keys %{$hsurp};
my $sphrs = scalar grep { int( $hsurp->{$_}{spswh} ) >= 1 } @sorted; # Stunden mit Überschuß >= 1
my @batteries = grep { !/^(?:hod|spswh|surpls|nhr)$/xs } keys %{$hsurp->{24}};
my $otp;
for my $shod (@sorted) {
my $spls = int $hsurp->{$shod}{spswh};
@@ -11919,7 +11920,7 @@ sub __batChargeOptTargetPower {
}
my $sbatinstcap = $hsurp->{$shod}{$sbn}{batinstcap}; # Kapa dieser Batterie
$runwh = min ($runwh, $sbatinstcap);
$runwh = min ($runwh, BatteryVal ($name, $sbn, 'bchargewh', $sbatinstcap)); # den aktuellen Ladungsstand mit der Prognose abgleichen!
my $runwhneed = $sbatinstcap - $runwh;
my $needraw = $sphrs ? $runwhneed / $sphrs : $runwhneed; # Ladeleistung initial
@@ -11931,7 +11932,7 @@ sub __batChargeOptTargetPower {
$needraw += ($spls - $needraw) - $fipl;
}
$needraw = 0 if($needraw < 0);
$needraw = max (0, $needraw);
$hsurp->{$shod}{$sbn}{runwh} = $runwh;
$hsurp->{$shod}{$sbn}{sphrs} = $sphrs; # Reststunden mit diesem Überschuß
$hsurp->{$shod}{$sbn}{pneedmin} = sprintf "%.0f", $spls > $needraw ? # Mindestladeleistung bzw. Energie bei 1h (Wh)
@@ -11941,12 +11942,23 @@ sub __batChargeOptTargetPower {
my $newshod = sprintf "%02d", (int $shod + 1);
$hsurp->{$newshod}{$sbn}{fcnextwh} = $runwh + $hsurp->{$shod}{$sbn}{pneedmin} if(defined $hsurp->{$newshod});
storeReading ('Battery_ChargeOptTargetPower_'.$sbn, $hsurp->{$shod}{$sbn}{pneedmin}.' W') if($hsurp->{$shod}{nhr} eq '00');
$otp->{$sbn}{otp} = $hsurp->{$shod}{$sbn}{pneedmin} if($hsurp->{$shod}{nhr} eq '00');
if ($hsurp->{$shod}{$sbn}{pneedmin} < INFINITE) {
my $maxneed = $otp->{$sbn}{maxneed} // 0;
$otp->{$sbn}{maxneed} = max ($maxneed, $hsurp->{$shod}{$sbn}{pneedmin});
$otp->{$sbn}{maxvals}++ if ($hsurp->{$shod}{$sbn}{runwh} < $sbatinstcap);
}
}
}
for my $bn (sort keys %{$otp}) {
debugLog ($paref, 'batteryManagement', "ChargeOTP - maximum OptTargetPower Bat $bn: $otp->{$bn}{maxneed} W, number relevant values: $otp->{$bn}{maxvals}");
storeReading ('Battery_ChargeOptTargetPower_'.$bn, $otp->{$bn}{otp}.' W');
}
if ($paref->{debug} =~ /batteryManagement/) {
Log3 ($name, 1, "$name DEBUG> ChargeOTP - The limit for grid feed-in is: $fipl W");
Log3 ($name, 1, "$name DEBUG> ChargeOTP - The limit for grid feed-in is $fipl W");
Log3 ($name, 1, "$name DEBUG> ChargeOTP - NOTE: The hours printed below are the estimated number of hours on the current day with at least the respective PV surplus.");
for my $k (sort { $a <=> $b } keys %{$hsurp}) {