Метод половинного деления

[flc]

Методом половинного деления определить один из корней уравнения:

x-(1/arctg(x))=0 с точностью e=0,0001

[Вадим Мошев]

Что не получается и в чём сложность?

[flc]

как найти крайние точки на интервале?

Пишет что я делю на 0

Private Function F(ByVal x As Single) As Single
F = x - (1 / Atn(x))
End Function
Private Sub CommandButton1_Click()
Dim a, b, c, 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(x) * F(c) < -1.16 Then
b = c
Else
a = c
End If
Loop While Abs(F(c)) >= eps
TextBox4.Value = c
TextBox5.Value = n
End Sub

[Вадим Мошев]

Вам необходимо для начала графически отделить корень уравнения, то есть, выяснить интервал, на котором содержится ровно один корень уравнения.

[flc]

Вот я не могу понять понять как выяснить интервал

[Вадим Мошев]

Построить график, найти пересечение с осью абсцисс.

Ваш интервал: от 0,5 до 1,97

GGGGGGGGGGGGG.JPG

[flc]

пишет ошибку, run-time 13 typemismatch

[Вадим Мошев]

typemismatch - это несовпадения/несоответствие типов

[flc]

вот это выделяет

Private Function F(ByVal x As Single) As Single
F = x - (1 / Atn(x))
End Function
Private Sub CommandButton1_Click()
Dim a, b, c, 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(x) * F(c) < 0.5 Then
b = c
Else
a = c
End If
Loop While Abs(F(c)) >= eps
TextBox4.Value = c
TextBox5.Value = n
End Sub

[Вадим Мошев]

Тут помочь мало чем смогу, так как я не то, что этого языка не знаю, я даже забыл, как он называется.