Thema Datum  Von Nutzer Rating
Antwort
Rot Iteration
21.09.2022 10:57:10 Boss
NotSolved
21.09.2022 13:46:16 Gast48006
NotSolved
21.09.2022 14:18:42 Mase
NotSolved
21.09.2022 14:29:55 Gast69848
Solved
22.09.2022 15:05:45 Gast56875
NotSolved

Ansicht des Beitrags:
Von:
Boss
Datum:
21.09.2022 10:57:10
Views:
244
Rating: Antwort:
  Ja
Thema:
Iteration

Moin, 

Ich habe folgende Iteration aber es führt keine Iteration. Doch rechnet er aber kein Convergence. Neben bei Falls es ein Iteration (If statement) schleife für Zielwertesuche gibt, teilen Sie hier bitte.

Function Do_FDBR_9_4_5_4(Zeta_soll As Double, D_1_mm As Double, D_2_mm As Double, R_kante_mm As Double)

Dim Pi As Double, A1 As Double, Ao As Double, A2 As Double, m1 As Double, m2 As Double, D_h As Double, Zeta_Strich As Double, D_o_mm As Double, Zeta_cal As Double, X As Double

For D_o_mm = 0.01 * D_2_mm To D_2_mm Step 0.1

Pi = 3.14
A1 = (Pi / 4) * (D_1_mm / 1000) ^ 2
Ao = (Pi / 4) * (D_o_mm / 1000) ^ 2
A2 = (Pi / 4) * (D_2_mm / 1000) ^ 2
m1 = Ao / A1
m2 = Ao / A2
D_h = 4 * Ao / (Pi * D_o_mm / 1000)
Zeta_Strich = 0.5 - 0.47 * tanh(13.9 * R_kante_mm * 0.001 / D_h)
Zeta_cal = ((Zeta_Strich * (1 - m1)) ^ 0.5 + (1 - m2)) ^ 2 * (1 / m2) ^ 2

X = Abs(Zeta_soll - Zeta_cal) / Zeta_soll

If X < 0.001 Then

Do_FDBR_9_4_5_4 = D_o_mm

    Exit For
Else

 GoTo Iteration

End If

Iteration:

Next

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 Iteration
21.09.2022 10:57:10 Boss
NotSolved
21.09.2022 13:46:16 Gast48006
NotSolved
21.09.2022 14:18:42 Mase
NotSolved
21.09.2022 14:29:55 Gast69848
Solved
22.09.2022 15:05:45 Gast56875
NotSolved