% Long-Term Magnitude Estimation von x
% -------------------------------------
%
% Aufruf:
% Function [xl,xlf] = xlte(x,xs,af,pl,xli)
%
% 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 [xl,xlf] = xlte(x,xs,af,pl,xli)

N = lge(x);
x = abs(x);
xl(1) = xli;

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

% -------------------------------------------------------------------------
% Ende xlte.m