FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-21 01:46:08 +00:00
Code Issues Releases Wiki Activity

76_SolarForecast.pm: contrib 0.17.0

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@24023 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2021-03-20 13:55:15 +00:00
parent 3c15056c3f
commit 0e80d68246
1 changed files with 59 additions and 80 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -116,6 +116,7 @@ BEGIN {
# Versions History intern # Versions History intern
my %vNotesIntern = ( my %vNotesIntern = (
"0.17.0" => "20.03.2021 new attr cloudFactorSlope, fixes in Graphic sub ",
"0.16.0" => "19.03.2021 new getter nextHours, some fixes ", "0.16.0" => "19.03.2021 new getter nextHours, some fixes ",
"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 ",
@ -326,10 +327,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 = 45; # Steilheit (%) des Korrekturfaktors bzgl. effektiver Bewölkung, siehe: https://www.energie-experten.org/erneuerbare-energien/photovoltaik/planung/sonnenstunden my $clslopedef = 45; # 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 = 20; # Steilheit (%) des Korrekturfaktors bzgl. Niederschlag (R101) my $rslopedef = 20; # 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
@ -374,6 +375,7 @@ sub Initialize {
# "consumerList ". # "consumerList ".
# "consumerLegend:none,icon_top,icon_bottom,text_top,text_bottom ". # "consumerLegend:none,icon_top,icon_bottom,text_top,text_bottom ".
# "consumerAdviceIcon ". # "consumerAdviceIcon ".
"cloudFactorSlope:slider,0,1,100 ".
"disable:1,0 ". "disable:1,0 ".
"forcePageRefresh:1,0 ". "forcePageRefresh:1,0 ".
"headerAlignment:center,left,right ". "headerAlignment:center,left,right ".
@ -1201,21 +1203,16 @@ sub centralTask {
daref => \@da daref => \@da
}; };
Log3 ($name, 5, "$name - ################################################################"); Log3 ($name, 4, "$name - ################################################################");
Log3 ($name, 5, "$name - ### New data collection cycle ###"); Log3 ($name, 4, "$name - ### New data collection cycle ###");
Log3 ($name, 5, "$name - ################################################################"); Log3 ($name, 4, "$name - ################################################################");
Log3 ($name, 5, "$name - current hour: $chour"); Log3 ($name, 4, "$name - current hour of day: ".($chour+1));
_transferWeatherValues ($params); # Wetterwerte übertragen _transferWeatherValues ($params); # Wetterwerte übertragen
_transferDWDForecastValues ($params); # Forecast Werte übertragen _transferDWDForecastValues ($params); # Forecast Werte übertragen
_transferInverterValues ($params); # WR Werte übertragen _transferInverterValues ($params); # WR Werte übertragen
_transferMeterValues ($params); _transferMeterValues ($params);
#Log3($name, 1, "$name - PV forecast Hash: ". Dumper $data{$hash->{TYPE}}{$name}{pvfc});
#Log3($name, 1, "$name - Weather forecast Hash: ". Dumper $data{$hash->{TYPE}}{$name}{weather});
#Log3($name, 1, "$name - PV real Hash: ". Dumper $data{$hash->{TYPE}}{$name}{pvreal});
#Log3($name, 1, "$name - current values Hash: ". Dumper $data{$hash->{TYPE}}{$name}{current});
if(@da) { if(@da) {
createReadingsFromArray ($hash, \@da, 1); createReadingsFromArray ($hash, \@da, 1);
} }
@ -1405,9 +1402,9 @@ sub _transferDWDForecastValues {
my $calcpv = calcPVforecast ($name, $v, $num, $t, $fd); # 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", $num;
$epoche = $t + (3600*$num1); $epoche = $t + (3600*$num);
my $ta = TimeAdjust ($epoche); my $ta = TimeAdjust ($epoche);
push @$daref, "${time_str}_PVforecast:".$calcpv." Wh"; push @$daref, "${time_str}_PVforecast:".$calcpv." Wh";
@ -1415,7 +1412,7 @@ sub _transferDWDForecastValues {
$data{$type}{$name}{nexthours}{$time_str}{pvforecast} = $calcpv; $data{$type}{$name}{nexthours}{$time_str}{pvforecast} = $calcpv;
$data{$type}{$name}{nexthours}{$time_str}{starttime} = $ta; $data{$type}{$name}{nexthours}{$time_str}{starttime} = $ta;
} #}
if($num < 23 && $fh < 23) { # 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{$type}{$name}{pvfc}{sprintf("%02d",$fh)} = $calcpv; $data{$type}{$name}{pvfc}{sprintf("%02d",$fh)} = $calcpv;
@ -2114,21 +2111,21 @@ sub forecastGraphic {
my $val2; my $val2;
if ($offset) { if ($offset) {
$t{0} += $offset; $t{0} += $offset;
$t{0} += 24 if ($t{0} < 0); $t{0} += 24 if ($t{0} < 0);
my $t0 = sprintf('%02d', $t{0}+1); # Index liegt eins höher : 10:00 = Index '11' my $t0 = sprintf('%02d', $t{0}+1); # Index liegt eins höher : 10:00 = Index '11'
$val1 = (exists($data{$hash->{TYPE}}{$name}{pvfc}{$t0})) ? $data{$hash->{TYPE}}{$name}{pvfc}{$t0} : 0; $val1 = (exists($data{$hash->{TYPE}}{$name}{pvfc}{$t0})) ? $data{$hash->{TYPE}}{$name}{pvfc}{$t0} : 0;
$val2 = (exists($data{$hash->{TYPE}}{$name}{pvreal}{$t0})) ? $data{$hash->{TYPE}}{$name}{pvreal}{$t0} : 0; $val2 = (exists($data{$hash->{TYPE}}{$name}{pvreal}{$t0})) ? $data{$hash->{TYPE}}{$name}{pvreal}{$t0} : 0;
$we{0} = (exists($data{$hash->{TYPE}}{$name}{weather}{$t0}{id})) ? $data{$hash->{TYPE}}{$name}{weather}{$t0}{id} : -1; $we{0} = (exists($data{$hash->{TYPE}}{$name}{weather}{$t0}{id})) ? $data{$hash->{TYPE}}{$name}{weather}{$t0}{id} : -1;
#$is{0} = undef; #$is{0} = undef;
} }
else { else {
my $t0 = sprintf('%02d', $t{0}+1); my $t0 = sprintf('%02d', $t{0}+1);
$val1 = (exists($data{$hash->{TYPE}}{$name}{pvfc}{$t0})) ? $data{$hash->{TYPE}}{$name}{pvfc}{$t0} : 0; $val1 = (exists($data{$hash->{TYPE}}{$name}{pvfc}{$t0})) ? $data{$hash->{TYPE}}{$name}{pvfc}{$t0} : 0;
$val2 = (exists($data{$hash->{TYPE}}{$name}{pvreal}{$t0})) ? $data{$hash->{TYPE}}{$name}{pvreal}{$t0} : 0; $val2 = (exists($data{$hash->{TYPE}}{$name}{pvreal}{$t0})) ? $data{$hash->{TYPE}}{$name}{pvreal}{$t0} : 0;
# ToDo : klären ob ThisHour:weather_Id stimmt in Bezug zu ThisHour_Time # ToDo : klären ob ThisHour:weather_Id stimmt in Bezug zu ThisHour_Time
$we{0} = (exists($hash->{HELPER}{'NextHour00_WeatherId'})) ? $hash->{HELPER}{"NextHour00_WeatherId"} : -1; $we{0} = (exists($hash->{HELPER}{'NextHour00_WeatherId'})) ? $hash->{HELPER}{"NextHour00_WeatherId"} : -1;
#$is{0} = (ReadingsVal($name,"NextHour00_IsConsumptionRecommended",'no') eq 'yes' ) ? $icon : undef; #$is{0} = (ReadingsVal($name,"NextHour00_IsConsumptionRecommended",'no') eq 'yes' ) ? $icon : undef;
} }
$beam1{0} = ($beam1cont eq 'forecast') ? $val1 : $val2; $beam1{0} = ($beam1cont eq 'forecast') ? $val1 : $val2;
@ -2200,30 +2197,28 @@ sub forecastGraphic {
my $val1; my $val1;
my $val2 = 0; my $val2 = 0;
my $ii = sprintf('%02d',$i); my $ii = sprintf('%02d',$i+2);
$t{$i} = $thishour +$i; $t{$i} = $thishour +$i;
$t{$i} -= 24 if ($t{$i} > 23); $t{$i} -= 24 if ($t{$i} > 23);
if ($offset < 0) { if ($offset < 0) {
$t{$i} += $offset; $t{$i} += $offset;
$t{$i} += 24 if ($t{$i} < 0); $t{$i} += 24 if ($t{$i} < 0);
my $jj = sprintf('%02d',$t{$i}); my $jj = sprintf('%02d',$t{$i});
if ($i <= abs($offset)) { if ($i <= abs($offset)) {
$val1 = (exists($data{$hash->{TYPE}}{$name}{pvfc}{$jj+1})) ? $data{$hash->{TYPE}}{$name}{pvfc}{$jj+1} : 0;
$val1 = (exists($data{$hash->{TYPE}}{$name}{pvfc}{$jj})) ? $data{$hash->{TYPE}}{$name}{pvfc}{$jj} : 0; $val2 = (exists($data{$hash->{TYPE}}{$name}{pvreal}{$jj+1})) ? $data{$hash->{TYPE}}{$name}{pvreal}{$jj+1} : 0;
$val2 = (exists($data{$hash->{TYPE}}{$name}{pvreal}{$jj})) ? $data{$hash->{TYPE}}{$name}{pvreal}{$jj} : 0; $we{$i} = (exists($data{$hash->{TYPE}}{$name}{weather}{$jj+1}{id})) ? $data{$hash->{TYPE}}{$name}{weather}{$jj+1}{id} : -1;
$we{$i} = (exists($data{$hash->{TYPE}}{$name}{weather}{$jj}{id})) ? $data{$hash->{TYPE}}{$name}{weather}{$jj}{id} : -1;
} }
else { else {
my $nh = sprintf('%02d', $i+$offset); my $nh = sprintf('%02d', $i+$offset+1);
$val1 = ReadingsNum($name, 'NextHour'.$nh.'_PVforecast', 0); $val1 = ReadingsNum($name, 'NextHour'.$nh.'_PVforecast', 0);
# ToDo : klären ob -1 oder nicht ! # ToDo : klären ob -1 oder nicht !
#$nh = sprintf('%02d', $i+$offset-1); #$nh = sprintf('%02d', $i+$offset-1);
$we{$i} = (exists($hash->{HELPER}{'NextHour'.$nh.'_WeatherId'})) ?$hash->{HELPER}{'NextHour'.$nh.'_WeatherId'} : -1; $we{$i} = (exists($hash->{HELPER}{'NextHour'.$nh.'_WeatherId'})) ?$hash->{HELPER}{'NextHour'.$nh.'_WeatherId'} : -1;
} }
} }
else { else {
@ -2767,13 +2762,14 @@ sub calcPVforecast {
my $chour = strftime "%H", localtime($t+($num*3600)); # aktuelle Stunde my $chour = strftime "%H", localtime($t+($num*3600)); # aktuelle Stunde
my $reld = $fd == 0 ? "today" : $fd == 1 ? "tomorrow" : "unknown"; my $reld = $fd == 0 ? "today" : $fd == 1 ? "tomorrow" : "unknown";
my @strings = sort keys %{$stch}; my $cloudslope = AttrVal($name, "cloudFactorSlope", $clslopedef); # prozentuale Berücksichtigung des Bewölkungskorrekturfaktors
my @strings = sort keys %{$stch};
my $cloudcover = $hash->{HELPER}{"NextHour".sprintf("%02d",$num)."_CloudCover"} // 0; # effektive Wolkendecke my $cloudcover = $hash->{HELPER}{"NextHour".sprintf("%02d",$num)."_CloudCover"} // 0; # effektive Wolkendecke
my $ccf = 1 - ((($cloudcover - $cloud_base)/100) * $cloudslope/100); # Cloud Correction Faktor mit Steilheit und Fußpunkt my $ccf = 1 - ((($cloudcover - $cloud_base)/100) * $cloudslope/100); # Cloud Correction Faktor mit Steilheit und Fußpunkt
my $rainprob = $hash->{HELPER}{"NextHour".sprintf("%02d",$num)."_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)/100) * $rainslope/100); # Rain Correction Faktor mit Steilheit my $rcf = 1 - ((($rainprob - $rain_base)/100) * $rslopedef/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",$num), 1); # Korrekturfaktor für die Stunde des Tages my $hc = ReadingsNum ($name, "pvCorrectionFactor_".sprintf("%02d",$num), 1); # Korrekturfaktor für die Stunde des Tages
@ -2791,18 +2787,19 @@ sub calcPVforecast {
my $pv = sprintf "%.1f", ($rad * $af * $kJtokWh * $peak * $pr * $hc * $ccf * $rcf * 1000); my $pv = sprintf "%.1f", ($rad * $af * $kJtokWh * $peak * $pr * $hc * $ccf * $rcf * 1000);
my $lh = { # Log-Hash zur Ausgabe my $lh = { # Log-Hash zur Ausgabe
"moduleDirection" => $moddir, "moduleDirection" => $moddir,
"modulePeakString" => $peak, "modulePeakString" => $peak,
"moduleTiltAngle" => $ta, "moduleTiltAngle" => $ta,
"Area factor" => $af, "Area factor" => $af,
"Cloudcover" => $cloudcover, "Cloudcover" => $cloudcover,
"Cloudfactor" => $ccf, "CloudFactorSlope" => $cloudslope." %",
"Rainprob" => $rainprob, "Cloudfactor" => $ccf,
"Rainfactor" => $rcf, "Rainprob" => $rainprob,
"pvCorrectionFactor" => $hc, "Rainfactor" => $rcf,
"Radiation" => $rad, "pvCorrectionFactor" => $hc,
"Factor kJ to kWh" => $kJtokWh, "Radiation" => $rad,
"PV generation (Wh)" => $pv "Factor kJ to kWh" => $kJtokWh,
"PV generation" => $pv." Wh"
}; };
my $sq; my $sq;
@ -2810,7 +2807,7 @@ sub calcPVforecast {
$sq .= $idx." => ".$lh->{$idx}."\n"; $sq .= $idx." => ".$lh->{$idx}."\n";
} }
Log3($name, 5, "$name - PV forecast calc for $reld Hour ".sprintf("%02d",$chour+1)." string: $st ->\n$sq"); Log3($name, 4, "$name - PV forecast calc for $reld Hour ".sprintf("%02d",$chour+1)." string: $st ->\n$sq");
$pvsum += $pv; $pvsum += $pv;
} }
@ -2819,7 +2816,7 @@ sub calcPVforecast {
$pvsum = int $pvsum; $pvsum = int $pvsum;
} }
Log3($name, 5, "$name - PV forecast calc for $reld Hour ".sprintf("%02d",$chour+1)." summary: $pvsum"); Log3($name, 4, "$name - PV forecast calc for $reld Hour ".sprintf("%02d",$chour+1)." summary: $pvsum");
return $pvsum; return $pvsum;
} }
@ -3700,30 +3697,12 @@ werden weitere SolarForecast Devices zugeordnet.
</li> </li>
<br> <br>
<a name="consumerAdviceIcon"></a> <a name="cloudFactorSlope"></a>
<li><b>consumerAdviceIcon </b><br> <li><b>cloudFactorSlope </b><br>
Setzt das Icon zur Darstellung der Zeiten mit Verbraucherempfehlung. Prozentuale Berücksichtigung (Steilheit) der Bewölkung bei der solaren Ertragsermittlung. <br>
Dazu kann ein beliebiges Icon mit Hilfe der Standard "Select Icon"-Funktion (links unten im FHEMWEB) direkt ausgewählt Höhere Werte vermindern tendenziell den prognostizierten PV Ertrag, kleinere Werte erhöhen den prognostizierten PV
werden. Ertrag tendenziell.<br>
</li> (default: 45)
<br>
<a name="consumerList"></a>
<li><b>consumerList &lt;Verbraucher1&gt;:&lt;Icon&gt;@&lt;Farbe&gt;,&lt;Verbraucher2&gt;:&lt;Icon&gt;@&lt;Farbe&gt;,...</b><br>
Komma getrennte Liste der am SMA Sunny Home Manager angeschlossenen Geräte. <br>
Sobald die Aktivierung einer der angegebenen Verbraucher geplant ist, wird der geplante Zeitraum in der Grafik
angezeigt.
Der Name des Verbrauchers muss dabei dem Namen im Reading "L3_&lt;Verbrauchername&gt;_Planned" entsprechen. <br><br>
<b>Beispiel: </b> <br>
attr &lt;name&gt; consumerList Trockner:scene_clothes_dryer@yellow,Waschmaschine:scene_washing_machine@lightgreen,Geschirrspueler:scene_dishwasher@orange
<br>
</li>
<br>
<a name="consumerLegend"></a>
<li><b>consumerLegend &ltnone | icon_top | icon_bottom | text_top | text_bottom&gt; </b><br>
Lage bzw. Art und Weise der angezeigten Verbraucherlegende.
</li> </li>
<br> <br>