Godess of Feather

on 12 Oct 2021

figure('Color','w')

hold

Current plot held

col=13;

r=10;

m=1600;

cx=-.5; %orig left/right

cy=0; %orig Up/down

l=3; %L=2 is normal, l=10 is zoom out

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

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

[X,Y]=meshgrid(x,y);

Z=zeros(m);

C=X+i*Y;

for k=1:col;

Z=conj(Z).^-sinh(conj(Z))+C; %--Godess of feather

W=exp(-abs(Z));

end

%pcolor(W);

pcolor(rot90(W)); % rot 90 deg counter-cw

colormap hsv(128)

shading flat

axis('square','equal','off');