dewpoint nur als Userreading möglich?

[kpwg]

Hallo Forum,

nachdem ich an der Erstellung von Readings eines DHT22 Sensors in der classdef eines ECMDDevices kläglich gescheitert bin, habe ich nun innerhalb weniger Stunden mit einem notify und der passenden DEF die readings hin bekommen. Das würde mir ansich reichen, WENN ich nicht noch den Taupunkt benötigen würde. 

Der aktuelle Stand:

dht22.classdef

Code Auswählen Erweitern

get DHT cmd {"dht temp" . "\ndht humid"}
get DHT postproc {s/(.*)\n(.*)/T: $1 H: $2/; $_;}
Damit lässt sich schon mal ein ordentlicher Logeintrag erzeugen, der auch für Plots verwendbar ist (Danke nochmal an Boris für Hilfe mit dem substitution operator!).

Weiterhin bediene ich den Sensor selbst alle 4 Minuten mit

Code Auswählen Erweitern

define WZ_Klima ECMDDevice DHT22
attr WZ_Klima IODev NETIO_WZ
attr WZ_Klima alias Wohnzimmer
attr WZ_Klima room Wohnung
attr WZ_Klima stateFormat { sprintf("%s°C %s%%", ReadingsVal("WZ_Klima","temperature",0), ReadingsVal("WZ_Klima","humidity",0)) ;; }
define WZ_TH at +*00:04 get WZ_Klima DHT
attr WZ_TH verbose 1

und das neu erstellte notify enthält

Code Auswählen Erweitern

define dht2readings notify WZ_Klima:DHT.* {\
my $value1 = "%EVTPART2";;\
my $value2 = "%EVTPART4";;\
my $state = "T: $value1 H: $value2";;\
my $hash  = $defs{%NAME};;\
readingsSingleUpdate($hash, "temperature", $value1, 1);;\
readingsSingleUpdate($hash, "humidity", $value2, 1);;\
readingsSingleUpdate($hash, "state", $state, 1);;\
;;\
undef\
}\
womit ich temperature, humidity und ein bereinigtes state erzeugen kann. Das nutzlose reading DHT bekomme ich zwar mit deletreading weg, erzeuge aber jedes mal einen logeintrag. Das ist aber eher kosmetisch...

Nun zun eigentlichen Problem:
Das Modul dewpoint generiert aus den Temperaturen und Feuchtewerten aller vohandenen Sensoren das reading dewpoint für jedes Device. Das funktioniert aber nicht bei meinen erstellten Readings! Ich kann zwar mit

Code Auswählen Erweitern

attr WZ_Klima userReadings dewpoint:temperature { my $dp;; my $temperature = ReadingsVal($name,"temperature",0);; my $humidity = ReadingsVal($name,"humidity",0);; my $A = 17.2694;; my $B = ($temperature > 0) ? 237.3 : 265.5;; my $es = 610.78 * exp( $A * $temperature / ($temperature + $B) );; my $e = $humidity/ 100 * $es;; if ($e == 0) { Log 1, "Error: dewpoint() e==0: temp=$temperature, hum=$humidity";; return 0;; } my $e1 = $e / 610.78;; my $f = log( $e1 ) / $A;; my $f1 = 1 - $f;; if ($f1 == 0) { Log 1, "Error: dewpoint() (1-f)==0: temp=$temperature, hum=$humidity";; return 0;; } $dp = $B * $f / $f1 ;;} einen Taupunkt mit beachtlichen 12 Nachkommastellen als userReading erstellen, halte das aber für Quatsch, zumal durch die vielfach geplanten DHT22 entsprechende Codevervielfachungen nötig wären.

Lösungsansätze/Ideen/Fragen:

1. Lässt sich der Code im notify soweit anpassen, das ich bereits dort den Taupunkt (mit einer Nachkommastelle!) erhalte?
2. Lässt sich ein so angepasstes Notify für mehrere regexp anwenden?
3. Warum "greift" das Modul dewpoint nicht?
4. Kann ich deletereading anwenden, ohne einen Logeintrag zu erzeugen? (verbose bewirkt nix)

Viele Grüße, Ricardo

[rudolfkoenig]

1. sicher, Taupunktberechnung ist keine Hexerei, hast ja selbst gezeigt.
2. sicher, ob das noch sinnvoll/uebersichtlich ist, sei hingestellt.
3. weil dewpoint vor dem notify drankommt, damit notifies mit dem dewpoint rechnen koennen. Damit generiert dein readings*Update im notify kein neues Event.
4. falls man deletereading im notify ausfuehrt, und man kein forwardReturnValue gesetzt hat, sollte im log nichts erscheinen.

[kpwg]

1. sicher, Taupunktberechnung ist keine Hexerei, hast ja selbst gezeigt.

Stimmt, auch wenn der Code aus dem wiki stammt, musste er angepasst werden, um an der Stelle zu funktionieren. Ich versuche mich daran!

2. sicher, ob das noch sinnvoll/uebersichtlich ist, sei hingestellt.

Ich sehe nur keine andere Möglichkeit, exotische Sensoren via ECMDDevice mit wenig Aufwand und ohne unnötig vielfachen Code einzubinden.

3. weil dewpoint vor dem notify drankommt, damit notifies mit dem dewpoint rechnen koennen. Damit generiert dein readings*Update im notify kein neues Event.

... was das Verhalten des dewpoint erklärt... Danke!

4. falls man deletereading im notify ausfuehrt, und man kein forwardReturnValue gesetzt hat, sollte im log nichts erscheinen.

Ich habe es nicht gesetzt! Standardmäßig ist es auch aus. Logeintrag kommt trotzdem.

[Gernott]

Hallo kpwg

Ich hole den Faden noch mal aus der Gruft. Wie hast Du denn die Sache nun gelöst? Ich habe auch den DHT22 als ECMDDevice mit folgenden Eigenschaften implementiert:

Code Auswählen Erweitern

Internals:
   DEF        DHT22M 1
   IODev      AVRNETIO
   NAME       KL_HumTemp2
   NR         176
   STATE      T: 19.4 H: 54.0
   TYPE       ECMDDevice
   Readings:
     2014-10-23 21:24:07   DHT             T: 19.4 H: 54.0
     2014-10-23 21:24:07   state           DHT T: 19.4 H: 54.0
   Fhem:
     classname  DHT22M
     Cache:
       Specials:
         %NAME      KL_HumTemp2
         %TYPE      ECMDDevice
         %devID     1
     Params:
       devID      1
Attributes:
   IODev      AVRNETIO
   alias      KL_DHT_Keller
   room       Interfaces
   stateFormat {ReadingsVal("KL_HumTemp2", "DHT", 0)}
   verbose    0

Darauf reagiert dewpoint mit

Code Auswählen Erweitern

... dewpoint .* D H T
leider nicht.

Gruß
Gernot

[kpwg]

Hallo Gernot,

sehr gerne, weil ich denke, das dieses Thema noch nicht ganz "durch" ist- auch hier sind noch Fragen.

Zuerst nochmals meine aktuell eingesetzte (und verbesserungswürdige) classdef:

Code Auswählen Erweitern

# Uebergabeparameter DHT22  ID 0...n
params devID
# Umsetzung in ECMD Befehle fuer DHT22
get DHT cmd {"dht temp %devID\n\000dht humid %devID\n"}
get DHT expect "\d+.\d\n"
get DHT postproc {\
s/(.*)\n(.*)\n/T: $1 H: $2/; $_;\
my $hash  = $defs{%NAME};\
my $temperature = $1;\
my $humidity = $2;\
my $state = $_;\
\
readingsSingleUpdate($hash, "temperature", $temperature, 1);\
readingsSingleUpdate($hash, "humidity", $humidity, 1);\
readingsSingleUpdate($hash, "state", $state, 1);\
\
}

Damit läuft es zumindest schon mal zuverlässig, verursacht aber noch immer bei jeder Messung ein

Code Auswählen Erweitern

2014.10.24 16:16:24 1: PERL WARNING: Useless use of a variable in void context at (eval 182446) line 1.
. Hier hilft weder Neustart noch was anderes. Ich kann daher nur Verbose auf Null setzen- auch keine Lösung. 

Weiterhin definiere ich den Taupunkt mit

Code Auswählen Erweitern

define dew_all dewpoint dewpoint .* temperature humidity dewpoint
attr dew_all absFeuchte 1
und nutze das modifizierte Dewpoint-Modul aus dem Thread: http://forum.fhem.de/index.php/topic,21458.0.html. Mit T: und H: arbeite ich nicht; nur mit temperature und humidity systemweit einheitlich. Damit erhalte ich dann aus allen Sensoren mit passenden readings die absFeuchte und den Taupunkt.

Versuch's mal.

Viele Grüße, Ricardo