indbk.m

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

function y=ind(a,x)
[p,q]=size(x);
[ap,aq]=size(a);
z=[];
for u=1:q
    z=cat(2,z,u);
end
tt=setdiff(z,a);
[ttp,ttq]=size(tt);
for r=ttq:-1:1
    x(:,tt(r))=[-1];
end
for r=q:-1:1
    if x(1,r)==-1;
        x(:,r)=[];
    end
end
   y=x;
    
for i=1:p
 v(i)=code(aq,y(i,:),10);
end 
y=v';
[yy,I]=sort(y); 
y=[yy I];
[b,k,l]=unique(yy);
y=[l I];

m=max(l);
for ii=1:m
       s1{ii}=[];
end
%s=cell2struct(c,f,2);
for ii=1:m
    for j=1:p
       if l(j)==ii
           s1{ii}={strcat(s1{ii},int2str(I(j)),',')};
       end
   end
end
y=s1;