Thema Datum  Von Nutzer Rating
Antwort
29.11.2013 23:23:30 Rokk
NotSolved
Blau Iteration mit einer Schleife
 30.11.2013 00:54:23 Rokk
NotSolved
30.11.2013 14:19:21 Gast68523
NotSolved

Ansicht des Beitrags:
Von:
Rokk		 Datum:
30.11.2013 00:54:23		 Views:
744		 Rating:
     
Antwort:
  Ja
Thema:
Iteration mit einer Schleife

So hab mich nochmals drangesetzt und habe nur eine schleife die durchläuft, aber die bedingung wird nicht abgefragt

 

Dim C_neu As Double, Ai As Double, Re_i As Double
Dim counter As Integer
counter = 0

Do


Re = 10 ^ 5

Calt = 0.5961 + 0.0261 * (ß ^ 2) - 0.216 * (ß ^ 8) + 0.000521 * (10 ^ 6 * ß / Re) ^ 0.7 + (0.0188 + 0.0063 * A) * (ß ^ 3.5) * (10 ^ 6 / Re) ^ 0.3
A = (19000 * ß / Re) ^ 0.8


qm = Ep * Calt * (3.14 / 4 * DB ^ 2) * E * Sqr(2 * PW * Rho1) * 3600   'Gleichung für Berechnung massenstrom in kg/h
Label31 = Round(qm, 2)

qv = qm / Rho1
Label33 = Round(qv, 2)


sg = qv / (3.14 / 4 * DR ^ 2) / 3600
Label35 = Round(sg, 2)

Re_i = sg * DR * Rho1 / my
Label37 = Round(Re_i, 2)

C_neu = 0.5961 + 0.0261 * (ß ^ 2) - 0.216 * (ß ^ 8) + 0.000521 * (10 ^ 6 * ß / Re_i) ^ 0.7 + (0.0188 + 0.0063 * A) * (ß ^ 3.5) * (10 ^ 6 / Re_i) ^ 0.3
A = (19000 * ß / Re_i) ^ 0.8

counter = counter + 1
Label39 = counter

Loop Until Abs(C_neu - Calt) / Calt < 10 ^ -6

 

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
29.11.2013 23:23:30 Rokk
NotSolved
Blau Iteration mit einer Schleife
 30.11.2013 00:54:23 Rokk
NotSolved
30.11.2013 14:19:21 Gast68523
NotSolved