實(shí)現(xiàn)DLA分形聚集生長的模擬

1、關(guān)于dla生長模型分類:默認(rèn)欄目2007.4.9 19:14 作者：lionking0083 | 評(píng)論：0 | 閱讀：420編程是一件漫長而痛苦的事情,尤其是不會(huì)用vb和vc的時(shí)候，有時(shí)候我真的感到很無助，要 是沒有matlab,一切真是不敢想象.dla凝聚模型DLA模型采用了在晶格原點(diǎn)上置一個(gè)初始粒子作為種子，以該點(diǎn)為圓心(原點(diǎn))，r為半徑 作一個(gè)大圓.在該圓附近隨機(jī)產(chǎn)生一個(gè)微粒在圓上作近似于Brown運(yùn)動(dòng)的隨機(jī)行走，即以 1/ 4的概率向上下左右方向行走.若微粒與種子顆粒相碰，則令其附著于種子微粒之上， 與之結(jié)合形成凝聚集團(tuán)；若微粒行走到圓的邊界或離開這個(gè)圓，令其被邊界吸收而消失， 接著再

2、隨機(jī)地產(chǎn)生第二個(gè)微粒并重復(fù)以上步驟，直至附著于凝聚集團(tuán)或被邊界吸收.如此 不斷地進(jìn)行，當(dāng)種子集團(tuán)長大到一定程度后，可以發(fā)現(xiàn)，它就形成了以種子微粒為中心的 無規(guī)分叉圖形.死傷n個(gè)腦細(xì)胞后總算搞定.function DLAmodel%Fractal growth modeling by DLAL=150;axis ( 0 L 0 L )set(gcf,color,w)%將圖形背景設(shè)置為白色 xhalf=floor(L/2)+1;yhalf=xhalf;hold onX=sparse(L,L);X(xhalf,yhalf) = 1; % 設(shè)定“種子”位置i,j=find(X);plothdl = p

3、lot(i,j,b.);axis offaxis square p=-1:1;Times=15000; %設(shè)定隨機(jī)產(chǎn)生粒子的個(gè)數(shù)for count=1:Times;sita = rand*2*pi;%生成一個(gè)隨機(jī)點(diǎn)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%動(dòng)態(tài)演示隨機(jī)產(chǎn)生粒子的運(yùn)動(dòng)模式flag=0 ;i,j=find(X);lr=length(i);while kxL-1&ky1&ky1&flag =0,N=sum(sum(X(kx+p,ky+p); %統(tǒng)計(jì)與隨機(jī)粒子相鄰的“種子團(tuán)簇”粒子的個(gè)數(shù) if N0X(kx,ky) = 1;flag = 1;elseran = rand;%布朗運(yùn)動(dòng)控制if ran2/3kx=kx+1;elseif ran2/3ky=ky+1;elseif ran1/3ky=ky-1;endset(plot2,xdata,kx,