回波.txt

来自「系统可以利用声音信号产生带有回声的声音文件」· 文本 代码 · 共 14 行

[x,Fs,bits]=wavread('C:\Documents and Settings\Administrator\桌面\voice.wav');     
% 读出信号，采样率和采样位数。    
sound(x,Fs,bits);
y0=x(:,1);% 只取单声道作分析
b=[1 zeros(1,m) 0.7];
y1=conv(y0,b);% 产生回声
subplot(3,1,1),plot(y0); grid;title('原声');
subplot(3,1,2),plot(y1); grid;title('混合声');
y2=filter(1,b,y1);
subplot(3,1,3),plot(y2);% 画出过滤后的原声
grid;title('滤除回声后的原声');
Distance=m/fs*340/2;% 求反射物的距离