%---------------------------------------------------------------------------------------
%  exa020105.m,  for  example 2.1.5 and fig 2.1.5（a），（b）
%  說明窗函數寬度的選擇對 STFT 時－頻分辨率的影響；
%  注：在該程序中，用到了子程序 amagauss.m, fmlin.m 及tfstft.m, 
%      還要用到顯示程序 tfrqview及其他程序，
%      所有這些程序請讀者在如下的網站上下載:
%                      http://crttsn.univ-nantes.fr/~auger/tftb.html
%      因為該網站上的時頻分析軟件并沒有列入MATLAB的工具箱，涉及到知識產權問題，
%      因此不能將其列入國內公開出版物上，但讀者可以自由下載。
%----------------------------------------------------------------------------------------
clear;

sig=atoms(128,[50,.25,32,1;90,.25,32,1],0);

figure(1)
h=window(@hamming,55);
tfrstft(sig,1:128,128,h);

figure(2)
h=window(@hanning,13);
tfrstft(sig,1:128,128,h);