Hallo!
Ich muss in einer Exceltabelle Daten verarbeiten die ich aus impliziten Gleichungen habe. Zur Lösung dieser impliziten Gleichungen habe ich mir ein kleines VBA-Script geschrieben.
Sub implizit()
Dim y As Single
Dim X As Single
Dim z As Single
Dim c As Single
y = 0
c = 1
Do
y = y + 0.000000001
X = 1 / (y ^ 0.5)
z = 7.54 + 11.5 * Log10(Cells(1, 8) * (y ^ 0.5))
c = X - z
Loop While (c > 0.000000001)
Sheets("Tabelle1").Range("H2").Value = y
End Sub
Private Function Log10(X)
Log10 = Log(X) / Log(10#)
End Function
da dieser Code nicht berücksichtig, dass c auch negativ sein kann, habe ich das Ende der Schleife von
Loop While (c > 0.000000001)
auf
Loop While (Abs(c) > 0.000000001)
geändert... nur läuft das Script so eeeeeeeeeeeeeeewig, ohne ien Ergebnis zu liefern... ohne Abs() läufts...
Danke für eure HIlfe!
|