supc.m

工具箱 (粗糙集数据分析工具箱) matla 中使用

function b=supc(c,x)
[pm,pn]=size(c);
%x=cat(2,x,0);
b=[];
d=[0];
for i=1:pm
    [q,w]=size(intersect(c(i,:),x));
    if w~=0
      b=cat(2,b,c(i,:));
   end
end
bb=unique(b);
b=setdiff(bb,0);