www.gusucode.com > 《matlab图像处理与界面编程宝典》秦襄培 编著，每章的MATLAB源代码程序 > 第21章/代码21-5.txt

    
p=[0 0;10 0];n=2;  
A=[0 -1;1 0];  
for k=1:4
    d=diff(p/3);m=5*n-4;  
    q=p(1:n-1,:);  
    p(6:5:m,:)=p(2:n,:);  
    p(2:5:m,:)=q+d;  
    p(3:5:m,:)=q+d+.7*d*A'; 
    p(4:5:m,:)=q+2*d+.7*d*A'; 
    p(5:5:m,:)=q+2*d;  
        n=m;   
end  
plot(p(:,1),p(:,2),'k')  
axis equal                                               % 设置显示比例
axis off                                                 % 不显示坐标轴