creatk.m

来自「根据路线查找规律」· M 代码 · 共 21 行

function E=creatk(st,row,col,ma)
[h,l]=size(ma);
Er=length(row);
Ecn=min(col);
E=zeros(Er,l-Ecn);
for i=1:Er
    for j=1:l-Ecn
    E(i,1:l-Ecn)=ma(row(i),Ecn+1:l);
    end
end
for i=1:Er
    for j=1:l-Ecn    
        if isequal(E(i,j),st)==1
        E(i,j)=0;
    end
    end
end
E