• Remix
  • Share
  • New Entry

  • Eugen Prel

  • /
  • Chaos game inside a regular pentagon

on 29 Oct 2021
  • 9
  • 78
  • 14
  • 0
  • 280
n=1e5;
P=nsidedpoly(5);
M=P.Vertices;
r=@randi;
z=[.1,.12,.3];
figure('Color',z);
fill(M(:,1),M(:,2),z,'EdgeC','none');
hold
Current plot held
F=zeros(n,2);
p=[0,0];
s=0;
for i=1:n
R=r(5);
while s==R
R=r(5);
end
q=M(R,:);
s=R;
p=(p+q)/2;
F(i,:)=p;
end
plot(F(:,1),F(:,2),'Col','w','LineS','none','Marker','.','MarkerS',1);
axis equal off;
Remix Tree
Load full remix tree