Mercurial > hg > octave-nkf
diff scripts/signal/fftshift.m @ 7208:a730e47fda4d
[project @ 2007-11-28 02:32:41 by jwe]
author | jwe |
---|---|
date | Wed, 28 Nov 2007 02:32:42 +0000 |
parents | a1dbe9d80eee |
children | cadc73247d65 |
line wrap: on
line diff
--- a/scripts/signal/fftshift.m +++ b/scripts/signal/fftshift.m @@ -60,9 +60,9 @@ sz2 = ceil (sz(dim) / 2); idx = cell (); for i=1:nd - idx {i} = 1:sz(i); + idx{i} = 1:sz(i); endfor - idx {dim} = [sz2+1:sz(dim), 1:sz2]; + idx{dim} = [sz2+1:sz(dim), 1:sz2]; retval = V (idx{:}); else if (isvector (V))