unit WinFuncs;

interface
  //Функция временных окон
function WinFunc(i,N,Wtype:integer):double;

const
 //Типы окон временного сглаживания
 wt_Square=0;
 wt_Hanning=1;
 wt_Welch=2;
 wt_Parzen=3;

implementation

function WinFunc;
begin
 case WType of
  wt_Square    :Result:=1;
  wt_Hanning   :Result:=0.5*(1-cos(2*pi*i/(N-1)));
  wt_Welch     :Result:=1-sqr(2*(i-0.5*(N-1))/(N+1));
  wt_Parzen    :Result:=1-2*(i-0.5*(N-1))/(N+1);
 else
  Result:=1;
 end;
end;

end.