Mercurial > hg > octave-nkf

comparison scripts/polynomial/polyreduce.m @ 6046:34f96dd5441b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-10-10 16:10:25 by jwe]
author jwe
date Tue, 10 Oct 2006 16:10:31 +0000
parents 2618a0750ae6
children 93c65f2a5668
comparison
equal deleted inserted replaced
6045:421d8a903df7 6046:34f96dd5441b
30 ## Adapted-By: jwe 30 ## Adapted-By: jwe
31 31
32 function p = polyreduce (p) 32 function p = polyreduce (p)
33 33
34 if (nargin != 1) 34 if (nargin != 1)
35 usage ("polyreduce (p)"); 35 print_usage ();
36 endif 36 endif
37 37
38 if (! (isvector (p) || isempty (p))) 38 if (! (isvector (p) || isempty (p)))
39 error ("polyreduce: argument must be a vector"); 39 error ("polyreduce: argument must be a vector");
40 endif 40 endif