jens
b31f3e7435
git-svn-id: http://moon:8086/svn/matlab/trunk@153 801c6759-fa7c-4059-a304-17956f83a07c
16 lines
260 B
Matlab
Executable File
16 lines
260 B
Matlab
Executable File
% [xl,xlf] = phxl(x,xs,al,pl,xli)
|
|
function [xl,xlf] = phxl(x,xs,al,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) = al*x(n) + (1-al)*xl(n-1);
|
|
end;
|
|
end;
|
|
xlf = xl(N);
|