Mercurial > hg > smallbox

diff DL/Majorization Minimization DL/ExactDicoRecovery/dict_update_KSVD_cn.m @ 159:23763c5fbda5 danieleb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge
author Daniele Barchiesi <daniele.barchiesi@eecs.qmul.ac.uk>
date Wed, 31 Aug 2011 10:43:32 +0100
parents b14209313ba4
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/DL/Majorization Minimization DL/ExactDicoRecovery/dict_update_KSVD_cn.m	Wed Aug 31 10:43:32 2011 +0100
@@ -0,0 +1,22 @@
+function[Phiout,unhatnz] = dict_update_KSVD_cn(Phi,x,unhat)
+%% K-SVD Dictionary Learning with the constraint on the column norms %%%%%
+
+%%
+unhatn = unhat;
+rPerm = randperm(size(Phi,2));
+%% for l = 1:size(Phi,2),
+for l = rPerm
+    unhatns = unhat;
+    unhatns(l,:) = zeros(1,size(unhat,2));
+    E = x-Phi*unhatns;
+    ER = E(:,(abs(unhat(l,:))>0));
+    [U,S,V] = svd(ER,0);
+    Phi(:,l) = U(:,1)
+    unhatn(l,:) = zeros(1,size(unhat,2));
+    unhatn(l,(abs(unhat(l,:))>0)) = S(1,1)*V(:,1);
+    unhat = unhatn;
+end
+%%
+unhatnz = unhat;
+Phiout = Phi;
+end
\ No newline at end of file