Mercurial > octave-nkf
view examples/polynomial/polynomial_superiorto.m @ 8223:0c91b9a17dcf
Commit missing files from previous change
author | David Bateman <dbateman@free.fr> |
---|---|
date | Thu, 16 Oct 2008 09:20:58 +0100 |
parents | |
children |
line wrap: on
line source
function p = polynomial (a) if (nargin == 0) p.poly = []; p = class (p, "polynomial"); elseif (nargin == 1) if (strcmp (class (a), "polynomial")) p = a; elseif (isvector (a) && isreal (a)) p.poly = a(:)'; p = class (p, "polynomial"); else error ("polynomial: expecting real or complex vector") endif else print_usage (); endif superiorto ("double"); endfunction