代码21-5.txt

matlab宝典书籍源码 全部代码 希望大家喜欢

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                                                 % 不显示坐标轴