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