Mercurial > hg > octave-avbm
diff scripts/general/diff.m @ 4030:22bd65326ec1
[project @ 2002-08-09 18:58:13 by jwe]
author | jwe |
---|---|
date | Fri, 09 Aug 2002 19:00:16 +0000 (2002-08-09) |
parents | 38c61cbf086c |
children | b92d59213e63 |
line wrap: on
line diff
--- a/scripts/general/diff.m +++ b/scripts/general/diff.m @@ -47,7 +47,7 @@ if (nargin == 1) k = 1; elseif (nargin == 2) - if (! (is_scalar (k) && k == round (k) && k >= 0)) + if (! (isscalar (k) && k == round (k) && k >= 0)) error ("diff: k must be a nonnegative integer"); elseif (k == 0) return; @@ -58,7 +58,7 @@ if (isstr (x)) error ("diff: symbolic differentiation not (yet) supported"); - elseif (is_vector (x)) + elseif (isvector (x)) n = length (x); if (n <= k) x = []; @@ -67,7 +67,7 @@ x = x (2 : (n - i + 1)) - x (1 : (n - i)); endfor endif - elseif (is_matrix (x)) + elseif (ismatrix (x)) n = rows (x); if (n <= k) x = [];