Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Interation mit For-Schleife>>Ergebnis konvergiert zu früh |
07.01.2016 12:14:24 |
Benjamin94 |
|
|
|
07.01.2016 12:17:39 |
Benjamin94 |
|
|
|
07.01.2016 13:01:38 |
Gast61586 |
|
|
|
07.01.2016 13:20:13 |
Benjamin94 |
|
|
Von:
Benjamin94 |
Datum:
07.01.2016 12:14:24 |
Views:
2557 |
Rating:
|
Antwort:
|
Thema:
Interation mit For-Schleife>>Ergebnis konvergiert zu früh |
Folgende Formel: https://picload.org/image/wrlagro/colebrook.png soll mit einer FOR-Schleife fünf mal berechnet werden.
Function Colebrook(ByVal ReynoldsZahl As Double, Rohrdurchmesser As Double) As Double
'Berechnung nach Gesetz von Colebrook:
Const kStahl As Double = 0.0001
Dim Rohrreibungszahl As Double
Dim LogX As Double
Rohrreibungszahl = 0.01
For i = 1 To 5
Rohrreibungszahl = ((Log(2.51 / ReynoldsZahl * Sqr(Rohrreibungszahl) + 0.27 * kStahl / Rohrdurchmesser) / Log(10)) * -2)
Rohrreibungszahl = Rohrreibungszahl * Rohrreibungszahl
Rohrreibungszahl = 1 / Rohrreibungszahl
Cells(1 + i, 10) = Rohrreibungszahl
Next i
Colebrook = Rohrreibungszahl
End Function
Berechnung mit folgenden Werten:
start Rohrreibungszahl = 0.01
ReynoldsZahl = 33000
Rohrdurchmesser = 0.03
Ergebnis der fünf Durchläufe oder direkt in Excel ohne VBA:
0,02701421 |
0,02705575 |
0,02705583 |
0,02705583 |
0,02705583 |
Laut des Beispiels soll das Ergebnis aber bei 0.0303 liegen, welches ich mit meinem Casio auch überprüft habe.
Kann mit jemand sagen was Excel für ein Problem hat?
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Interation mit For-Schleife>>Ergebnis konvergiert zu früh |
07.01.2016 12:14:24 |
Benjamin94 |
|
|
|
07.01.2016 12:17:39 |
Benjamin94 |
|
|
|
07.01.2016 13:01:38 |
Gast61586 |
|
|
|
07.01.2016 13:20:13 |
Benjamin94 |
|
|