Mercurial > hg > octave-nkf

diff scripts/control/system/__zp2ssg2__.m @ 6024:500d884ae373

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-10-03 14:27:33 by jwe]
author jwe
date Tue, 03 Oct 2006 14:27:34 +0000
parents 4c8a2e4e0717
children 6bbf56a9718a
line wrap: on
line diff
--- a/scripts/control/system/__zp2ssg2__.m
+++ b/scripts/control/system/__zp2ssg2__.m
@@ -40,7 +40,7 @@
     ## roundoff)
     err = abs(rvals(cidx) - r1');
     minerr = min(err);
-    c2i = min(find(err == minerr));
+    c2i = find(err == minerr, 1);
     r2i = cidx(c2i);
     r2 = rvals(r2i);
     cidx = complement(r2i,cidx);