corewithattrds.m

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

function opt=corewithattrds(condition1,decision)
%求出决策信息系统的一个约简
% 鲁东大学张小峰编制,
% 为了保证本软件代码的共享性,如果您要修改,请注明修改日期和修改者,谢谢您的合作
% QQ:250129131 [e-mail]

condition=condition1;
[c,r]=size(condition);

poso=poswithattr(condition,decision);
[c1,r1]=size(poso);

for i=1:r
    flat(i)=1
end

for i=1:r
    tempcon=arraydelcr(condition,i,1);
    post=poswithattr(tempcon,decision);
    
    [c2,r2]=size(post);
    
    if c1==c2 & r1==r2 
        if post==poso
            flat(i)=0;    
        end
    end
end

j=1
for i=1:r
    if flat(i)==1
        opt(j)=i;
        j=j+1;
    end
end