24小时热门版块排行榜    

查看: 1650  |  回复: 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的回帖

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的回帖
查看全部 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的回帖

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的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[硕博家园] 极限拉扯,如何抉择 +7 Isak0320 2026-10-12 10/500 2026-10-12 22:38 by 大飞鱼鱼鱼
[基金申请] 入职后第一次管课题组的专利缴费,对账才发现官费比别人多掏了一倍 +6 13108017953 2026-10-08 6/300 2026-10-12 20:07 by w3w3y3
[有机交流] OpenAI又攻克数学难题了,离AI做有机合成还有多远? +4 wangyl_123 2026-10-10 8/400 2026-10-12 18:09 by wangyl_123
[教师之家] 课题组会帮你通过考核么? +3 好运来~9527 2026-10-10 6/300 2026-10-12 14:55 by 简单化xn
[公派出国] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 9/450 2026-10-11 22:34 by XQNyDCa1Tk5n
[公派出国] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 22:26 by XQNyDCa1Tk5n
[找工作] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 22:26 by XQNyDCa1Tk5n
[考博] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 9/450 2026-10-11 22:15 by XQNyDCa1Tk5n
[考博] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 22:11 by XQNyDCa1Tk5n
[教师之家] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 (EPI+-1)(金币-50) +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 22:06 by XQNyDCa1Tk5n
[教师之家] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 (EPI+-1)(金币-50) +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 14:25 by VOMexwnDzOFZ
[教师之家] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 (EPI+-1)(金币-50) +4 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 14:05 by VOMexwnDzOFZ
[考研] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 13:51 by VOMexwnDzOFZ
[硕博家园] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 13:45 by VOMexwnDzOFZ
[找工作] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +3 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 10:54 by VOMexwnDzOFZ
[找工作] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +4 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 10:34 by VOMexwnDzOFZ
[考博] 招收博士生一名 +3 mandolin 2026-10-10 3/150 2026-10-11 10:21 by 不是山谷!
[公派出国] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +4 qR2AdCWTVtkw 2026-10-09 4/200 2026-10-11 03:14 by M0zrYVSAnxpE
[有机交流] 各位大佬,路线设计求助 +6 zapen 2026-10-08 8/400 2026-10-10 15:59 by zapen
[有机交流] 我应该选哪条合成路线让实验成功率高一些? +5 jing816y 2026-10-08 9/450 2026-10-10 09:05 by zapen
信息提示
请填处理意见