24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

痞子ppt

铜虫 (初入文坛)

应助: 0 (幼儿园)
金币: 419.8
红花: 2
帖子: 31
在线: 21.9小时
虫号: 2065930
注册: 2012-10-16
性别: GG
专业: 理论和计算化学

[求助] 在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

回复此楼

1楼2013-04-21 08:04:29

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

zhangzhiguang

至尊木虫 (文坛精英)

应助: 121 (高中生)
金币: 53088.8
红花: 24
沙发: 222
帖子: 26519
在线: 881.4小时
虫号: 492270
注册: 2008-01-08
性别: GG
专业: 基础物理学

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
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的回帖

查看全部 11 个回答

痞子ppt

铜虫 (初入文坛)

应助: 0 (幼儿园)
金币: 419.8
红花: 2
帖子: 31
在线: 21.9小时
虫号: 2065930
注册: 2012-10-16
性别: GG
专业: 理论和计算化学

引用回帖:

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

谢谢哈，