left.m

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

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