samer@4: % shrink - Shrinkage towards zero
samer@4: %
samer@4: % shrink :: real, [Size] -> [Size].
samer@4: function y=shrink(th,x)
samer@4: 
samer@4: y=x;
samer@4: y(y<th)=0;