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

Posted by obzor under Delphi

Как построить график бесконечности на форме?
ссылка на формулу

Имеется формула, но я не могу её преобразовать, что бы она рисовалась у меня на форме.

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;

тема на форуме

Случайные статьи

• Выполнение макросов на 64-x разрядных системах
• Разделить файл на несколько частей с помощью макроса в excel
• Сессия сбивается на null при переходе на другую страницу
• Вывести название константы
• Посчитать количество данных в таблице
• Интерфейс между Outlook и Excel
• Длинное целое из памяти -> .txt (FASM)
• Уменьшить картинку в два раза
• Как сложить столбец в Dbgrid и вывести сумму столбца в Label?
• Яркость, контраст, превратить изображение в ч/б