Mercurial > hg > octave-lyh

comparison scripts/general/isvector.m @ 5721:bd39bbda9bd9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-03-28 14:30:03 by jwe]
author jwe
date Tue, 28 Mar 2006 14:30:03 +0000
parents 2618a0750ae6
children 34f96dd5441b
comparison
equal deleted inserted replaced
5720:067948dc39bf 5721:bd39bbda9bd9
29 29
30 retval = 0; 30 retval = 0;
31 31
32 if (nargin == 1) 32 if (nargin == 1)
33 sz = size (x); 33 sz = size (x);
34 retval = (isnumeric (x) && ndims (x) == 2 && (sz(1) == 1 || sz(2) == 1)); 34 retval = (ndims (x) == 2 && (sz(1) == 1 || sz(2) == 1));
35 else 35 else
36 usage ("isvector (x)"); 36 usage ("isvector (x)");
37 endif 37 endif
38 38
39 endfunction 39 endfunction