Mercurial > hg > octave-lyh

diff scripts/general/isvector.m @ 5388:7099eb9841b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-06-14 20:04:31 by jwe]
author jwe
date Tue, 14 Jun 2005 20:04:31 +0000
parents 4c8a2e4e0717
children ff40c78cebf0
line wrap: on
line diff
--- a/scripts/general/isvector.m
+++ b/scripts/general/isvector.m
@@ -31,10 +31,7 @@
   retval = 0;
 
   if (nargin == 1)
-    if (ismatrix (x))
-      [nr, nc] = size (x);
-      retval = ((nr == 1 && nc >= 1) || (nc == 1 && nr >= 1));
-    endif
+    retval = (ismatrix (x) && ! isempty (x) && prod (size (x)) == length (x));
   else
     usage ("isvector (x)");
   endif