gusucode.com > 《模式识别与智能计算》matlab源代码 > 《模式识别与智能计算》matlab源代码/《模式识别与智能计算》部分函数的源程序/书程序/第8章/consistent.m

    function varargout=consistent(x1,x2)  

y1=equvalue(x1);
r=length(y1);
for i=1:r
    r1=size(y1{i},1);  
    if r1==1
       y2{i}=[];
    else
      a=y1{i}(1,end);  
      a=x2(a);        
      for j=2:r1
        b=y1{i}(j,end);
        b=x2(b);
        y2{i}=[];
          if a==b    
            y2{i}=[];
           else
             y2{i}=[y2{i};0 j];  
          end
      end
    end
end
  m=[];
  for i=1:length(y2)
   if ~isempty(y2{i})
    m=[m i];
   end
  end
  if isempty(m) 
     varargout={1};
  else
    y=0;
    y3=cell(1,length(m));
    for i=1:length(m)
     y3{i}=y2{m(i)};
    end
    varargout={y,y3};
  end