Найти корень уравнения методом Ньютона - VB (169971)
Формулировка задачи:
Найти на отрезке [0;Pi/2] корень уравнения:
x ^ 2 * Cos(2 * x) + 1,
используя метод Ньютона.
Мой (неправильный) код:
Заранее благодарю
Решение задачи: «Найти корень уравнения методом Ньютона»
textual
Листинг программы
Option Explicit Function func(ByVal x) As Double func = x ^ 2 * Cos(2 * x) + 1 End Function Function proizv(ByVal x) As Double proizv = 2 * x * (Cos(2 * x) - x * Sin(2 * x)) End Function Private Sub Command1_Click() Dim x1 As Double, x2 As Double, eps As Double Const PI = 3.14159 eps = 0.000001 x2 = PI / 2 Do x1 = x2 x2 = x1 - func(x1) / proizv(x1) Loop Until Abs(x2 - x1) < eps MsgBox x2 End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д