- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
Function iterasyon(s As Range, n As Range, b As Range) As Double
Dim pws As Single, x As Single, h As Single, i As Single
Dim pws1 As Single, x1 As Single, h1 As Single
sicaklik = Format(s.Value, "0.00")
nem = Format(n.Value, "0.00")
basinc = Format(b.Value, "0.000")
pws = 1.4097 * 10000000 * Exp(-3928.5 / (sicaklik + 231.67))
x = 0.622 * (pws * (nem / 100)) / (basinc - (pws * (nem / 100)))
h = sicaklik * 1.006 + x * (2501 + (1.86 * sicaklik))
h = Format(h, "0.0")
newSic = 0 'Format(sic.Value, "0.0")
For i = sicaklik To 0 Step -0.1
ii = Format(i, "0.0")
pws1 = 1.4097 * 10000000 * Exp(-3928.5 / (ii + 231.67))
x1 = (0.622 * pws1) / (basinc - pws1)
h1 = ii * 1.006 + x1 * (2501 + (1.86 * ii))
h1 = Format(h1, "0.0")
If h1 <= h Then
newSic = ii
Exit For
End If
Next
iterasyon = newSic
End Function
Sıcaklık nem ve basınç değerlerimiz var. Doygun basıncı bulmak için (pws) sıcaklığı formulde kullanıyoruz. daha sonra bsınç , nem ve pws yi kullanarak havada ki su miktarını (x) buluyoruz. daha sonra sıcaklık ve (x) i kullanarak entalpi (h) değerini buluyoruz.
ikinci aşamada entalpiler eşit olacak şekilde h=h1 ve yeni nem (n1) %100 olmak koşulu ile pws1,x1 ve yeni sıcaklığı (s1) buluyor. özetle yeni nem n1 %100 iken h=h1 oluncaya kadar yeni sıcaklık (s1) tahmini yapacak bir formul lazım. makro kod olmayacak hücre içerisinde kullanılabilecek bir formül lazım. yardımcı olabilirseniz çok sevinirim.
Dim pws As Single, x As Single, h As Single, i As Single
Dim pws1 As Single, x1 As Single, h1 As Single
sicaklik = Format(s.Value, "0.00")
nem = Format(n.Value, "0.00")
basinc = Format(b.Value, "0.000")
pws = 1.4097 * 10000000 * Exp(-3928.5 / (sicaklik + 231.67))
x = 0.622 * (pws * (nem / 100)) / (basinc - (pws * (nem / 100)))
h = sicaklik * 1.006 + x * (2501 + (1.86 * sicaklik))
h = Format(h, "0.0")
newSic = 0 'Format(sic.Value, "0.0")
For i = sicaklik To 0 Step -0.1
ii = Format(i, "0.0")
pws1 = 1.4097 * 10000000 * Exp(-3928.5 / (ii + 231.67))
x1 = (0.622 * pws1) / (basinc - pws1)
h1 = ii * 1.006 + x1 * (2501 + (1.86 * ii))
h1 = Format(h1, "0.0")
If h1 <= h Then
newSic = ii
Exit For
End If
Next
iterasyon = newSic
End Function
Sıcaklık nem ve basınç değerlerimiz var. Doygun basıncı bulmak için (pws) sıcaklığı formulde kullanıyoruz. daha sonra bsınç , nem ve pws yi kullanarak havada ki su miktarını (x) buluyoruz. daha sonra sıcaklık ve (x) i kullanarak entalpi (h) değerini buluyoruz.
ikinci aşamada entalpiler eşit olacak şekilde h=h1 ve yeni nem (n1) %100 olmak koşulu ile pws1,x1 ve yeni sıcaklığı (s1) buluyor. özetle yeni nem n1 %100 iken h=h1 oluncaya kadar yeni sıcaklık (s1) tahmini yapacak bir formul lazım. makro kod olmayacak hücre içerisinde kullanılabilecek bir formül lazım. yardımcı olabilirseniz çok sevinirim.