- /
-
wurm 2312
on 28 Oct 2021
- 5
- 13
- 0
- 0
- 233
t=0:(2*pi)/1023:2*pi;
r=2+sin(3*t)/2;
theta=t+sin(21*t)/21;
z0=r.*exp(theta*i);
colormap(turbo);
hold on;
for s=1:-0.005:0.1
z=exp(i*0.2*sin(8*s))*z0;
xr=real(z);
yr=imag(z);
patch(s*xr,s*yr,s,'EdgeColor','none');
end
axis off;
set(gcf,'Color',[0.1,0,0.05]);