Mercurial > hg > octave-lyh

changeset 5670:14313620a2c6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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.