- /
-
Math Ape
on 1 Nov 2021
- 0
- 132
- 0
- 0
- 263
clear
Z=+0.04+.020211004i;
col=9;
m=1200;
cx=-1
cy=-0.5;
l=2;
x=linspace(cx-l,cx+l,m);
y=linspace(cy-l,cy+l,m);
[X,Y]=meshgrid(x,y);
C=X+i*Y;
for k=1:col;
Z=conj(Z).^(Z)+C;
W=exp(-abs(Z));
end
pcolor(rot90(W));
shading interp
axis([100 1200 200 1000])
axis square
colormap([copper;flip(copper)])