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

    function y=del_zeros(x,type)  
if nargin<2
    type=1;
end
switch type
    case 1
        while ~isempty(find(all(x,2)==0))
           a=find(all(x,2)==0);
           x(a(1),:)=[];
        end
    case 2
        while ~isempty(find(any(x,1)==0))
          a=find(any(x,1)==0);
          x(:,a(1))=[];
        end
end
y=x;