function s=uniret(x,M,h,m);
%
% Utilización de los filtros polifase para realizar retardos 
% inferiores a 1 muestras
% Esta función dibuja las M salidas de la unidad de retardo
%
% Utiliza la función ppint para realizar el proceso de interpolación
% con un filtro polifase definido por la respuesta impulsional h[n]
%
% Entradas
%
% x ....... señal a retardar
% M ....... numero de retardos (retardo minimo 1/M)
% h ....... respuesta impulsional del filtro de interpolación 
%           frecuencia de corte en formato matlab 1/M
% m ....... retardo deseado (1<=m<=M) para la señal de salida
%
% Salidas
%
% s ....... señal retardada m/M

[y,v]=ppint(x,h,M);
figure
grid on
hold on
for i=1:M
 plot(v(i,:))
end
s=v(m,:);