Mercurial > hg > octave-nkf
changeset 3194:bea685644090
[project @ 1998-10-28 17:51:09 by jwe]
author | jwe |
---|---|
date | Wed, 28 Oct 1998 17:51:09 +0000 |
parents | 973954fc757e |
children | 7a5a5da64756 |
files | scripts/general/length.m |
diffstat | 1 files changed, 0 insertions(+), 36 deletions(-) [+] |
line wrap: on
line diff
deleted file mode 100644 --- a/scripts/general/length.m +++ /dev/null @@ -1,36 +0,0 @@ -## Copyright (C) 1996, 1997 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. - -## usage: length (x) -## -## Return the number of rows or columns, whichever is greater. -## -## See also: size, rows, columns, is_scalar, is_vector, is_matrix - -## Author: jwe - -function len = length (x) - - if (nargin != 1) - usage ("length (x)"); - endif - - len = max (size (x)); - -endfunction