Fragen zur Berechnung vom Taupunkt

[Feuc (Gast)]

Hallo Leute,

Habe eine Frage, zur Berechnung des Taupunktes.
Habe im Internet( 
http://www.schweizer-fn.de/lueftung/feuchte/feuchte.php )
folgende Formel gefunden:
http://www.schweizer-fn.de/lueftung/feuchte/taupunkt_form.gif

Ich habe sie nun in VB nachprogrammiert:

Function Calc_Inet_TD(ByVal Humidity As Double, ByVal Temperature As 
Double) As Double
        Dim Hochzahl As Double = (1 / 8.02)
        Calc_Inet_TD = (Humidity ^ Hochzahl)
        Calc_Inet_TD = Calc_Inet_TD * (109.8 + Temperature)
        Calc_Inet_TD = Calc_Inet_TD - 109.8
End Function

Nun habe ich auch die richtige Taupunktformel nachgeschrieben:

Function Calc_real_TD(ByVal Humidity As Double, ByVal Temperature As 
Double) As Double
        Dim h As Double
        h = (Math.Log10(Humidity) - 2.0) / 0.4343 + (17.62 * 
Temperature) / (243.12 + Temperature)
        Calc_real_TD = 243.12 * h / (17.62 - h)
End Function

Nun meine Frage:
Was mache ich falsch? Die Werte unterscheiden sich vollkommen.

WICHTIG: Ich möchte den Taupunkt ohne Gleitpunkt und Logarithmus 
ausrechnen. Nur Integer Zahlen !!!

Ein Polynomregression währe denkbar. Nur fehlt mir da der mathematische 
Ansatz.

[MaWin (Gast)]

Feuc schrieb:
> Calc_Inet_TD

sieht falsch aus.

Aber nichts, was in diesem Forum nicht schon durchgekaut worden wäre, 
hättest bloss suchen müssen

Beitrag "Re: Taupunktberechnung ohne Logaritmus Naturalis"

[Feuc (Gast)]

Ähhhm. Ich habe ziemlich das gleiche Problem, wie dieser andere Herr.
Nur Integer. Ich weis, momentan ist es noch double. Aber diese Formel 
lässt sich besser nach integer wandeln.

[Totalisier (Gast)]

Da wirst du keine Change haben. Ohne Mathematische Grundkenntnisse geht 
da nix.