Mercurial > forge

changeset 9534:4fc9a1f5372c octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
control: replace obsolete polyderiv by polyder (thanks to jpicarbajal)
author paramaniac
date Tue, 28 Feb 2012 15:45:12 +0000
parents 9e0034f84724
children 82af9325dfd2
files main/control/inst/rlocus.m
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/main/control/inst/rlocus.m	Tue Feb 28 15:02:17 2012 +0000
+++ b/main/control/inst/rlocus.m	Tue Feb 28 15:45:12 2012 +0000
@@ -60,7 +60,7 @@
 
 ## Adapted-By: Lukas Reichlin <lukas.reichlin@gmail.com>
 ## Date: December 2009
-## Version: 0.3
+## Version: 0.4
 
 ## TODO: Improve compatibility
 
@@ -103,8 +103,8 @@
 
 
   ## compute real axis break points and corresponding gains
-  dnum = polyderiv (num);
-  dden = polyderiv (den);
+  dnum = polyder (num);
+  dden = polyder (den);
   brkp = conv (den, dnum) - conv (num, dden);
   real_ax_pts = roots (brkp);
   real_ax_pts = real_ax_pts(find (imag (real_ax_pts) == 0));