%	Shifts a vector by n_delay elements; fills initial elements with 0s
%
function y_out = delay1(y_in,n_delay);
NN = length(y_in);
y_out = zeros(size(y_in));
y_out(n_delay:NN) = y_in(1:NN-n_delay+1);