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