| 24小時(shí)熱門(mén)版塊排行榜 |
| 4 | 1/1 | 返回列表 |
| 查看: 1622 | 回復(fù): 3 | ||
愛(ài)笑的眼睛na金蟲(chóng) (初入文壇)
|
[求助]
隨機(jī)生長(zhǎng)法模擬多孔介質(zhì)的matlab二維代碼改寫(xiě)三維,結(jié)果出來(lái)還是二維 已有2人參與
|
|
本人根據(jù)http://www.gaoyang168.com/html/201111/3749191.html隨機(jī)生長(zhǎng)法模擬多孔介質(zhì)的二維代碼編寫(xiě)了一個(gè)三維代碼,但結(jié)果出來(lái)還是二維的,請(qǐng)求各位大神查一下錯(cuò)誤在哪兒,并給出解決的方法,謝謝啦! 代碼如下: %======設(shè)定初值============= clc;clear; rand('state',0); set(gcf,'DoubleBuffer','on');%消除振動(dòng) Cd=0.01;%生長(zhǎng)核分布概率數(shù) Vr=0.01;%生長(zhǎng)相的體積分?jǐn)?shù) global kn kn=500; p=[1/8 1/8 1/8 1/8 1/4 1/4 1/4 1/4];%方向增長(zhǎng)概率數(shù) A=rand(kn,kn);%初始網(wǎng)格kn×kn A(find(A<=Cd))=0;%黑色,生長(zhǎng)核 A(find(A>Cd))=1;%白色 m=0;%迭代步驟 N=kn*kn*kn;%格點(diǎn)數(shù) [x,y,z]=find(A==0);%生長(zhǎng)核腳標(biāo) [y1,z] = ind2sub([kn,kn],y); Ixy1z = sub2ind([kn,kn,kn],x,y1,z); gn=length(Ixy1z);%生長(zhǎng)核計(jì)數(shù) Vs=gn/N %體積分?jǐn)?shù) %=========================== while Vs<0.001 xW=x-1;xE=x+1; xW(xW==0)=1;% 對(duì)近鄰進(jìn)行邊界條件處理 xE(xE==kn+1)=kn;% 對(duì)近鄰進(jìn)行邊界條件處理 y1N=y1-1;y1S=y1+1; y1N(y1N==0)=1;% 對(duì)近鄰進(jìn)行邊界條件處理 y1S(y1S==kn+1)=kn;% 對(duì)近鄰進(jìn)行邊界條件處理 zB=z-1;zT=z+1; zB(zB==0)=1;% 對(duì)近鄰進(jìn)行邊界條件處理 zT(zT==kn+1)=kn;% 對(duì)近鄰進(jìn)行邊界條件處理 InE=sub2ind([kn,kn],xE,z); % 右方轉(zhuǎn)化腳標(biāo)為索引 InB=sub2ind([kn,kn],x,zB); % 下方轉(zhuǎn)化腳標(biāo)為索引 InW=sub2ind([kn,kn],xW,z); % 左方轉(zhuǎn)化腳標(biāo)為索引 InT=sub2ind([kn,kn],x,zT); % 上方轉(zhuǎn)化腳標(biāo)為索引 InS=sub2ind([kn,kn],x,y1N); % 下方轉(zhuǎn)化腳標(biāo)為索引 InN=sub2ind([kn,kn],x,y1S); % 上方轉(zhuǎn)化腳標(biāo)為索引 InET=sub2ind([kn,kn],xE,zT); % 右上方轉(zhuǎn)化腳標(biāo)為索引 InEB=sub2ind([kn,kn],xE,zB); % 右下方轉(zhuǎn)化腳標(biāo)為索引 InWB=sub2ind([kn,kn],xW,zB); % 左下方轉(zhuǎn)化腳標(biāo)為索引 InWT=sub2ind([kn,kn],xW,zT); % 左上方轉(zhuǎn)化腳標(biāo)為索引 InEN=sub2ind([kn,kn],xE,y1N); % 右上方轉(zhuǎn)化腳標(biāo)為索引 InES=sub2ind([kn,kn],xE,y1S); % 右下方轉(zhuǎn)化腳標(biāo)為索引 InWS=sub2ind([kn,kn],xW,y1S); % 左下方轉(zhuǎn)化腳標(biāo)為索引 InWN=sub2ind([kn,kn],xW,y1N); % 左上方轉(zhuǎn)化腳標(biāo)為索引 InTS=sub2ind([kn,kn],y1S,zT); % 右上方轉(zhuǎn)化腳標(biāo)為索引 InBS=sub2ind([kn,kn],y1S,zB); % 右下方轉(zhuǎn)化腳標(biāo)為索引 InBN=sub2ind([kn,kn],y1N,zB); % 左下方轉(zhuǎn)化腳標(biāo)為索引 InTN=sub2ind([kn,kn],y1N,zT); % 左上方轉(zhuǎn)化腳標(biāo)為索引 %==========做圖======== CInE=setdiff(InE,Ixy1z); En=rand(1,length(CInE));[i,j,k]=find(En<=p(5));pE=sub2ind([1,length(CInE)],i,j,k); A(CInE(pE))=0; [x,y1,z]=find(A==0); Ixy1z=sub2ind([kn,kn,kn],x,y1,z); CInT= setdiff(InT,Ixy1z);Tn=rand(1,length(CInT));[i,j,k]=find(Tn<=p(6));pT=sub2ind([1,length(CInT)],i,j,k); A(CInT(pT))=0; [x,y1,z]=find(A==0); Ixy1z=sub2ind([kn,kn,kn],x,y1,z); CInW=setdiff(InW,Ixy1z);Wn=rand(1,length(CInW));[i,j,k]=find(Wn<=p(7));pW=sub2ind([1,length(CInW)],i,j,k); A(CInW(pW))=0; [x,y1,z]=find(A==0); Ixy1z=sub2ind([kn,kn,kn],x,y1,z); CInB=setdiff(InB,Ixy1z);Bn=rand(1,length(CInB));[i,j,k]=find(Bn<=p(8));pB=sub2ind([1,length(CInB)],i,j,k); A(CInB(pB))=0; [x,y1,z]=find(A==0); Ixy1z=sub2ind([kn,kn,kn],x,y1,z); CInEB=setdiff(InEB,Ixy1z);EBn=rand(1,length(CInEB));[i,j,k]=find(EBn<=p(8));pEB=sub2ind([1,length(CInEB)],i,j,k); A(CInEB(pEB))=0; [x,y1,z]=find(A==0); Ixy1z=sub2ind([kn,kn,kn],x,y1,z); CInET=setdiff(InET,Ixy1z);ETn=rand(1,length(CInET));[i,j,k]=find(ETn<=p(8));pET=sub2ind([1,length(CInET)],i,j,k); A(CInET(pET))=0; [x,y1,z]=find(A==0); Ixy1z=sub2ind([kn,kn,kn],x,y1,z); CInWT=setdiff(InWT,Ixy1z);WTn=rand(1,length(CInWT));[i,j,k]=find(WTn<=p(8));pWT=sub2ind([1,length(CInWT)],i,j,k); A(CInWT(pWT))=0; [x,y1,z]=find(A==0); Ixy1z=sub2ind([kn,kn,kn],x,y1,z); CInWB=setdiff(InWB,Ixy1z);WBn=rand(1,length(CInWB));[i,j,k]=find(WBn<=p(8));pWB=sub2ind([1,length(CInWB)],i,j,k); A(CInWB(pWB))=0; [x,y1,z]=find(A==0); Ixy1z=sub2ind([kn,kn,kn],x,y1,z); CInS= setdiff(InS,Ixy1z);Sn=rand(1,length(CInS));[i,j,k]=find(Sn<=p(5));pS=sub2ind([1,length(CInS)],i,j,k); A(CInS(pS))=0; [x,y1,z]=find(A==0); Ixy1z=sub2ind([kn,kn,kn],x,y1,z); CInN=setdiff(InN,Ixy1z);Nn=rand(1,length(CInN));[i,j,k]=find(Nn<=p(8));pN=sub2ind([1,length(CInN)],i,j,k); A(CInN(pN))=0; [x,y1,z]=find(A==0); Ixy1z=sub2ind([kn,kn,kn],x,y1,z); CInEN=setdiff(InEN,Ixy1z);ENn=rand(1,length(CInEN));[i,j,k]=find(ENn<=p(8));pEN=sub2ind([1,length(CInEN)],i,j,k); A(CInEN(pEN))=0; [x,y1,z]=find(A==0); Ixy1z=sub2ind([kn,kn,kn],x,y1,z); CInES=setdiff(InES,Ixy1z);ESn=rand(1,length(CInES));[i,j,k]=find(ESn<=p(8));pES=sub2ind([1,length(CInES)],i,j,k); A(CInES(pES))=0; [x,y1,z]=find(A==0); Ixy1z=sub2ind([kn,kn,kn],x,y1,z); CInWS=setdiff(InWS,Ixy1z);WSn=rand(1,length(CInWS));[i,j,k]=find(WSn<=p(8));pWS=sub2ind([1,length(CInWS)],i,j,k); A(CInWS(pWS))=0; [x,y1,z]=find(A==0); Ixy1z=sub2ind([kn,kn,kn],x,y1,z); CInWN=setdiff(InWN,Ixy1z);WNn=rand(1,length(CInWN));[i,j,k]=find(WNn<=p(8));pWN=sub2ind([1,length(CInWN)],i,j,k); A(CInWN(pWN))=0; [x,y1,z]=find(A==0); Ixy1z=sub2ind([kn,kn,kn],x,y1,z); CInTS=setdiff(InTS,Ixy1z); TSn=rand(1,length(CInTS));[i,j,k]=find(TSn<=p(8));pTS=sub2ind([1,length(CInTS)],i,j,k); A(CInTS (pTS))=0; [x,y1,z]=find(A==0); Ixy1z=sub2ind([kn,kn,kn],x,y1,z); CInBS=setdiff(InBS,Ixy1z);BSn=rand(1,length(CInBS));[i,j,k]=find(BSn<=p(8));pBS=sub2ind([1,length(CInBS)],i,j,k); A(CInBS(pBS))=0; [x,y1,z]=find(A==0); Ixy1z=sub2ind([kn,kn,kn],x,y1,z); CInBN=setdiff(InBN,Ixy1z); BNn=rand(1,length(CInBN));[i,j,k]=find(BNn<=p(8));pBN=sub2ind([1,length(CInBN)],i, j,k); A(CInBN (pBN))=0; [x,y1,z]=find(A==0); Ixy1z=sub2ind([kn,kn,kn],x,y1,z); CInTN=setdiff(InTN,Ixy1z); TNn=rand(1,length(CInTN));[i,j,k]=find(TNn<=p(8));pTN=sub2ind([1,length(CInTN)],i, j,k); A(CInTN (pTN))=0; [x,y1,z]=find(A==0); Ixy1z=sub2ind([kn,kn,kn],x,y1,z); [x,y1,z]=find(A==0); Ixy1z=sub2ind([kn,kn,kn],x,y1,z); gn=length(Ixy1z); Vs=gn/N %體積分?jǐn)?shù) m=m+1 pause(0.1) imshow(A,'InitialMagnification','fit')%更新圖像 title('time=','Fontsize',14,'Fontname','Times new roman'); % 更新時(shí)間參數(shù) end |
新蟲(chóng) (初入文壇)
新蟲(chóng) (初入文壇)
新蟲(chóng) (初入文壇)
| 4 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 328求調(diào)劑,英語(yǔ)六級(jí)551,有科研經(jīng)歷 +3 | 生物工程調(diào)劑 2026-03-17 | 7/350 |
|
|---|---|---|---|---|
|
[教師之家] 焦慮 +8 | 水冰月月野兔 2026-03-13 | 12/600 |
|
|
[考研] 0817 化學(xué)工程 299分求調(diào)劑 有科研經(jīng)歷 有二區(qū)文章 +7 | rare12345 2026-03-18 | 7/350 |
|
|
[考研] 085601材料工程專(zhuān)碩求調(diào)劑 +6 | 慕寒mio 2026-03-16 | 6/300 |
|
|
[考研] 工科材料085601 279求調(diào)劑 +6 | 困于星晨 2026-03-17 | 6/300 |
|
|
[考研] 環(huán)境工程調(diào)劑 +8 | 大可digkids 2026-03-16 | 8/400 |
|
|
[考研] 265求調(diào)劑 +3 | 梁梁校校 2026-03-17 | 3/150 |
|
|
[考研] 296求調(diào)劑 +5 | 大口吃飯 身體健 2026-03-13 | 5/250 |
|
|
[考研] 268求調(diào)劑 +8 | 一定有學(xué)上- 2026-03-14 | 9/450 |
|
|
[考研] 材料專(zhuān)碩326求調(diào)劑 +6 | 墨煜姒莘 2026-03-15 | 7/350 |
|
|
[考研] 085601求調(diào)劑 +4 | Du.11 2026-03-16 | 4/200 |
|
|
[考研] 梁成偉老師課題組歡迎你的加入 +8 | 一鴨鴨喲 2026-03-14 | 10/500 |
|
|
[考研] 285化工學(xué)碩求調(diào)劑(081700) +9 | 柴郡貓_ 2026-03-12 | 9/450 |
|
|
[考研] 東南大學(xué)364求調(diào)劑 +5 | JasonYuiui 2026-03-15 | 5/250 |
|
|
[考研] 283求調(diào)劑 +10 | 小樓。 2026-03-12 | 14/700 |
|
|
[考研] 070305求調(diào)劑 +3 | mlpqaz03 2026-03-14 | 4/200 |
|
|
[考研] 289求調(diào)劑 +4 | 這么名字咋樣 2026-03-14 | 6/300 |
|
|
[考研] 330求調(diào)劑 +3 | ?醬給調(diào)劑跪了 2026-03-13 | 3/150 |
|
|
[考研] 266求調(diào)劑 +4 | 學(xué)員97LZgn 2026-03-13 | 4/200 |
|
|
[考研] 295求調(diào)劑 +3 | 小匕仔汁 2026-03-12 | 3/150 |
|