Mercurial > hg > octave-lyh

diff scripts/general/isscalar.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
line wrap: on
line diff
--- a/scripts/general/isscalar.m
+++ b/scripts/general/isscalar.m
@@ -27,13 +27,8 @@
 
 function retval = isscalar (x)
 
-  retval = 0;
-
   if (nargin == 1)
-    if (ismatrix (x))
-      [nr, nc] = size (x);
-      retval = (nr == 1 && nc == 1);
-    endif
+    retval = prod (size (x)) == 1;
   else
     usage ("isscalar (x)");
   endif