문제는 x^2-sinx-1을 이분법 뉴턴랩슨법 할선법으로 구하라 인데

지금 이분법을 구하고잇어

이분법의 개념은 a b 구간을정해서 계속 2로 나눠가면서 해에 근접해가는 거거든?

답이 -0.636733 으로 나와야하는데

계속 -0.750000 가까이나온다 ㅠㅠ 왜이래 ..

Option Explicit

Function f(x)
f = x ^ 2 - Sin(x) - 1
End Function

Sub Find_sol()
Dim a As Double, b As Double, c As Double
Dim Maxit As Double, it As Double, eps As Double

a = Fix(Sheets(1).Range("B2").Cells)
b = Fix(Sheets(1).Range("B3").Cells)
Maxit = 10000
eps = 0.0000000001
If f(a) * f(b) >= 0 Then
MsgBox ("다른값을 입력하세요")
End If

For it = 1 To Maxit
c = (a + b) / 2
If f(a) * f(b) < 0 Then
b = c
ElseIf f(a) * f(c) > 0 Then
a = c
Else
Exit For
End If

If (b - a) < eps Then
MsgBox ("해는" & c)
Exit For
End If
Next it
If it > Maxit Then MsgBox ("해가 없네용")

End Sub