Mercurial > octave-nkf

comparison scripts/polynomial/mpoles.m @ 6998:cc049a392a97

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-10-10 16:51:51 by jwe]
author jwe
date Wed, 10 Oct 2007 16:53:23 +0000
parents 33f20a41aeea
children 93c65f2a5668
comparison
equal deleted inserted replaced
6997:6d0d8d621532 6998:cc049a392a97
105 multp(k) = m; 105 multp(k) = m;
106 indx = [indx; k]; 106 indx = [indx; k];
107 n = find (multp == 0, 1); 107 n = find (multp == 0, 1);
108 endwhile 108 endwhile
109 multp = multp(indx); 109 multp = multp(indx);
110 indx = indx(ordr); 110 indx = ordr(indx);
111 111
112 endfunction 112 endfunction