Mercurial > hg > smallbox

view toolboxes/alps/ALPS/thresh.m @ 241:423de9f24d98 ver_2.0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
removed unnecessary files
author luisf <luis.figueira@eecs.qmul.ac.uk>
date Wed, 25 Apr 2012 15:05:38 +0100
parents 0de08f68256b
children
line wrap: on
line source
function x= thresh(x, K)

[~, ind] = sort(abs(x), 'descend');
x(ind(K+1:end))= 0;