я бы просто написал некоторый код, который принимает на вход массив точек и строи график. Отрисовывпть можно с помощью компонента 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;
Собственно, апроксимация прямыми. Самый простой способ. Ну и координаты не переворачиваются и не смещаются. Это чистая математика, так что там ничего интересного нет.
Можно еще добавить масштабирование и задание цвета... ну и по желанию все что угодно.
А вот расчет точек и упаковка их в массив - это отдельная задача.