% Short-Term Magnitude Estimation von x
% -------------------------------------
%
% Aufruf:
% Function [xs,xsf] = xste(x,ar,af,xsi)
%
% Parameter:
% x     :
% ar    :
% af    :
% xsi   :
%
% Rückgabewerte:
% xs    :
% xsf   :

% -------------------------------------------------------------------------
% Datum : 26.07.2001
% Autor : Jens Ahrensfeld
% Thema : Diplomarbeit
% Datei : xste.m
% Benötigte Dateien: 
%
% -------------------------------------------------------------------------
function [xs,xsf] = xste(x,ar,af,xsi)

N = lge(x);
x = abs(x);
xs(1) = xsi;

for n = 2:N,
  if(x(n) > xs(n-1))
    xs(n) = ar*x(n) + (1-ar)*xs(n-1);
  else
    xs(n) = af*x(n) + (1-af)*xs(n-1);
  end;
end;
xsf = xs(N);  

% -------------------------------------------------------------------------
% Ende xste.m