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

98_dewpoint.pm: new attribut added, bugfix: http://forum.fhem.de/index.php/topic,26245.0.html

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@6757 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
joachim09876 2014-10-12 18:58:57 +00:00
parent 661bd94945
commit b4c5f70cfb
1 changed files with 88 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

81
fhem/FHEM/98_dewpoint.pm
View File

@ -40,7 +40,7 @@ dewpoint_Initialize($)
$hash->{DefFn} = "dewpoint_Define";
$hash->{NotifyFn} = "dewpoint_Notify";
$hash->{NotifyOrderPrefix} = "10-"; # Want to be called before the rest
$hash->{AttrList} = "max_timediff disable:0,1";
$hash->{AttrList} = "disable:0,1 max_timediff absFeuchte";
}
@ -260,9 +260,11 @@ dewpoint_Notify($$)
}
# We found temperature and humidity. so we can calculate dewpoint first
if ($humidity == 0) { return undef; } # humdidity is no valid value to calculate dewpoint
# Prüfen, ob humidity im erlaubten Bereich ist
if (($humidity <= 0) || ($humidity >= 110)){
Log 1, "Error dewpoint: humidity invalid: $humidity";
return undef;
}
my $dewpoint = sprintf("%.1f", dewpoint_dewpoint($temperature,$humidity));
Log 1, "dewpoint_notify: dewpoint=$dewpoint" if ($dewpoint_debug == 1);
@ -278,8 +280,21 @@ dewpoint_Notify($$)
# Example:
# define dewtest1 dewpoint dewpoint .*
# define dewtest2 dewpoint dewpoint .* T H D
my $sensor = $new_name;
my $current;
my $sensor;
my $aFeuchte = AttrVal($hash->{NAME},"absFeuchte", undef);
if (defined($aFeuchte)) {
$sensor = "absFeuchte";
$current = sprintf("%.1f", dewpoint_absFeuchte($temperature,$humidity));
$tn = TimeNow();
$dev->{READINGS}{$sensor}{TIME} = $tn;
$dev->{READINGS}{$sensor}{VAL} = $current;
$dev->{CHANGED}[$n++] = $sensor . ": " . $current;
Log 1,"dewpoint absFeuchte= $current" if ($dewpoint_debug == 1);
$aFeuchte = "A: " . $current;
}
$sensor = $new_name;
if ($temp_name ne "T") {
$current = $dewpoint;
$tn = TimeNow();
@ -297,6 +312,9 @@ dewpoint_Notify($$)
$current =~ s/<</$sensor:$dewpoint <</g;
} else {
$current = $lastval." ".$sensor.": ".$dewpoint;
if (defined($aFeuchte)) {
$current = $current." ".$aFeuchte;
}
}
$dev->{STATE} = $current;
$dev->{CHANGED}[$n++] = $current;
@ -387,10 +405,8 @@ dewpoint_Notify($$)
Log 1, "Error notify_dewpoint: <2> unknown cmd_type ".$cmd_type;
return "";
}
return undef;
}
# -----------------------------
# Dewpoint calculation.
# see http://www.faqs.org/faqs/meteorology/temp-dewpoint/ "5. EXAMPLE"
@ -398,9 +414,7 @@ sub
dewpoint_dewpoint($$)
{
my ($temperature, $humidity) = @_;
my $dp;
my $A = 17.2694;
my $B = ($temperature > 0) ? 237.3 : 265.5;
my $es = 610.78 * exp( $A * $temperature / ($temperature + $B) );
@ -420,6 +434,27 @@ dewpoint_dewpoint($$)
return($dp);
}
sub
dewpoint_absFeuchte ($$)
{
# Formeln von http://kellerlueftung.blogspot.de/p/blog-page_9.html
# http://www.wettermail.de/wetter/feuchte.html
my ($T, $rh) = @_;
if (($rh < 0) || ($rh > 110)){
Log 1, "Error dewpoint: humidity invalid: $rh";
return "";
}
# a = 7.5, b = 237.3 für T >= 0
# a = 7.6, b = 240.7 für T < 0 über Wasser (Taupunkt)
my $a = ($T > 0) ? 7.5 : 7.6;
my $b = ($T > 0) ? 237.3 : 240.7;
my $SDD = 6.1078 * 10**(($a*$T)/($b+$T));
my $DD = $rh/100 * $SDD;
my $AF = (10**5) * (18.016 / 8314.3) * ($DD / (273.15 + $T));
my $af = sprintf( "%.1f",$AF);
return($af); # $aF = absolute Feuchte in g Wasserdampf pro m3 Luft
}
1;
@ -552,14 +587,24 @@ dewpoint_dewpoint($$)
<b>Attributes</b>
<ul>
<li><a href="#disable">disable</a></li>
<li>absFeuchte</li><br>
<ul>
AbsFeuchte also becomes by the absolute humidity set the attribute into the Readings of all things.
One can by these show information also in the status.
Example: (<Adapter> = the FHEM name of the adapter this one you must change)
<PRE>
stateFormat:
{sprintf("T: %.1f H: %.1f D: %.1f A: %.1f", ReadingsVal("<Adapter>","temperature",0), ReadingsVal("<Adapter>","H",0), ReadingsVal("<Adapter>","dewpoint",0), ReadingsVal("<Adapter>","absFeuchte",0))}
</PRE>
</ul>
<li>max_timediff<br>
Maximum time difference in seconds allowed between the temperature and humidity values for a device. dewpoint uses the Readings for temperature or humidity if they are not delivered in the event. This is necessary for using dewpoint with event-on-change-reading. Also needed for sensors that do deliver temperature and humidity in different events like for example technoline sensors TX3TH.<br>
If not set default is 1 second.
If not set default is 1 second.
<br><br>
Examples:<PRE>
# allow maximum time difference of 60 seconds
define dew_all dewpoint dewpoint .*
attr dew_all max_timediff 60
# allow maximum time difference of 60 seconds
define dew_all dewpoint dewpoint .*
attr dew_all max_timediff 60
</li><br>
</ul>
</ul>
@ -691,6 +736,16 @@ attr dew_all max_timediff 60
<b>Attributes</b>
<ul>
<li><a href="#disable">disable</a></li>
<li>absFeuchte</li><br>
<ul>
Durch setzen des Attributes absFeuchte wird in den Readings auch die absolute Feuchte mit ausgerechnet.
Durch <a href="#stateFormat">stateFormat</a> kann man diese Info auch im Status anzeigen.
Beispiel: (<Adapter> = Der FHEM Name des Adapters der geändert werden muss)
<pre>
stateFormat:
{sprintf("T: %.1f H: %.1f D: %.1f A: %.1f", ReadingsVal("<Adapter>","temperature",0), ReadingsVal("<Adapter>","H",0), ReadingsVal("<Adapter>","dewpoint",0), ReadingsVal("<Adapter>","absFeuchte",0))}
</pre>
</ul>
<li>max_timediff</li><br>
<ul>
Maximale erlaubter Zeitunterschied in Sekunden zwischen den Temperatur- und Luftfeuchtewerten eines