Shock Wave Part 10

on 29 Oct 2021

%Fractal Zeta

l=@linspace;

r=3; %No Loop,

m=600;

L=.375; %L

n=1.; %orig 1

x=l(.2-L,L,m); % x=[-1 1]

y=l(.05-L,L+.05,m); %y=[-1 1]

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

Z=zeros(m);

C=X+i*Y;

for k=1:abs(19)

f=asin(C.^(tan(((conj((Z)+C.^2))+C.^2).^n))); %Shock Equation

Z=atanh(sqrt(((C.^(sqrt(asinh(tan(log((f.^f).^n)))))).^C)+C.^2));%

end

pcolor(abs(Z)); %absolute instead of real

shading interp

c=jet;

colormap([c;c;c])

%brighten()

axis off

Load full remix tree