up.m

1． 对薄膜形成与生长中相关物理过程及现象进行分析和建模。 2． 利用蒙特卡罗（Monte Carlo）方法和分子动力学（Molecular Dynamics）方法对薄膜形成与生长过程进行计算机模拟

%up
if(m~=M&A(m+1,n)==1)%白格子上面格子为红￥1；
if(rand<0.9)%空穴进入上活性区概率为0.8；
fill([n-1,n,n,n-1,n-1],[m,m,m+1,m+1,m],'k');%下一时刻上面活性区变黑；
A(m+1,n)=2;%下一时刻黑；%重复黑周围涂红；
if(m~=M&m~=M-1&A(m+2,n)==0)%黑上涂红；
fill([n-1,n,n,n-1,n-1],[m+1,m+1,m+2,m+2,m+1],'r');
A(m+2,n)=1;
else
    m=m;
end
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(m~=M&n~=M&A(m+1,n+1)==0)%黑右涂红；
fill([n,n+1,n+1,n,n],[m,m,m+1,m+1,m],'r');
A(m+1,n+1)=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