uses GraphABC;
type TComplex = record
X,Y : Real;
end;
const iter = 50;
max = 16;
var z, t, c : TComplex;
x, y, n : Integer;
mx, my : Integer;
begin
Randomize;
Mx := windowwidth div 2;
My := windowheight div 2;
for y := -my to my do
for x := -mx to mx do
begin
n := 0;
z.x := x * 0.005;
z.y := y * 0.005;
c.x := 0.11;
c.y := -0.66;
while (sqr(z.x) + sqr(z.y) < max) and (n < iter) do
begin
t := z;
z.x := sqr(t.x) - sqr(t.y) + c.x;
z.y := 2*t.x*t.y + c.y;
Inc(n);
end;
if n < iter then SetPixel(mx + x,my + y,clBlack)
else SetPixel(mx + x,my + y,RGB(10*(16 - n mod 16),60*(16 - n mod 16),140*(16 - n mod 16)));
end;
end.
Множество Жюлиа на pascalABC.NET |