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

[raxp]

запутались... то что dx у вас инкрементируется, это точно. а вот {y} задан функцией... в цикле у себя вставьте це

canvas.TextOut(gr[i].x, gr[i].y, format('(%d,%d)',[gr[i].x,gr[i].y]))

чтоб проверить по точкам... имхо налезать будет уменьшите размер шрифта через canvas.font.size

[Bilargo]

Не помогло, всё равно график вверх съезжает. Может у меня с дельфи что-то не так? Ведь у вас в принципе этот код на графике выглядит вполне пристойно. Не так, как у меня.

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

запутались... то что dx у вас инкрементируется, это точно. а вот {y} задан функцией... в цикле у себя вставьте це

canvas.TextOut(gr[i].x, gr[i].y, format('(%d,%d)',[gr[i].x,gr[i].y]))

чтоб проверить по точкам... имхо налезать будет уменьшите размер шрифта через canvas.font.size

А если отвлечься и поставить вопрос иначе. Как нарисовать голый график y=5*cos(x)*exp(-x/5), вот просто график на форме.

[Stilet]

Как нарисовать голый график

1. Например в событии OnPaint формы написать:

procedure TForm1.FormPaint(Sender: TObject);
var x,y:double;   cx,cy:integer;
begin
 x:=-20;
 cx:=Width div 2;
 cy:=Height div 2;
 with Canvas do begin
   MoveTo(cx,cy);
   while x<100 do begin
    y:=5*cos(x)*exp(-x/5);
    LineTo(cx+Round(x*10),cy+round(y));
    x:=x+1;
   end;
 end;
end;

2. использовать компонент TChart - именно для построения графиком он предназначен, а не изобретать велосипед тем паче что это у автора плохо получается.

[Bilargo]

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

1. Например в событии OnPaint формы написать:

procedure TForm1.FormPaint(Sender: TObject);
var x,y:double;   cx,cy:integer;
begin
 x:=-20;
 cx:=Width div 2;
 cy:=Height div 2;
 with Canvas do begin
   MoveTo(cx,cy);
   while x<100 do begin
    y:=5*cos(x)*exp(-x/5);
    LineTo(cx+Round(x*10),cy+round(y));
    x:=x+1;
   end;
 end;
end;

2. использовать компонент TChart - именно для построения графиком он предназначен, а не изобретать велосипед тем паче что это у автора плохо получается.

Бесконечно благодарен вам))) Наконец-то получился график=))) А я уж на матфак бегал узнавал может я что-то с функцией напутал))) Ну ничего мне они такую же нарисовали какой она и должна быть)))
Я бы сам рад с помощью Tchart сделать, но увы, преподаватель сказал нужно нарисовать, через этот компонент я уже делал графики)