SmartHome – Bereken doupunt

Die doupunt beskryf die temperatuur waaronder dou, mis of kondensasie kan vorm by konstante lugdruk en 'n gegewe humiditeit.

Vereiste hardeware:

• Homematic buitetemperatuur- en humiditeitsensor HM-WDS10-TH-O
• Homematic muurtermostaat HM-TC-IT-WM-WE

Die program:

Die kode:

werklike T = dom.GetObject("T_werklike_FH").Waarde();SkryfLyn("T_FH");SkryfLyn(T);
werklike rF = dom.GetObject("F_werklike_FH").Waarde();SkryfLyn("rF_FH");SkryfLyn(rF);

as (T < 0.0) { T = 0.0; } reële TK = T + 273.15; !Temperatuur in Kelvin reële a = 7.5; reële b = 237.3; !vir T >= 0
werklike R = 8314.3; !J / (kmol * K)(universele gaskonstante)
werklike mw = 18.016; !kg / kmol (molekulêre gewig van waterdamp)
reële pp = (a * T) / (b + T); !Bereken die mag van die volgende formule
werklike SDD = 6.1078 * (10.0).Pow(pp); !Versadigingsdampdruk in hPa
werklike DD = ((SDD * rF) / 100.0); !dampdruk in hPa
reële v = (DD / 6.1078).Log10();
werklike TP_null = (b * v / (a - v)); SkryfLyn("TP_null"); SkryfLyn(TP_null); !Doupunt
werklike TP = (TP_null).ToString(1); !Temperatuurskakeldrempel vir ventilasie

dom.GetObject("Taupunkt_FH").State(TP);WriteLine("Taupunkt");WriteLine(TP);
werklike AF = (10.0).Pow(5.0) * (mw / R) * DD / TK;

Die twee veranderlikes T en rF word uitgelees vanaf die onderskeie temperatuur-/humiditeitsensors in 'n eksterne program en dus beskikbaar gestel aan alle ander programme sonder 'n nuwe sensornavraag (om die Dienssiklusse) beskikbaar gestel.