eco.asv

eco and reverberation matlab codes

%function [y,n]=eco[a,D]

[x,fs,nbits]=wavread('frase.wav');  %cambio de frase

x=x';   %traspuesta de x porque wavread te da las muestras en columnas

x1=zeros(1,D);
x2=[x,x1];
ax=a*x;
x3=[x1,ax];
y=x2+x3;
sound(y)

%Pasos:
%Leo la se馻l de entrada.
%la muestreo. Una vez muestreada calculo la salida para ello tenemos q 
%pasarle a la funcion la atenuacion "a" y el retardo de la se馻l "D"