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;