%t1.m
%判断是否为黑
if(A(m,n)==2)%A(m,n)==2表示黑色;
fill([n-1,n,n,n-1,n-1],[m-1,m-1,m,m,m-1],'k');%若为红,就涂黑;
if(m~=M&A(m+1,n)==0)%若为黑,则上面格子涂红,以防黑横着走;
fill([n-1,n,n,n-1,n-1],[m,m,m+1,m+1,m],'r');
elseif(m~=M&n~=1&A(m,n-1)==0)%若为黑,则左面格子涂红;
fill([n-2,n-1,n-1,n-2,n-2],[m-1,m-1,m,m,m-1],'r')
elseif(n~=M&A(m,n+1)==0)%若为黑,则右面格子涂红;
fill([n,n+1,n+1,n,n],[m-1,m-1,m,m,m-1],'r')
elseif(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')
else
m=m;n=n;
end
end
%判断是否为红
if(A(m,n)==1)%A(m,n)==1表示红色;
fill([n-1,n,n,n-1,n-1],[m-1,m-1,m,m,m-1],'k');%若为红,表示空穴以进入活性区,下时刻一定变黑;
if(m~=M&A(m+1,n)==0)%红上边下时刻将变为红(前提为白);
fill([n-1,n,n,n-1,n-1],[m,m,m+1,m+1,m],'r');
elseif(n~=1&A(m,n-1)==0)%红左边下时刻将变为红;
fill([n-2,n-1,n-1,n-2,n-2],[m-1,m-1,m,m,m-1],'r')
elseif(n~=M&A(m,n+1)==0)%红右边下时刻将变为红;
fill([n,n+1,n+1,n,n],[m-1,m-1,m,m,m-1],'r')
elseif(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')
else
m=m;n=n;
end
end
%判断是否邻红
if(A(m,n)==0)%A(m,n)==0表示白色;
up;
down;
left;
right;
rightup;
rightdown;
leftup;
leftdown;
end
psbudo-eockj.rar_薄膜
版权申诉
34 浏览量
2022-07-14
16:24:30
上传
评论
收藏 3KB RAR 举报
四散
- 粉丝: 52
- 资源: 1万+