% Magnitude Estimation von x
% Schätzung des mittleren Betrages von x
% mit getrennter Anstiegs- und Abfallzeit tr, tf
% ----------------------------------------------
%
% Aufruf:
% function [mx,mxf] = mx2(x,tr,tf,mxi)
%
% Parameter:
% x     : Eingangsvektor 
% tr    : Zeitkonstante Anstiegszeit
% tf    : Zeitkonstante Abfallzeit
% mxi   : Initial Condition Anfangsbetrag von x
%
% Rückgabewerte:
% mx    : Ausgang mittlerer Betrag von x
% mxf   : Endbetrag von x 

% -------------------------------------------------------------------------
% Datum : 27.03.2002
% Autor : Jens Ahrensfeld
% Thema : Diplomarbeit
% Datei : mx2.m
%
% -------------------------------------------------------------------------
function [mx,mxf] = mx2(x,tr,tf,mxi)

N = lge(x);
x = abs(x);
mx(1) = mxi;

for n = 2:N,
  if(x(n) > mx(n-1))
    mx(n) = tr*x(n) + (1-tr)*mx(n-1);
  else
    mx(n) = tf*x(n) + (1-tf)*mx(n-1);
  end;
end;
mxf = mx(N);  

% -------------------------------------------------------------------------
% Ende mx2.m