clear all
A=[1 4 6 0 9 -2] %coefficienti di P(x)
k=find(A | not(A));  % vettore degli indici (tutti)
B=A(2:end).*k(1:end-1) %Coefficienti di P'(x)