
function[w,y,e,J]=aaselfcorsignregreslms(x,dn,mu,M,I)
%(aaselfcorrectingsignregressorlms);
%function[w,y,e,J]=aaselfcorsignregreslms(x,dn,mu,M,I);
%x=input data to the filter;dn=desired signal;length(x)=length(dn);
%y=output of th filter an Ixlength(x) matrix;J=error function an
%Ixlength(x) matrix;I=number of stages;
[w(1,:),y(1,:),e(1,:),J(1,:)]=aalmssignedregressor(x,dn,mu,M);
for i=2:I
    [w(i,:),y(i,:),e(i,:),J(i,:)]=aalms(y(i-1,:),dn,mu,M);
end;
J=e.^2;
