Найти корень уравнения методом итераций. - VB
Формулировка задачи:
Дано уравнение f(x) = x4 –13x2 +36 – 1/x
Найти корень уравнения f(х) = 0 методом итераций.
Подскажите пожалуйста как это сделать в Visual Basic. Заранее спасибо!
Решение задачи: «Найти корень уравнения методом итераций.»
textual
Листинг программы
Sub Iter() Dim x0 As Double Dim x1 As Double x0 = 1 Do x1 = F(x0) If Abs(x0 - x1) < 0.00001 Then Debug.Print x1 Exit Do End If x0 = x1 Loop End Sub Function F(x As Double) As Double F = 1 / (x ^ 4 - 13 * x ^ 2 + 36) End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д