Вывод графика функции на форму и её табуляция в stringgrid

[Dimabara]

Дело вот в чем:
график функции выводит - с этим все нормально, но вот сама табуляция функции в таблицу не происходит из-за ошибки "invalid floating point operation"

сама функция выглядит так:
log abs((x^2-4)/(x^2-1))

вроде бы нигде деление на ноль не происходит, ибо в самой функции прописано что делить на ln(2) так почему же тогда выбивает эту ошибку
может кто-то знает, прошу подсказки в решении этой проблемы


часть кода, которые в архиве, именно здесь ошибка
for i1:=1 to n1 do
begin
x1:=a+h*(i1+1);
y1:=(Ln(abs(((x1*x1)-4)/((x1*x1)-1))))/(ln(2));

strngrd1.Cells[0,i1]:=FloatToStrF(x1,fffixed,6,3);
strngrd1.Cells[1,i1]:=FloatToStrF(y1,fffixed,6,3);

end;

[Serge_Bliznykov]

ln(0) не определён, может быть, у вас под логарифмом ноль вычисляется (например, при x1 =2 )?

ваш код не смотрел...

[XeruH]

Используйте тэг CODE.
Почему в теме Паскаль то? а не в Delphi?
По теме. С помощью трассировки посмотрите при каких значениях возникает ошибка.

[DmitriB]

У вас же x от -15 увеличивается, а в формуле присутствует деление, например вы делите на (x1*x1-1), что вполне может обратиться в ноль на определенном шаге

[Dimabara]

может, но при других значениях тоже самое

[Serge_Bliznykov]

ну так добавьте обработку исключений и узнаете, при каком значении X1 выражение не может быть вычислено:

for i1:=1 to n1 do
 begin
   x1:=a+h*(i1+1);
   strngrd1.Cells[0,i1]:=FloatToStrF(x1,fffixed,6,3);
   try
      y1:=(Ln(abs(((x1*x1)-4)/((x1*x1)-1))))/(ln(2));
      strngrd1.Cells[1,i1]:=FloatToStrF(y1,fffixed,6,3);
   except
      strngrd1.Cells[1,i1]:='# невозможно вычислить функцию';
   end; 
 end;

[Dimabara]

дело в том, что я ставлю это условие, график функции рисуется, все нормально, но таблица не заполняется значениями и "# невозможно выполнить функцию" не выбивает, а ошибку выбивает все в той же строке
y1:=(Ln(abs(((x1*x1)-4)/((x1*x1)-1))))/(ln(2));