- /
-
Pascal's Polygons
on 20 Oct 2022
- 5
- 16
- 0
- 0
- 270
axis off
a = @(n)2*pi*(1/n:(1/n):1);
p = @(x,y)plot([x x(1)],[y y(1)],'k.-');
f = @(f)factorial(f);
s = @(n,r)f(n)/(f(r)*f(n-r));
hold on
p(2,14)
for n=1:7
p(cos(a(1))/2+n-6.5,n*2+sin(a(1))/2-2)
for r=1:n
v = s(n,r);
p(1+r*2+cos(a(v))/2-mean(cos(a(v)))/2-(n-1),14-n*2+sin(a(v))/2)
end
end