rowzero.m

来自「基于粗糙集的知识约简算法和采用回归进行的知识约简表示」· M 代码 · 共 32 行

function [ary,aryattr]=rowzero(array)
% 如果在信息表array中如果某一列的值全为0,则删除此列

%
array(1,:)=[];
ary=array;
[c,r]=size(ary);
i=1;
j=1;
while i<=r
    if length(find(ary(:,i)==0))==c        
        i=i+1;
    else
        aryattr(j)=i;
        j=j+1;
        i=i+1;
    end
end

%获得01矩阵

ary=array;
[c,r]=size(ary);
k=1;
while k<=r
    if length(find(ary(:,k)==0))==c
        ary(:,k)=[];
        r=r-1;
    else
        k=k+1;
    end
end