Я пытаюсь реализовать простой метод итерационного метода Ньютона с использованием Excel VB (я никогда не использовал VB.)Loop без Do ошибки
я получаю ошибку loop without a Do
, и я не могу понять, что я я делаю неправильно здесь.
Я пытаюсь найти корни функции z^3 - z^2 - (B^2 + B - A)z - A*B
, называемой коэффициентом сжимаемости.
Мой источник MSN
Function zCalculation(ByVal temp As Double, ByVal press As Double) As Double
Dim tempCr As Double
Dim pressCr As Double
Dim A As Double
Dim B As Double
tempCr = temp/238.5
pressCr = press/547.424092
A = pressCr/tempCr
A = A/(9 * (2^(1/3) - 1))
B = pressCr/tempCr
B = B * (2^(1/3) - 1)/3
Dim zNot As Double
Dim counter As Integer
counter = 0
zNot = 1#
Do
counter = counter + 1
zNot = zNot - (zNot^3 - zNot^2 - (B^2 + B - A) * zNot - A * B)/(3 * zNot^2 - 2 * zNot - (B^2 + B - A))
If counter > 1000 Then
Exit Do
Loop Until eval(zNot, A, B) < 0.000001
zCalculation = zNot
End Function
перерыв
Function eval(ByVal z As Double, ByVal A As Double, ByVal B As Double) As Double
eval = z^3 - z^2 - (B^2 + B - A) * z - A * B
End Function
Dang ..... это все. Благодаря! Не могу поверить, что я пропустил это. –
Не ваша ошибка ............ Сообщение об ошибке Excel в этом случае неверно. –
не могу поверить, что я действительно искал в stackoverflow перед проверкой этого – Tascalator