Работа с графиком в Delphi.

[ZdSaliery]

Добрый день. Получил задание, и не знаю как его можно реализовать. Суть заключается в следующем: программа должна рисовать график (ДН), который будет выводится по нажатию на кнопку, в отдельном окне. При этом надо придумать способ, чтобы просчитанные в цикле данные были отнормированны по максимальному значению DN.
Вот часть кода которая просчитывает точки графика.
Пожалуйста, подскажите как это возможно реализовать. Заранее благодарен

procedure TForm1.Button8Click(Sender: TObject);
var
LTeta1:integer;
Q12:integer;
begin
  for LTeta1:=-90 to 90 do
  for Q12:=0 to (sqr(N)-1) do
begin
begin
  I:=Q12 mod N;  // номер столбца элемента
  G:=Q12 div N;   //  номер строки элемента
  HX:=D*(Abs(I+1/2)-N/2); // координата X элемента
  HY:=D*(Abs(G+1/2)-N/2);   // координата Y элемента
  L:=sqrt(sqr(HX-FX)+sqr(HY-FY)+sqr(H));  // расстояние от облучателя до элемента
  AB:=Abs(sqrt((sqr(HX-(HX-FX)))*(sqr(HY-(HY-FY))))); // проекция расстрояний между элементами
  Phi2:=Arctan((-HY+(HY-FY))/(HX+(HY-FX)));
  Phi3:=Phi2-Phi1;
  Finabeg:=L*((2*pi)/HL); // фазовый набег
  FiDN:=F1+Finabeg; // полная фаза ДН
  DN:=(Ampl*cos((2*pi)/HL*(cos(Phi3)*AB)*sin(LTeta1)+FiDN))+DN; // ДН от углов тета и фи
end;
end;
end;

[Stilet]

Как отрисовать график? Ну я бы использовал компонент TChart. Даже если нужно рисовать какую нить сложну фигуру со спиралями или лемнискатами он вполне справится.

[ZdSaliery]

Stilet, а не могли бы вы чуть подробнее объяснить? Мои познания в делфи, мягко говоря, на уровне novice, поэтому буду рад любым пояснениям, и направлениям в строну которых нужно искать.

[ZX Spectrum-128]

Если набрать в поиске график tchart delphi, то можно найти много интересного.

[Stilet]

Та че не мог бы? Вотъ один из примеров построения графика:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var s:TLineSeries; x:double;c:TChart;
begin
 c:=TChart.Create(form1);
 s:=TLineSeries.Create(c);
 c.Align:=alClient;
 c.Parent:=self;
 s.ParentChart:=C;
 x:=-9; while x<15 do begin
  s.AddXY(x,0-3*cos((x-2)/pi)*sin(x-0.5)/exp((x)/5)*cos(x/4)-0.5);
  x:=x+1;
 end;
end;

end.

Как бы х.з. че он строит. Какофойду какую-то, уж не помню, но как минимальный пример - подойдет.
И да - ZX Spectrum-128 дело говорит. Примеро у нас на форуме много, если в поиск набрать TChart.

[ZdSaliery]

А насчет нормирования - вы не могли бы подсказать как это реализовать? Данные после единоразового просчета куда то записываются или сразу отмечаются на графике? Просто мой цикл должен просчитывать каждый элемент решетки для каждого угла, и потом значение на каждом угле суммировать, поэтому значения могут получатся большие, и надо их отнормировать относительно самого большого. Помогите пожалуйста!