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

76_SolarForecast: opt load if battery load control is deactivated

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@30323 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
DS_Starter
2025-09-24 07:50:10 +00:00
parent 0c0d8bcdc8
commit 355f431483
2 changed files with 32 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
fhem/FHEM/76_SolarForecast.pm
View File

@@ -11828,7 +11828,7 @@ sub _batChargeMgmt {
if ($today) { # nur Heute if ($today) { # nur Heute
$hsurp->{$hod}{hod} = $hod; $hsurp->{$hod}{hod} = $hod;
$hsurp->{$hod}{nhr} = $nhr; $hsurp->{$hod}{nhr} = $nhr;
$hsurp->{$hod}{surpls} = $surplswh.'.'.$hod; # Überschuß in Wh der Stunde mit Sortierhilfe $hsurp->{$hod}{surpls} = $lcintime ? $surplswh.'.'.$hod : 0; # Überschuß in Wh der Stunde mit Sortierhilfe
$hsurp->{$hod}{$bn}{spday} = $spday; # (Rest)PV-Überschuß am laufenden Tag $hsurp->{$hod}{$bn}{spday} = $spday; # (Rest)PV-Überschuß am laufenden Tag
$hsurp->{$hod}{$bn}{whneedmanaged} = $whneed; # benötigte Ladeenergie Batterie x gemäß Ladesteuerung $hsurp->{$hod}{$bn}{whneedmanaged} = $whneed; # benötigte Ladeenergie Batterie x gemäß Ladesteuerung
$hsurp->{$hod}{$bn}{socwh} = $socwh; $hsurp->{$hod}{$bn}{socwh} = $socwh;
@@ -11917,15 +11917,16 @@ sub __batChargeOptTargetPower {
######################## ########################
for my $shod (@sorted) { for my $shod (@sorted) {
my $spls = int $hsurp->{$shod}{surpls}; my $spls = int $hsurp->{$shod}{surpls};
$sphrs-- if($spls); # Reststunden mit Überschuß
for my $sbn (sort @batteries) { # jede Batterie for my $sbn (sort @batteries) { # jede Batterie
if (!$hsurp->{$shod}{$sbn}{lcintime}) { # Ladesteuerung nicht "In Time" my $bpinmax = $hsurp->{$shod}{$sbn}{bpinmax}; # Bat max. mögliche Ladelesitung
$hsurp->{$shod}{$sbn}{pneedmin} = $hsurp->{$shod}{$sbn}{bpinmax};
if (!$hsurp->{$shod}{$sbn}{lcintime}) { # Ladesteuerung nicht "In Time"
$hsurp->{$shod}{$sbn}{pneedmin} = $bpinmax;
if ($hsurp->{$shod}{nhr} eq '00') { if ($hsurp->{$shod}{nhr} eq '00') {
$otp->{$sbn}{target} = $hsurp->{$shod}{$sbn}{bpinmax}; $otp->{$sbn}{target} = $bpinmax;
storeReading ('Battery_ChargeOptTargetPower_'.$sbn, $hsurp->{$shod}{$sbn}{bpinmax}.' W'); storeReading ('Battery_ChargeOptTargetPower_'.$sbn, $bpinmax.' W');
} }
next; next;
@@ -11969,7 +11970,10 @@ sub __batChargeOptTargetPower {
$hsurp->{$shod}{$sbn}{pneedmin} = min ($pneedmin, $hsurp->{$shod}{$sbn}{bpinmax}); # Begrenzung auf max. mögliche Batterieleistung $hsurp->{$shod}{$sbn}{pneedmin} = min ($pneedmin, $hsurp->{$shod}{$sbn}{bpinmax}); # Begrenzung auf max. mögliche Batterieleistung
my $newshod = sprintf "%02d", (int $shod + 1); my $newshod = sprintf "%02d", (int $shod + 1);
$hsurp->{$newshod}{$sbn}{fcnextwh} = $runwh + $hsurp->{$shod}{$sbn}{pneedmin} if(defined $hsurp->{$newshod});
if (defined $hsurp->{$newshod}) {
$hsurp->{$newshod}{$sbn}{fcnextwh} = $runwh + $hsurp->{$shod}{$sbn}{pneedmin};
}
if ($hsurp->{$shod}{nhr} eq '00') { if ($hsurp->{$shod}{nhr} eq '00') {
my $target = max ($bpinreduced, $hsurp->{$shod}{$sbn}{pneedmin}); my $target = max ($bpinreduced, $hsurp->{$shod}{$sbn}{pneedmin});
@@ -11987,11 +11991,14 @@ sub __batChargeOptTargetPower {
$target = sprintf "%.0f", max ($target, $inc); # Einspeiselimit berücksichtigen $target = sprintf "%.0f", max ($target, $inc); # Einspeiselimit berücksichtigen
$target = min ($bpinmax, $target); # 2. Begrenzung auf max. mögliche Batterieleistung
$otp->{$sbn}{target} = $target; $otp->{$sbn}{target} = $target;
storeReading ('Battery_ChargeOptTargetPower_'.$sbn, $target.' W'); storeReading ('Battery_ChargeOptTargetPower_'.$sbn, $target.' W');
} }
} }
$sphrs-- if($spls); # Reststunden mit Überschuß
} }
## Debuglog ## Debuglog

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

@@ -11828,7 +11828,7 @@ sub _batChargeMgmt {
if ($today) { # nur Heute if ($today) { # nur Heute
$hsurp->{$hod}{hod} = $hod; $hsurp->{$hod}{hod} = $hod;
$hsurp->{$hod}{nhr} = $nhr; $hsurp->{$hod}{nhr} = $nhr;
$hsurp->{$hod}{surpls} = $surplswh.'.'.$hod; # Überschuß in Wh der Stunde mit Sortierhilfe $hsurp->{$hod}{surpls} = $lcintime ? $surplswh.'.'.$hod : 0; # Überschuß in Wh der Stunde mit Sortierhilfe
$hsurp->{$hod}{$bn}{spday} = $spday; # (Rest)PV-Überschuß am laufenden Tag $hsurp->{$hod}{$bn}{spday} = $spday; # (Rest)PV-Überschuß am laufenden Tag
$hsurp->{$hod}{$bn}{whneedmanaged} = $whneed; # benötigte Ladeenergie Batterie x gemäß Ladesteuerung $hsurp->{$hod}{$bn}{whneedmanaged} = $whneed; # benötigte Ladeenergie Batterie x gemäß Ladesteuerung
$hsurp->{$hod}{$bn}{socwh} = $socwh; $hsurp->{$hod}{$bn}{socwh} = $socwh;
@@ -11917,15 +11917,16 @@ sub __batChargeOptTargetPower {
######################## ########################
for my $shod (@sorted) { for my $shod (@sorted) {
my $spls = int $hsurp->{$shod}{surpls}; my $spls = int $hsurp->{$shod}{surpls};
$sphrs-- if($spls); # Reststunden mit Überschuß
for my $sbn (sort @batteries) { # jede Batterie for my $sbn (sort @batteries) { # jede Batterie
if (!$hsurp->{$shod}{$sbn}{lcintime}) { # Ladesteuerung nicht "In Time" my $bpinmax = $hsurp->{$shod}{$sbn}{bpinmax}; # Bat max. mögliche Ladelesitung
$hsurp->{$shod}{$sbn}{pneedmin} = $hsurp->{$shod}{$sbn}{bpinmax};
if (!$hsurp->{$shod}{$sbn}{lcintime}) { # Ladesteuerung nicht "In Time"
$hsurp->{$shod}{$sbn}{pneedmin} = $bpinmax;
if ($hsurp->{$shod}{nhr} eq '00') { if ($hsurp->{$shod}{nhr} eq '00') {
$otp->{$sbn}{target} = $hsurp->{$shod}{$sbn}{bpinmax}; $otp->{$sbn}{target} = $bpinmax;
storeReading ('Battery_ChargeOptTargetPower_'.$sbn, $hsurp->{$shod}{$sbn}{bpinmax}.' W'); storeReading ('Battery_ChargeOptTargetPower_'.$sbn, $bpinmax.' W');
} }
next; next;
@@ -11969,7 +11970,10 @@ sub __batChargeOptTargetPower {
$hsurp->{$shod}{$sbn}{pneedmin} = min ($pneedmin, $hsurp->{$shod}{$sbn}{bpinmax}); # Begrenzung auf max. mögliche Batterieleistung $hsurp->{$shod}{$sbn}{pneedmin} = min ($pneedmin, $hsurp->{$shod}{$sbn}{bpinmax}); # Begrenzung auf max. mögliche Batterieleistung
my $newshod = sprintf "%02d", (int $shod + 1); my $newshod = sprintf "%02d", (int $shod + 1);
$hsurp->{$newshod}{$sbn}{fcnextwh} = $runwh + $hsurp->{$shod}{$sbn}{pneedmin} if(defined $hsurp->{$newshod});
if (defined $hsurp->{$newshod}) {
$hsurp->{$newshod}{$sbn}{fcnextwh} = $runwh + $hsurp->{$shod}{$sbn}{pneedmin};
}
if ($hsurp->{$shod}{nhr} eq '00') { if ($hsurp->{$shod}{nhr} eq '00') {
my $target = max ($bpinreduced, $hsurp->{$shod}{$sbn}{pneedmin}); my $target = max ($bpinreduced, $hsurp->{$shod}{$sbn}{pneedmin});
@@ -11987,11 +11991,14 @@ sub __batChargeOptTargetPower {
$target = sprintf "%.0f", max ($target, $inc); # Einspeiselimit berücksichtigen $target = sprintf "%.0f", max ($target, $inc); # Einspeiselimit berücksichtigen
$target = min ($bpinmax, $target); # 2. Begrenzung auf max. mögliche Batterieleistung
$otp->{$sbn}{target} = $target; $otp->{$sbn}{target} = $target;
storeReading ('Battery_ChargeOptTargetPower_'.$sbn, $target.' W'); storeReading ('Battery_ChargeOptTargetPower_'.$sbn, $target.' W');
} }
} }
$sphrs-- if($spls); # Reststunden mit Überschuß
} }
## Debuglog ## Debuglog