Mercurial > hg > octave-nkf

comparison scripts/polynomial/polyderiv.m @ 3085:e6d14959bea9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1997-09-19 22:06:12 by jwe]
author jwe
date Fri, 19 Sep 1997 22:08:32 +0000
parents 8b262e771614
children 44d82b369c78
comparison
equal deleted inserted replaced
3084:e08136623329 3085:e6d14959bea9
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_vector (p)) 38 if (! is_vector (p))
39 error ("argument must be a vector"); 39 error ("polyderiv: 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)
44 q = 0; 44 q = 0;