uses graph;

const
 n=255;
 max=10;

// z=z^2+c
begin
 Window.SetSize(400,300);
 Window.Title := 'Множество Мандельброта';
 for var ix:=0 to 399 do
 for var iy:=0 to 299 do
 begin
 var x:=0.0;
 var y:=0.0;
 var cx:=0.002*(ix-720);
 var cy:=0.002*(iy-150);
 
 var i: integer;
 for i:=1 to n do
 begin
 var x1:=x*x-y*y+cx;
 var y1:=2*x*y+cy;
 if (x1 > max) or (y1 > max) then break;
 x:=x1;
 y:=y1;
 end;
 if i>=n then PutPixel(ix,iy,Color.Red)
 else PutPixel(ix,iy,RGB(255,255-i,255-i));
 end;
end.


 Похожие публикации
2015-10-14 • Просмотров [ 393 ]