Показать сообщение отдельно
  #2  
Старый 27.07.2010, 22:24
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

я бы просто написал некоторый код, который принимает на вход массив точек и строи график. Отрисовывпть можно с помощью компонента TPaintBox. Там можно и масштабирование сделать и много чего другого.
Код будет выглядеть примерно так:
Код:
procedure TForm1.DrawFunction(A : Array Of TPoint);
var
  I : Integer;
  P : TPoint;
begin
  P := A[Low(A)];
  Paintbox1.Canvas.MoveTo(P.x,P.y);
  For I := Low(A)+1 To High(A) Do
    Begin
       P := A[i];
       Paintbox1.Canvas.LineTo(P.x,P.y);
    End;
end;
Собственно, апроксимация прямыми. Самый простой способ. Ну и координаты не переворачиваются и не смещаются. Это чистая математика, так что там ничего интересного нет.

Можно еще добавить масштабирование и задание цвета... ну и по желанию все что угодно.

А вот расчет точек и упаковка их в массив - это отдельная задача.
Ответить с цитированием