serpinski垫.m

来自「自己编的绘制koch曲线和serpinki垫的matlab小程序」· M 代码 · 共 20 行

figure;
x=5;y=2; A=floor(10*rand(10000,1));
for i=1:length(A)
     if A(i)>=1 & A(i)<=3
         x=x/2; y=y/2;
         plot(x,y,'.'); hold on;
     end 
      if A(i)>=4 & A(i)<=6
         x=(x+10)/2;
         y=y/2;
         plot(x,y,'.'); hold on;
     end 
     if A(i)>=7 & A(i)<=9
     x=(x+5)/2;
     y=(y+8.6605)/2;
     plot(x,y,'.'); hold on;
     end
 end