rightdown.m

来自「1． 对薄膜形成与生长中相关物理过程及现象进行分析和建模。 2． 利用蒙特卡罗」· M 代码 · 共 33 行

%rightdown
if(m~=1&n~=M&A(m-1,n+1)==1)%白格子右下脚边的是红格子；
if(rand<0.025)
fill([n,n+1,n+1,n,n],[m-2,m-2,m-1,m-1,m-2],'k');
A(m-1,n+1)=2;
if(n~=M&A(m,n+1)==0)%上；
fill([n,n+1,n+1,n,n],[m-1,m-1,m,m,m-1],'r');
A(m,n+1)=1;
else
    m=m;
end
if(m~=1&A(m-1,n)==0)%左；
fill([n-1,n,n,n-1,n-1],[m-2,m-2,m-1,m-1,m-2],'r');
A(m-1,n)=1;
else
    m=m;
end
if(m~=1&n~=M&n~=M-1&A(m-1,n+2)==0)%右；
fill([n+1,n+2,n+2,n+1,n+1],[m-2,m-2,m-1,m-1,m-2],'r');
A(m-1,n+2)=1;
else
    m=m;
end
if(m~=1&m~=2&n~=M&A(m-2,n+1)==0)%下；
fill([n,n+1,n+1,n,n],[m-3,m-3,m-2,m-2,m-3],'r');
A(m-2,n+1)=1;
else
    m=m;
end
else
    move;
end
end