From: sis-sou <si...@us...> - 2007-08-31 09:27:50
|
Update of /cvsroot/octave/octave-forge/main/signal/inst In directory sc8-pr-cvs3.sourceforge.net:/tmp/cvs-serv6908 Added Files: morlet.m Log Message: Initial Commit into CVS.Initial Commit into CVS. --- NEW FILE: morlet.m --- ## Copyright (C) 2007 Sylvain Pelissier <syl...@gm...> ## ## This program is free software; you can redistribute it and/or modify ## it under the terms of the GNU General Public License as published by ## the Free Software Foundation; either version 2 of the License, or ## (at your option) any later version. ## ## This program is distributed in the hope that it will be useful, ## but WITHOUT ANY WARRANTY; without even the implied warranty of ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ## GNU General Public License for more details. ## ## You should have received a copy of the GNU General Public License ## along with this program; if not, write to the Free Software ## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ## -*- texinfo -*- ## @deftypefn {Function File} {[@var{psi,x}] =} morlet(@var{lb,ub,n}) ## Compute the Morlet wavelet. ## @end deftypefn function [psi,x] = morlet(lb,ub,n) if (nargin < 3); usage('[psi,x] = morlet(lb,ub,n)'); end if (n <= 0) error("n must be strictly positive"); endif x = linspace(lb,ub,n); psi = cos(5.*x) .* exp(-x.^2/2) ; endfunction |