Thema Datum  Von Nutzer Rating
Antwort
21.09.2022 10:57:10 Boss
NotSolved
21.09.2022 13:46:16 Gast48006
NotSolved
Rot Einmal laufen lassen und Erkenntnisse mitteilen
 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:
Mase		 Datum:
21.09.2022 14:18:42		 Views:
421		 Rating:
     
Antwort:
  Ja
Thema:
Einmal laufen lassen und Erkenntnisse mitteilen		 
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 * WorksheetFunction.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
        Debug.Print X
        
            If X < 0.001 Then
            
            Do_FDBR_9_4_5_4 = D_o_mm
            
                Exit For
            
            End If
        
        
    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
21.09.2022 10:57:10 Boss
NotSolved
21.09.2022 13:46:16 Gast48006
NotSolved
Rot Einmal laufen lassen und Erkenntnisse mitteilen
 21.09.2022 14:18:42 Mase
NotSolved
21.09.2022 14:29:55 Gast69848
Solved
22.09.2022 15:05:45 Gast56875
NotSolved