Найти корень уравнения методом итераций. - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
