Создание графиков

[stud3nt]

Прошу помощи в создании программы, нужно с помощью TChart нарисовать три графика по трем функциям:
y = sin(x);
y = 1/x2;
x = sin(t), y = cos(t)

[Stilet]

http://www.programmersforum.ru/showthread.php?t=13839
Пробуй пример

[dmitriegorovih]

var
  Form1: TForm1;
  x,y,x1,y1,i,z:integer;
  x2,y2:real;
implementation

{$R *.dfm}

function uravnenie(x:real):real;
begin
result:=result+x;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.DoubleBuffered:=true;
//image1:=Tbitmap.Create;
image1.Width:=paintbox1.Width;
image1.Height:=paintbox1.Height;
image1.Canvas.MoveTo(image1.Width div 2,0);
image1.Canvas.LineTo(image1.Width div 2,image1.Height);
image1.Canvas.MoveTo(0,image1.Height div 2);
image1.Canvas.LineTo(image1.Width,image1.Height div 2);
x2:=(image1.Width/2)*(-1);
for i:=1 to 725000 do begin
x2:=x2+0.001;
y2:=uravnenie(x2);
y:=y+y1;
x:=x+x1;
setpixel(image1.Canvas.Handle,Round(x2+(image1.Width/2)),Round((image1.Height/2)-y2),clred);
x2:=x2+0.001;
y2:=uravnenie(x2);
y:=y+y1;
x:=x+x1;
setpixel(image1.Canvas.Handle,Round(x2+(image1.Width/2)),Round((image1.Height/2)-y2),clred);
x2:=x2+0.001;
y2:=uravnenie(x2);
y:=y+y1;
x:=x+x1;
setpixel(image1.Canvas.Handle,Round(x2+(image1.Width/2)),Round((image1.Height/2)-y2),clred);
end;
image1.Canvas.Refresh;
end;

[stud3nt]

dmitriegorovih, извините, а вы не могли бы это в проекте сделать и мне скинуть, а то я не могу найти некоторые некоторые вещи у себя, и расставить компоненты не выходит

[krGorka]

C Chart : надо создать 3 Series на Chart и ,например, на кнопку бросить приблизительный код

procedure TForm1.BitBtn1Click(Sender: TObject);
var i,n:integer;
    x,y1,y2:array[0..10000] of single;
    t1,t2:single;
begin
   n:=360;
   Series3.XValues.Order:=loNone;
   for i:=0 to n-1 do
    begin
     x[i]:=(-n/2+i);
     y1[i]:=sin(x[i]*pi/180);
     if x[i]<>0 then y2[i]:=1.0/sqr(x[i])
                else y2[i]:=100;
     Chart1.Series[0].AddXY(x[i],y1[i],'',clRed);
     Chart1.Series[1].AddXY(x[i],y2[i],'',clGreen);
     t1:=y1[i];
     t2:=cos(x[i]*pi/180);
     Chart1.Series[2].AddXY(t1,t2,'',clBlue);
    end;
end;

[krGorka]

желательно добавить некую нормировку, а то графики неочень красиво смотрятся