mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-03-10 09:16:53 +00:00
76_SolarForecast.pm: contrib 0.16.0
git-svn-id: https://svn.fhem.de/fhem/trunk@24018 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1
parent
c70eb3a5fd
commit
101a8dc7b0
@ -116,6 +116,7 @@ BEGIN {
|
|||||||
|
|
||||||
# Versions History intern
|
# Versions History intern
|
||||||
my %vNotesIntern = (
|
my %vNotesIntern = (
|
||||||
|
"0.16.0" => "19.03.2021 new getter nextHours ",
|
||||||
"0.15.3" => "19.03.2021 corrected weather consideration for call calcPVforecast ",
|
"0.15.3" => "19.03.2021 corrected weather consideration for call calcPVforecast ",
|
||||||
"0.15.2" => "19.03.2021 some bug fixing ",
|
"0.15.2" => "19.03.2021 some bug fixing ",
|
||||||
"0.15.1" => "18.03.2021 replace ThisHour_ by NextHour00_ ",
|
"0.15.1" => "18.03.2021 replace ThisHour_ by NextHour00_ ",
|
||||||
@ -177,6 +178,7 @@ my %hget = ( # Ha
|
|||||||
pvHistory => { fn => \&_getlistPVHistory, needcred => 0 },
|
pvHistory => { fn => \&_getlistPVHistory, needcred => 0 },
|
||||||
pvReal => { fn => \&_getlistPVReal, needcred => 0 },
|
pvReal => { fn => \&_getlistPVReal, needcred => 0 },
|
||||||
pvForecast => { fn => \&_getlistPVForecast, needcred => 0 },
|
pvForecast => { fn => \&_getlistPVForecast, needcred => 0 },
|
||||||
|
nextHours => { fn => \&_getlistNextHours, needcred => 0 },
|
||||||
weatherData => { fn => \&_getlistWeather, needcred => 0 },
|
weatherData => { fn => \&_getlistWeather, needcred => 0 },
|
||||||
stringConfig => { fn => \&_getstringConfig, needcred => 0 },
|
stringConfig => { fn => \&_getstringConfig, needcred => 0 },
|
||||||
);
|
);
|
||||||
@ -307,6 +309,7 @@ my %weather_ids = (
|
|||||||
'97' => { s => '0', icon => 'weather_storm', txtd => 'starkes Gewitter mit Regen oder Schnee' },
|
'97' => { s => '0', icon => 'weather_storm', txtd => 'starkes Gewitter mit Regen oder Schnee' },
|
||||||
'98' => { s => '0', icon => 'weather_storm', txtd => 'starkes Gewitter mit Sandsturm' },
|
'98' => { s => '0', icon => 'weather_storm', txtd => 'starkes Gewitter mit Sandsturm' },
|
||||||
'99' => { s => '1', icon => 'weather_storm', txtd => 'starkes Gewitter mit Graupel oder Hagel' },
|
'99' => { s => '1', icon => 'weather_storm', txtd => 'starkes Gewitter mit Graupel oder Hagel' },
|
||||||
|
'100' => { s => '0', icon => 'weather_night ', txtd => 'sternenklarer Himmel' },
|
||||||
);
|
);
|
||||||
|
|
||||||
my @chours = (5..21); # Stunden des Tages mit möglichen Korrekturwerten
|
my @chours = (5..21); # Stunden des Tages mit möglichen Korrekturwerten
|
||||||
@ -323,10 +326,10 @@ my $calcmaxd = 7;
|
|||||||
my @dwdattrmust = qw(Rad1h TTT Neff R101 ww SunUp SunRise SunSet); # Werte die im Attr forecastProperties des DWD_Opendata Devices mindestens gesetzt sein müssen
|
my @dwdattrmust = qw(Rad1h TTT Neff R101 ww SunUp SunRise SunSet); # Werte die im Attr forecastProperties des DWD_Opendata Devices mindestens gesetzt sein müssen
|
||||||
my $whistrepeat = 900; # Wiederholungsintervall Schreiben historische Daten
|
my $whistrepeat = 900; # Wiederholungsintervall Schreiben historische Daten
|
||||||
|
|
||||||
my $cloudslope = 0.55; # Steilheit des Korrekturfaktors bzgl. effektiver Bewölkung, siehe: https://www.energie-experten.org/erneuerbare-energien/photovoltaik/planung/sonnenstunden
|
my $cloudslope = 0.3; # Steilheit des Korrekturfaktors bzgl. effektiver Bewölkung, siehe: https://www.energie-experten.org/erneuerbare-energien/photovoltaik/planung/sonnenstunden
|
||||||
my $cloud_base = 0; # Fußpunktverschiebung bzgl. effektiver Bewölkung
|
my $cloud_base = 0; # Fußpunktverschiebung bzgl. effektiver Bewölkung
|
||||||
|
|
||||||
my $rainslope = 0.30; # Steilheit des Korrekturfaktors bzgl. Niederschlag (R101)
|
my $rainslope = 0.2; # Steilheit des Korrekturfaktors bzgl. Niederschlag (R101)
|
||||||
my $rain_base = 0; # Fußpunktverschiebung bzgl. effektiver Bewölkung
|
my $rain_base = 0; # Fußpunktverschiebung bzgl. effektiver Bewölkung
|
||||||
|
|
||||||
my @consdays = qw(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30); # Auswahl Anzahl Tage für Attr numHistDays
|
my @consdays = qw(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30); # Auswahl Anzahl Tage für Attr numHistDays
|
||||||
@ -337,7 +340,7 @@ my @consdays = qw(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
|||||||
# $data{$type}{$name}{pvreal} # PV real Ringspeicher
|
# $data{$type}{$name}{pvreal} # PV real Ringspeicher
|
||||||
# $data{$type}{$name}{current} # current values
|
# $data{$type}{$name}{current} # current values
|
||||||
# $data{$type}{$name}{pvhist} # historische Werte pvreal, pvforecast, gridconsumtion
|
# $data{$type}{$name}{pvhist} # historische Werte pvreal, pvforecast, gridconsumtion
|
||||||
|
# $data{$type}{$name}{nexthours} # NextHours Werte
|
||||||
|
|
||||||
|
|
||||||
################################################################
|
################################################################
|
||||||
@ -850,6 +853,7 @@ sub Get {
|
|||||||
my $getlist = "Unknown argument $opt, choose one of ".
|
my $getlist = "Unknown argument $opt, choose one of ".
|
||||||
"data:noArg ".
|
"data:noArg ".
|
||||||
"html:noArg ".
|
"html:noArg ".
|
||||||
|
"nextHours:noArg ".
|
||||||
"pvForecast:noArg ".
|
"pvForecast:noArg ".
|
||||||
"pvHistory:noArg ".
|
"pvHistory:noArg ".
|
||||||
"pvReal:noArg ".
|
"pvReal:noArg ".
|
||||||
@ -954,6 +958,21 @@ sub _getlistPVForecast {
|
|||||||
return $ret;
|
return $ret;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
###############################################################
|
||||||
|
# Getter listNextHours
|
||||||
|
###############################################################
|
||||||
|
sub _getlistNextHours {
|
||||||
|
my $paref = shift;
|
||||||
|
my $hash = $paref->{hash};
|
||||||
|
|
||||||
|
my $name = $hash->{NAME};
|
||||||
|
my $type = $hash->{TYPE};
|
||||||
|
|
||||||
|
my $ret = listDataPool ($hash, "nexthours");
|
||||||
|
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
|
||||||
###############################################################
|
###############################################################
|
||||||
# Getter listWeather
|
# Getter listWeather
|
||||||
###############################################################
|
###############################################################
|
||||||
@ -1382,18 +1401,22 @@ sub _transferDWDForecastValues {
|
|||||||
|
|
||||||
Log3($name, 5, "$name - collect DWD forecast data: device=$fcname, rad=fc${fd}_${fh}_Rad1h, Val=$v");
|
Log3($name, 5, "$name - collect DWD forecast data: device=$fcname, rad=fc${fd}_${fh}_Rad1h, Val=$v");
|
||||||
|
|
||||||
my $calcpv = calcPVforecast ($name, $v, $num); # Vorhersage gewichtet kalkulieren
|
my $calcpv = calcPVforecast ($name, $v, $num, $t, $fd); # Vorhersage gewichtet kalkulieren
|
||||||
|
|
||||||
if ($num1 >= 0) {
|
if ($num1 >= 0) {
|
||||||
$time_str = "NextHour".sprintf "%02d", $num1;
|
$time_str = "NextHour".sprintf "%02d", $num1;
|
||||||
$epoche = $t + (3600*$num1);
|
$epoche = $t + (3600*$num1);
|
||||||
|
my $ta = TimeAdjust ($epoche);
|
||||||
|
|
||||||
push @$daref, "${time_str}_PVforecast:".$calcpv." Wh";
|
push @$daref, "${time_str}_PVforecast:".$calcpv." Wh";
|
||||||
push @$daref, "${time_str}_Time:" .TimeAdjust ($epoche); # Zeit fortschreiben
|
push @$daref, "${time_str}_Time:" .$ta; # Zeit fortschreiben
|
||||||
|
|
||||||
|
$data{$hash->{TYPE}}{$name}{nexthours}{$time_str}{pvforecast} = $calcpv;
|
||||||
|
$data{$hash->{TYPE}}{$name}{nexthours}{$time_str}{timestr} = $ta;
|
||||||
}
|
}
|
||||||
|
|
||||||
if($num < 24 && $fh < 24) { # Ringspeicher PV forecast Forum: https://forum.fhem.de/index.php/topic,117864.msg1133350.html#msg1133350
|
if($num < 23 && $fh < 23) { # Ringspeicher PV forecast Forum: https://forum.fhem.de/index.php/topic,117864.msg1133350.html#msg1133350
|
||||||
$data{$hash->{TYPE}}{$name}{pvfc}{sprintf("%02d",$fh+1)} = $calcpv;
|
$data{$hash->{TYPE}}{$name}{pvfc}{sprintf("%02d",$fh)} = $calcpv;
|
||||||
}
|
}
|
||||||
|
|
||||||
$hash->{HELPER}{"fc${fd}_".sprintf("%02d",$fh)."_Rad1h"} = $v." kJ/m2"; # nur Info: original Vorhersage Strahlungsdaten zur Berechnung Auto-Korrekturfaktor in Helper speichern
|
$hash->{HELPER}{"fc${fd}_".sprintf("%02d",$fh)."_Rad1h"} = $v." kJ/m2"; # nur Info: original Vorhersage Strahlungsdaten zur Berechnung Auto-Korrekturfaktor in Helper speichern
|
||||||
@ -1454,7 +1477,7 @@ sub _transferWeatherValues {
|
|||||||
my $neff = ReadingsNum($fcname, "fc${fd}_${fh}_Neff", 0); # Effektive Wolkendecke
|
my $neff = ReadingsNum($fcname, "fc${fd}_${fh}_Neff", 0); # Effektive Wolkendecke
|
||||||
my $r101 = ReadingsNum($fcname, "fc${fd}_${fh}_R101", 0); # Niederschlagswahrscheinlichkeit> 0,1 mm während der letzten Stunde
|
my $r101 = ReadingsNum($fcname, "fc${fd}_${fh}_R101", 0); # Niederschlagswahrscheinlichkeit> 0,1 mm während der letzten Stunde
|
||||||
|
|
||||||
my $fhstr = sprintf "%02d", $fh-1;
|
my $fhstr = sprintf "%02d", $fh-1; # hier kann Tag/Nacht-Grenze verstellt werden
|
||||||
|
|
||||||
if($fd == 0 && ($fhstr lt $fc0_SunRise_round || $fhstr gt $fc0_SunSet_round)) { # Zeit vor Sonnenaufgang oder nach Sonnenuntergang heute
|
if($fd == 0 && ($fhstr lt $fc0_SunRise_round || $fhstr gt $fc0_SunSet_round)) { # Zeit vor Sonnenaufgang oder nach Sonnenuntergang heute
|
||||||
$wid += 100; # "1" der WeatherID voranstellen wenn Nacht
|
$wid += 100; # "1" der WeatherID voranstellen wenn Nacht
|
||||||
@ -1470,8 +1493,8 @@ sub _transferWeatherValues {
|
|||||||
my $num1 = $num-1;
|
my $num1 = $num-1;
|
||||||
|
|
||||||
if ($num1 >= 0) {
|
if ($num1 >= 0) {
|
||||||
$time_str = "NextHour".sprintf "%02d", $num1;
|
$time_str = "NextHour".sprintf "%02d", $num;
|
||||||
$epoche = $t + (3600*$num1);
|
$epoche = $t + (3600*$num);
|
||||||
|
|
||||||
$hash->{HELPER}{"${time_str}_WeatherId"} = $wid;
|
$hash->{HELPER}{"${time_str}_WeatherId"} = $wid;
|
||||||
$hash->{HELPER}{"${time_str}_WeatherTxt"} = $txt;
|
$hash->{HELPER}{"${time_str}_WeatherTxt"} = $txt;
|
||||||
@ -1479,7 +1502,7 @@ sub _transferWeatherValues {
|
|||||||
$hash->{HELPER}{"${time_str}_RainProb"} = $r101;
|
$hash->{HELPER}{"${time_str}_RainProb"} = $r101;
|
||||||
}
|
}
|
||||||
|
|
||||||
if($num < 24 && $fh < 24) { # Ringspeicher Weather Forum: https://forum.fhem.de/index.php/topic,117864.msg1139251.html#msg1139251
|
if($num < 23 && $fh < 23) { # Ringspeicher Weather Forum: https://forum.fhem.de/index.php/topic,117864.msg1139251.html#msg1139251
|
||||||
$data{$type}{$name}{weather}{sprintf("%02d",$fh+1)}{id} = $wid;
|
$data{$type}{$name}{weather}{sprintf("%02d",$fh+1)}{id} = $wid;
|
||||||
$data{$type}{$name}{weather}{sprintf("%02d",$fh+1)}{txt} = $txt;
|
$data{$type}{$name}{weather}{sprintf("%02d",$fh+1)}{txt} = $txt;
|
||||||
$data{$type}{$name}{weather}{sprintf("%02d",$fh+1)}{cloudcover} = $neff;
|
$data{$type}{$name}{weather}{sprintf("%02d",$fh+1)}{cloudcover} = $neff;
|
||||||
@ -2734,23 +2757,28 @@ return @aneeded;
|
|||||||
sub calcPVforecast {
|
sub calcPVforecast {
|
||||||
my $name = shift;
|
my $name = shift;
|
||||||
my $rad = shift; # Nominale Strahlung aus DWD Device
|
my $rad = shift; # Nominale Strahlung aus DWD Device
|
||||||
my $fh = shift; # Stunde des Tages
|
my $num = shift; # Stunde des Tages
|
||||||
|
my $t = shift; # aktueller Unix Timestamp
|
||||||
|
my $fd = shift;
|
||||||
|
|
||||||
my $hash = $defs{$name};
|
my $hash = $defs{$name};
|
||||||
my $type = $hash->{TYPE};
|
my $type = $hash->{TYPE};
|
||||||
my $stch = $data{$type}{$name}{strings}; # String Configuration Hash
|
my $stch = $data{$type}{$name}{strings}; # String Configuration Hash
|
||||||
my $pr = 1.0; # Performance Ratio (PR)
|
my $pr = 1.0; # Performance Ratio (PR)
|
||||||
|
|
||||||
|
my $chour = strftime "%H", localtime($t+($num*3600)); # aktuelle Stunde
|
||||||
|
my $reld = $fd == 0 ? "today" : $fd == 1 ? "tomorrow" : "unknown";
|
||||||
|
|
||||||
my @strings = sort keys %{$stch};
|
my @strings = sort keys %{$stch};
|
||||||
|
|
||||||
my $cloudcover = $hash->{HELPER}{"NextHour".sprintf("%02d",$fh)."_CloudCover"} // 0; # effektive Wolkendecke
|
my $cloudcover = $hash->{HELPER}{"NextHour".sprintf("%02d",$num)."_CloudCover"} // 0; # effektive Wolkendecke
|
||||||
my $ccf = 1 - (($cloudcover - $cloud_base) * $cloudslope / 100); # Cloud Correction Faktor mit Steilheit und Fußpunkt
|
my $ccf = 1 - (($cloudcover - $cloud_base) * $cloudslope / 100); # Cloud Correction Faktor mit Steilheit und Fußpunkt
|
||||||
|
|
||||||
my $rainprob = $hash->{HELPER}{"NextHour".sprintf("%02d",$fh)."_RainProb"} // 0; # Niederschlagswahrscheinlichkeit> 0,1 mm während der letzten Stunde
|
my $rainprob = $hash->{HELPER}{"NextHour".sprintf("%02d",$num)."_RainProb"} // 0; # Niederschlagswahrscheinlichkeit> 0,1 mm während der letzten Stunde
|
||||||
my $rcf = 1 - (($rainprob - $rain_base) * $rainslope / 100); # Rain Correction Faktor mit Steilheit
|
my $rcf = 1 - (($rainprob - $rain_base) * $rainslope / 100); # Rain Correction Faktor mit Steilheit
|
||||||
|
|
||||||
my $kw = AttrVal ($name, 'Wh/kWh', 'Wh');
|
my $kw = AttrVal ($name, 'Wh/kWh', 'Wh');
|
||||||
my $hc = ReadingsNum ($name, "pvCorrectionFactor_".sprintf("%02d",$fh), 1 ); # Korrekturfaktor für die Stunde des Tages
|
my $hc = ReadingsNum ($name, "pvCorrectionFactor_".sprintf("%02d",$num), 1); # Korrekturfaktor für die Stunde des Tages
|
||||||
|
|
||||||
my $pvsum = 0;
|
my $pvsum = 0;
|
||||||
|
|
||||||
@ -2769,7 +2797,9 @@ sub calcPVforecast {
|
|||||||
"modulePeakString" => $peak,
|
"modulePeakString" => $peak,
|
||||||
"moduleTiltAngle" => $ta,
|
"moduleTiltAngle" => $ta,
|
||||||
"Area factor" => $af,
|
"Area factor" => $af,
|
||||||
|
"Cloudcover" => $cloudcover,
|
||||||
"Cloudfactor" => $ccf,
|
"Cloudfactor" => $ccf,
|
||||||
|
"Rainprob" => $rainprob,
|
||||||
"Rainfactor" => $rcf,
|
"Rainfactor" => $rcf,
|
||||||
"pvCorrectionFactor" => $hc,
|
"pvCorrectionFactor" => $hc,
|
||||||
"Radiation" => $rad,
|
"Radiation" => $rad,
|
||||||
@ -2782,7 +2812,7 @@ sub calcPVforecast {
|
|||||||
$sq .= $idx." => ".$lh->{$idx}."\n";
|
$sq .= $idx." => ".$lh->{$idx}."\n";
|
||||||
}
|
}
|
||||||
|
|
||||||
Log3($name, 5, "$name - PV forecast calc for hour ".sprintf("%02d",$fh)." string: $st ->\n$sq");
|
Log3($name, 5, "$name - PV forecast calc for $reld Hour ".sprintf("%02d",$chour+1)." string: $st ->\n$sq");
|
||||||
|
|
||||||
$pvsum += $pv;
|
$pvsum += $pv;
|
||||||
}
|
}
|
||||||
@ -2791,7 +2821,7 @@ sub calcPVforecast {
|
|||||||
$pvsum = int $pvsum;
|
$pvsum = int $pvsum;
|
||||||
}
|
}
|
||||||
|
|
||||||
Log3($name, 5, "$name - PV forecast calc for hour ".sprintf("%02d",$fh)." summary: $pvsum");
|
Log3($name, 5, "$name - PV forecast calc for $reld Hour ".sprintf("%02d",$chour+1)." summary: $pvsum");
|
||||||
|
|
||||||
return $pvsum;
|
return $pvsum;
|
||||||
}
|
}
|
||||||
@ -3037,15 +3067,15 @@ sub listDataPool {
|
|||||||
}
|
}
|
||||||
|
|
||||||
if ($htol eq "weather") {
|
if ($htol eq "weather") {
|
||||||
$h = $data{$hash->{TYPE}}{$name}{weather};
|
$h = $data{$type}{$name}{weather};
|
||||||
if (!keys %{$h}) {
|
if (!keys %{$h}) {
|
||||||
return qq{Weather cache is empty.};
|
return qq{Weather cache is empty.};
|
||||||
}
|
}
|
||||||
for my $idx (sort{$a<=>$b} keys %{$h}) {
|
for my $idx (sort{$a<=>$b} keys %{$h}) {
|
||||||
$sq .= $idx." => id: ".$data{$hash->{TYPE}}{$name}{weather}{$idx}{id}. "\n";
|
$sq .= $idx." => id: ".$data{$type}{$name}{weather}{$idx}{id}. "\n";
|
||||||
$sq .= " => txt: " .$data{$hash->{TYPE}}{$name}{weather}{$idx}{txt}. "\n";
|
$sq .= " => txt: " .$data{$type}{$name}{weather}{$idx}{txt}. "\n";
|
||||||
$sq .= " => cloudcover: " .$data{$hash->{TYPE}}{$name}{weather}{$idx}{cloudcover}."\n";
|
$sq .= " => cloudcover: " .$data{$type}{$name}{weather}{$idx}{cloudcover}."\n";
|
||||||
$sq .= " => rainprob: " .$data{$hash->{TYPE}}{$name}{weather}{$idx}{rainprob}. "\n";
|
$sq .= " => rainprob: " .$data{$type}{$name}{weather}{$idx}{rainprob}. "\n";
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -3069,6 +3099,19 @@ sub listDataPool {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
if ($htol eq "nexthours") {
|
||||||
|
$h = $data{$type}{$name}{nexthours};
|
||||||
|
if (!keys %{$h}) {
|
||||||
|
return qq{NextHours cache is empty.};
|
||||||
|
}
|
||||||
|
for my $idx (sort keys %{$h}) {
|
||||||
|
my $nhfc = $data{$type}{$name}{nexthours}{$idx}{pvforecast};
|
||||||
|
my $nhts = $data{$type}{$name}{nexthours}{$idx}{timestr};
|
||||||
|
$sq .= "\n" if($sq);
|
||||||
|
$sq .= $idx." => timestr: $nhts, pvforecast: $nhfc";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
return $sq;
|
return $sq;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user