Mercurial > hg > octave-nkf

comparison scripts/polynomial/polyderiv.m @ 2716:2b5c27299cde

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1997-02-22 08:40:55 by jwe]
author jwe
date Sat, 22 Feb 1997 08:44:22 +0000
parents 5ca126254d15
children 8b262e771614
comparison
equal deleted inserted replaced
2715:df8c732b4fb2 2716:2b5c27299cde
33 33
34 if (nargin != 1) 34 if (nargin != 1)
35 usage ("polyderiv (vector)"); 35 usage ("polyderiv (vector)");
36 endif 36 endif
37 37
38 if (is_matrix (p)) 38 if (! is_vector (p))
39 error ("argument must be a vector"); 39 error ("argument must be a vector");
40 endif 40 endif
41 41
42 lp = length (p); 42 lp = length (p);
43 if (lp == 1) 43 if (lp == 1)