|
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);
- end
- end
复制代码 |
|