Files
jens b31f3e7435 - added
git-svn-id: http://moon:8086/svn/matlab/trunk@153 801c6759-fa7c-4059-a304-17956f83a07c
2021-03-22 20:28:22 +00:00

16 lines
303 B
Matlab
Executable File

% [nl,nlf] = phnl(e,es,el,xs,xl,al,pl,nli)
function [nl,nlf] = phnl(e,es,el,xs,xl,al,pl,nli)
N = lge(e);
e = abs(e);
nl(1) = nli;
for n = 2:N,
if((xs(n) <= pl*xl(n-1)) & (es(n) <= pl*el(n)))
nl(n) = al*e(n) + (1-al)*nl(n-1);
else
nl(n) = nl(n-1);
end;
end;
nlf = nl(N);