clear				
close all
clc

%Número de muestras usado para cada atraso de señal.
N=16000;
%Ganancia de cada atraso (de cada eco)
A=0.5;
B=0.1;
% vector de longitud N de ceros (para usar en los atrasos)
z=zeros(1,N);
%Se lee el archivo.
[x, fs]=audioread('Crespin.mp3');
x=x'; %se transpone "x"

%Ahora se suma la señal con su versión atrasada N y 2xN (simil ECO) 
uno=[x z z];    %señal original.
dos=A*[z x z];  %señal con un atraso.
tres=B*[z z x]; %señal con dos atrasos.

%se suma todo y se tiene la señal con dos ecos.
y = uno + dos + tres; 

%gráficas.
figure
plot(y,'b')
title('Señal con ecos')
ylabel('Amplitud')
xlabel('N° de muestras')

figure %comando para abrir una nueva ventana de gráfico
subplot(3,1,1) %subplot genera una ventana de 3x1 gráficos.
plot(uno,'r');
subplot(3,1,2)
plot(dos,'b');
subplot(3,1,3)
plot(tres,'g');
ylabel('Amplitud')
xlabel('N° de muestras')


%reproducción
sound(y,fs);