Фрактал На Делфи

Фракталы - это математические объекты, которые проявляются в разных областях науки и техники. Фракталы зачастую имеют сложную и красивую структуру.

Фракталы можно использовать для создания графических изображений, таких как обои, анимации и других визуальных эффектов. Delphi представляет хорошую возможность для создания фракталов благодаря своей мощной графической библиотеке и легкому приложению с оконным интерфейсом.

Чтобы создать фрактал на Delphi, нужно:

// объявляем переменные
var p, x, y, x1, y1, x2, y2, xtmp : real;
var count : integer;

// открываем форму
procedure TForm1.Button1Click(Sender: TObject);
begin
  count := 0;
  x1 := -1.3;
  x2 := 1.3;
  y1 := -1.3;
  y2 := 1.3;
  p := (x2 - x1) / Width;
  y := 0;
  while y < Height do begin
    x := 0;
    while x < Width do begin
      xtmp := 0;
      y1 := 0;
      count := 0;
      while (count < 1000) and (sqr(xtmp) + sqr(y1) < 4) do begin
        count := count + 1;
        y1 := 2 * xtmp * y1 + y;
        xtmp := sqr(xtmp) - sqr(y1) + x;
      end;
      if count = 1000 then begin
        Image1.Canvas.Pixels[round(x), round(y)] := clBlack;
      end else begin
        Image1.Canvas.Pixels[round(x), round(y)] := clWhite;
      end;
      x := x + 1;
    end;
    y := y + 1;
  end;
end;

Этот код создает фрактал Мандельброта. Получившийся фрактал может быть сохранен в файле, напечатан, сохранен как обои и т.д. В Delphi есть много возможностей для того, чтобы разнообразить выборку фракталов, которые можно создавать.