Методы половинного деления, хорд , касательных , простых операций

[flc]

Подскажите, пожалуйста, как преобразовать Метод половинного деления в Метод хорд , Метод касательных , Метод простых операций , что необходимо заменить в программе половинного деления?

Private Function F(ByVal x As Single) As Single
F = x - (1 / Atn(x))
End Function
Private Sub CommandButton1_Click()
Dim a As Single
Dim b As Single
Dim c As Single
Dim eps As Single
Dim n As Integer
a = TextBox1.Value
b = TextBox2.Value
eps = TextBox3.Value
Do
c = (a + b) / 2
n = n + 1
If F(a) * F(c) < 0 Then
b = c
Else
a = c
End If
Loop While Abs(F(c)) >= eps
TextBox4.Value = c
TextBox5.Value = n
End Sub

[p51x]

Do
c = (a + b) / 2
n = n + 1
If F(a) * F(c) < 0 Then
b = c
Else
a = c
End If
Loop While Abs(F(c)) >= eps

Побуду кепом, надо заменить основную часть.