Mercurial > hg > octave-nkf
changeset 5670:14313620a2c6
[project @ 2006-03-15 19:56:29 by jwe]
author | jwe |
---|---|
date | Wed, 15 Mar 2006 19:56:29 +0000 |
parents | 602d084346b2 |
children | 387dd5b34757 |
files | scripts/ChangeLog scripts/polynomial/residue.m |
diffstat | 2 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/ChangeLog +++ b/scripts/ChangeLog @@ -1,3 +1,7 @@ +2006-03-15 John W. Eaton <jwe@octave.org> + + * polynomial/residue.m: Use & instead of && to generate arg for find. + 2006-03-14 Keith Goodman <kwgoodman@gmail.com> * strings/bin2dec.m: Doc fix.
--- a/scripts/polynomial/residue.m +++ b/scripts/polynomial/residue.m @@ -210,7 +210,7 @@ ## Determine if the poles are (effectively) real. - index = (abs (p) >= toler && (abs (imag (p)) ./ abs (p) < toler)); + index = (abs (p) >= toler & (abs (imag (p)) ./ abs (p) < toler)); p(index) = real (p(index)); ## Find the direct term if there is one. @@ -229,7 +229,6 @@ return; endif - ## We need to determine the number and multiplicity of the roots. ## ## D is the number of distinct roots.