DB = TextBox2.Value / 1000
DR = TextBox1.Value / 1000
P1 = TextBox4.Value * 10 ^ 5
P2 = TextBox5.Value * 10 ^ 5
Pamb = TextBox7.Value * 10 ^ 5
PW = TextBox6.Value * (10 ^ 5)
T1 = TextBox3.Value + 273.15
Tr = 291.15
my0 = 18.27 * (10 ^ -6)
c = 120
P1abs = P1 + Pamb
ß = DB / DR
E = 1 / Sqr(1 - ß ^ 4)
Ep = 1 - ((0.351 + 0.256 * ß ^ 4 + 0.93 * ß ^ 8 * (1 - ((P2 / P1))) ^ 1 / 1.4))
Rho1 = P1abs / ((287 * T1))
my = my0 * (Tr + c) / (T1 + c) * ((T1 / Tr) ^ (3 / 2))
Re = 10 ^ 5
Calt = 0.5961 + 0.0261 * (ß ^ 2) - 0.216 * (ß ^ 8) + 0.000521 * (10 ^ 6 * ß / Re) ^ 0.7 + (0.0188 + 0.0063 * A) * (ß ^ 3.5) * (10 ^ 6 / Re) ^ 0.3
A = (19000 * ß / Re) ^ 0.8
Do
qm = Ep * Calt * (3.14 / 4 * DB ^ 2) * E * Sqr(2 * PW * Rho1) * 3600
Label31 = Round(qm, 2)
qv = qm / Rho1
Label33 = Round(qv, 2)
sg = qv / (3.14 / 4 * DR ^ 2) / 3600
Label35 = Round(sg, 2)
Re_i = sg * DR * Rho1 / my
Label37 = Round(Re_i, 2)
Dim
C_neu
As
Double
, Ai
As
Double
Loop
Until
Abs(C_neu - Calt) / Calt < 10 ^ -6