Построение графика функции y=ax^2+bx+c

[Timka4296]

Доброго времени суток!
не могу построить график функции y=ax^2+bx+c. С помощью компонента Image.
числа "a,b,c:real" вводятся в Edit.

примерно вот так:

[Andrey[андрей]]

Циклом от минимального значения X до максимального считайте Y по формуле, и ставьте точки. Что конкретно не получается? Считать, или рисовать?

[Timka4296]

рисовать не умею, вообще, не понимаю что к чему

[Andrey[андрей]]

Я к сожалению не умею объяснять лучше, чем написано в учебниках, поэтому просто оставлю ссылку. Почитайте.
http://www.delphi-manual.ru/drawing.php

[type_Oleg]

Сначала, чтоб красивше было, опишите функцию:

function fu01(x,a,b,c:Real):Real;
begin
 Result:=a*x*x+b*x+c;
end;

Потом надо вычислять масштаб в зависимости от значений x,y . Он у вас может быть разным по x и y ?
И учтите , что в Canvas координаты - целые числа.

[Serge_Bliznykov]

Timka4296, посмотрите примеры тут:

http://www.programmersforum.ru/showthread.php?t=146776

http://www.programmersforum.ru/showthread.php?t=295276

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
const dxy=25;//масштаб
var a,b,c,x,y:real;
    i,x0,y0:integer;

   function f(x:real):real;
   begin
      f:=a*x*x+b*x+c;
   end;

begin
   With Image1.Canvas do
   begin
      {стираем старый рисунок}
      Pen.Color:=clWhite;
      Brush.Color:=clWhite;
      Rectangle(0,0,Image1.Width,Image1.Height);
      {определяем центр}
      x0:=Image1.Width div 2;
      y0:=Image1.Height div 2;
      {рисуем оси}
      Pen.Color:=clBlack;
      MoveTo(0,y0);
      LineTo(Image1.Width,y0);
      MoveTo(x0,0);
      LineTo(x0,Image1.Height);
      {наносим шкалу}
      For i:=-x0 div dxy to x0 div dxy do
      begin
         TextOut(x0+i*dxy+1,y0+1,IntToStr(i));
         MoveTo(x0+i*dxy,y0-5);
         LineTo(x0+i*dxy,y0+5);
      end;
      For i:=-y0 div dxy to y0 div dxy do
      begin
         TextOut(x0+1,y0-i*dxy+1,IntToStr(i));
         MoveTo(x0-5,y0-i*dxy);
         LineTo(x0+5,y0-i*dxy);
      end;
      {строим график}
      a:=StrToFloat(Edit1.Text);
      b:=StrToFloat(Edit2.Text);
      c:=StrToFloat(Edit3.Text);
      Pen.Color:=clRed;
      x:=-x0/dxy;
      y:=f(x);
      MoveTo(0,y0-Round(y*dxy));
      For i:=1 to Image1.Width do
      begin
         x:=(i-x0)/dxy;
         y:=f(x);
         LineTo(i,y0-Round(y*dxy));
      end;
   end;
end;

[Timka4296]

огромное спасибо!

[newerow1989]