comparison scripts/polynomial/polyderiv.m @ 4030:22bd65326ec1

[project @ 2002-08-09 18:58:13 by jwe]
author jwe
date Fri, 09 Aug 2002 19:00:16 +0000
parents e031284eea27
children c08cb1098afc
comparison
equal deleted inserted replaced
4029:2cc57b6169cf 4030:22bd65326ec1
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_vector (p)) 38 if (! isvector (p))
39 error ("polyderiv: 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)