Mercurial > hg > smallbox
annotate DL/Majorization Minimization DL/ExactDicoRecovery/mapcn_exactRec_demo.m @ 242:ae649f2349a1
Added tag ver_2.0 for changeset 423de9f24d98
author | luisf <luis.figueira@eecs.qmul.ac.uk> |
---|---|
date | Wed, 25 Apr 2012 15:05:50 +0100 |
parents | b14209313ba4 |
children |
rev | line source |
---|---|
ivan@155 | 1 function mapcn_exactRec_demo(it,k,sn,cs) |
ivan@155 | 2 tic |
ivan@155 | 3 IT = it; |
ivan@155 | 4 K = k; |
ivan@155 | 5 SN = sn; |
ivan@155 | 6 if SN<10, |
ivan@155 | 7 samnum = ['0',num2str(SN)]; |
ivan@155 | 8 else |
ivan@155 | 9 samnum = num2str(SN); |
ivan@155 | 10 end |
ivan@155 | 11 load(['Param',num2str(K),'kS',samnum,'.mat']) |
ivan@155 | 12 lambda = 2*.2; % 2 * Smallest coefficients (Soft Thresholding) |
ivan@155 | 13 if cs == 'bn' |
ivan@155 | 14 res = 1; |
ivan@155 | 15 elseif cs == 'un' |
ivan@155 | 16 res = 2; |
ivan@155 | 17 else |
ivan@155 | 18 disp('Undefined dictionary admissible set.') |
ivan@155 | 19 end |
ivan@155 | 20 method = ['bn';'un']; |
ivan@155 | 21 res = 2; % 1 for bounded-norm, 2 for unit-norm |
ivan@155 | 22 %%%%%%%%%%%%%% |
ivan@155 | 23 Phi = Phio; |
ivan@155 | 24 M = size(Phi,1); |
ivan@155 | 25 [Phi,unhat,ert] = mapdl_cn(x,Phi,lambda,IT,res); |
ivan@155 | 26 |
ivan@155 | 27 save(['MAPl1',num2str(M),'t',num2str(IT),'iki',method(res,:),num2str(K),'v1d',num2str(SN),'.mat'],'Phi','Phid','x','ud','unhat','ert') |
ivan@155 | 28 |
ivan@155 | 29 toc |