n 图31科赫曲线及构造过程 % matlab plot函数绘制koch曲线程序,程序还是比较简单的,这里只绘制出了雪花的三分之一 function koch curve(number)% number代表koch的阶数,范围为大于等于2 set(gef; position,0.,1920,1080],%设置窗口分辨率,[0,0]和[1920,1080分别为窗口左上角和右下角坐标 可根据自己的屏幕分辨率调整,注释掉这句则使用 matlab默认窗口分辨率 kochI=[0,0,1,0] fo kocha=zeros(4n-3, 2); koch2(k, F[(kochi(j-1, 1)2+kochI (, 1)/3, (kochi(j-1, 2)2+koch10, 2))/3 koch2(k+1, FI(kochi(j-1, 1)+kochi(, 1)+sqrt(3)*(kochi(j-1, 2)-koch10, 2))/3)2, (kochi(j-1, 2)+koch10, 2)-sqrt(3)*( kochi(j-1, 1)-kochI(, 1))/3)21 chl(,1)*2+ kochI(-1,1)3,( kochI(,2)*2+ kochI(-1,2)y3 k=k+4; kocha(, 1) koch 1=koch57 图 3.1 科赫曲线及构造过程 %matlab plot 函数绘制 koch 曲线程序，程序还是比较简单的，这里只绘制出了雪花的三分之一 function koch_curve(number)%number 代表 koch 的阶数，范围为大于等于 2。 figure set(gcf,'position',[0,0,1920,1080]);%设置窗口分辨率，[0,0]和[1920,1080]分别为窗口左上角和右下角坐标 可根据自己的屏幕分辨率调整，注释掉这句则使用 matlab 默认窗口分辨率 n=2; koch1=[0,0;1,0]; for i=1:number koch2=zeros(4*n-3,2); k=2; for j=2:n koch2(k,:)=[(koch1(j-1,1)*2+koch1(j,1))/3,(koch1(j-1,2)*2+koch1(j,2))/3]; koch2(k+1,:)=[(koch1(j-1,1)+koch1(j,1)+sqrt(3)*(koch1(j-1,2)-koch1(j,2))/3)/2,(koch1(j-1,2)+koch1(j,2)-sqrt(3)*( koch1(j-1,1)-koch1(j,1))/3)/2]; koch2(k+2,:)=[(koch1(j,1)*2+koch1(j-1,1))/3,(koch1(j,2)*2+koch1(j-1,2))/3]; koch2(k+3,:)=koch1(j,:); k=k+4; end n=4*n-3; x=koch2(:,1); y=koch2(:,2); plot(x,y) axis equal koch1=koch2; pause(1);