Как задать график функции?

[Bilargo]

procedure TForm1.FormPaint(Sender: TObject);
var x0 ,y0, dx, dy, h, w, x, y, i : integer;
    dlx, dly : real;
begin
begin
  with Form1.Canvas do
  begin
  Font.Name:='Arial';
  Font.Size:=10;
  Font.Color:=clBlack;
  Font.Style:=[fsItalic, fsBold];
  Brush.Style:=bsClear;
  TextOut(250,20,'График функции');
  end;
end;
   begin
   //Шаг сетки(dlx,dlz); начало координат(x0,y0);
   //Шаг координатной сетки(dx,dy); размеры плоскости(w,h);
   x0:=22; y0:=480; dx:=20; dy:=20; h:=400; w:=600;
   dlx:=1; dly:=1;
     with  Form1.Canvas  do
     begin
        MoveTo(x0,y0);  LineTo(x0, y0-h);
        MoveTo(x0, y0);  LineTo(x0+w, y0);
        x:=x0+dx;  i:=1;
        repeat
            MoveTo(x, y0-3);  LineTo(x, y0+3);
            TextOut(x-3, y0+5, FloatToStr(dlx*i));
            Pen.Style:=psDot;
            MoveTo(x, y0-3);  LineTo(x, y0-h);
            Pen.Style:=psSolid;
            i:=i+1;  x:=x+dx
        until  x>x0+w;
        y:=y0-dy;   i:=1;
        repeat
            MoveTo(x0-3, y);  LineTo(x0+3, y);
            TextOut(x0-20, y-5, FloatToStr(dly*i));
            Pen.Style:=psDot;
            MoveTo(x0+3, y);  LineTo(x0+w, y);
            Pen.Style:=psSolid;     
            i:=i+1;   y:=y-dy
        until y<y0-h;

    end;
end;
end;


procedure TForm1.FormDblClick(Sender: TObject);
var  gr : array[1..30] of TPoint;
    x0, y0, dx, dy, i : integer;
begin
  x0:=22; y0:=480;  dx:=20; dy:=20;
  for  i:=1  to  30  do
    begin
       gr[i].x := x0+(i-1)*dx;
       gr[i].y :=   // Как задать функцию y=5*cos(x)*exp(-x/5)???
    end;
  Form1.Canvas.Pen.Width := 2;
  Form1.Canvas.Pen.Color := clRed;
  Form1.Canvas.Polyline(gr);
end;


end.

Может кто-нибудь знает как задать функцию?

[Stilet]

Так а чем не устраивает:

  gr[i].y :=round(5*cos(x)*exp(-x/5));

?

[Bilargo]

Сообщение от Stilet

Так а чем не устраивает:

  gr[i].y :=round(5*cos(x)*exp(-x/5));

?

В этом случае он не идентифицирует переменную Х, эх... голова уже болит от этой задачки.

[Stilet]

А подумать?

 gr[i].y :=round(5*cos(gr[i].x)*exp(-gr[i].x/5));

[raxp]

у мене ваша функция вот так выглядит...

[Bilargo]

Сообщение от raxp

у мене ваша функция вот так выглядит...

Весело, ну хоть так... у меня она почему-то выглядит вот так! http://file.qip.ru/file/105615954/28cb920/1_online.html
График стягивается к верхней границе... чтож такое черт возьми!

[raxp]

дык, один момент... вы с dy определились или у вас он не используется, если используется то как связан с формулой y:= y0+ {dy*(i-1)*}round(5*cos(gr[i].x*pi/180)*exp(-gr[i].x*pi/5/180))?

[Bilargo]

Сообщение от raxp

че-т не видно вообще, де он?

Красная полоска у верхней рамки окна.

Сообщение от Stilet

А подумать?

 gr[i].y :=round(5*cos(gr[i].x)*exp(-gr[i].x/5));

Такой вариант тоже не подошел, а вы пробовали запускать этот код?

[raxp]

дык up#7...

[Bilargo]

Сообщение от raxp

дык up#7...

dy здесь не принципиально наверно применять, здесь dx играет точно такую же роль, как я понимаю. Или я уже просто запутался.