www.gusucode.com > nnet 工具箱 matlab 源码程序 > nnet/@network/private/resizem.m
function m=resizem(m,r,c) %RESIZEM Resize matrix by truncating or adding zeros. % Copyright 2010 The MathWorks, Inc. if nargin == 1, [r,c] = size(m); end if nargin == 2, c=r(2); r=r(1); end [R,C] = size(m); if (r < R) m = m(1:r,:); elseif (r > R) m = [m; zeros(r-R,C)]; end if (c < C) m = m(:,1:c); elseif (c > C) m = [m zeros(r,c-C)]; end