Отделение корней уравнения методом половинного деления - VB
Формулировка задачи:
Помогите пожалуйста мне в Visual Basic надо сделать Отделение корней уравнения y=(1/5)*x^5+0.3*x^4-(5/3)*x^3-x^2+4*x-1.7 на отрезке [-3;3] с шагом h=1 и решить один из корней методом половинного деления. Помогите пожалуйста!
null
вот написал код и выдает ошибку пожалуйста помогите её исправить Решение задачи: «Отделение корней уравнения методом половинного деления»
textual
Листинг программы
Function f#(x) f = (1 / 5) * x ^ 5 + 0.3 * x ^ 4 - (5 / 3) * x ^ 3 - x ^ 2 + 4 * x - 1.7 End Function Sub k(x, b, h, eps) Do a = x: f1 = f(x) x = x + h: f2 = f(x) If f1 * f2 < 0 Then b1 = x Do c = (b1 + a) / 2 If f(a) * f(c) > 0 Then a = c Else b1 = c Loop While Abs(a - b1) > eps i = i + 1: Print "x"; i; "="; c End If Loop While x <= b End Sub Private Sub Command1_Click() k -100, 100, 0.1, 0.0001 End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д