- /
-
Dragon
on 9 Oct 2021
- 4
- 41
- 3
- 0
- 191
% Dragon
r = 4;
n = 13;
z = [0 1];
w = (1+i)/2;
for j = 0:n
cla
axis([-5,5,-5,5]/4,'square')
u = w*z;
v = 1 - w'*fliplr(z);
f = 1;
hold on
for k = 1:r
plot(f*u,'linew',1);
plot(f*v,'linew',1);
f = i*f;
end
hold off
z = [u v];
end