分形几何中一些经典图形的Matlab画法作者:日期:分形几何中一些经典图形的Matlab画法(1)Koch曲线程序kochmfunctionkoch(a1,bl,a2,b2,n)%koch(0,0,9,0,3)%a1,b1,a2,b2为初始线段两端点坐标,n为迭代次数a1=0;bl=0;a2=9;b2=0;n=3;%第:一1次迭代时由各条线段产生的新四条线段的五点横、纵坐标存储在数组A、B中A,B=sub_koch1(a1,b1,a2,b2);fori=1:nforj=1:length(A)/5;w=sub_koch2(A(1+5*(j-1):5大j),B(1+5*(j1):5j);fork=1:4AA(5*4*(j-1)+5*(k-1)+1:5*4*(j-1)+5*(k-1)+5),BB(5*4*(j1)+5*(k1)+1:5*4*(j-1)+5*(k1)+5)=sub_koch1(w(k,1),w(k,2),w(k,3),w(k,4);endendA=AA;B=BB;endplo