function  x = HardTh(y,thld)%    x = HardTh(y,thld); %%    HARDTH hard thresholds the input signal y with the threshold value%    thld.%%    Input:  %       y    : 1D or 2D signal to be thresholded%       thld : threshold value%%    Output: %       x : Hard thresholded output (x = (abs(y)>thld).*y)%%  HERE'S AN EASY WAY TO RUN THE EXAMPLES:%  Cut-and-paste the example you want to run to a new file %  called ex.m, for example. Delete out the % at the beginning %  of each line in ex.m (Can use search-and-replace in your editor%  to replace it with a space). Type 'ex' in matlab and hit return.%%%    Example:%       y = makesig('WernerSorrows',8);%       thld = 1;%       x = HardTh(y,thld)%       x = 1.5545 5.3175 0 1.6956  -1.2678 0 1.7332 0%%    See also: SoftTh%%File Name: HardTh.m%Last Modification Date: 8/15/95	17:49:37%Current Version: HardTh.m	2.4%File Creation Date: Mon Jan 31 09:42:50 1994%Author: Haitao Guo  <harry@jazz.rice.edu>%%Copyright (c) 2000 RICE UNIVERSITY. All rights reserved.%Created by Haitao Guo, Department of ECE, Rice University. %%This software is distributed and licensed to you on a non-exclusive %basis, free-of-charge. Redistribution and use in source and binary forms, %with or without modification, are permitted provided that the following %conditions are met:%%1. Redistribution of source code must retain the above copyright notice, %   this list of conditions and the following disclaimer.%2. Redistribution in binary form must reproduce the above copyright notice, %   this list of conditions and the following disclaimer in the %   documentation and/or other materials provided with the distribution.%3. All advertising materials mentioning features or use of this software %   must display the following acknowledgment: This product includes %   software developed by Rice University, Houston, Texas and its contributors.%4. Neither the name of the University nor the names of its contributors %   may be used to endorse or promote products derived from this software %   without specific prior written permission.%%THIS SOFTWARE IS PROVIDED BY WILLIAM MARSH RICE UNIVERSITY, HOUSTON, TEXAS, %AND CONTRIBUTORS AS IS AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, %BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS %FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL RICE UNIVERSITY %OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, %EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, %PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; %OR BUSINESS INTERRUPTIONS) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, %WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR %OTHERWISE), PRODUCT LIABILITY, OR OTHERWISE ARISING IN ANY WAY OUT OF THE %USE OF THIS SOFTWARE,  EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.%%For information on commercial licenses, contact Rice University's Office of %Technology Transfer at techtran@rice.edu or (713) 348-6173x = (abs(y) > thld).*y;