График функции. Pascal.

[vibe]

привет! нужно построить график функции y= -22/(x+5). у меня программа строит одну ветвь гиперболы или другую, но не две вместе! например, если задать интервал значений от -10 до -6, то построит верхнюю ветвь, а если от -4 до 5, то нижнюю. а вот если от -10 до 5 , то получается кракозябра какая-то( что там доделать не пойму. помогите, пожалуйста! полный код программы: http://codepad.org/oey2tfov

{Инициализация графики}
  setbkcolor(15);
  if logMinX=-5 then logX:=logMinX+TabStep
  else logX:=logMinX;
  oldX:=round(monMinX+((monMaxX-monMinX)*(logX-logMinX))/(logMaxX-logMinX));
  logY:=y(logX);
  oldY:=round(monMaxY-((monMaxY-monMinY)*(logY-logMinY))/(logMaxY-logMinY));
 
  {Построение графика}
 
    while logX<=logMaxX do
    begin
    if logX<>-5 then
     begin
      logY:=y(logX);
      monX:=round(monMinX+((monMaxX-monMinX)*(logX-logMinX))/(logMaxX-logMinX));
      monY:=round(monMaxY-((monMaxY-monMinY)*(logY-logMinY))/(logMaxY-logMinY));
      setcolor(2);
      circle(monX,monY,1);
      setcolor(1);
      line(oldX,oldY,monX,monY);
      {вывод в файл}
      writeln(f,logX:6:3,'    ',logY:6:3);
     end;
    {переход к следующей итерации}
    logX:=logX+TabStep;
    oldX:=monX;
    oldY:=monY;
    end;

[veniside]

if logX<>-5 then

так вещественные числа не сравнивают. Из-за потери точности такое сравнение скорей-всего всегда будет равно False. В результате ваши logMinY и logMaxY вылетают в минус и плюс бесконечности. Весь код не смотрел, но попробуйте подобные проверки делать примерно так:

if (logX < -5.01) or (logX > -4.99) then

[vibe]

вот что получается..:

[veniside]

ну, красота, почти как у вольфрама. Осталось убрать эту линию из плюс бесконечности в минус бесконечность и будет всё ОК.

[vibe]

не очень представляю как это сделать..
и ещё этот график более менее строится если шаг табуляции 0.3 или 0.4. в остальных случаях нет