% shrink - Shrinkage towards zero
%
% shrink :: real, [Size] -> [Size].
function y=shrink(th,x)

y=x;
y(y<th)=0;
