sierpinski_xj.asv

来自「包括Koch曲线、Levy 曲线、分形树、Sierpinski三角形」· ASV 代码 · 共 22 行

function sierpinski_4j(A,B,C,D,n)
if nargin==0
    A=[0 0];B=[1 0];C=[1 1];D=[0 1];n=5;
end
axis equal off;
if n== 0

   fill ([A(1), B(1), C(1) D(1)], [A(2), B(2), C(2) D(2)], [0.0 0.0 0.0]);  %以黑色填充

   hold on                                         % 保持图形

else

   sierpinski(A, (A + B)/3, (A + C)/3, (A + D)/3,n-1);
 
   sierpinski((A + B)/3, 2*(B + A)/2, (A + C)/3,(A + D)/3,n-1);

   sierpinski(C, (C + A)/2, (C + B)/2, n-1);

end