Добавил:
nik990
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Matematicheskie_metody / Мат. методы. 1 семестр(1 модуль) / метод бисекций (1 модуль)
.txt Sub метод_бисекций()
Dim A As Single, B As Single, y As Single, y1 As Single, x As Single, y As Single
A = -0.1
B = 0.2
e = 0.0001
y1 = f(A)
Do
x = (A + B) / 2
y = f(x)
If y = 0 Then Exit Do
If y * y1 < 0 Then
B = x
Else
A = x
y1 = y
End If
Loop While B - A > 2 * e
Debug.Print x
End Sub
Dim A As Single, B As Single, y As Single, y1 As Single, x As Single, y As Single
A = -0.1
B = 0.2
e = 0.0001
y1 = f(A)
Do
x = (A + B) / 2
y = f(x)
If y = 0 Then Exit Do
If y * y1 < 0 Then
B = x
Else
A = x
y1 = y
End If
Loop While B - A > 2 * e
Debug.Print x
End Sub
Соседние файлы в папке Мат. методы. 1 семестр(1 модуль)