- /
-
Chaos game inside a regular heptadecagon with mixed rules superimposed
on 31 Oct 2021
- 7
- 54
- 0
- 0
- 270
n=1e4;
P=nsidedpoly(17);
M=P.Vertices;
r=@randi;
figure('Color','#FFC300');
hold on;
F=zeros(n,2,12);
p=[0,0];
s=0;
for j=3:16
for i=1:n
R=r(17);
while s==R
R=r(17);
end
q=M(R,:);
s=R;
p=(p+q)/j;
F(i,:,j)=p;
end
plot(F(:,1,j),F(:,2,j),'Col','#003566','LineS','n','Marker','.','MarkerS',1);
end
axis equal off;