Mercurial > hg > octave-nkf
diff scripts/polynomial/residue.m @ 11587:c792872f8942
all script files: untabify and strip trailing whitespace
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Thu, 20 Jan 2011 17:35:29 -0500 |
parents | fd0a3ac60b0e |
children | 435d1b905e31 |
line wrap: on
line diff
--- a/scripts/polynomial/residue.m +++ b/scripts/polynomial/residue.m @@ -196,7 +196,7 @@ p = p (indx); ## For each group of pole multiplicity, set the value of each - ## pole to the average of the group. This reduces the error in + ## pole to the average of the group. This reduces the error in ## the resulting poles. p_group = cumsum (e == 1); @@ -284,7 +284,7 @@ if (nargin < 3) k = []; endif - + if numel (e) indx = 1:numel(p); else