getset.m

来自「基于粗糙集的知识约简算法和采用回归进行的知识约简表示」· M 代码 · 共 28 行

function aryset=getset(aryattr,array)
%GETSET获得
[c,r]=size(aryattr);
[c1,r1]=size(array);
m=1;
for i=1:r1
    in=isexit(array(1,i),aryattr)
    if in~=0
        aryset(:,m)=array(:,i);
        m=m+1;
    end
    i=i+1;
end

aryset(1,:)=[];


function isin=isexit(aset,a)
%
isin=0;
[c3,r3]=size(a);
for j=1:r3
    if aset==a(1,j)
        isin=1;
        return;
    end
end