FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-20 13:26:02 +00:00
Code Issues Releases Wiki Activity

76_SolarForecast: contrib 0.79.3

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@27603 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2023-05-21 16:25:13 +00:00
parent 4e36c680e7
commit da8eafd32b
1 changed files with 97 additions and 69 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -136,6 +136,8 @@ BEGIN {
# Versions History intern # Versions History intern
my %vNotesIntern = ( my %vNotesIntern = (
"0.79.3" => "21.05.2023 new CircularVal initdayfeedin, deactivate \$hash->{HELPER}{INITFEEDTOTAL} ".
"new statistic Reading statistic_todayGridFeedIn ",
"0.79.2" => "21.05.2023 change process to calculate solCastAPIcallMultiplier, todayMaxAPIcalls ", "0.79.2" => "21.05.2023 change process to calculate solCastAPIcallMultiplier, todayMaxAPIcalls ",
"0.79.1" => "19.05.2023 extend debug solcastProcess, new key solcastAPIcall ", "0.79.1" => "19.05.2023 extend debug solcastProcess, new key solcastAPIcall ",
"0.79.0" => "13.05.2023 new consumer key locktime ", "0.79.0" => "13.05.2023 new consumer key locktime ",
@ -795,21 +797,22 @@ my %hef = (
); );
my %hcsr = ( # Funktiontemplate zur Erstellung optionaler Statistikreadings my %hcsr = ( # Funktiontemplate zur Erstellung optionaler Statistikreadings
currentAPIinterval => { fnr => 1, fn => \&SolCastAPIVal, def => 0 }, currentAPIinterval => { fnr => 1, fn => \&SolCastAPIVal, par => '', def => 0 }, # par = Parameter zur spezifischen Verwendung
lastretrieval_time => { fnr => 1, fn => \&SolCastAPIVal, def => '-' }, lastretrieval_time => { fnr => 1, fn => \&SolCastAPIVal, par => '', def => '-' },
lastretrieval_timestamp => { fnr => 1, fn => \&SolCastAPIVal, def => '-' }, lastretrieval_timestamp => { fnr => 1, fn => \&SolCastAPIVal, par => '', def => '-' },
response_message => { fnr => 1, fn => \&SolCastAPIVal, def => '-' }, response_message => { fnr => 1, fn => \&SolCastAPIVal, par => '', def => '-' },
todayMaxAPIcalls => { fnr => 1, fn => \&SolCastAPIVal, def => 'apimaxreq' }, todayMaxAPIcalls => { fnr => 1, fn => \&SolCastAPIVal, par => '', def => 'apimaxreq' },
todayDoneAPIcalls => { fnr => 1, fn => \&SolCastAPIVal, def => 0 }, todayDoneAPIcalls => { fnr => 1, fn => \&SolCastAPIVal, par => '', def => 0 },
todayDoneAPIrequests => { fnr => 1, fn => \&SolCastAPIVal, def => 0 }, todayDoneAPIrequests => { fnr => 1, fn => \&SolCastAPIVal, par => '', def => 0 },
todayRemainingAPIcalls => { fnr => 1, fn => \&SolCastAPIVal, def => 'apimaxreq' }, todayRemainingAPIcalls => { fnr => 1, fn => \&SolCastAPIVal, par => '', def => 'apimaxreq' },
todayRemainingAPIrequests => { fnr => 1, fn => \&SolCastAPIVal, def => 'apimaxreq' }, todayRemainingAPIrequests => { fnr => 1, fn => \&SolCastAPIVal, par => '', def => 'apimaxreq' },
runTimeCentralTask => { fnr => 2, fn => \&CurrentVal, def => '-' }, runTimeCentralTask => { fnr => 2, fn => \&CurrentVal, par => '', def => '-' },
runTimeLastAPIAnswer => { fnr => 2, fn => \&CurrentVal, def => '-' }, runTimeLastAPIAnswer => { fnr => 2, fn => \&CurrentVal, par => '', def => '-' },
runTimeLastAPIProc => { fnr => 2, fn => \&CurrentVal, def => '-' }, runTimeLastAPIProc => { fnr => 2, fn => \&CurrentVal, par => '', def => '-' },
allStringsFullfilled => { fnr => 2, fn => \&CurrentVal, def => 0 }, allStringsFullfilled => { fnr => 2, fn => \&CurrentVal, par => '', def => 0 },
SunHours_Remain => { fnr => 3, fn => \&CurrentVal, def => 0 }, # fnr => 3 -> Custom Calc SunHours_Remain => { fnr => 3, fn => \&CurrentVal, par => '', def => 0 }, # fnr => 3 -> Custom Calc
SunMinutes_Remain => { fnr => 3, fn => \&CurrentVal, def => 0 }, SunMinutes_Remain => { fnr => 3, fn => \&CurrentVal, par => '', def => 0 },
todayGridFeedIn => { fnr => 3, fn => \&CircularVal, par => 99, def => 0 },
); );
# Information zu verwendeten internen Datenhashes # Information zu verwendeten internen Datenhashes
@ -1866,7 +1869,9 @@ sub _setreset { ## no critic "not used"
readingsDelete($hash, "Current_GridConsumption"); readingsDelete($hash, "Current_GridConsumption");
readingsDelete($hash, "Current_GridFeedIn"); readingsDelete($hash, "Current_GridFeedIn");
delete $hash->{HELPER}{INITCONTOTAL}; delete $hash->{HELPER}{INITCONTOTAL};
delete $hash->{HELPER}{INITFEEDTOTAL}; # delete $hash->{HELPER}{INITFEEDTOTAL};
delete $data{$type}{$name}{circular}{99}{initdayfeedin};
delete $data{$type}{$name}{circular}{99}{feedintotal};
delete $data{$type}{$name}{current}{gridconsumption}; delete $data{$type}{$name}{current}{gridconsumption};
delete $data{$type}{$name}{current}{tomorrowconsumption}; delete $data{$type}{$name}{current}{tomorrowconsumption};
delete $data{$type}{$name}{current}{gridfeedin}; delete $data{$type}{$name}{current}{gridfeedin};
@ -3194,6 +3199,7 @@ sub centralTask {
#delete $data{$type}{$name}{solcastapi}{'#All'}; #delete $data{$type}{$name}{solcastapi}{'#All'};
#delete $data{$type}{$name}{solcastapi}{'?All'}{'?All'}{todaySolCastAPIcalls}; #delete $data{$type}{$name}{solcastapi}{'?All'}{'?All'}{todaySolCastAPIcalls};
delete $data{$type}{$name}{solcastapi}{'?All'}{'?All'}{todayRemaingAPIcalls}; delete $data{$type}{$name}{solcastapi}{'?All'}{'?All'}{todayRemaingAPIcalls};
delete $data{$type}{$name}{circular}{99}{initgridfeedintotal};
for my $n (1..24) { for my $n (1..24) {
$n = sprintf "%02d", $n; $n = sprintf "%02d", $n;
@ -3519,12 +3525,13 @@ sub _specialActivities {
} }
delete $hash->{HELPER}{INITCONTOTAL}; delete $hash->{HELPER}{INITCONTOTAL};
delete $hash->{HELPER}{INITFEEDTOTAL}; # delete $hash->{HELPER}{INITFEEDTOTAL};
delete $data{$type}{$name}{solcastapi}{'?All'}{'?All'}{todayDoneAPIrequests}; delete $data{$type}{$name}{solcastapi}{'?All'}{'?All'}{todayDoneAPIrequests};
delete $data{$type}{$name}{solcastapi}{'?All'}{'?All'}{todayDoneAPIcalls}; delete $data{$type}{$name}{solcastapi}{'?All'}{'?All'}{todayDoneAPIcalls};
delete $data{$type}{$name}{solcastapi}{'?All'}{'?All'}{todayRemainingAPIrequests}; delete $data{$type}{$name}{solcastapi}{'?All'}{'?All'}{todayRemainingAPIrequests};
delete $data{$type}{$name}{solcastapi}{'?All'}{'?All'}{todayRemainingAPIcalls}; delete $data{$type}{$name}{solcastapi}{'?All'}{'?All'}{todayRemainingAPIcalls};
delete $data{$type}{$name}{circular}{99}{initdayfeedin};
delete $data{$type}{$name}{current}{sunriseToday}; delete $data{$type}{$name}{current}{sunriseToday};
delete $data{$type}{$name}{current}{sunriseTodayTs}; delete $data{$type}{$name}{current}{sunriseTodayTs};
delete $data{$type}{$name}{current}{sunsetToday}; delete $data{$type}{$name}{current}{sunsetToday};
@ -4518,6 +4525,8 @@ sub _transferMeterValues {
my $ftuf = $ftunit =~ /^kWh$/xi ? 1000 : 1; my $ftuf = $ftunit =~ /^kWh$/xi ? 1000 : 1;
my $fitotal = ReadingsNum ($medev, $ft, 0) * $ftuf; # Einspeisung total (Wh) my $fitotal = ReadingsNum ($medev, $ft, 0) * $ftuf; # Einspeisung total (Wh)
$data{$type}{$name}{circular}{99}{feedintotal} = $fitotal; # Total Feedin speichern
my $debug = $paref->{debug}; my $debug = $paref->{debug};
if($debug =~ /collectData/x) { if($debug =~ /collectData/x) {
Log3 ($name, 1, "$name DEBUG> collect Meter data - device: $medev =>"); Log3 ($name, 1, "$name DEBUG> collect Meter data - device: $medev =>");
@ -4533,6 +4542,7 @@ sub _transferMeterValues {
} }
my $docon = 0; my $docon = 0;
if ($gcdaypast == 0) { # Management der Stundenberechnung auf Basis Totalwerte GridConsumtion if ($gcdaypast == 0) { # Management der Stundenberechnung auf Basis Totalwerte GridConsumtion
if (defined $hash->{HELPER}{INITCONTOTAL}) { if (defined $hash->{HELPER}{INITCONTOTAL}) {
$docon = 1; $docon = 1;
@ -4567,23 +4577,26 @@ sub _transferMeterValues {
} }
my $dofeed = 0; my $dofeed = 0;
if ($gfdaypast == 0) { # Management der Stundenberechnung auf Basis Totalwerte GridFeedIn if ($gfdaypast == 0) { # Management der Stundenberechnung auf Basis Totalwerte GridFeedIn
if (defined $hash->{HELPER}{INITFEEDTOTAL}) { if (defined CircularVal ($hash, 99, 'initdayfeedin', undef)) {
$dofeed = 1; $dofeed = 1;
} }
else { else {
$hash->{HELPER}{INITFEEDTOTAL} = $fitotal; # $hash->{HELPER}{INITFEEDTOTAL} = $fitotal;
$data{$type}{$name}{circular}{99}{initdayfeedin} = $fitotal;
} }
} }
elsif (!defined $hash->{HELPER}{INITFEEDTOTAL}) { elsif (!defined CircularVal ($hash, 99, 'initdayfeedin', undef)) {
$hash->{HELPER}{INITFEEDTOTAL} = $fitotal-$gfdaypast-ReadingsNum($name, "Today_Hour".sprintf("%02d",$chour+1)."_GridFeedIn", 0); # $hash->{HELPER}{INITFEEDTOTAL} = $fitotal - $gfdaypast - ReadingsNum ($name, "Today_Hour".sprintf("%02d",$chour+1)."_GridFeedIn", 0);
$data{$type}{$name}{circular}{99}{initdayfeedin} = $fitotal - $gfdaypast - ReadingsNum ($name, "Today_Hour".sprintf("%02d",$chour+1)."_GridFeedIn", 0);
} }
else { else {
$dofeed = 1; $dofeed = 1;
} }
if ($dofeed) { if ($dofeed) {
my $gftotthishour = int ($fitotal - ($gfdaypast + $hash->{HELPER}{INITFEEDTOTAL})); my $gftotthishour = int ($fitotal - ($gfdaypast + CircularVal ($hash, 99, 'initdayfeedin', 0)));
if($gftotthishour < 0) { if($gftotthishour < 0) {
$gftotthishour = 0; $gftotthishour = 0;
@ -6521,6 +6534,15 @@ sub genStatisticReadings {
push @$daref, 'statistic_'.$kpi.'<>'. sprintf "%.0f", $smr; push @$daref, 'statistic_'.$kpi.'<>'. sprintf "%.0f", $smr;
} }
if ($kpi eq 'todayGridFeedIn') {
my $idfi = &{$hcsr{$kpi}{fn}} ($hash, $hcsr{$kpi}{par}, 'initdayfeedin', $def); # initialer Tagesstartwert
my $cfi = &{$hcsr{$kpi}{fn}} ($hash, $hcsr{$kpi}{par}, 'feedintotal', $def); # aktuelles total Feed In
my $dfi = $cfi - $idfi;
push @$daref, 'statistic_'.$kpi.'<>'. (sprintf "%.1f", $dfi).' Wh';
}
} }
} }
@ -9544,6 +9566,7 @@ sub listDataPool {
my $batout = CircularVal ($hash, $idx, "batout", "-"); my $batout = CircularVal ($hash, $idx, "batout", "-");
my $tdayDvtn = CircularVal ($hash, $idx, "tdayDvtn", "-"); my $tdayDvtn = CircularVal ($hash, $idx, "tdayDvtn", "-");
my $ydayDvtn = CircularVal ($hash, $idx, "ydayDvtn", "-"); my $ydayDvtn = CircularVal ($hash, $idx, "ydayDvtn", "-");
my $idfi = CircularVal ($hash, $idx, "initdayfeedin", "-");
my $pvcf = qq{}; my $pvcf = qq{};
if(ref $pvcorrf eq "HASH") { if(ref $pvcorrf eq "HASH") {
@ -9581,7 +9604,7 @@ sub listDataPool {
$sq .= " quality: $cfq"; $sq .= " quality: $cfq";
} }
else { else {
$sq .= $idx." => tdayDvtn: $tdayDvtn, ydayDvtn: $ydayDvtn"; $sq .= $idx." => tdayDvtn: $tdayDvtn, ydayDvtn: $ydayDvtn, initdayfeedin: $idfi";
} }
} }
} }
@ -10804,7 +10827,7 @@ sub HistoryVal {
return $def; return $def;
} }
############################################################################# #####################################################################################################
# Wert des circular-Hash zurückliefern # Wert des circular-Hash zurückliefern
# Achtung: die Werte im circular-Hash haben nicht # Achtung: die Werte im circular-Hash haben nicht
# zwingend eine Beziehung zueinander !! # zwingend eine Beziehung zueinander !!
@ -10812,7 +10835,7 @@ return $def;
# Usage: # Usage:
# CircularVal ($hash, $hod, $key, $def) # CircularVal ($hash, $hod, $key, $def)
# #
# $hod: Stunde des Tages (01,02,...,24) # $hod: Stunde des Tages (01,02,...,24) bzw. 99 (besondere Verwendung)
# $key: pvrl - realer PV Ertrag # $key: pvrl - realer PV Ertrag
# pvfc - PV Vorhersage # pvfc - PV Vorhersage
# confc - Vorhersage Hausverbrauch (Wh) # confc - Vorhersage Hausverbrauch (Wh)
@ -10826,11 +10849,14 @@ return $def;
# wrp - DWD Regenwahrscheinlichkeit # wrp - DWD Regenwahrscheinlichkeit
# temp - Außentemperatur # temp - Außentemperatur
# pvcorrf - PV Autokorrekturfaktoren (HASH) # pvcorrf - PV Autokorrekturfaktoren (HASH)
#
# tdayDvtn - heutige Abweichung PV Prognose/Erzeugung in % # tdayDvtn - heutige Abweichung PV Prognose/Erzeugung in %
# ydayDvtn - gestrige Abweichung PV Prognose/Erzeugung in % # ydayDvtn - gestrige Abweichung PV Prognose/Erzeugung in %
# initdayfeedin - initialer Wert für "gridfeedin" zu Beginn des Tages (Wh)
#
# $def: Defaultwert # $def: Defaultwert
# #
############################################################################# #####################################################################################################
sub CircularVal { sub CircularVal {
my $hash = shift; my $hash = shift;
my $hod = shift; my $hod = shift;
@ -11850,6 +11876,7 @@ Planung und Steuerung von PV Überschuß abhängigen Verbraucherschaltungen.
<tr><td> <b>quality</b> </td><td>Qualität der Autokorrekturfaktoren (max. 30), höhere Werte = höhere Qualität </td></tr> <tr><td> <b>quality</b> </td><td>Qualität der Autokorrekturfaktoren (max. 30), höhere Werte = höhere Qualität </td></tr>
<tr><td> <b>tdayDvtn</b> </td><td>heutige Abweichung PV Prognose/Erzeugung in % </td></tr> <tr><td> <b>tdayDvtn</b> </td><td>heutige Abweichung PV Prognose/Erzeugung in % </td></tr>
<tr><td> <b>ydayDvtn</b> </td><td>gestrige Abweichung PV Prognose/Erzeugung in % </td></tr> <tr><td> <b>ydayDvtn</b> </td><td>gestrige Abweichung PV Prognose/Erzeugung in % </td></tr>
<tr><td> <b>initdayfeedin</b> </td><td>initialer PV Einspeisewert zu Beginn des aktuellen Tages (Wh) </td></tr>
</table> </table>
</ul> </ul>
@ -12298,10 +12325,11 @@ Planung und Steuerung von PV Überschuß abhängigen Verbraucherschaltungen.
<tr><td> <b>runTimeLastAPIProc</b> </td><td>die letzte Prozesszeit zur Verarbeitung der empfangenen SolCast API Daten (nur Model SolCastAPI) </td></tr> <tr><td> <b>runTimeLastAPIProc</b> </td><td>die letzte Prozesszeit zur Verarbeitung der empfangenen SolCast API Daten (nur Model SolCastAPI) </td></tr>
<tr><td> <b>SunMinutes_Remain</b> </td><td>die verbleibenden Minuten bis Sonnenuntergang des aktuellen Tages </td></tr> <tr><td> <b>SunMinutes_Remain</b> </td><td>die verbleibenden Minuten bis Sonnenuntergang des aktuellen Tages </td></tr>
<tr><td> <b>SunHours_Remain</b> </td><td>die verbleibenden Stunden bis Sonnenuntergang des aktuellen Tages </td></tr> <tr><td> <b>SunHours_Remain</b> </td><td>die verbleibenden Stunden bis Sonnenuntergang des aktuellen Tages </td></tr>
<tr><td> <b>todayMaxAPIcalls</b> </td><td>die maximal mögliche Anzahl SolCast API Calls (nur Model SolCastAPI). </td></tr>
<tr><td> </td><td>Ein Call kann mehrere API Requests enthalten. </td></tr>
<tr><td> <b>todayDoneAPIcalls</b> </td><td>die Anzahl der am aktuellen Tag ausgeführten SolCast API Calls (nur Model SolCastAPI) </td></tr> <tr><td> <b>todayDoneAPIcalls</b> </td><td>die Anzahl der am aktuellen Tag ausgeführten SolCast API Calls (nur Model SolCastAPI) </td></tr>
<tr><td> <b>todayDoneAPIrequests</b> </td><td>die Anzahl der am aktuellen Tag ausgeführten SolCast API Requests (nur Model SolCastAPI) </td></tr> <tr><td> <b>todayDoneAPIrequests</b> </td><td>die Anzahl der am aktuellen Tag ausgeführten SolCast API Requests (nur Model SolCastAPI) </td></tr>
<tr><td> <b>todayGridFeedIn</b> </td><td>die in das öffentliche Netz eingespeiste PV Leistung des aktuellen Tages </td></tr>
<tr><td> <b>todayMaxAPIcalls</b> </td><td>die maximal mögliche Anzahl SolCast API Calls (nur Model SolCastAPI). </td></tr>
<tr><td> </td><td>Ein Call kann mehrere API Requests enthalten. </td></tr>
<tr><td> <b>todayRemainingAPIcalls</b> </td><td>die Anzahl der am aktuellen Tag noch möglichen SolCast API Calls (nur Model SolCastAPI) </td></tr> <tr><td> <b>todayRemainingAPIcalls</b> </td><td>die Anzahl der am aktuellen Tag noch möglichen SolCast API Calls (nur Model SolCastAPI) </td></tr>
<tr><td> <b>todayRemainingAPIrequests</b> </td><td>die Anzahl der am aktuellen Tag noch möglichen SolCast API Requests (nur Model SolCastAPI) </td></tr> <tr><td> <b>todayRemainingAPIrequests</b> </td><td>die Anzahl der am aktuellen Tag noch möglichen SolCast API Requests (nur Model SolCastAPI) </td></tr>
</table> </table>