Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-01 20:20:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

added doAverage, doDewpoint and resolution

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@4354 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
justme-1968 2013-12-10 17:26:35 +00:00
parent 70a78604fe
commit 34a47f04e2
1 changed files with 60 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
FHEM/36_LaCrosse.pm
View File

@ -26,7 +26,10 @@ LaCrosse_Initialize($)
#$hash->{AttrFn} = "LaCrosse_Attr";
$hash->{AttrList} = "IODev"
." ignore:1"
." doAverage:1"
." doDewpoint:1"
." filterThreshold"
." resolution"
." $readingFnAttributes";
}
@ -103,6 +106,30 @@ LaCrosse_Fingerprint($$)
return ( "", $msg );
}
sub
LaCrosse_CalcDewpoint (@) {
my ($temp,$hum) = @_;
my($SDD, $DD, $a, $b, $v, $DP);
if($temp>=0) {
$a = 7.5;
$b = 237.3;
} else {
$a = 7.6;
$b = 240.7;
}
$SDD = 6.1078*10**(($a*$temp)/($b+$temp));
$DD = $hum/100 * $SDD;
$v = log($DD/6.1078)/log(10);
$DP = ($b*$v)/($a-$v);
return $DP;
}
sub
LaCrosse_Parse($$)
{
@ -149,19 +176,46 @@ LaCrosse_Parse($$)
if( $type == 0x00 ) {
$channel = "" if( $channel == 1 );
if( AttrVal( $rname, "doAverage", 0 ) ) {
$humidity = ($rhash->{"previousH$channel"}*3+$humidity)/4;
$temperature = ($rhash->{"previousT$channel"}*3+$temperature)/4;
}
if( defined($rhash->{"previousT$channel"})
&& abs($rhash->{"previousH$channel"} - $humidity) <= AttrVal( $rname, "filterThreshold", 10 )
&& abs($rhash->{"previousT$channel"} - $temperature) <= AttrVal( $rname, "filterThreshold", 10 ) ) {
readingsBeginUpdate($rhash);
my $temperature = $temperature;
my $resolution = AttrVal( $rname, "resolution", 0 );
if( $resolution ) {
$temperature = int($temperature*10 / $resolution + 0.5) * $resolution / 10;
$humidity = int($humidity / $resolution + 0.5) * $resolution;
}
readingsBulkUpdate($rhash, "temperature$channel", $temperature);
readingsBulkUpdate($rhash, "humidity$channel", $humidity) if( $humidity && $humidity <= 99 );
my $dewpoint;
if( AttrVal( $rname, "doDewpoint", 0 ) && $humidity && $humidity <= 99 ) {
$dewpoint = LaCrosse_CalcDewpoint($temperature,$humidity);
$dewpoint = int($dewpoint*10 + 0.5) / 10;
readingsBulkUpdate($rhash, "dewpoint$channel", $dewpoint);
}
if( !$channel ) {
my $state = "T: $temperature";
$state .= " H: $humidity" if( $humidity && $humidity <= 99 );
$state .= " D: $humidity" if( $dewpoint );
readingsBulkUpdate($rhash, "state", $state) if( Value($rname) ne $state );
}
readingsBulkUpdate($rhash, "battery$channel", $battery_low?"low":"ok");
readingsEndUpdate($rhash,1);
} else {
readingsSingleUpdate($rhash, "battery$channel", $battery_low?"low":"ok" , 1);
}
$rhash->{"previousH$channel"} = $humidity;
@ -228,9 +282,15 @@ LaCrosse_Attr(@)
<a name="LaCrosse_Attr"></a>
<b>Attributes</b>
<ul>
<li>doAverage<br>
use an average of the last 4 values for temperature and humidity readings</li>
<li>doDewpoint<br>
calculate dewpoint</li>
<li>filterThreshold<br>
if the difference between the current and previous temperature is greater than filterThreshold degrees
the readings for this channel are not updated. the default is 10.</li>
<li>resolution<br>
the resolution in 1/10 degree for the temperature reading</li>
<li>ignore<br>
1 -> ignore this device.</li>
</ul><br>