Добавил:
nik990
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Matematicheskie_metody / Мат. методы. 1 семестр(1 модуль) / Метод отделения корней 1 модуль
.txt Function f(x As Single) As Single
f = x ^ 2 - x
End Function
Sub отделение_корней()
Dim A As Single, B As Single, h As Single, y1 As Single, y2 As Single
A = -3.1
B = 2
h = 0.3
y2 = f(A)
For x = A To B Step h
y1 = y2
y2 = f(x + h)
If y1 * y2 < 0 Then Debug.Print x; x + h
Next x
End Sub
f = x ^ 2 - x
End Function
Sub отделение_корней()
Dim A As Single, B As Single, h As Single, y1 As Single, y2 As Single
A = -3.1
B = 2
h = 0.3
y2 = f(A)
For x = A To B Step h
y1 = y2
y2 = f(x + h)
If y1 * y2 < 0 Then Debug.Print x; x + h
Next x
End Sub
Соседние файлы в папке Мат. методы. 1 семестр(1 модуль)