Mercurial > hg > octave-avbm
changeset 380:568caeb70630
[project @ 1994-03-09 00:06:51 by jwe]
author | jwe |
---|---|
date | Wed, 09 Mar 1994 00:06:51 +0000 |
parents | 80b85cc1c082 |
children | 3dc943e34d9a |
files | scripts/linear-algebra/norm.m |
diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/linear-algebra/norm.m +++ b/scripts/linear-algebra/norm.m @@ -1,4 +1,4 @@ -# Copyright (C) 1993 John W. Eaton +# Copyright (C) 1993, 1994 John W. Eaton # # This file is part of Octave. # @@ -47,6 +47,11 @@ error ("usage: norm (x [, p])") endif + if (isempty (x)) + retval = []; + return; + endif + # Do we have a vector or matrix as the first argument? if (rows (x) == 1 || columns (x) == 1)