| 查看: 1252 | 回复: 1 | ||
smy1982木虫 (正式写手)
|
[求助]
分形图康托尔地毯的matlab程序模拟
|
生成一张康托尔地毯分形图，特点是在较大方块的四周生产8个小方块，后者边长是前者的1/3,逐代繁衍，生产下图所示 -----matlab程序有错，请高手指点------------ 程序如下 ---------------------------------------------------------------- function [I]=Fractal_situoer(M,N,x0,y0,a,k) % %M,N,像素数；x0,y0,中心位置；a正方形的边长的一半,k是迭代次数 % %例子: % %Fractal_situoer(486,486,324,324,81,4); % I0=FractalExm11(M,N,x0,y0,a,k); I=zeros(M,N); x=x0-a:1:x0+a-1; y=y0-a:1:y0+a-1; I(x,y)=1; n=[-1 -1 -1 0 0 1 1 1]; m=[-1 0 1 -1 1 -1 0 1]; newa=a/3; newx0=x0+2*a.*n; newy0=y0++2*a.*m; for i=1:8 % x1=x0+2*a;y1=y0; x=newx0(i)-newa:1:newx0(i)+newa-1; y=newy0(i)-newa:1:newy0(i)+newa-1; I(x,y)=1; if k>1 I=Fractal_situoer(M,N,newx0(i),newy0(i),newa,k-1);% end end —————————————————————————————— clear all clc N=486;M=486;k=2; x0=243;y0=243;a=81; % I0=zeros(M,N); A=Fractal_situoer(M,N,x0,y0,a,k); imshow(A) -------------- 程序中不加红色标注的语句时，可产生一代，加上就以后出错了。 感觉问题出在赋值上，但绞尽脑汁没弄出来。 [ Last edited by smy1982 on 2013-4-27 at 17:15 ] |
回复此楼» 猜你喜欢
听说今天filecode变了
已经有48人回复
-
FileCode能看出啥？
已经有17人回复
-
奇怪，两个人的filecode固定段从头到尾一模一样
已经有6人回复
-
filecode
已经有9人回复
-
应该是93bebmhtak前后十一个字符比较关键
已经有23人回复
-
我的国基提前知道中了，可是同事的操作让我实在接受不了，怎么会有这样的人
已经有13人回复
-
小木虫上这么多卖论文的，真有人买论文么？感觉没必要啊
已经有6人回复
-
为什么网上很多人说本周 12号出结果
已经有5人回复
-
帮忙看看fileCode
已经有11人回复
-
基金中了
已经有15人回复
2楼2013-04-30 08:12:29
100