- /
-
star disc 1939
on 22 Oct 2021
- 1
- 8
- 0
- 0
- 277
figure('Color','k')
a=.3+.2i;
for i=1:7E3
a=(-.49-.23i)+(-.1+.1i)*a+(1.14-.59i)*a^2;
x(i)=a;
end
plot(real(x),imag(x),'.y','MarkerSize',2);
hold;
x=x(end)
for i=1:4E2
a=-.2-.4i+(.3-.2i)*a+(.4-.6i)*a^2+.2*a^3-rand(1,2)*[1;i]*.001*a;
x(end+1)=a;
end
%x(end-2:end)
plot(real(x),imag(x),'.b','MarkerSize',1);
axis off