Найти корень уравнения методом Ньютона - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.143 из 5
Похожие ответы