Iteration
30.07.2018 10:31:55
Alexander
Ich war auf der Suche nach einer Formel für die Feuchtkugeltemperatur. Es gibt jedoch lediglich eine Näherungsformel und die ist nicht besonders genau.
Um eine genaue Lösung zu bekommen, muss iteriert werden und es soll eine Funktion werden.
Ich habe mir einige Beispiele angeschaut und versucht eine Funktion zu erstellen.
Beim Kompilieren tretten keine Fehler auf, beim Verwenden der Funktion hängt sich Excel auf.
Ist es eventuell zu viel für Excel?
Wie soll man die Funktion vereinfachen?
Zur Iteration:
Die einzigen Werte die gegeben sind, sind Luftdruck, FeuchteAB und TempAB.
Der gesuchte Wert ist die TempFK.
Die TempFK wird in psFK berechnet und psFK in hFK eingesetzt, dies erfolgt bis hAB
Als Beispiel soll bei Werten: TempAB=25; FeuchteAB=0,008; Luftdruck=100000
Eine TempFK von etwa 16 rauskommen (Abgelesen im h-x-Diagramm)
Code:
Public Function Feuchtkugeltemperatur(Luftdruck As Double, TempAB As Double, FeuchteAB As _
Double) As Double
Dim TempFK As Double
Dim hAB As Double
Dim hFK As Double
Dim psFK As Double
TempFK = -5 ' Startwert Iteration
hAB = 1.006 * TempAB + FeuchteAB * (2501 + 1.86 * TempAB)
Do
TempFK = TempFK + 5 ' Grobe Schrittweite Näherung
psFK = 611.2 * e ^ (17.62 * TempFK / (243.12 + TempFK)
hFK = 1.006 * TempFK + (2501 + 1.86 * TempFK) * 0.622 * psFK / (Luftdruck - psFK)
Loop Until hAB = hFK
Feuchtkugeltemperatur = TempFK
End Function
Vielen Dank!