rowzero0.m

基于粗糙集的知识约简算法和采用回归进行的知识约简表示

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

%

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