1function [snrn,amcIndsn,mcAdapt]=AMC(b,y,n,snrThresh,snrRate,snr,amcInds,mcAdapt)
2
3
4
5
6if ~isempty(snrThresh) && mod(n, snrRate) == 0
7
8 snr = 10*log10(sum(b(n-snrRate+1:n).^2) ./ ...
9 sum(y(n-snrRate+1:n, :).^2));
10
11 amcInds=gt(snr,snrThresh);
12
13end
14 snrn=snr;
15 amcIndsn=amcInds;
16 mcAdapt(n,:)=~amcInds;
17end