Function F(x)

F = x ^ 3...

End Function

Function F1(x)

F1 = 3*x ^ 2...

End Function

Sub MH()

x = Cells(1, 2)

e = Cells(3, 2)

Do

x = x - F(x) / F1(x)

Loop Until Abs(F(x) / F1(x)) < e

Cells(4, 2) = x

Cells(5, 2) = F(x)

End Sub

Метод простой итерации

1) Нелинейное уравнение необходимо привести к виду .

2) Принять функцию , где N ‑ неизвестная постоянная величина, которая определяется из условия сходимости метода простой итерации .

3) Определить N:

или .

4) Начальное приближение корня , подставляя в правую часть уравнения , получаем новое приближение.

Поиск по сайту: