home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / octave-1.1.1p1-src.tgz / tar.out / fsf / octave / scripts / general / postpad.m < prev    next >
Text File  |  1996-09-28  |  834b  |  44 lines
  1. function y = postpad(x,l,c)
  2.  
  3. # postpad(x,l)
  4. # Appends zeros to the vector x until it is of length l.
  5. # postpad(x,l,c) appends the constant c instead of zero.
  6. #
  7. # If length(x) > l, elements from the end of x are removed
  8. # until a vector of length l is obtained.
  9.  
  10. # Author:
  11. #  Tony Richardson
  12. #  amr@mpl.ucsd.edu
  13. #  June 1994
  14.  
  15.   if(nargin == 2)
  16.     c = 0;
  17.   elseif(nargin<2 || nargin>3)
  18.     usage ("postpad(x,l) or postpad(x,l,c)");
  19.   endif
  20.  
  21.   if(is_matrix(x))
  22.     error("first argument must be a vector");
  23.   elseif(!is_scalar(l))
  24.     error("second argument must be a scaler");
  25.   endif
  26.  
  27.   if(l<0)
  28.     error("second argument must be non-negative");
  29.   endif
  30.  
  31.   lx = length(x);
  32.  
  33.   if(lx >= l)
  34.     y = x(1:l);
  35.   else
  36.     if(rows(x)>1)
  37.       y = [ x; c*ones(l-lx,1) ];
  38.     else
  39.       y = [ x c*ones(1,l-lx) ];
  40.     endif
  41.   endif
  42.  
  43. endfunction
  44.