annotate DL/Majorization Minimization DL/ExactDicoRecovery/ksvd_exactRec_demo.m @ 217:8b3c71bb44eb
luisf_dev
Removed "clear all" from example scripts (subs by "clear" instead)
| author |
luisf <luis.figueira@eecs.qmul.ac.uk> |
| date |
Thu, 22 Mar 2012 14:41:04 +0000 |
| parents |
b14209313ba4 |
| children |
|
| rev |
line source |
|
ivan@155
|
1 function ksvd_exactRec_demo(it,k,sn)
|
|
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 %%%%%%%%%
|
|
ivan@155
|
14 Phi = Phio;
|
|
ivan@155
|
15 M = size(Phi,1);
|
|
ivan@155
|
16 [Phi,unhat,ert] = ksvd_cn(x,Phi,lambda,IT);
|
|
ivan@155
|
17
|
|
ivan@155
|
18 save(['KSVDl1',num2str(M),'t',num2str(IT),'ikiun',num2str(K),'v1d',num2str(SN),'.mat'],'Phi','Phid','x','ud','unhat','ert')
|
|
ivan@155
|
19
|
|
ivan@155
|
20 toc
|
