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