Mercurial > hg > octave-nkf

diff scripts/polynomial/polyder.m @ 5216:5ed60b8b1ac4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-03-16 19:51:39 by jwe]
author jwe
date Wed, 16 Mar 2005 19:51:46 +0000
parents d25bc039237b
children e88886a6934d
line wrap: on
line diff
--- a/scripts/polynomial/polyder.m
+++ b/scripts/polynomial/polyder.m
@@ -19,17 +19,27 @@
 
 ## -*- texinfo -*-
 ## @deftypefn {Function File} {} polyder (@var{c})
+## @deftypefnx {Function File} {[@var{q}] =} polyder (@var{b}, @var{a})
+## @deftypefnx {Function File} {[@var{q}, @var{r}] =} polyder (@var{b}, @var{a})
 ## See polyderiv.
 ## @end deftypefn
 
-## Author: jwe
+## Author: John W. Eaton
+## Paul Kienzle <pkienzle@kienzle.powernet.co.uk>
+##    handle b/a and b*a
 
-function q = polyder (p)
+function [q, r] = polyder (p, a)
 
   if (nargin == 1)
     q = polyderiv (p);
+  elseif (nargin==2)
+    if (nargout==2)
+      [q, r] = polyderiv (p,a);
+    else
+      q = polyderiv (p,a);
+    endif
   else
-    usage ("polyder (vector)");
+    usage ("q=polyder(p) or q=polyder(b,a) or [q, r]=polyder(b,a)");
   endif
 
 endfunction