Mercurial > octave
diff scripts/general/postpad.m @ 2303:5cffc4b8de57
[project @ 1996-06-24 09:15:24 by jwe]
author | jwe |
---|---|
date | Mon, 24 Jun 1996 09:15:24 +0000 |
parents | 52a3f38cbfeb |
children | 2b5788792cad |
line wrap: on
line diff
--- a/scripts/general/postpad.m Mon Jun 24 08:12:01 1996 +0000 +++ b/scripts/general/postpad.m Mon Jun 24 09:15:24 1996 +0000 @@ -1,17 +1,36 @@ +### Copyright (C) 1996 John W. Eaton +### +### This file is part of Octave. +### +### Octave is free software; you can redistribute it and/or modify it +### under the terms of the GNU General Public License as published by +### the Free Software Foundation; either version 2, or (at your option) +### any later version. +### +### Octave is distributed in the hope that it will be useful, but +### WITHOUT ANY WARRANTY; without even the implied warranty of +### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +### General Public License for more details. +### +### You should have received a copy of the GNU General Public License +### along with Octave; see the file COPYING. If not, write to the Free +### Software Foundation, 59 Temple Place - Suite 330, Boston, MA +### 02111-1307, USA. + function y = postpad (x, l, c) -# postpad (x, l) -# -# Appends zeros to the vector x until it is of length l. -# postpad (x, l, c) appends the constant c instead of zero. -# -# If length (x) > l, elements from the end of x are removed -# until a vector of length l is obtained. + ## postpad (x, l) + ## + ## Appends zeros to the vector x until it is of length l. + ## postpad (x, l, c) appends the constant c instead of zero. + ## + ## If length (x) > l, elements from the end of x are removed + ## until a vector of length l is obtained. -# Author: -# Tony Richardson -# amr@mpl.ucsd.edu -# June 1994 + ## Author: + ## Tony Richardson + ## amr@mpl.ucsd.edu + ## June 1994 if (nargin == 2) c = 0;