【Matlab代码】Sierpinsk地毯

   日期:2020-10-18     浏览:105    评论:0    
核心提示:1,将一个大正方形作为最基本的图形;2,将第一步得到的数组缩小到三分之一;3,将第二部得到的数组复制八份,平移到相应的位置。

步骤:
1,将一个大正方形作为最基本的图形;
2,将第一步得到的数组缩小到三分之一;
3,将第二部得到的数组复制八份,平移到相应的位置。

figure%画图
hold on
for k=1:8^n
fill(a(4*k-3) a(4*k-2) a(4*k-1) a(4*k)], [b(4*k-3) b(4*k-2) b(4*k-1) b(4*k),'b']
end
hold off
axis off%不要坐标轴
axis equa%各坐标轴同比例
set(findobj(gcf,'type','patch'),'edgecolor','none')%将线条隐去

步骤:
1,确定这个大正方形的四个角的坐标,用两个数组分别表示横坐标和纵坐标。可以把最左下角的坐标设置为原点。
2,把这个大正方形填充成蓝色。
3,将第一步得到的数组缩小到原来的三分之一;
4,将第三步得到的数组平移到原来大正方形的正中间位置。

function ditan(n)
a=[0 1 1 0];
b=[0 0 1 1];
fill(a,b,'b')%将正方形填充蓝色
for k=1:n%迭代n次
for m=1:3^(k-1)%按行
for p=1:3^(k-1)%按列
fill(1/3^k+1/3^(k-1)*(p-1)+a/3^k,1/3^k+1/3^k+1/3^(k-1)*(m-1)+b/3^k,'w')
end
end
end
hold off
axis off%不要坐标轴
axis equal%各坐标轴同比例
set(findobj(gef,'type','patch'),'edgecolor','none')%将线条隐去
 
打赏
 本文转载自:网络 
所有权利归属于原作者,如文章来源标示错误或侵犯了您的权利请联系微信13520258486
更多>最近资讯中心
更多>最新资讯中心
0相关评论

推荐图文
推荐资讯中心
点击排行
最新信息
新手指南
采购商服务
供应商服务
交易安全
关注我们
手机网站:
新浪微博:
微信关注:

13520258486

周一至周五 9:00-18:00
(其他时间联系在线客服)

24小时在线客服