24小时热门版块排行榜    

查看: 376  |  回复: 1
当前主题已经存档。

ylgdiy

新虫 (小有名气)


[资源] 四等分边长,Sierpinski地毯(matlab)

在平面R^2上取单位正方形F,把F的每一条边分成4等份,可以得到4^2个边长为1/4的正方形,挖去除位于F的4个顶点上的正方形之外的正方形的内部,得到的集合记作F1,对F1的4个正方形重复上述过程,得到集合记作F2,一直重复下去,..............,所得非空集合,图形,叫作一个SIERPINSKI地毯.

其程序如下MATLAB)

%Sierpinski
%Square scarpet
x=0;y=0;d=1;n=3;
for j=1:n
    a=[]; b=[];
    for i=1:length(x)
        x1=x(i)+[0,3*d/4,3*d/4,0];
        y1=y(i)+[0,0,3*d/4,3*d/4

a=[a,x1];b=[b,y1];
    end
    d=d/4;
    x=a;y=b;
end
for i=1:length(x)
    fill(x(i)+[0,d,d,0,0],y(i)+[0,0,d,d,0],'r')
    hold on
end
hold off
axis equal
axis square
grid on


回复此楼

» 猜你喜欢

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 ylgdiy 的主题更新
☆ 无星级 ★ 一星级 ★★★ 三星级 ★★★★★ 五星级
普通表情 高级回复 (可上传附件)
信息提示
请填处理意见