Mercurial > hg > octave-nkf
diff scripts/special-matrix/toeplitz.m @ 11587:c792872f8942
all script files: untabify and strip trailing whitespace
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Thu, 20 Jan 2011 17:35:29 -0500 |
parents | fd0a3ac60b0e |
children | 4d777e05d47c |
line wrap: on
line diff
--- a/scripts/special-matrix/toeplitz.m +++ b/scripts/special-matrix/toeplitz.m @@ -102,7 +102,7 @@ ## Form matrix. retval = spdiags(repmat(c(cidx),nr,1),1-cidx,nr,nc)+... spdiags(repmat(r(ridx),nr,1),ridx-1,nr,nc); - else + else ## Concatenate data into a single column vector. data = [r(end:-1:2)(:); c(:)];