- /
-
Pandora
on 13 Oct 2021
- 10
- 57
- 9
- 0
- 280
colormap cool;
[x,y,z]=sphere;
surf(x,y+2.1,z-2,EdgeC='n')
view([0,90]);
hold;
for a=0:1
E=F(a:a+1)/7;
I=imag(E);
R=E-i*I-a;
fill(R,I,3);
h=scatter(R,I,30,-I);
alpha(h,.6);
end
axis off;
function V=F(p)
V=[];
if abs(diff(p))>.01
Z=p+.5i*diff(p)*[4;
4-i+i^cos(502*norm(p))^.5];
V=[p(1);
F(Z(1:2));
F(Z(2:3));
p(2)];
end
end