Множество Жюлиа строится аналогично множеству Мандельброта, только величину C берут не с комплексной плоскости, а задаются ей вначале, для каждой же точки вычисляется число шагов, за которое последовательность итераций Zn+1=Zn2+С уйдёт из круга радиусом 2.
Представленное здесь множество получается при C=0,31+0,47i .
При щелке на картинку, её можно скачать в разрешении 1024х768.
Че за пииииии....? Как написать это в Delphi?
ОтветитьУдалитьДостаточно просто - нужно сначала перевести каждый пиксель экрана в комплексное число, а затем с этим числом проделать указанные итерации. В зависимости от количества итераций для выхода за кргу радиусом 2, подбираем RGB-цвет.
ОтветитьУдалитьГде конкретно нужна помощь?
Pascal ABC, надеюсь, в Делфи понятно..
ОтветитьУдалитьuses crt,GraphABC;
const
n=255;
max=10;
var
z,z1,c: complex;
i,ix,iy: integer;
begin
cls;
SetWindowSize(400,300);
c:=(0.6,0.9);
for ix:=0 to WindowWidth-1 do
for iy:=0 to WindowHeight-1 do
begin
z:=0.015*(ix-200,iy-140);
for i:=1 to n do
begin
z1:=0.5*z*z+c;
if abs(z1)>max then break;
z:=z1;
end;
if i>=n then SetPixel(ix,iy,clGreen)
else SetPixel(ix,iy,RGB(255-i,255-i,255));
end;
end.