annotate DL/Majorization Minimization DL/ExactDicoRecovery/dict_update_KSVD_cn.m @ 219:4337e28183f1
luisf_dev
Modified help comments of wrapper_mm_DL.m, wrapper_mm_solver.m, SMALL_rlsdla.m & SMALL_AudioDenoise_DL_test_KSVDvsSPAMS.m. Moved wrapper_ALPS_toolbox from toolboxes to toolboxes/alps and added some extra help comments.
| author |
Aris Gretsistas <aris.gretsistas@elec.qmul.ac.uk> |
| date |
Fri, 23 Mar 2012 20:48:25 +0000 |
| parents |
b14209313ba4 |
| children |
|
| rev |
line source |
|
ivan@155
|
1 function[Phiout,unhatnz] = dict_update_KSVD_cn(Phi,x,unhat)
|
|
ivan@155
|
2 %% K-SVD Dictionary Learning with the constraint on the column norms %%%%%
|
|
ivan@155
|
3
|
|
ivan@155
|
4 %%
|
|
ivan@155
|
5 unhatn = unhat;
|
|
ivan@155
|
6 rPerm = randperm(size(Phi,2));
|
|
ivan@155
|
7 %% for l = 1:size(Phi,2),
|
|
ivan@155
|
8 for l = rPerm
|
|
ivan@155
|
9 unhatns = unhat;
|
|
ivan@155
|
10 unhatns(l,:) = zeros(1,size(unhat,2));
|
|
ivan@155
|
11 E = x-Phi*unhatns;
|
|
ivan@155
|
12 ER = E(:,(abs(unhat(l,:))>0));
|
|
ivan@155
|
13 [U,S,V] = svd(ER,0);
|
|
ivan@155
|
14 Phi(:,l) = U(:,1)
|
|
ivan@155
|
15 unhatn(l,:) = zeros(1,size(unhat,2));
|
|
ivan@155
|
16 unhatn(l,(abs(unhat(l,:))>0)) = S(1,1)*V(:,1);
|
|
ivan@155
|
17 unhat = unhatn;
|
|
ivan@155
|
18 end
|
|
ivan@155
|
19 %%
|
|
ivan@155
|
20 unhatnz = unhat;
|
|
ivan@155
|
21 Phiout = Phi;
|
|
ivan@155
|
22 end |
