|
Hallo Zussamen,
es geht multiple ergebnisse aus dem Function statement. In diesem Code wollte ich beta und meu1 auch als Ergebnisse zeigen lassen sowie ISA_1932_DP_Pa_gegeben_Qm_d_D_P1_T1 . Gibt es möglichkeit??
""
Function ISA_1932_DP_Pa_gegeben_Qm_d_D_P1_T1(Qm_kg_s As Double, Drossel_mm As Double, RohrID_mm As Double, P1_barA As Double, T1_C As Double, T°C As Double) As Double
Dim Kd, Drossel_Tc, RohrID_Tc, beta As Double, Meu1, Tow, kappa, Rho_1, A, B, C, D, Exp_E, RE_D As Double, DP_Pa_ite As Double, DP_Pa As Double
Kd = Coeff_Exp_upto_5_2(T°C)
Drossel_Tc = Drossel_mm * 0.001 * (((T1_C - 20) * (Kd * 0.000001)) + 1) 'd1 = d0 (dt Kd + 1)----in meter
RohrID_Tc = RohrID_mm * 0.001 * (((T1_C - 20) * (Kd * 0.000001)) + 1) ' ----in meter
beta = Drossel_Tc / RohrID_Tc
Meu1 = H2O_eta_PT(P1_barA, T1_C) * 0.000001 ' Pas or kg/ms
kappa = H2o_kappa_pt(P1_barA, T1_C)
Rho_1 = H2o_rho_PT(P1_barA, T1_C)
RE_D = 4 * Qm_kg_s / (3.14 * Meu1 * RohrID_Tc)
C = ISA_1932_Durchflusscoeff(beta, RE_D)
DP_Pa = 0.2 * P1_barA * 100000# '------First guess
Iteration:
Tow = (P1_barA - DP_Pa * 0.00001) / P1_barA
'Hilfsfunction for Expansionfaktor.
A = (kappa * Tow ^ (2 / kappa)) / (kappa - 1)
B = (1 - beta ^ 4) / (1 - beta ^ 4 * Tow ^ (2 / kappa))
D = (1 - Tow ^ ((kappa - 1) / kappa)) / (1 - Tow)
Exp_E = (A * B * D) ^ 0.5
DP_Pa_ite = (Qm_kg_s * (1 - beta ^ 4) ^ 0.5 * 4 * (1 / 3.1414) * (1 / C) * (1 / Exp_E) * (1 / Drossel_Tc ^ 2) * (2 * Rho_1) ^ -0.5) ^ 2
If Abs(DP_Pa_ite - DP_Pa) / DP_Pa_ite < 1 * 0.00001 Then
ISA_1932_DP_Pa_gegeben_Qm_d_D_P1_T1 = DP_Pa_ite
Else
DP_Pa = DP_Pa_ite
GoTo Iteration
End If
End Function
""
|