график(Delphi)

[2009]

Помогите построить график функции y=sin(x) на отрезке от –П/2 по П/2.

[2009]

Уже разобрался! Кому интересно вот код:

procedure grafik;
var 
x,y,x1,y1,x2,y2:real;
dx,Pi,mx,my:real;
l,b,w,h,x0,y0:integer;
function f(x:real):real;
begin
f:=sin(x);
end;
begin
l:=10;
b:=form1.clientheight-20;
h:=form1.clientheight-40;
w:=form1.clientwidth-40;
Pi:=3.14;
x1:=-Pi/2;
x2:=Pi/2;
dx:=0.01;
y1:=f(x1);
y2:=f(x2);
x:=x1;
repeat
y:=f(x);
if y<y1 then y1:=y;
if y>y2 then y2:=y;
x:=x+dx;
until (x>=x2);
my:=h/abs(y2-y1);
mx:=w/abs(x2-x1);
x0:=round(abs(x1)*mx);
y0:=b-abs(round(y1*my));
with form1.canvas do begin
moveto(x0,b);lineto(x0,b-h);
moveto(l,y0);lineto(x0+w,y0);
textout(l+5,b-h,floattostrf(y2,ffgeneral,6,3));
 textout(l+5,b,floattostrf(y1,ffgeneral,6,3));
x:=x1;
repeat
y:=f(x);
form1.canvas.pixels[x0+round(x*mx),y0-
round(y*my)]:=ck;
x:=x+dx;
until(x>=x2);
end;
end;

[Sozialist]

Хреново по части того, что много ненужного, таким методом не построишь график того же синуса от -pi до pi. Нужно просто выбрать шагаргумента, прибавлять к текущему и использовать функции moveto и lineto. Пишется в 4 строчки

[Stilet]

Я бы использовал TChart. Он специально для такогопредназначен.