function [s] = upsample(s,N)

%  NB: "s" deve essere un vettore riga

ls = length(s);
s = reshape([s; zeros(N-1,ls)], 1, ls*N);

