Mercurial > hg > smallbox

diff toolboxes/alps/ALPS/thresh.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 0de08f68256b
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/toolboxes/alps/ALPS/thresh.m	Wed Aug 31 10:43:32 2011 +0100
@@ -0,0 +1,4 @@
+function x= thresh(x, K)
+
+[~, ind] = sort(abs(x), 'descend');
+x(ind(K+1:end))= 0;
\ No newline at end of file