Графика. Строфоида-кривая

[абвгд]

Построить строфоиду-кривую, заданную параметрическим уравнением
x=a(t^2 - 1)/(t^2 + 1)
y= at (t^2 - 1)/ (t^2+1) a>0
t принадлежит интервалу от минуса до плюса бесконечности

[Stilet]

Кидаешь TChart на форму, и создав в нем серию с тонкой линии пишешь код:

procedure TForm1.FormCreate(Sender: TObject);
var x,y,a,b,t:double;
begin
a:=0.001;
Series1.XValues.Order:=loNone;
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;

Это если на Делфи

[абвгд]

eto pascal

[абвгд]

помогите пожалуйста