Создание графиков(например декартов лист)

[DUMOH]

Необходимо создать график по формуле , я б хотел узнать с помощью чего ето можно зделать и возможно ли?

[_Dmitry]

Почему же невозможно? Берешь формулу и рисуешь.

procedure TForm1.FormClick(Sender: TObject);
var
  n,i,x0,y0: integer;
  x,y,m,f,r,h: double;
begin
  x0:=200; y0:=200;
  n:=1000; h:=2*pi/n;
  f:=0; m:=10;
  for i:=0 to n do
    begin
      r:=3*4*cos(f)*sin(f)/(cos(f)*cos(f)*cos(f)+sin(f)*sin(f)*sin(f));
      x:=r*cos(f); y:=r*sin(f);
      Form1.Canvas.Pixels[x0+round(x*m),y0-round(y*m)]:=clBlack;
      f:=f+h;
    end;
end;

[DUMOH]

Спасибо огромное, а то я уж отчаялся

[Stilet]

Вообще то для этого есть TChart

[DUMOH]

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

Вообще то для этого есть TChart

Stilet а у тебя есть какой нибудь график чтоб он был построен через TChart

[Stilet]

Всмысле пример?
Есть конечно:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, TeeProcs, TeEngine, Chart, Series;

type
  TForm1 = class(TForm)
    Chart1: TChart;
    Series1: TFastLineSeries;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i:real;
begin
i:=0; while i<360 do begin
 Chart1.Series[0].AddXY(cos(i),sin(i));
 i:=i+10;
end;
end;

end.

Закинь на форму компонент TChart, создай в нем серию, пусть это будет линия, и пропиши этот код, и наслаждайся картинкой

[DUMOH]

Это о5 я
Как осуществить спомощью TChart задуманное, мне нужно чтоб он отчерчивал тока грани фигур, а вотс таким кодом он соединяет точку с токой зигзагом
КОД:
type
TForm1 = class(TForm)
Chart1: TChart;
Series1: TLineSeries;
procedure FormClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormClick(Sender: TObject);
var
a,m,n,f:integer;
r,x0,y0,x,y: double;
begin
x0:=0;y0:=0;
A:=5; M:= 3; N:= 1;
FOR F:=0 TO 500 do begin
R:=A * sin(M * F / N);
X:= X0 + R * COS(F);
Y:= Y0 - R * SIN(F);
chart1.Series[0].AddXY(x,y);
end;
end;
end.

[_Dmitry]

Chart соединяет точки зигзагом потому, что в настройках компонента установлено упорядочивание данных по координате X (график строится по отсортированному массиву точек).
Отключить сортировку: Chart1.Series[0].XValues.Order:=loNone;
В результате, вы увидите точки, соединенные линиями, в том порядке, в котором они получены в вашей программе, т.е. полную ерунду, а не график. С полярной системой координат Chart вам не помошник.
Если функцию нельзя записать в явном виде, то необходимо записывать ее в параметрической форме, т.е. вводить параметр, монотонное изменение которого, позволяет получить точки в нужной последовательности. Например, для предыдущей задачи (пост #1) таким параметром является "u" (см. ссылку, пост #2). В вашей же задаче, угол "F" таким параметром не является.

[Cenobite]

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

...Отключить сортировку: Chart1.Series[0].XValues.Order:=loNone;
В результате, вы увидите точки, соединенные линиями, в том порядке, в котором они получены в вашей программе, т.е. полную ерунду, а не график...

Это не ерунда! Это гениально. Мне именно так и надо!! Спасибо!!!

[NyMFetbI4]

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

Это не ерунда! Это гениально. Мне именно так и надо!! Спасибо!!!

И все-же ерунда.... декартов лист рисуется не 1 сессией, а 4-мя сессиями, там вся соль в том, что надо разбить его грамотно.... есть мысль, вот сижу, в код выражаю ее)