columnzero.m

信息系统的盲目删除属性约简算法

function ary=columnzero(array)
% 如果在信息表array中如果某一行的值全为0,则删除此行
% 应用于信息系统,而非决策系统
% 鲁东大学张小峰编制,
% 为了保证本软件代码的共享性,如果您要修改,请注明修改日期和修改者,谢谢您的合作
% QQ:250129131 [e-mail]

ary=array;
[c,r]=size(ary);
i=1;
while i<=c

%     flat=0;如果此行中的所有元素均为0,则为0;否则为1;
%     j=1;
%     while j<=r
%         if ary(i,j)~=0
%             flat=1;
%         end
%         j=j+1;
%     end
%     if flat==0
    if length(find(ary(i,:)==0))==r
        ary=arraydelcr(ary,i,0);
        c=c-1;
    else
        i=i+1;
    end
end