Mercurial > hg > octave-nkf

diff scripts/signal/ifftshift.m @ 12536:7d9dbe4c803b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix bug #32873, ifftshift fails.
author Rik <octave@nomad.inbox5.com>
date Mon, 21 Mar 2011 14:26:09 -0700
parents c792872f8942
children dd2c70b30f28
line wrap: on
line diff
--- a/scripts/signal/ifftshift.m
+++ b/scripts/signal/ifftshift.m
@@ -53,9 +53,9 @@
     retval = x(idx{:});
   else
     if (isvector (x))
-      x = length (x);
-      xx = floor (x/2);
-      retval = x([xx+1:x, 1:xx]);
+      xl = length (x);
+      xx = floor (xl/2);
+      retval = x([xx+1:xl, 1:xx]);
     elseif (ismatrix (x))
       nd = ndims (x);
       sz = size (x);