Mercurial > hg > octave-lyh

changeset 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 1eb430d9a1b9
children 015bfdc88092
files scripts/ChangeLog scripts/signal/ifftshift.m
diffstat 2 files changed, 7 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,7 @@
+2010-03-21  Rik  <octave@nomad.inbox5.com>
+
+	* signal/ifftshift.m: Fix bug #32873, ifftshift fails.
+
 2010-03-19  Rik  <octave@nomad.inbox5.com>
 
 	* general/module.mk, statistics/base/module.mk: Move runlength.m
--- 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);