График на форме

[Janger]

Подскажите пожалуйста, может кто знает...
Как, построить график бесконечности на форме?
ссылка на формулу
имеется формула, но я не могу её преобразовать, что бы она рисовалась у меня на форме
Подскажите

[IliaIT]

не ленится...
вики.

[SQLPowerUser]

А в гугле же есть примеры Лемниската Бернулли Delphi...

procedure TForm1.FormResize(Sender: TObject);
begin
  Self.Repaint;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
  xc, yc, x1, y1, y2, m, xd, yd: integer;
  x, y, c, MyStep: Extended;
  ARect: TRect;
  MyColor: TColor;
begin
  ARect := Self.Canvas.ClipRect;
  Self.Canvas.Brush.Color := clWhite;
  Self.Canvas.FillRect(ARect);

  Self.Canvas.Pen.Color := 11829830;
  MyColor := clGreen;

  xc := ARect.Right div 2;
  yc := Arect.Bottom div 2;
  Self.Canvas.MoveTo(0,yc); Self.Canvas.LineTo(ARect.Right, yc); Self.Canvas.LineTo(ARect.Right-8, yc-4);
  Self.Canvas.MoveTo(ARect.Right,yc);  Self.Canvas.LineTo(ARect.Right-8, yc+4);
  Self.Canvas.MoveTo(xc,ARect.Bottom); Self.Canvas.LineTo(xc,Arect.Top); Self.Canvas.LineTo(xc-4,ARect.Top+8);
  Self.Canvas.MoveTo(xc,ARect.Top); Self.Canvas.LineTo(xc+4,ARect.Top+8);

  c := 1; m := 100;
  x := -c * sqrt(2);
  MyStep := 0.0001; // Чем меньше это число, тем лучше качество
  xd := 0; yd := 0; // Смещение центра у графика. Можно поменять для наглядности xd := 15; yd := -20;
  while x <= c*sqrt(2) do
  begin
    if sqrt(c*c*c*c+4*x*x*c*c)-x*x-c*c > MyStep then
    begin
      y := sqrt(sqrt(c*c*c*c+4*x*x*c*c)-x*x-c*c);
      x1:= xc + round(x*m);
      y1:= yc - round(y*m);
      y2:= yc + round(y*m);
      Self.Canvas.Pixels[x1+xd,y1+yd] := MyColor;
      Self.Canvas.Pixels[x1+xd,y2+yd] := MyColor;
    end;
    x := x + MyStep;
  end;
end;

[Stilet]

http://www.programmersforum.ru/showthread.php?t=190269
TChart удобнее канваса.