git-svn-id: http://moon:8086/svn/matlab/trunk@153 801c6759-fa7c-4059-a304-17956f83a07c
16 lines
303 B
Matlab
Executable File
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);
|