reductwithattr.m

来自「信息系统的盲目删除属性约简算法」· M 代码 · 共 37 行

function opt=reductwithattr(arrayre)
%求出信息系统的一个约简
%鲁东大学张小峰
%QQ:250129131
%E_mail: [e-mail]
%开发日期:2005-03-21

array=arrayre
[c,r]=size(array)

indo=indwithattr(array)%总属性的不可分辨关系
[c1,r1]=size(indo)
i=r

while i>=1
    temparr=arraydelcr(array,i,1)
    indt=indwithattr(temparr)
    
    [c2,r2]=size(indt)
    if c1==c2 & r1==r2 
        if indt==indo
            array=arraydelcr(array,i,1)
            [c,r]=size(array)
            i=r
        end
    else
        i=i-1
    end
end

opt=array(1,:)
opt=columnzero(opt)