arraydelcr.m

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

function opt=arraydelcr(array,crnum,type)
% 删除矩阵的行或列,如果type=0则删除的是行,否则删除的是列;
% 鲁东大学张小峰编制,
% 为了保证本软件代码的共享性,如果您要修改,请注明修改日期和修改者,谢谢您的合作
% QQ:250129131 [e-mail]

% 参数说明;
% 第一个参数为要操作的矩阵;
% 第二个参数为要删除的行号或列号;
% 第三个参数为删除行或列的说明,如果为0则是删除行,如果为1则是删除列;
% 函数应用方法说明:arraydelcr(array,3,0);
[c,r]=size(array);
if type==0
    if crnum>c
        msgbox('数据错误,行号超过该矩阵的总行数!');
    else
        opt=array;
        opt(crnum,:)=[];
    end
end
%         if crnum==1
%             opt=array(2:c,:);
%         end
%         if crnum==c
%             opt=array(1:(c-1),:);
%         end
%         if 1<crnum<c
%             for i=1:(crnum-1)
%                 opt(i,:)=array(i,:);
%             end
%             for i=(crnum+1):c
%                 opt(i-1,:)=array(i,:);
%             end
%         end
if type==1
    if crnum>r
        msgbox('数据错误,列号超过了该矩阵的总列数');
    else
        opt=array;
        opt(:,crnum)=[];
    end
end
%         if crnum==1
%             opt=array(:,2:r);
%         end
%         if crnum==r
%             opt=array(:,1:(r-1));
%         end
%         if 1<crnum<r
%             for i=1:(crnum-1)
%                 opt(:,i)=array(:,i);
%             end
%             for i=(crnum+1):r
%                 opt(:,i-1)=array(:,i);
%             end
%         end