Mercurial > hg > octave-nkf

comparison scripts/general/shift.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 3192d1c40195
comparison
equal deleted inserted replaced
4029:2cc57b6169cf 4030:22bd65326ec1
43 x = x.'; 43 x = x.';
44 nr = nc; 44 nr = nc;
45 nc = 0; 45 nc = 0;
46 endif 46 endif
47 47
48 if (! (is_scalar (b) && b == round (b))) 48 if (! (isscalar (b) && b == round (b)))
49 error ("shift: b must be an integer"); 49 error ("shift: b must be an integer");
50 endif 50 endif
51 51
52 if (b >= 0) 52 if (b >= 0)
53 b = rem (b, nr); 53 b = rem (b, nr);