degrade.m

I developed an algorithm for using local ICA in denoising multidimensional data. It uses delay embed

function [s,n]=degrade(s,snr)
%
n=randn(size(s));
l=norm(s(:))/norm(n(:));
n=n*l*exp(-snr/10);
s=s+n; 

return