Matematicheskie_metody / Мат. методы. 1 семестр(1 модуль) / Метод касательных (1 модуль)

Function f(x As Single) As Single
f = x ^ 2 - x
End Function
Function f1(x As Single) As Single
f1 = 2 * x - 1
End Function
Function f2(x As Single) As Single
f2 = 2
End Function
Sub метод_касательных()
Const e0 = 0.0001
Dim x As Single, a As Single, B As Single, x1 As Single
Dim m1 As Single, m2 As Single, FA As Single, FB As Single
x = 10.3: a = -0.5: B = 0.5
FA = Abs(f1(a)): FB = Abs(f1(B))
If FA > FB Then m1 = FB Else m1 = FA
m2 = 2
e = Sqr(2 * m1 * e0 / m2)
While Abs(x - x1) > e
x1 = x
x = x1 - f(x1) / f1(x1)
Wend
Debug.Print x
End Sub