Mercurial > hg > octave-terminal
changeset 4373:51cd16a73307
[project @ 2003-04-07 21:03:37 by jwe]
author | jwe |
---|---|
date | Mon, 07 Apr 2003 21:03:37 +0000 |
parents | fa80721998d6 |
children | 6e3ec3585cec |
files | scripts/ChangeLog scripts/control/base/__bodquist__.m |
diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/ChangeLog +++ b/scripts/ChangeLog @@ -1,3 +1,8 @@ +2003-04-07 John W. Eaton <jwe@bevo.che.wisc.edu> + + * control/base/__bodquist__.m: Don't convert pdbig and fdbig to + column vectors. + 2003-03-24 Quentin Spencer <qspencer@ieee.org> * linear-algebra/null.m: Handle empty matrix arg.
--- a/scripts/control/base/__bodquist__.m +++ b/scripts/control/base/__bodquist__.m @@ -102,12 +102,12 @@ dmag = 0.2; # desired max change in magnitude while(pcnt) pd = abs(diff(phase)); # phase variation - pdbig = vec(find(pd > dphase)); + pdbig = find(pd > dphase); lp = length(f); lp1 = lp-1; # relative variation fd = abs(diff(f)); fm = max(abs([f(1:lp1); f(2:lp)])); - fdbig = vec(find(fd > fm/10)); + fdbig = find(fd > fm/10); bigpts = union(fdbig, pdbig);