ivan@155: function modcn_exactRec_demo(it,k,sn)
ivan@155: tic
ivan@155: IT = it;
ivan@155: K = k;
ivan@155: SN = sn;
ivan@155: if SN<10,
ivan@155:     samnum = ['0',num2str(SN)];
ivan@155: else
ivan@155:     samnum = num2str(SN);
ivan@155: end
ivan@155: load(['Param',num2str(K),'kS',samnum,'.mat'])
ivan@155: lambda = 2*.2; % 2 * Smallest coefficients (Soft Thresholding)
ivan@155: %%%%%%%%%%%%%%
ivan@155: Phi = Phio;
ivan@155: M = size(Phi,1);
ivan@155: [Phi,unhat,ert] = mod_cn(x,Phi,lambda,IT);
ivan@155: 
ivan@155: save(['MODl1',num2str(M),'t',num2str(IT),'ikiun',num2str(K),'v1d',num2str(SN),'.mat'],'Phi','Phid','x','ud','unhat','ert')
ivan@155: 
ivan@155: toc