function [y]=delta_unitaria(t)

y=zeros(1,length(t));
[~,k]=min(abs(t));
y(k)=1;
end