function pd=ppder(pp)
%     pd=ppder(pp)
% deriva una funzione polinomiale a tratti
% vuole in ingresso la struttura pp,
% dà in uscita la struttura derivata pd
[x,c,l,k]=unmkpp(pp);
%
%	calcolo componenti derivata prima della spline
%
k=k-1;
for j=1:l
    aux=polyder(c(j,:));
	cder(j,:)=[zeros(1,k-length(aux)),aux];
end
pd=mkpp(x,cder);