Wiskundige Log functie ?

[kriz83]

Hoi,

Ik wil het dauwpunt berekenen. Hiervoor heb ik het Log nodig.
Het script:

Code: Select all

Sub Main(parm as object)
CalcDewPoint(20,68)
End Sub

Function CalcDewPoint(temperature, RH)
'http://www.weerschip.nl/formules.html
dim A
dim TD
A = ( Log(RH / 100) / Log(2.718282) ) + (17.62 * temperature / (243.12 + temperature))
TD = 243.12 * A / (17.62 - A)

hs.WriteLog("DewPoint: ", TD)

End Function

De log in homeseer:
Script compile error: De naam Log is niet gedeclareerd.on line 22

Wat doe ik hier mis ?

Gr,
Kriz

[b_weijenberg]

this function is implemented for the Virtual dew point sensor in the RFXCOM plug-in using this code:

Code: Select all

            If dblTemp > 60 Or dblTemp < 0 Then
                dblValue = dblTemp
            Else
                dblValue = CDbl(237.7 * (17.27 * dblTemp / (237.7 + dblTemp) + Math.Log(dblHum / 100)) / (17.27 - (17.27 * dblTemp / (237.7 + dblTemp) + Math.Log(dblHum / 100))))
            End If

[kriz83]

thanks, I had to add to Math. to it ...

I only have the dewpoint for my outdoor sensor, not on my indoor Oregon sensors (THGN122/123,THGR122/228/238/268)

Can I add them manually ?

[b_weijenberg]

Any RFXCOM temperature + RFXCOM humidity sensor can be used in the Virtual DEWP sensor