摘要
利用所学习的数字信号处理知识，设计了一个有趣的音效处理系统，首先设计了几种不同的滤波器对声音进行滤波处理，分析了时域和频域的变化，比较了经过滤波处理后的声音与原来的声音有何变化。同时设计实现了语音的倒放，变速播放，回响，音调转换等处理效果，其中音调转换部分使用了重新采样改变基频，再进行时长规整的算法。
基于MATLAB的语音信号处理
语音信号的采集
录制或者截取一段音乐，时间在1分钟左右，存为.wav的文件。然后利用wavread对语音信号进行采样。我们一共选择了3段语音，其中
d.wav 真心英雄（周华健）（男声）
man.wav我的歌声里（自己录制）（男声）
girl.wav看的最远的地方（张韶涵）（女声）
语音信号的频谱分析
使用matlab画出语音信号的时域波形;然后对语音号进行快速傅里叶变换,得到信号的频谱特性，画出频谱图，分析频率成分。这里我们分析的是d.wav，通过分析知道频率分布在0—10KHz，主要分布在低频。
数字滤波器设计
这里我们设计了4种滤波器对语音进行处理，分别为椭圆低通滤波，椭圆高通滤波，等波纹逼近法FIR带通滤波器，双线性变换法切比雪夫数字高通滤波器，绘制出相应的幅度、相位谱图，滤波后的波形、频谱图。
各滤波器的设计如下：
椭圆低通滤波器：fb＝1 200 Hz,fc＝1 400 Hz,As＝100 dB,Ap＝1 dB
椭圆高通滤波器：fc＝4 800 Hz,fb＝5 000 Hz As＝100 dB,Ap＝1 dB
等波纹逼近法设计FIR带通滤波器
fb1＝1200Hz,fb2＝3000Hz,fc1＝1000Hz,fc2＝3000Hz,As＝100dB,Ap＝1dB
双线性变换法切比雪夫数字高通滤波器
fc＝4 800 Hz,fb＝5 000 Hz As＝100 dB,Ap＝1 dB
滤波处理后，我们用函数sound()可以对声音进行回放,调用格式：sound(x,fs,bits);感觉滤波前后的声音。语音的低频部分沉稳，空间感较强;中频部分音质一般;高频部分音质非常尖锐，略微有尖音。此外中高频的幅度都不大，回放时音量较低。
语音变速播放
改变语音的播放速度也就是改变采样间隔（即改变了采样频率），但是这个频实现率依然要在2f(Nyquist rate)之上，否则就会产生失真。
%变速-慢放%
w=0.9;
M=w*fs; %w>1为快放，w<1为慢放
sound(x,M,nbits);
语音倒放
使用flipud()倒置语音矩阵，逆序输出音频即可。
回响效果
回声在时域上幅值减小了，频域上的特征不变，只需要把原信号添加一个延时（delay）和对时域的幅度添加一个参数.然后和原信号叠加即可获得回响效果。
实现男女声转换音效效果
我们使用另外写的voice(x,f)函数实现音调转换，x为需要转换的声音，通过抽取插值更改采样率来改变基频，当f>1时音调降低;f<1音调升高。然后再进行时长整合使语音文件恢复原来的时长。时长整合使用重叠叠加算法来实现。经过我们试听，转换效果还是很好的。
总结体会
通过对声音信号的滤波处理，比较其前后变化，感受到了滤波器在声音信号处理当中的作用，同时在实践中掌握了滤波器的基本设计方法，加深了对各种类型的数字滤波器特性的理解。我们通过对声音的各种变换，产生了多种不同的音效，也体会到了语音处理的魅力。在课程设计过程中，我们发现自己对Matlab的应用还是不够熟练，基础不够扎实，花了不少时间编写调试。
代码附录
%读取声音信号%
[y,fs,nbits]=wavread('d'); %读取声音文件
x=y(:,1); %读入的y矩阵有两列,取第1列
N=length(x);
n=0:N-1;
X= fft(x); %傅里叶变换
Fs=2*fs; %2倍频
T=1/Fs;
f=n/N*Fs;
figure;
subplot(2,1,1);
plot(n,x); %声音的时域波形
title('原声音的波形');
xlabel('t/s');
ylabel('magnitude');
subplot(2,1,2);
plot(f,abs(X)); %声音的频谱
title('原声音的频谱');
xlabel('frequency/Hz');
ylabel('magnitude');
% 滤波器设计%
% 椭圆低通滤波器%
fp1=1200;fs1=1400; %低通滤波器通带截止频率1200Hz和阻带截止频率1400Hz
wp1=2*fp1/Fs; ws1=2*fs1/Fs;rp=1;as=100;
[N1,wp1]=ellipord(wp1,ws1,rp,as); %计算椭圆低通模拟滤波器的阶数和通带边界频率
[B,A]=ellip(N1,rp,as,wp1); %计算低通滤波器模拟滤波器系统函数系数
y1=filter(B,A,x); %滤波器软件实现
% 低通滤波器绘图部分%
figure;
freqz(B,A);
figure;
subplot(2,1,1);
t=n*T;
plot(t,y1);
xlabel('t/s');ylabel('magnitude');title('低通滤波后的波形');
axis([0,t(end),min(y1),1.2*max(y1)])%坐标范围
subplot(2,1,2);
plot(f,abs(fft(y1)));
%椭圆高通滤波器%
fp2=4800;fs2=5000; %高通滤波器通带截止频率5000Hz和阻带截止频率4800Hz
wp2=2*fp2/Fs; ws2=2*fs2/Fs;rp=1;as=100;
[N2,wp2]=ellipord(wp2,ws2,rp,as);
[B2,A2]=ellip(N2,rp,as,wp2,'high'); %计算高通滤波器模拟滤波器系统函数系数
y2=filter(B2,A2,x); %滤波器软件实现
% 高通滤波器绘图部分%
figure;
freqz(B2,A2);
figure;
subplot(2,1,1);
t=n*T;
plot(t,y2);
xlabel('t/s');ylabel('magnitude');title('高通滤波后的波形');
axis([0,t(end),min(y2),1.2*max(y2)])
subplot(2,1,2);
plot(f,abs(fft(y2)));
%等波纹逼近法设计ＦＩＲ带通滤波器及滤波
[I,fs,nbits]=wavread('d');
y=I(:,1);
fp1=1200;fp2=3000;fc1=1000;fc2=3200;FS=2*fs;rp=1;rs=100;
f=[fc1,fp1,fp2,fc2];
m=[0,1,0];
dat1=(10^(rp/20)-1)/(10^(rp/20)+1);dat2=10^(-rs/20);
rip=[dat2,dat1,dat2];
[M,fo,mo,w]=remezord(f,m,rip,FS);
M=M+1;
hn=remez(M,fo,mo,w);
figure(1);
freqz(hn);
Y=fft(y);
y1=fftfilt(hn,y); %用remez设计的滤波器进行滤波
Y1=fft(y1);
n=0:length(y)-1;
figure(2);
subplot(221);plot(y);title('未滤波语音波形');
subplot(222);plot(y1);title('等波纹逼近法滤波后语音波形');
subplot(223);plot(n,Y);title('未滤波语音频谱');
subplot(224);plot(n,Y1);title('等波纹逼近法滤波后语音频谱');
sound(y1,fs,nbits); %滤波后语音回放
%cheby1设计模拟高通滤波器再经双线性变换法设计成数字高通滤波器
fp=5000;fc=4800;rp=1;rs=100;FS=2*fs;
wpz=2*pi*fp/FS;wsz=2*pi*fc/FS;
wp=2*tan(wpz/2)*FS;ws=2*tan(wsz/2)*FS; %预畸校正转换指标
[N,wpo]=cheb1ord(wp,ws,rp,rs,'s');
[BH,AH]=cheby1(N,rp,wpo,'high','s');
[Bz,Az]=bilinear(BH,AH,FS);
w=0:0.01*pi:pi;
[h,w]=freqz(Bz,Az,w);
plot(w/pi,20*log(abs(h)),'k');axis([0,1,-800,100]);
xlabel('w/pi');ylabel('幅度/dB');grid;
title('cheby1数字高通滤波器');
Y=fft(y);
y1=filter(Bz,Az,y);
Y1=fft(y1);
n=0:length(y)-1;
figure(2);
subplot(221);plot(y);title('未滤波语音波形');
subplot(222);plot(y1);title('cheby滤波后语音波形');
subplot(223);plot(n,Y);title('未滤波语音频谱');
subplot(224);plot(n,Y1);title('cheby滤波后语音频谱');
sound(y1,fs,nbits); %滤波后语音回放
%播放声音%
sound(x,fs,nbits); %原声
sound(5*y1,fs,nbits); %低通
sound(5*y2,fs,nbits); %高通
%变速-慢放%
w=0.9;
M=w*fs; %w>1为快放，w<1为慢放
sound(x,M,nbits);
%语音倒放%
y0=flipud(x);
sound(y0);
%回声%
z=[zeros(5000,1);x]; %延时5000个点
x1=[x;zeros(5000,1)]; %使原声音长度与延时后相等
y1=x1+0.4*z; %原声+延时衰减
figure;
plot(y1);
title('加入回声的波形');
sound(5*y1,fs,nbits);
%调用函数voice()实现音调转换%
%男声转换为女声%
[y,fs,nbits]=wavread('man'); %读取声音文件
x=y(:,1); %读入的y矩阵有两列,取第1列
y1=voice(x,0.71); %调整voice()第2个参数转换音调,>1降调,<1升调,y1为x转换后的声音
N=length(x); M=length(y1);
n=0:N-1; m=0:M-1;
X= fft(x); Y=fft(y1); %傅里叶变换
Fs=2*fs; %2倍频
T=1/Fs; T1=1/Fs*0.71;
f=n/N*Fs; f1=m/M*Fs/0.71;
t=n*T; t1=m*T1;
figure;
subplot(2,1,1);
plot(t,x);
xlabel('t/s');ylabel('magnitude');title('转换前的波形');
subplot(2,1,2);
plot(t1,y1);
xlabel('t/s');ylabel('magnitude');title('转换后的波形');
figure;
subplot(2,1,1);
plot(f,abs(X));
xlabel('frequency/Hz');ylabel('magnitude');title('转换前的频谱');
subplot(2,1,2);
plot(f1,abs(Y));
xlabel('frequency/Hz');ylabel('magnitude');title('转换后的频谱');
sound(y1,fs,nbits);
%女声转换为男声%
[y,fs,nbits]=wavread('girl'); %读取声音文件
x=y(:,1); %读入的y矩阵有两列,取第1列
sound(voice(x,1.3),fs,nbits);
%调整voice()第2个参数转换音调,>1降调,<1升调
function Y=voice(x,f)
%更改采样率使基频改变 f>1降低;f<1升高
f=round(f*1000);
d=resample(x,f,1000);
%时长整合使语音文件恢复原来时长
W=400;
Wov=W/2;
Kmax=W*2;
Wsim=Wov;
xdecim=8;
kdecim=2; X=d';
F=f/1000;
Ss =W-Wov;
xpts = size(X,2);
ypts = round(xpts / F);
Y = zeros(1, ypts);
xfwin = (1:Wov)/(Wov+1);
ovix = (1-Wov):0; newix = 1:(W-Wov);
simix = (1:xdecim:Wsim) - Wsim;
padX = [zeros(1, Wsim), X, zeros(1,Kmax+W-Wov)];
Y(1:Wsim) = X(1:Wsim); lastxpos = 0; km = 0;
for ypos = Wsim:Ss:(ypts-W)
xpos = round(F * ypos);
kmpred = km + (xpos - lastxpos);
lastxpos = xpos;
if (kmpred <= Kmax)
km = kmpred;
else
ysim = Y(ypos + simix);
rxy = zeros(1, Kmax+1);
rxx = zeros(1, Kmax+1);
Kmin = 0;
for k = Kmin:kdecim:Kmax
xsim = padX(Wsim + xpos + k + simix);
rxx(k+1) = norm(xsim);
rxy(k+1) = (ysim * xsim');
end
Rxy = (rxx ~= 0).*rxy./(rxx+(rxx==0));
km = min(find(Rxy == max(Rxy))-1);
end
xabs = xpos+km;
Y(ypos+ovix) = ((1-xfwin).*Y(ypos+ovix)) + (xfwin.*padX(Wsim+xabs+ovix));
Y(ypos+newix) = padX(Wsim+xabs+newix);
end
end