- /
-
Golden Feather Pen
on 11 Oct 2021
- 10
- 39
- 0
- 0
- 242
c=@(n)(mod(n,2)*(2*n+1)+n)/2;
s=@cumsum;
figure('Color','#02021b','Renderer','opengl')
hold on
for a=1:5:20219
while a(1)>1
a=[c(a(1)) a];
end
t=s(rescale(mod(a,4),-.09,.08));
plot(s(sinh(t)),s(2*cos(t)),'Color',[215/255,127/255, 50/255]);
end
axis equal off