jens
b31f3e7435
git-svn-id: http://moon:8086/svn/matlab/trunk@153 801c6759-fa7c-4059-a304-17956f83a07c
16 lines
267 B
Matlab
Executable File
16 lines
267 B
Matlab
Executable File
% [xs,xsf] = phxs(x,ar,af,xsi)
|
|
function [xs,xsf] = phxs(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);
|