Mercurial > hg > octave-avbm
changeset 1016:58ce441b5426
[project @ 1995-01-06 19:18:43 by jwe]
author | jwe |
---|---|
date | Fri, 06 Jan 1995 19:18:43 +0000 |
parents | c138990b7cfe |
children | d52ca8be7d1e |
files | scripts/special-matrix/toeplitz.m |
diffstat | 1 files changed, 9 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/special-matrix/toeplitz.m +++ b/scripts/special-matrix/toeplitz.m @@ -54,6 +54,15 @@ warning ("toeplitz: column wins diagonal conflict"); endif +# If we have a single complex argument, we want to return a +# Hermitian-symmetric matrix (actually, this will really only be +# Hermitian-symmetric if the first element of the vector is real). + + if (nargin == 1) + c = conj (c); + c(1) = conj (c(1)); + endif + # This should probably be done with the colon operator... nc = length (r);