Mercurial > octave-nkf

diff scripts/special-matrix/toeplitz.m @ 10549:95c3e38098bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Untabify .m scripts
author Rik <code@nomad.inbox5.com>
date Fri, 23 Apr 2010 11:28:50 -0700
parents f0c3d3fc4903
children 3140cb7a05a1
line wrap: on
line diff
--- a/scripts/special-matrix/toeplitz.m	Fri Apr 23 11:13:48 2010 -0700
+++ b/scripts/special-matrix/toeplitz.m	Fri Apr 23 11:28:50 2010 -0700
@@ -100,7 +100,7 @@
 
     ## Form matrix.
     retval = spdiags(repmat(c(cidx),nr,1),1-cidx,nr,nc)+...
-	spdiags(repmat(r(ridx),nr,1),ridx-1,nr,nc);
+        spdiags(repmat(r(ridx),nr,1),ridx-1,nr,nc);
   else  
     ## Concatenate data into a single column vector.
     data = [r(end:-1:2)(:); c(:)];