Mercurial > hg > octave-lyh
diff scripts/polynomial/polyout.m @ 3426:f8dde1807dee
[project @ 2000-01-13 08:40:00 by jwe]
author | jwe |
---|---|
date | Thu, 13 Jan 2000 08:40:53 +0000 |
parents | 61e40232a4e8 |
children | e031284eea27 |
line wrap: on
line diff
--- a/scripts/polynomial/polyout.m +++ b/scripts/polynomial/polyout.m @@ -18,20 +18,20 @@ ## -*- texinfo -*- ## @deftypefn {Function File} {@var{y} =} polyout (@var{c}@{, @var{x}@}) -## write formatted polynomial +## write formatted polynomial ## @example ## c(x) = c(1) * x^n + ... + c(n) x + c(n+1) ## @end example ## to string @var{y} or to the screen (if @var{y} is omitted) ## @var{x} defaults to the string @code{"s"} ## @end deftypefn -## @seealso{polyval, polyvalm, poly, roots, conv, deconv, residue, +## @seealso{polyval, polyvalm, poly, roots, conv, deconv, residue, ## filter, polyderiv, and polyinteg} ## Author: A. S. Hodel <a.s.hodel@eng.auburn.edu> ## Created: May 1995 ## Nov 1998: Correctly handles complex coefficients - + function y = polyout (c, x) if (nargin < 1 ) || (nargin > 2) || (nargout < 0 ) || (nargout > 1) @@ -41,7 +41,7 @@ if (!is_vector(c)) error("polyout: first argument must be a vector"); endif - + if (nargin == 1) x = "s"; elseif( ! isstr(x) ) @@ -63,7 +63,7 @@ else nstr = num2str(c(ii)); endif tmp = sprintf("%s*%s^%d%s%s",tmp,x,n1-ii,ns,nstr); - + endfor else tmp = " ";