42 lines
843 B
Matlab
Executable File
42 lines
843 B
Matlab
Executable File
% 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
|