function da = dpoly(p,a)
% DPOLY  computes the coefficients of the derivative
%        DA = DPOLY(P,A) computes the coefficients DA
%        of the derivative of the polynomial of degree p
%        given by the coefficients A.
da=0;
for j = 1:p
   da(j) = (p+1-j)*a(j);
end

