вторник, 4 мая 2010 г.

Множество Жюлиа

Множество Жюлиа строится аналогично множеству Мандельброта, только величину C берут не с комплексной плоскости, а задаются ей вначале, для каждой же точки вычисляется число шагов, за которое последовательность итераций Zn+1=Zn2+С уйдёт из круга радиусом 2. 

Представленное здесь множество получается при C=0,31+0,47i .

При щелке на картинку, её можно скачать в разрешении 1024х768.




3 комментария:

  1. Анонимный1/10/10 09:27

    Че за пииииии....? Как написать это в Delphi?

    ОтветитьУдалить
  2. Alexey Izvalov3/10/10 19:27

    Достаточно просто - нужно сначала перевести каждый пиксель экрана в комплексное число, а затем с этим числом проделать указанные итерации. В зависимости от количества итераций для выхода за кргу радиусом 2, подбираем RGB-цвет.

    Где конкретно нужна помощь?

    ОтветитьУдалить
  3. Анонимный25/4/13 00:39

    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.

    ОтветитьУдалить