Mercurial > hg > octave-lyh

comparison scripts/general/isscalar.m @ 6046:34f96dd5441b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-10-10 16:10:25 by jwe]
author jwe
date Tue, 10 Oct 2006 16:10:31 +0000
parents bd39bbda9bd9
children 65a28e9de0a5
comparison
equal deleted inserted replaced
6045:421d8a903df7 6046:34f96dd5441b
28 function retval = isscalar (x) 28 function retval = isscalar (x)
29 29
30 if (nargin == 1) 30 if (nargin == 1)
31 retval = prod (size (x)) == 1; 31 retval = prod (size (x)) == 1;
32 else 32 else
33 usage ("isscalar (x)"); 33 print_usage ();
34 endif 34 endif
35 35
36 endfunction 36 endfunction