% [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);