Как нарисовать график Строфоиды в Делфи?
Пробовал вот так
procedure TForm1.Button1Click(Sender: TObject);
const mash = 100;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
x0:=Image1.Width div 2;
y0:=Image1.Height div 2;
with Image1.Canvas do
begin
Pen.Color := clRed;
Pen.Width := 1;
MoveTo(x0, 0);
LineTo(x0, ClientHeight);
MoveTo(0, y0);
LineTo(ClientWidth, y0);
end;
y:=1/a*((b*b-1)/(b*b+1));
x:= (a*b)*((b*b-1)/(b*b+1));
Image1.Canvas.MoveTo(Trunc (x), Trunc(y));
repeat
b:=b+0.1;
y:= a*((b*b-1)/(b*b+1));
x:= (a*b)*((b*b-1)/(b*b+1));
Image1.Canvas.LineTo(Trunc(x * mash)+x0, Trunc(y * mash) + y0);
until b>=10;
end;