Mercurial > hg > octave-nkf

diff scripts/linear-algebra/commutation_matrix.m @ 4030:22bd65326ec1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-08-09 18:58:13 by jwe]
author jwe
date Fri, 09 Aug 2002 19:00:16 +0000
parents 38c61cbf086c
children 4c8a2e4e0717
line wrap: on
line diff
--- a/scripts/linear-algebra/commutation_matrix.m
+++ b/scripts/linear-algebra/commutation_matrix.m
@@ -89,12 +89,12 @@
   if (nargin < 1 || nargin > 2)
     usage ("commutation_matrix (m, n)");
   else
-    if (! (is_scalar (m) && m == round (m) && m > 0))
+    if (! (isscalar (m) && m == round (m) && m > 0))
       error ("commutation_matrix: m must be a positive integer");
     endif
     if (nargin == 1)
       n = m;
-    elseif (! (is_scalar (n) && n == round (n) && n > 0))
+    elseif (! (isscalar (n) && n == round (n) && n > 0))
       error ("commutation_matrix: n must be a positive integer");
     endif
   endif