Mercurial > hg > octave-nkf

comparison scripts/general/shift.m @ 3263:7d80b56e0dc8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1999-08-20 19:10:09 by jwe]
author jwe
date Fri, 20 Aug 1999 19:12:29 +0000
parents 041ea33fbbf4
children f37ca3017116
comparison
equal deleted inserted replaced
3262:eaa639880b51 3263:7d80b56e0dc8
50 t1 = x (nr-b+1:nr, :); 50 t1 = x (nr-b+1:nr, :);
51 t2 = x (1:nr-b, :); 51 t2 = x (1:nr-b, :);
52 y = [t1; t2]; 52 y = [t1; t2];
53 elseif (b < 0) 53 elseif (b < 0)
54 b = rem (abs (b), nr); 54 b = rem (abs (b), nr);
55 t1 = x (b+1:nr, :) 55 t1 = x (b+1:nr, :);
56 t2 = x (1:b, :); 56 t2 = x (1:b, :);
57 y = [t1; t2]; 57 y = [t1; t2];
58 endif 58 endif
59 59
60 if (nc == 0) 60 if (nc == 0)