信号谱分析——窗函数

  • 格式:doc
  • 大小:215.50 KB
  • 文档页数:28

实验三、信号的谱分析五、窗函数window1.通过MATLAB的help功能,探究一下window可以支持的窗函数类型。

输入help window,举例出现的函数类型如下:@bartlett - Bartlett window.@barthannwin - Modified Bartlett-Hanning window.@blackman - Blackman window.@blackmanharris - Minimum 4-term Blackman-Harris window.@bohmanwin - Bohman window.@chebwin - Chebyshev window.@flattopwin - Flat Top window.@gausswin - Gaussian window.@hamming - Hamming window.@hann - Hann window.@kaiser - Kaiser window.@nuttallwin - Nuttall defined minimum 4-term Blackman-Harris window. @parzenwin - Parzen (de la Valle-Poussin) window.@rectwin - Rectangular window.@tukeywin - Tukey window.@triang - Triangular window.2.用window产生的各种窗函数(可以设N=128),观察各个窗函数的波形。

N=128;w=window(@bartlett,N);plot(1:N,w)2040608010012014000.10.20.30.40.50.60.70.80.91w1=window(@barthannwin,N); plot(1:N,w1)2040608010012014000.10.20.30.40.50.60.70.80.91barthannwinw2=window(@blackman,N); plot(1:N,w2)2040608010012014000.10.20.30.40.50.60.70.80.91w3=window(@chebwin,N); plot(1:N,w3)2040608010012014000.10.20.30.40.50.60.70.80.91chebwinw4=window(@gausswin,N); plot(1:N,w4)2040608010012014000.10.20.30.40.50.60.70.80.91w5=window(@hamming,N); plot(1:N,w5)2040608010012014000.10.20.30.40.50.60.70.80.91hamming3.计算并分析各个窗函数的谱,观测其谱形状的特点。

用wvtool 函数观察各窗函数的幅频和相频特性:同上w~w5N=128;w=window(@bartlett,N);w1=window(@barthannwin,N); w2=window(@blackman,N);w3=window(@chebwin,N);w4=window(@gausswin,N);w5=window(@hamming,N); subplot(3,1,1);wvtool(w); ylabel('barlett');subplot(3,1,2);wvtool(w1); ylabel('barthannwin'); subplot(3,1,3);wvtool(w2); ylabel('blackman');subplot(6,1,4);wvtool(w3); ylabel('chebwin');subplot(6,1,5);wvtool(w4); ylabel('gausswin');subplot(6,1,6);wvtool(w5); ylabel('hamming');六、关于谱分析的截断效应实验1. N=20;for i=1:Nt(i)=0.01*(i-N/2);w(i)=(i-N/2)*200*pi/N;x(i)=2*sin(4*pi*t(i))+5*cos(6*pi*t(i)); endG=fft(g)/100;plot(w(1:N),abs(G(1:N)));xlabel('w');ylabel('G');title('N=20');N=30;for i=1:Nt(i)=0.01*(i-N/2);w(i)=(i-N/2)*200*pi/N;x(i)=2*sin(4*pi*t(i))+5*cos(6*pi*t(i)); endX=fft(x)/100;plot(w(1:N),abs(X(1:N)));xlabel('w');ylabel('X');title('N=30');N=50;for i=1:Nt(i)=0.01*(i-N/2);w(i)=(i-N/2)*200*pi/N;x(i)=2*sin(4*pi*t(i))+5*cos(6*pi*t(i)); endX=fft(x)/100;plot(w(1:N),abs(X(1:N)));xlabel('w');ylabel('X');title('N=50');N=100;for i=1:Nt(i)=0.01*(i-N/2);w(i)=(i-N/2)*200*pi/N;x(i)=2*sin(4*pi*t(i))+5*cos(6*pi*t(i)); endX=fft(x)/100;plot(w(1:N),abs(X(1:N)));xlabel('w');ylabel('X');title('N=100');N=150;for i=1:Nt(i)=0.01*(i-N/2);w(i)=(i-N/2)*200*pi/N;x(i)=2*sin(4*pi*t(i))+5*cos(6*pi*t(i)); endX=fft(x)/100;plot(w(1:N),abs(X(1:N)));xlabel('w');ylabel('X');title('N=150');进一步思考,为什么N=100的时候观察不到截断效应?因为N=100时,正好等于其取样频率,所以观察不到截断效应。

2.观察各种窗函数对截断效应的改善情况。

N=200;for i=1:Nt(i)=0.01*(i-N/2);w(i)=(i-N/2)*200*pi/N;x(i)=2*sin(4*pi*t(i))+5*cos(6*pi*t(i));endwin1=window(@bartlett,N).*x';win2=window(@barthannwin,N).*x';win3=window(@blackman,N).*x';win4=window(@chebwin,N).*x';win5=window(@gausswin,N).*x';win6=window(@hamming,N).*x';G1=fft(x)/100;%G2=fft(win1)/100;%G3=fft(win2)/100;%G4=fft(win3)/100;%G5=fft(win4)/100;%G6=fft(win5)/100;%G7=fft(win6)/100;%plot(w(1:N),abs(G1(1:N)))%title('x(t)');%plot(w(1:N),abs(G2(1:N))) %ylabel('bartlett');%plot(w(1:N),abs(G3(1:N))) %ylabel('barthannwin'); plot(w(1:N),abs(G4(1:N))) ylabel('blackman ');%plot(w(1:N),abs(G4(1:N))) %ylabel('chebwin ');%plot(w(1:N),abs(G4(1:N))) %ylabel('gausswin ');%plot(w(1:N),abs(G4(1:N))) %ylabel('hamming ');-400-300-200-10001002003004000123456x(t)-400-300-200-100010020030040000.511.522.5b a r t l e t t-400-300-200-100010020030040000.511.522.5b a r t h a n n w i n-400-300-200-100010020030040000.511.522.5b l ac k m a n由图可以看出,加窗函数后,截断效应减弱,图的分辨率变高。

七、观察高斯序列的时域和频域特性。

1、p=8,q=2,4,8 时域分析 p=8;q=2; n=0:1:15x=exp(-(n-p).^2/q); stem(x)ylabel('x(n)'); xlabel('n');title('p=8,q=2时的时域特性');p=8;q=4; n=0:1:15x=exp(-(n-p).^2/q); stem(x)ylabel('x(n)'); xlabel('n');title('p=8,q=4时的时域特性');p=8;q=8; n=0:1:15x=exp(-(n-p).^2/q); stem(x)ylabel('x(n)'); xlabel('n');title('p=8,q=4时的时域特性');x (n )np=8,q=2时的时域特性00.10.20.30.40.50.60.70.80.91x (n )np=8,q=4时的时域特性00.10.20.30.40.50.60.70.80.91x (n )np=8,q=8时的时域特性频域分析 clc;clear all; p=8;q=2; for i=1:100 if i<16x(i)=exp((-(i-p)^2)/q); else x(i)=0; end enddtft=zeros(80); for i=1:80w(i)=(i-40)/10; for k=1:16dtft(i)=dtft(i)+x(k)*exp(-j*(k-1)*w(i)); end endsubplot(1,2,1);plot(w,abs(dtft));xlabel('w');ylabel('DTFT');title('p=8;q=2幅频特性'); subplot(1,2,2);plot(w,angle(dtft));xlabel('w');ylabel('DTFT');title('p=8;q=2相频特性');-4-202400.511.522.53wD T F T-4-2024-3-2-1123wD T F Tclc;clear all; p=8;q=4; for i=1:100 if i<16x(i)=exp((-(i-p)^2)/q); else x(i)=0; end enddtft=zeros(80); for i=1:80w(i)=(i-40)/10; for k=1:16dtft(i)=dtft(i)+x(k)*exp(-j*(k-1)*w(i)); end endsubplot(1,2,1);plot(w,abs(dtft));xlabel('w');ylabel('DTFT');title('p=8;q=4幅频特性'); subplot(1,2,2);plot(w,angle(dtft));xlabel('w');ylabel('DTFT');title('p=8;q=4相频特性');-4-202400.511.522.533.54wD T F T-4-2024-3-2-1123wD T F Tclc;clear all; p=8;q=8; for i=1:100 if i<16x(i)=exp((-(i-p)^2)/q); else x(i)=0; end enddtft=zeros(80); for i=1:80w(i)=(i-40)/10; for k=1:16dtft(i)=dtft(i)+x(k)*exp(-j*(k-1)*w(i)); end endsubplot(1,2,1);plot(w,abs(dtft));xlabel('w');ylabel('DTFT');title('p=8;q=8幅频特性'); subplot(1,2,2);plot(w,angle(dtft));xlabel('w');ylabel('DTFT');title('p=8;q=8相频特性');-4-20240123456wD T F T-4-2024-3-2-1123wD T F T2、q=8,p=8,13,14 时域分析 p=8;q=8; n=0:1:15x=exp(-(n-p).^2/q); stem(x)ylabel('x(n)'); xlabel('n');title('p=8,q=4时的时域特性');p=8;q=13; n=0:1:15x=exp(-(n-p).^2/q); stem(x)ylabel('x(n)'); xlabel('n');title('p=8,q=4时的时域特性');p=8;q=14; n=0:1:15x=exp(-(n-p).^2/q); stem(x)ylabel('x(n)'); xlabel('n');title('p=8,q=4时的时域特性');00.10.20.30.40.50.60.70.80.91x (n )nq=8,p=8时的时域特性00.10.20.30.40.50.60.70.80.91x (n )nq=8,p=13时的时域特性00.10.20.30.40.50.60.70.80.91x (n )nclc;clear all; q=8;p=8; for i=1:100 if i<16x(i)=exp((-(i-p)^2)/q); else x(i)=0; end enddtft=zeros(80); for i=1:80w(i)=(i-40)/10; for k=1:16dtft(i)=dtft(i)+x(k)*exp(-j*(k-1)*w(i)); end endsubplot(1,2,1);plot(w,abs(dtft));xlabel('w');ylabel('DTFT');title('q=8,p=8幅频特性'); subplot(1,2,2);plot(w,angle(dtft));xlabel('w');ylabel('DTFT');title('q=8,p=8相频特性');-4-20240123456wD T F T-4-2024-3-2-1123wD T F Tclc;clear all; q=8;p=13; for i=1:100 if i<16x(i)=exp((-(i-p)^2)/q); else x(i)=0; end enddtft=zeros(80); for i=1:80w(i)=(i-40)/10; for k=1:16dtft(i)=dtft(i)+x(k)*exp(-j*(k-1)*w(i)); end endsubplot(1,2,1);plot(w,abs(dtft));xlabel('w');ylabel('DTFT');title('q=8,p=13幅频特性'); subplot(1,2,2);plot(w,angle(dtft));xlabel('w');ylabel('DTFT');title('q=8,p=13相频特性');-4-202400.511.522.533.544.5wD T F T-4-2024-4-3-2-101234wD T F Tclc;clear all; q=8;p=14; for i=1:100 if i<16x(i)=exp((-(i-p)^2)/q); else x(i)=0; end enddtft=zeros(80); for i=1:80w(i)=(i-40)/10; for k=1:16dtft(i)=dtft(i)+x(k)*exp(-j*(k-1)*w(i)); end endsubplot(1,2,1);plot(w,abs(dtft));xlabel('w');ylabel('DTFT');title('q=8,p=14幅频特性'); subplot(1,2,2);plot(w,angle(dtft));xlabel('w');ylabel('DTFT');title('q=8,p=14相频特性');-4-202400.511.522.533.54wD T F T-4-2024-4-3-2-101234wD T F T当q 不变,p 变大时,出现截断效应,当实验中q=8,p=13时,明显出现泄漏。