Помогите с программным кодом!!!

[vittt]

Методом деления отрезка пополам и методои хорд найти корни уравнения с точностью до h=10^-5...
x^3+2x-4=0
Построить график функции.Для построения графика использовать макрорекодер.Выбор метода осуществить при помощи переключателя.

Вот такая вот шняга Если кто может помочь ,скиньте решение на vitold2006sva@mail.ru
Заранее спасибо!!!

[IgorGO]

Методы основательно описаны в инете.
Тут в одной процедуре вложены оба метода.
"Комментируем" строку x = x1 + (F(x1) * x1 - F(x1) * x2) / (F(x2) - F(x1)) - получаем метод "деления попалам", без комментария работает метод хорд.

Function F(x As Single) As Single
 F = x ^ 3 + 2 * x - 4
End Function


Sub Metod()
Dim x As Single, x1 As Single, x2 As Single, y As Single
Dim i As Integer, s As String
  x1 = 1: x2 = 2: i = 0
  Do
    i = i + 1
    x = (x1 + x2) / 2
    x = x1 + (F(x1) * x1 - F(x1) * x2) / (F(x2) - F(x1))
    y = F(x)
    If y < 0 Then
      x1 = x: s = ""
    Else
      x2 = x: s = "                   "
    End If
    Debug.Print i & ": " & s & "x=" & x & "  y=" & y
  Loop Until Abs(y) < 0.00001
  MsgBox i & " trys, find:  x=" & x & "  y=" & y
End Sub