lookssss.m

来自「一个比较经典的小游戏」· M 代码 · 共 20 行

function [mm,nn]=lookssss(mt,nt,M,N,Zk,mm,nn,m0,n0)
dm=[-1,-1,-1,0,0,1,1,1];
dn=[-1,0,1,-1,1,-1,0,1];
mtn=mt+dm;ntn=nt+dn;
ntn(mtn<0.5|mtn>M+0.5)=[];
mtn(mtn<0.5|mtn>M+0.5)=[];
mtn(ntn<0.5|ntn>N+0.5)=[];
ntn(ntn<0.5|ntn>N+0.5)=[];
Sn=sub2ind([M,N],mtn,ntn);
L=abs((mt-m0)+(nt-n0)*i);
if sum(Zk(Sn))<0.5 && length(Sn)>3;
    mm=[mm,mtn];nn=[nn,ntn];
    for k=1:length(ntn);
        Lt=abs((mtn(k)-m0)+(ntn-n0)*i);
        if Lt>L;
            [mm,nn]=lookssss(mtn(k),ntn(k),M,N,Zk,mm,nn,m0,n0);
        end
    end
end