Jewel

on 21 Oct 2022

col=9; %Courtesy Mandel Ape MATLAB File Exchange

m=800; %points, resolution

r=randn(m)*0.1;

Z=zeros(m);

x=-.5

x = -0.5000

y=+.3;

l=2; %L>2 is Zoom.out

xx=linspace(x-l,x+l,m);

yy=linspace(y-l,y+l,m);

[X,Y]=meshgrid(xx,yy);

C=X+i*Y;

for k=1:col;

Z=conj(Z).^(sin(Z))+C;

E=-2i*exp(-abs(Z));

ESC=abs(E);

end

pcolor(rot90(ESC)); %Turn 90deg

%colormap hot %make face red

figure(1)

axis square off

shading interp

colormap(colorcube)

Open in MATLAB Online