Mandelbrot set: Difference between revisions

# for which the sequence z[n+1] := z[n] ** 2 + z[0] (n >= 0) is bounded.

# Since this program is computing intensive it should be compiled with

 

const integer: pix is 200;

z0 := center + complex(flt(x) * zoom, flt(y) * zoom);

point(x + pix, y + pix, colorTable[iterate(z0)]);

end for;

end func;

end for;

displayMandelbrotSet(complex(-0.75, 0.0), 1.3 / flt(pix));

readln(KEYBOARD);

end func;