jens
b31f3e7435
git-svn-id: http://moon:8086/svn/matlab/trunk@153 801c6759-fa7c-4059-a304-17956f83a07c
42 lines
835 B
Matlab
Executable File
42 lines
835 B
Matlab
Executable File
% 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
|