eco.m

来自「eco and reverberation matlab codes」· M 代码 · 共 27 行

function y=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);  %Creo un vector de ceros de 1 a D(atraso de la se馻l)
x2=[x,x1];      %concateno los dos vectores
ax=a*x;         %multiplico la constante por cada valor del vator
x3=[x1,ax];     %concateno el vectro de ceros con el de la atenuacion 
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"