Chaos game inside a regular dodecagon

Eugen Prel
on 29 Oct 2021
- 5
- 29
- 6
- 0
- 248
n=1e5;
P=nsidedpoly(12);
M=P.Vertices;
r=@randi;
figure('Color','#5893B5');
hold on;
F=zeros(n,2);
p=[0,0];
s=0;
for i=1:n
R=r(12);
while s==R
R=r(12);
end
q=M(R,:);
s=R;
p=(p+q)/3;
F(i,:)=p;
end
plot(F(:,1),F(:,2),'Col','#D5E1E8','LineS','n','Marker','.','MarkerS',1);
axis equal off;