stft短时傅里叶变换函数

matlab代码 stft 短时傅里叶变换

function win=biorwin（winsdMdN）;
% biorbin : Find Biorthogonal analysis Window for STFT
% ***************************************************************@
% Inputs:
%    wins     synthesis window;
%    dM			sampling step in Time;
%    dN			sampling step in Frequency;
% Output:
%    win      analysis window;
% Usage:
%    win=biorwin（winsdMdN）;
% Defaults:
%    noverlap=length（wins）/2;

% Copyright （c） 2000. Dr Israel Cohen.
% All rights reserved. Created  5/12/00.
% ***************************************************************@

wins=wins（:）;
L=length（wins）;
N=L/dN;
win=zeros（L1）;
mu=zeros（2*dN-11）;
mu（1）=1;
%mu（1）=1/N;
for k=1:dM
    H=zeros（2*dN-1ceil（（L-k+1）/dM））;
    for q=0:2*dN-2
        h=shiftcir（winsq*N）;
        H（q+1:）=h（k:dM:L）‘;
    end
    win（k:dM:L）=pinv（H）*mu;
end

%win=win/max（win）;

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     文件         524  2005-03-20 20:59  lnshift.m
     文件         791  2000-07-12 17:42  shiftcir.m
     文件        2260  2005-03-20 20:58  stft.m
     文件        1319  2005-03-20 20:58  istft.m
     文件         861  2012-02-22 15:19  biorwin.m