Mercurial > octave
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 Fri Jan 06 19:07:07 1995 +0000 +++ b/scripts/special-matrix/toeplitz.m Fri Jan 06 19:18:43 1995 +0000 @@ -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);