Масштабирование графика функции в дельфи

[yulja-uk]

Может кто знает, как сделать масштабирование графика функции. График функции построила, а вот вопрос с масштабированием так и не могу решить. может кто-то что то знает, очень нужно((((((

[s-andriano]

Нужно было изначально описать все масштабные коэффициенты в виде предопределенных констант, а в коде использовать исключительно эти константы, а не конкретные цифры.

Что-то типа такого:
Вместо

for i := 0 to 799 do
...

писать

const WindowWidth = 800;
...
for i := 0 to WindowWidth-1 do
...

[VIK_aka_TOR]

сперва объявим нужные переменные...

 h : integer; // высота поля рисования
  w : integer; // ширина поля рисования 
  x0, y0 : integer; // координаты точки начала координат
  mx,my : real; // масштаб
 max : real; // максимальное значение, служит для определения масштаба

а затем вычесляем масштабность..

 // определение масштаба
  my := h/( max + 1);
  mx := w/ (m + 1);

и домножаем на эти коэфициенты при рисовании графиков...

 Rectangle(x0 + round(mx * (i - 1) ) ,y0, x0 + round(mx * (i - 0.6)), y0 - round(my * proizv[i]));

как то так... не забывайте округлять до цэлых полученые координаты... т.к. множители масштаба умноженые на размер навряти будут давать целочисленный результат... да и типы приветси надо...

надеюсь мысль ясна...