Графика в Делфи. Как нарисовать строфоиду?

[stscolt]

Как нарисовать строфоиду? Она задана в параметрической форме:
x=a(t*t-1)/(t*t+1) y=a*t(t*t-1)/(t*t+1).
a>0, t изменяется от минус бесконечности до плюс бесконечности. У кого есть решение дайте пожалуйста, а то я уже 3ий день не могу справится с этой задачей:-( Заранее спасибо.

[Levsha100]

А поиск юзали?
Типа "график Delphi" ?

[DomiNick]

t изменяется от минус бесконечности до плюс бесконечности.

Это в математике так... А когда рисуешь график надо всё равно какой-то диапазон выбирать...

Она задана в параметрической форме

Какая разница как она задана? Изменяется t - вот и пробегай в цикле, например, от -100 до 100 и подставляй...

Function npt(a: Integer; t: Real): TPoint;
Begin
Result.X:=Round(a*(t*t-1)/(t*t+1));
Result.Y:=Round(a*t*(t*t-1)/(t*t+1));
End;

Procedure TForm1.Button1Click(Sender: TObject);
Var a: Integer; t: real; pt: TPoint;
Begin
a:=100;
t:=-100;
pt:=npt(a, t);
Form1.Image1.Canvas.MoveTo(pt.X, pt.Y);
While t<=100 Do
      Begin
      pt:=npt(a, t);
      Form1.Image1.Canvas.LineTo(pt.X+Image1.Width Div 2, pt.Y+Image1.Height Div 2);
      t:=t+0.01;
      End;
End;

[Stilet]

Ну и я свои пять коп:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
const a=10;
var t:double;
begin
 Chart1.Align:=alClient;
  t:=-10; while t<10 do begin
   Series1.AddXY(a*(t*t-1)/(t*t+1),a*t*(t*t-1)/(t*t+1));
  t:=t+0.01;
  end;

end;

end.

P.S. Мой улюблений способ графики строить.