Wolkenuntergrenze berechnen

[Michael]

Moin

Auf Gund dieser Entwicklung (Link)
bin ich mal auf die suche im Netz gegangen.

Und folgendes Gefunden : http://www.cika.de/wetterlexikon/63-was-ist-die-wolkenuntergrenze.html

Und würde es gern bei mir in Fhem einbauen, aber ich bin nicht fit in Perl und Fhem.

Könnt Ihr das mal Ansehen und mir Helfen ?

99_myUtils.pm

Code Auswählen Erweitern

##############################################
# $Id: 99_myUtils.pm

package main;

use strict;
use warnings;
use POSIX;


#############################################
# Berechnung der Wolkenuntergrenze nach der Henning'schen Faustformel
# Quelle : http://www.cika.de/wetterlexikon/63-was-ist-die-wolkenuntergrenze.html
#

sub clouds_lower_limit($)
{
  $adewpoint = Hier muß der Messuwert hin, nur wie?;
  $atemp = Hier muß der Messuwert hin, nur wie?;
  $diffC = $atemp - $adewpoint0;
 
  $cloud_h = $diffC*122;

  return $cloud_h
}
###########################################

1;

Fhem.cfg

Code Auswählen Erweitern

define test_cll_at at +*00:03:00 trigger test_n

define test_n notify test {\
{clouds_lower_limit}\

Achso der Messwerte kommen von einer KS300 Stadion und Willi 's
dewpoint Berechnung.

Könnt Ihr mir Helfen ?

Gruß, Michael

P.s. Ich kommt schon auf seltsam Gedanken ;-))

[justme1968]

das geht doch noch einfach über ein user reading...

einfach das mit hier per telnet oder in die web kommandobox eingeben:

Code Auswählen Erweitern

attr s300ht_1 userReadings cloudBase {(ReadingsVal("s300ht_1","temperature", 0)-ReadingsVal("s300ht_1","dewpoint",0))*122}s300ht_1 ist dein device in dem die temperature und dewpoint readings sind.

als ergebnis hast du ein neues reading cloudeBase in deinem device.

gruss
  andre

[Michael]

Hi Andre

Leider bekomme ich da kein Wert zurück.

einfach das mit hier per telnet oder in die web kommandobox eingeben:

Habe ich über die web kommandobox gemacht.


Das sagt der Eventmonitor dazu :
2013-07-25 11:40:44 KS300 Wittingen T: 25.7 H: 63 W: 0.0 R: 577.3 IR: no D: 18.1
2013-07-25 11:40:44 KS300 Wittingen rain: 577.3
2013-07-25 11:40:44 KS300 Wittingen wind: 0.0
2013-07-25 11:40:44 KS300 Wittingen humidity: 63
2013-07-25 11:40:44 KS300 Wittingen temperature: 25.7
2013-07-25 11:40:44 KS300 Wittingen israining: no
2013-07-25 11:40:44 KS300 Wittingen dewpoint: 18.1

Das sind die Device Einträge :
(siehe Anhang / see attachement)
(siehe Anhang / see attachement)
(siehe Anhang / see attachement)

???

Gruß, Michael

[justme1968]

du hattest bei der eingabe ein 'attr Wittignen userReadings' zu viel.

es muss so aussehen:
(siehe Anhang / see attachement)

gruss
  andre

[Michael]

Hi Andre

Erst mal vielen Danke für deine Antworten und die Geduld.

Aber leider bekomme ich immer noch kein Wert in den Readings angezeigt.

Ist das setzen des Attributes im KS300 überhaupt möglich?

Gruß, Michael

[justme1968]

wenn es ein temperature und ein dewpoint reading gibt sollte es gehen.

zeig bitte noch mal deine userReadings zeile. entweder als screenshot oder als list auf das device.

gruss
  andre

[Puschel74]

Hallo,

muss das userReadings nicht noch unter

attr global userattr

mit aufgenommen werden?

Dann sollte es aber im fhem-log eine entsprechende Fehlermeldung geben bzw. beim eingeben der Zeile müsste schon eine solche
aufgetaucht sein.

Grüße

[justme1968]

ich hab gerade im code nachgeschaut. du hast leider recht. das KS300 modul kann reine readingFnAttributes. schade.

du musst es doch von hand machen. die beiden werte die du brauchst bekommst du jeweils mit ReadingsVal

gruss
  andre

[Michael]

Dank euch beiden.

@Puschel74
Leider hilft der Eintrag zusätzlich unter attr global userattr auch nicht weiter.

@all
Kann mir den jemand dabei Helfen.
Und was muss in die Fhem.cfg

Code Auswählen Erweitern

##############################################
# $Id: 99_myUtils.pm

package main;

use strict;
use warnings;
use POSIX;


#############################################
# Berechnung der Wolkenuntergrenze nach der Henning'schen Faustformel
# Quelle : http://www.cika.de/wetterlexikon/63-was-ist-die-wolkenuntergrenze.html
#

sub cloudBase($)
{
  $adewpoint = ReadingsVal("Wittingen","dewpoint",0);
  $atemp = ReadingsVal("Wittingen","temperature",0);
  $diffC = $atemp - $adewpoint0;
 
  $cloud_h = $diffC*122;

  return $cloud_h
}
###########################################

1;
Ist das richtig?

Gruß, Michael

[Michael]

keiner da mir zu Helfen?
Bzw auf den richtigen weg zubringen.

Verstehe ich bei diesen Wetter

[betateilchen]

Hallo Michael,

was funtioniert denn genau nicht? Die Berechnung in der 99_myUtils sollte grundsätzlich funktionieren. Aber die 99_myUtils ist in ihrer Struktur noch unvollständig.

probier mal so:

Code Auswählen Erweitern


package main;

use strict;
use warnings;
use POSIX;

sub
myUtils_Initialize($$)
{
  my ($hash) = @_;
}

#############################################
# Berechnung der Wolkenuntergrenze nach der Henning'schen Faustformel
# Quelle : http://www.cika.de/wetterlexikon/63-was-ist-die-wolkenuntergrenze.html
#

sub cloudBase()
{
  $adewpoint = ReadingsVal("Wittingen","dewpoint",0);
  $atemp = ReadingsVal("Wittingen","temperature",0);
  $diffC = $atemp - $adewpoint0;
 
  $cloud_h = $diffC*122;

  return $cloud_h;
}
###########################################

1;


Danach solltest du mit { cloudBase } in der fhem Kommandozeile ein Ergebnis bekommen.

Viele Grüße
Udo

[Michael]

Hallo Udo

Dank dir für deine Hilfe.
Hat mich ein Stück weiter gebracht.

So, musste die "my" noch davor setzen.
Und mit { cloudBase } über die Kommandzeile bekommen ich ein Wert.

Wo (dummy,notify,???) in Fhem kann ich den Wert eintragen.

Code Auswählen Erweitern

##############################################
# $Id: 99_myUtils.pm

package main;

use strict;
use warnings;
use POSIX;

sub
myUtils_Initialize($$)
{
  my ($hash) = @_;
}

#############################################
# Berechnung der Wolkenuntergrenze nach der Henning'schen Faustformel
# Quelle : http://www.cika.de/wetterlexikon/63-was-ist-die-wolkenuntergrenze.html
#

sub cloudBase()
{
  my $adewpoint = ReadingsVal("Wittingen","dewpoint",0);
  my $atemp = ReadingsVal("Wittingen","temperature",0);
  my $diffC = $atemp - $adewpoint;
 
  my $cloud_h = $diffC*122;

     $cloud_h = sprintf("%.0f", $cloud_h);

  return $cloud_h;
}
###########################################

1;

Gruß, Michael

[betateilchen]

Kommt drauf an, was willst Du denn mit dem Wert anfangen?

[Michael]

Hi

Ich möchte Ihn erstmal in eine Log schreiben lassen und dann einen Plot erstellen.

Denn mehr kann man da damit Wahrscheinlich nicht anfangen.

Gruß, Michael

[justme1968]

du kannst es z.b. aus einem at regelmäßig als reading in dein device schreiben und dann ganz normal wie jedes reading loggen.

Code Auswählen Erweitern

{ my $hash =  $defs{Wittingen};
  readingsSingleUpdate($hash,"cloudBase", cloudBase(), 1) if( defined($hash) );}
gruss
  andre