mandelbrot.mws
The Mandelbrot Set
John Oprea, oprea@math.csuohio.edu
| > |
mandelbrot := proc(x, y)
local c, z, m;
c := evalf(x+y*I);
z := c;
for m to 30 while abs(z) < 2 do
z := z^2+c
od;
m;
end:
|
Warning: This can take up to an hour to compute at resolution of grid=[250,250]. For a courser but faster plot, reduce the grid size to 50 x 50.
| > |
plot3d(0, -2 .. 0.7, -1.2 .. 1.2, orientation=[-90,0],
grid=[250, 250], style=patchnogrid,
scaling=constrained, color=mandelbrot);
|
![[Maple Plot]](/view.aspx?SI=3503/mandelbrot1.gif)
