Thema Datum  Von Nutzer Rating
Antwort
Rot Multiple ergebnisse
29.09.2022 10:56:42 Baskar
NotSolved
29.09.2022 11:02:19 Der Steuerfuzzi
NotSolved
29.09.2022 11:03:57 Der Steuerfuzzi
NotSolved
29.09.2022 11:11:30 Mase
NotSolved
29.09.2022 11:59:47 Gast01233
NotSolved
29.09.2022 12:06:03 Mase
NotSolved
29.09.2022 12:08:26 Gast01233
NotSolved
29.09.2022 14:26:59 Trägheit
NotSolved
29.09.2022 14:54:22 Gast01233
NotSolved
29.09.2022 14:57:50 Der Steuerfuzzi
NotSolved
29.09.2022 15:29:36 Trägheit
NotSolved
29.09.2022 18:57:31 Gast42894
NotSolved
30.09.2022 16:52:29 Baskar
NotSolved
30.09.2022 17:44:27 Trägheit
NotSolved

Ansicht des Beitrags:
Von:
Baskar
Datum:
29.09.2022 10:56:42
Views:
439
Rating: Antwort:
  Ja
Thema:
Multiple ergebnisse

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

""


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Multiple ergebnisse
29.09.2022 10:56:42 Baskar
NotSolved
29.09.2022 11:02:19 Der Steuerfuzzi
NotSolved
29.09.2022 11:03:57 Der Steuerfuzzi
NotSolved
29.09.2022 11:11:30 Mase
NotSolved
29.09.2022 11:59:47 Gast01233
NotSolved
29.09.2022 12:06:03 Mase
NotSolved
29.09.2022 12:08:26 Gast01233
NotSolved
29.09.2022 14:26:59 Trägheit
NotSolved
29.09.2022 14:54:22 Gast01233
NotSolved
29.09.2022 14:57:50 Der Steuerfuzzi
NotSolved
29.09.2022 15:29:36 Trägheit
NotSolved
29.09.2022 18:57:31 Gast42894
NotSolved
30.09.2022 16:52:29 Baskar
NotSolved
30.09.2022 17:44:27 Trägheit
NotSolved