flzl.m

用matlab语言编的基于粗糙集理论的属性约简程序

function c=flzl(a,b,jc)%分类质量
%a是原分类，b是去掉某些属性后的分类
vylen = length(a);
vhlen = length(b);
vjclen = length(jc);
c=1;
for i=1:vylen
    xxx=0;
    zd=0;
    for j=1:vhlen
        %b{j}
        if(length(b{j})==0)
            zd = 1;
        else
            
            vxt = intersect(a{i},b{j});
            %aa=vxt
            bb=length(a{i})
         %jd = vxt/length(a{i});
            jd = length(vxt)/length(a{i});
            if(jd>zd)
              zd=jd;
            end
        end
%         if jd<0.7
%             xxx=1;
%         end
    end
  mm=zd
    if zd<=0.8%0.7%0.9
        c=0;
        break;
    end
end