gusucode.com > 《模式识别与智能计算》matlab源代码 > 《模式识别与智能计算》matlab源代码/《模式识别与智能计算》部分函数的源程序/书程序/第8章/delrow.m
function y=delrow(varargin) x=varargin{1}; alpha=varargin{2}; type=varargin{3}; [r1,c1]=size(x); switch type case 'r' m=[]; for i=1:r1 if x(i,:)==alpha(1) m=[m i]; end end y=f(x,m,'r'); case 'c' m=[]; for i=1:c1 if x(:,i)==alpha(1) m=[m i]; end end y=f(x,m,'c'); case 'nc' y=f(x,alpha,'c'); case 'nr' y=f(x,alpha,'r'); end function y=f(varargin) y=varargin{1};m=varargin{2};type=varargin{3}; temp=0; switch type case 'c' for i=1:length(m) y(:,m(i)-temp)=[]; temp=temp+1; end case 'r' for i=1:length(m) y(m(i)-temp,:)=[]; temp=temp+1; end end