24小时热门版块排行榜    

查看: 1583  |  回复: 10
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

痞子ppt

铜虫 (初入文坛)

[求助] 在matlab上运行,大神帮忙调试下,是搞分形模拟的DLA

function DLAmodel     %Fractal growth modeling by DLA
L = 151 ;
axis ( [ 0 L 0 L ])
set (gcf ,‘color’ ,‘w’ )   %将图形背景设置为白色
Xhalf = floor (L/ 2) + 1 ;
Yhalf = Xhalf ;
hold on
X = sparse (L , L) ;
X(xhalf , yhalf ) = 1 ; %设定 “种子” 位置
[ i , j ] = find (X) ;
plothdl = plot (i , j ,‘b’ ) ;
axis off
axis square
p = - 1 : 1 ;
Times = 15000 ; %设定随机产生粒子的个数
for count = 1 ∶Times
  sita = rand*2*pi ;   %生成一个随机点
R = floor (L/2) ;
kx = floor (Xhalf + R*cos( sita) ) ;
ky = floor ( Yhalf + R*sin( sita) ) ;
plot2 = plot (kx , ky ,‘r’ ) ;
set (plot2 ,‘marker’ ,‘d’,‘markersize’, 8)
drawnow   %动态演示随机产生粒子的运动模式
flag = 0 ;
[ i , j ] = find (X) ;
lr = lengt h (i) ;
while kx < L - 1 &ky < L - 1 &kx > 1 &ky > 1 &flag = = 0 ,
  N = sum( sum(X(kx + p , ky + p) ) ) ; %统计与随机粒子相邻的 “种子团簇” 粒子的个数
    if N > 0
     X(kx , ky) = 1 ;
     flag = 1 ;
   else
  ran = rand ;   %布朗运动控制
   if ran > 2/3
    kx = kx + 1 ;
  elseif ran < 1/3
    kx = kx - 1 ;
   end
    ran = rand ;
     if ran > 2/ 3
     ky = ky + 1 ;
    el seif ran < 1/ 3
     ky = ky - 1 ;
    end
   set (plot2 ,‘xdata’ , kx ,‘ydata’, ky) ;
   end
  end
cla ;
[ i , j ] = find (X) ;
plot (i , j ,‘b.’ )
drawnow
end
回复此楼

» 本帖已获得的红花(最新10朵)

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhangzhiguang

至尊木虫 (文坛精英)

引用回帖:
5楼: Originally posted by bihaio at 2013-06-26 20:37:06
2楼主请问你能是模拟出来嘛,报错啊它,还有就是drawnow这里它好像没用上啊?求助。。谢谢啊...

要将其中的一些量修改,我在帖子里已指出
好好学习,天天向上!
6楼2013-06-27 09:39:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 11 个回答

zhangzhiguang

至尊木虫 (文坛精英)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
csgt0: 金币+1, 谢谢 2013-05-31 11:26:53
痞子ppt: 金币+10, 有帮助 2013-06-04 08:43:23
大体问题没有,有些标点可能是你发帖的时候得问题,像''等,其中"X(xhalf , yhalf ) = 1 ; %设定 “种子” 位置"中xhalf , yhalf 中的x,y都要大写,有一些变量可能没用到,像lr,另外,while中的&是不是改为&&更好一些
好好学习,天天向上!
3楼2013-05-28 13:43:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

痞子ppt

铜虫 (初入文坛)

引用回帖:
3楼: Originally posted by zhangzhiguang at 2013-05-28 13:43:44
大体问题没有,有些标点可能是你发帖的时候得问题,像''等,其中"X(xhalf , yhalf ) = 1 ; %设定 “种子” 位置"中xhalf , yhalf 中的x,y都要大写,有一些变量可能没用到,像lr,另外,while中的&是不是 ...

谢谢哈,
4楼2013-06-04 08:44:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

bihaio

新虫 (初入文坛)

引用回帖:
3楼: Originally posted by zhangzhiguang at 2013-05-28 13:43:44
大体问题没有,有些标点可能是你发帖的时候得问题,像''等,其中"X(xhalf , yhalf ) = 1 ; %设定 “种子” 位置"中xhalf , yhalf 中的x,y都要大写,有一些变量可能没用到,像lr,另外,while中的&是不是 ...

2楼主请问你能是模拟出来嘛,报错啊它,还有就是drawnow这里它好像没用上啊?求助。。谢谢啊
5楼2013-06-26 20:37:06
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[文学芳草园] 梦想 +5 myrtle 2026-08-26 8/400 2026-09-02 02:42 by Leogzhya
[基金申请] 投票:  有多少人是今天查系统知道结果的? +17 爱看书的可乐 2026-08-26 19/950 2026-09-02 00:19 by xiangy672
[基金申请] 面上合作单位盖章 +6 ssyjh 2026-08-27 9/450 2026-09-01 20:01 by huagongfeihu
[基金申请] 面上函评意见出来了,像什么等级? 20+4 Tsingking1 2026-08-27 17/850 2026-09-01 19:51 by 超级无敌华子
[基金申请] 基金未中,这种答复是模板吗? +6 zhaosm1982 2026-08-27 7/350 2026-08-31 21:18 by qdxxmc
[基金申请] 哪位高人中了,把查询到的截图贴出来让我看看,让我长长见识 +6 yuleib84 2026-08-26 7/350 2026-08-31 19:46 by 鱼翔浅底1
[基金申请] 面上意见出来了 +12 黄鸟于飞Chao 2026-08-29 23/1150 2026-08-31 18:57 by 黄鸟于飞Chao
[基金申请] 能否申诉? +7 echo8914667 2026-08-30 8/400 2026-08-31 17:00 by yihongxu
[基金申请] 基金不中,共勉 +12 eulota 2026-08-26 12/600 2026-08-31 08:42 by ZJTJZ
[基金申请] 我就是申请一个面上项目而已,这评审意见是按照杰青的条件评的吧? +6 gouxfjh 2026-08-28 11/550 2026-08-30 07:57 by gouxfjh
[基金申请] 国自然评审意见 +13 wangmingqi 2026-08-28 19/950 2026-08-29 10:22 by Poppy1104
[基金申请] 2026年叶企孙基金 +4 bud_bud 2026-08-27 7/350 2026-08-29 07:23 by foolishmani
[基金申请] 系统查不到 +11 董八千 2026-08-26 11/550 2026-08-28 18:06 by Leogzhya
[基金申请] 怎么查啊 +6 huang1991js 2026-08-26 6/300 2026-08-28 08:42 by winsaint
[基金申请] 为什么 国际(地区)合作与交流项目 没有放榜? 10+3 majunge000 2026-08-26 11/550 2026-08-27 08:42 by 北京莱茵编辑
[基金申请] 我不理解! +15 Edward_pc 2026-08-26 23/1150 2026-08-26 20:34 by zzuzxg
[基金申请] 出来了 +9 trojank 2026-08-26 9/450 2026-08-26 14:25 by 宝贝虫子
[基金申请] 项目信息和经费信息在系统里都可以看到了 +6 wittyboy 2026-08-26 14/700 2026-08-26 10:55 by wittyboy
[基金申请] 国合可查了 +3 paperzjh 2026-08-26 3/150 2026-08-26 10:41 by LemmonTr
[基金申请] 牛来!米来!面来! +8 beefly 2026-08-26 8/400 2026-08-26 08:37 by xuzhipiao
信息提示
请填处理意见