
function[w,y,e,J]=aaselfcorsignsignlms(x,dn,mu,M,I)
%function[w,y,e,J]=aaselfcorsignsignlms(x,dn,mu,M,I);
%x=input data to the filter;y=output data from the filter,
%y is an Ixlength(x) matrix; J=learning curves, an Ixlength(x)
%matrix;mu=step-size parameter;M=umber of coefficients;I=
%number of stages;w=an Ixlength(x) matrix of filter coefficients;
%dn=desired signal;
[w(1,:),y(1,:),e(1,:),J(1,:)]=aalmssignsign(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;
