indpre.m

来自「工具箱 (粗糙集数据分析工具箱) matla 中使用」· M 代码 · 共 21 行

function [w,y]=indpre(a,x)
[p,q]=size(x);
[ap,aq]=size(a);
z=[];
for u=1:q
    z=cat(2,z,u);
end
tt=setdiff(z,a);
[ttp,ttq]=size(tt);
for r=ttq:-1:1
    x(:,tt(r))=[-1];
end
for r=q:-1:1
    if x(1,r)==-1;
        x(:,r)=[];
    end
end
%    y=x;
 y=x;
w=aq;