Mercurial > hg > octave-nkf

changeset 380:568caeb70630

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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)