- /
-
Fuji
on 10 Oct 2021
- 40
- 226
- 10
- 0
- 279
hold;
E=F(0:1);
I=imag(E);
R=E-i*I;
a=[1
6
8.5
6
1]-.7;
fill([-6
7
11
15
28],a,a,R,I,2,EdgeC='none');
h=scatter(R,I,30,[9
7
7]'/9,'h');
alpha(h,.1);
colormap bone;
axis off;
axis([.5
14
0
12]')
function V=F(p)
V=[];
if abs(diff(p))>8e-3
Z=p+.5i*diff(p)*[4;
4-i+i^cos(283*norm(p))^.5];
V=[p(1);
F(Z(1:2));
F(Z(2:3));
p(2)];
end
end