Konvertere fra relativ- til absolutt luftfuktighet

[Hillmar]

Er det noen der ute som kan hjelpe meg med et lite script (eller forslag til annen løsning) som kan beregne absolutt luftfuktighet, med temperatur og relativ luftfuktighet som input?

Formelen har jeg funnet her: https://carnotcycle.wordpress.com/2012/08/04/how-to-convert-relative-humidity-to-absolute-humidity/

[Moskus]

@ZoRaC har vel gjort noe tilsvarende:

 

 

[Hillmar]

Takk @Moskus.

Umiddelbart ser det riktignok ut som om det ikke er helt det jeg behøver, da duggpunktet er resultatet av hans formel.

Jeg skal bruke verdien til å vurdere når klærne i et tørkeskap er tørre så jeg kan stoppe skapet. Tror derfor jeg trenger absolutt luftfuktighet.

 

Men kanskje Scriptet kan hjelpe meg på riktig vei. Jeg skal jo tross alt bare stable på beina et script som skal lese inn to verdier (temperatur og relativ luftfuktighet), regne ut iht. en gitt formel og skrive resultatet til en device, på samme måte som dette scriptet...

[Moskus]

OK; jeg har testet dette:

    Public Sub Main()
        Dim T As Double = 23   ' in degrees C
        Dim RH As Double = 72  ' in %
        Dim absolute_humidity As Double = Math.Round(6.112 * Math.E ^ ((17.67 * T) / (T + 243.5)) * RH * 2.1674 / (273.15 + T), 2)
        Console.WriteLine("Absolute humidity: " & absolute_humidity & " g/m³")
        Console.ReadKey()
    End Sub

 

 

... som i et HS-script kan f.eks. se slik ut:

    Public Sub Main(byval parms as Object)
        Dim T As Double = hs.DeviceValueEx(REF_TO_TEMP_DEVICE)   ' in degrees C
        Dim RH As Double = hs.DeviceValueEx(REF_TO_RH_DEVICE)    ' in %
        Dim absolute_humidity As Double = Math.Round(6.112 * Math.E ^ ((17.67 * T) / (T + 243.5)) * RH * 2.1674 / (273.15 + T), 2)

        hs.SetDeviceValueByRef(REF_TO_OUTPUT_DEVICE, absolute_humidity, True)
        hs.SetDeviceString(REF_TO_OUTPUT_DEVICE, absolute_humidity & " g/m³", False)
    End Sub

Merk at du må endre REF_TO_TEMP_DEVICE, REF_TO_RH_DEVICE og REF_TO_OUTPUT_DEVICE. Den siste linja (som begynner med hs.SetDeviceString....) kan du hoppe over hvis du heller vil sette opp Status Graphics istedenfor.  

 

Jeg har ingen idé om scriptet regner rett, men det burde være rett basert på formelen i linken din.

[strips]

Litt nysgjerrig, hva trenger du absolutt fuktighet til? Noe ala det linket til over?

[Hillmar]

1 hour ago, strips said:

Litt nysgjerrig, hva trenger du absolutt fuktighet til? Noe ala det linket til over?

Jeg tenker å benytte det for å stoppe tørkeskapet når tøyet er tørt. Til denne bruken tror jeg relativ luftfuktighet blir vanskelig å bruke, siden temperaturen i skapet kan varieres (og i alle fall vil variere under "oppvarmingsfasen").

[Hillmar]

4 hours ago, Moskus said:

OK; jeg har testet dette:

Takk @Moskus!

Jeg tester i kveld og kommer med tilbakemelding  

[Blodstrupmoen]

Får ikke formelen helt til å stemme. satt den inn i excel: =ROUND((6,112*EXP(1)*((17,67*B2)/(B2+243,5))*B3*2,1674/(273,15+B2));2) hvor B2 er temperatur og B3 er Relativ fuktighet.

Laget er kurve som viser resultatet fra 0-100 grader med 100% luftfuktighet og fikk denne kurven (skal være g/m3 ikke g/m2):

 

Den burde sett slik ut:

 

Nå er ikke jeg den som har mest greie på dette, og det kan være feil i formelen min, men den er tatt rett fra Moskus sitt script.

 

Interessant dette, siden det kan være effektivt å kjøre vifte vs avfukter i garasje basert på forskjell i AH ute og inne.

Endret 13. januar 2020 av Blodstrupmoen

[Moskus]

12 minutter siden, Blodstrupmoen skrev:

Får ikke formelen helt til å stemme. satt den inn i excel: =ROUND((6,112*EXP(1)*((17,67*B2)/(B2+243,5))*B3*2,1674/(273,15+B2));2) hvor B2 er temperatur og B3 er Relativ fuktighet.

Det er fordi det er en feil i formelen din.

Det er ikke EXP(1)*[noemer] det er EXP([NOE MER]).

 

 

Med

=ROUND((6,112*EXP((17,67*C2)/(C2+243,5))*A2*2,1674/(273,15+C2));2)

 

blir det slik:

 

... men det ser ut til å stemme bra med figuren din:

[Blodstrupmoen]

7 minutter siden, Moskus skrev:

Det er fordi det er en feil i formelen din.

Det er ikke EXP(1)*[noemer] det er EXP([NOE MER]).

Takk, du er god, men det visste vi jo

 

[Moskus]

Akkurat nå, Blodstrupmoen skrev:

Takk, du er god, men det visste vi jo

Takk selv!

Du fant jo informasjonen som viste at formelen er ganske riktig. Iallfall riktig nok til bruken.  

[Blodstrupmoen]

Da fikk jeg testet scriptet, fungerte utmerket. 

[Hillmar]

En liten test her ser også ut til å fungere bra:

Når tørkeskapet skrus på (uten våte klær) øker temperaturen, relativ fuktighet synker og absolutt fuktighet ligger mer eller mindre jevnt.

Absolutt fuktighet beregnes hver gang temperatur eller relativ fuktighet endrer verdi, og kan nok med fordel "gjennomsnittsberegnes" på et vis for å unngå de avvikende verdiene vi ser i loggen.

 

Takk for hjelpen @Moskus!

[strips]

@Hillmar, Jeg savner at du poster formelen du implementerte i Homeseer   

 

Oppdatert:

Glem det! Ser nå at @Moskus postet tidligere. Antar det er denne du endte opp med?

Endret 16. januar 2020 av strips

[Hillmar]

2 hours ago, strips said:

@Hillmar, Jeg savner at du poster formelen du implementerte i Homeseer   

 

Oppdatert:

Glem det! Ser nå at @Moskus postet tidligere. Antar det er denne du endte opp med?

Jepp, Moskus løste saken og jeg kunne fortsette med "copy/paste"-programmering