Finding local maxima's and minima's of a curve

This mfile finds local maxima's and minima's of a curve. The bugs have been fixed in this version.

%output = fpeak(x,y,s,range)
% x and y are the data
% s: is a scallar and determines the sensitivity of the function, the
% default (minimum) value is 1.
% Range: is the interval to find local maxima and minima and is
% optional, it has four elements: [x_min x_max y_min y_max]
% output: is the xy position of local maxima's and minima's
% SEE ALSO findpeaks
%-----------------------------------------------------------------------
% Author: Geng Jun, Dec 09, 2003
% Email: [e-mail]
% Editted by: Farhad VISHKAEE, 23 May, 2010
% Email: [e-mail]
% LinkedIn: http://www.linkedin.com/pub/farhad-vishkaee/33/191/40a
%-----------------------------------------------------------------------