Метод деления отрезка по полам, проблема в уравнении Опции

[TS*]

Ошибка в решении уравнения методом деления отрезка по полам(быстрее всего в записи уравнения), не могу найти корень, , eps ввожу 0.1, код програмы стандартный:

Uses Crt;
Function f(x: real): real;
 Begin
      f :=0.95*x-23.04*exp(0.33*ln(x))+46.63*exp(0.21*ln(x));
 End;
Var
 x, Eps, a, b, c: real;
 n: Integer;
begin
 ClrScr;
 Writeln('vvedite a i b'); Read(a, b);
 WriteLn('vvedite Eps'); Read(Eps);

 n := 0;
 Repeat
   c := (a + b) / 2;
   If (f(a) * f(с)) < 0 Then b := c
   Else a := c;
   Inc(n)
 Until (b - a) <= Eps;

 x := (a + b) / 2;
 WriteLn('корень равен  x=', x:10:7);
 WriteLn('количество итераций = ',n);
 readln;
end. 

Хотя остальные уравнения без выражения типа "exp(a*ln(x))" решаються без проблем...

Сообщение отредактировано: volvo - 2.11.2006 20:07

[volvo]

Но именно эта функция все равно требует переделки..

You Are Welcome