Back to Gallery
  • Remix
  • Share
  • New Entry

  • Eugen Prel

  • /

  • Recamán's sequence (illustrated with spiraling squares 2)

on 28 Oct 2021
  • 6
  • 30
  • 0
  • 0
  • 273
n=1e3;
s=zeros(1,n);
l=@line;
c=summer(n);
C='Color';
figure(C,[.07 .03 0]);
hold; axis off equal;
Current plot held
for i=1:n-1
t=s(i)-i;
for j=1:i+1
if s(j)==t||t<0
t=s(i)+i;
break;
end
end
s(i+1)=t;
y=1i^(2*i)*abs(t-s(i))/2;
a=1-i/n;
q=c(i,:);
l(s(i)*[1,1],[0,y],C,[q a]);
l([s(i),t],[y,y],C,[q a]);
l([t,t],[y,0],C,[q a]);
end
Remix Tree