График. Delphi

[aleks8091]

Всем доброго время суток, подскажите как решить простенькую задачу, какие компоненты использовать чтобы "начертить" график?
Формула:

L(x) = 1.0067x^3-5.0771x^2+7.6381x-3.4719

В Delphi 7 ..

[Greblin]

Вообще говоря, никакие не надо использовать. Свойство Canvas, на котором происходит отрисовка, есть и у самой формы. А вообще подойдёт любой, имеющий свойство Canvas - Image, PaintBox

[aleks8091]

Спасибо!
по paintBox нашел..

[russian-stalker]

Немного кривовато, но можно вот так:

function f(x:real):real;
begin
 result:=1.0067*power(x,3)-5.0771*sqr(x)+7.6381*x-3.4719;
end;

procedure TForm1.FormPaint(Sender: TObject);
const
size=20; //Коэффициент увеличения
border=8;
var
i:integer;
o:Tpoint;
begin
   with canvas do
   begin
      //Начало координат
      Pen.Color:=clblack;
      o.X:=ClientWidth div 2;
      o.Y:=ClientHeight div 2;
      //Рисуем ось
      //x
      moveto(0+border,o.Y);
      Lineto(ClientWidth-border,o.Y);
      moveto(ClientWidth-border,o.Y);
      lineto(ClientWidth-(border*3),o.Y-border);
      moveto(ClientWidth-border,o.Y);
      lineto(ClientWidth-(border*3),o.Y+border);
      TextOut(ClientWidth-border-6,(o.Y)-size,'x');
      //y
      moveto(o.X,border+0);
      Lineto(o.X,ClientHeight-border);
      moveto(o.X,border);
      lineto(o.X-border,border*3);
      moveto(o.X,border);
      lineto(o.X+border,border*3);
      TextOut(o.X+6,border-4,'y');
      //o
      TextOut((o.X)-6,(o.Y)+1,'0');
      for I := 0 to (ClientWidth-border*4) div 2 div size do
      begin
         if i<>0 then
         begin
            moveto(o.X+i*size,o.Y-(size div 2));
            lineto(o.X+i*size,o.Y+(size div 2));
            TextOut(o.X+i*size-2,o.Y+(size div 2),inttostr(i));
            moveto(o.X-i*size,o.Y-(size div 2));
            lineto(o.X-i*size,o.Y+(size div 2));
            TextOut(o.X-i*size-6,o.Y+(size div 2),inttostr(-i));
         end;
      end;
      for I := 0 to (ClientHeight-border*4) div 2 div size do
      begin
         if i<>0 then
         begin
            moveto(o.X-(size div 2),o.Y+i*size);
            lineto(o.X+(size div 2),o.Y+i*size);
            TextOut(o.X+(size div 2)+1,o.Y+i*size-7,inttostr(-i));
            moveto(o.X-(size div 2),o.Y-i*size);
            lineto(o.X+(size div 2),o.Y-i*size);
            TextOut(o.X+(size div 2)+1,o.Y-i*size-7,inttostr(i));
         end;
      end;
      //Рисуем график функции
      Pen.Color:=clred;
      moveto(-ClientWidth,ClientHeight);
      for I := -ClientWidth to ClientWidth do
      begin
         lineto((i*size)+o.X,(-trunc(f(i))*size)+o.Y);
      end;
   end;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
   repaint;
end;

[aleks8091]

Спасибо !!

[IT-man]

какие компоненты использовать чтобы "начертить" график?

TChart(10 символов)

[IT-man]

какие компоненты использовать чтобы "начертить" график?

TChart(10 символов)