[Octave-cvsupdate] octave-forge/main/signal/inst shanwavf.m, NONE, 1.1 From: sis-sou - 2007-08-31 11:24:06 ```Update of /cvsroot/octave/octave-forge/main/signal/inst In directory sc8-pr-cvs3.sourceforge.net:/tmp/cvs-serv5969 Added Files: shanwavf.m Log Message: Initial commit into CVS. --- NEW FILE: shanwavf.m --- ## Copyright (C) 2007 Sylvain Pelissier ## ## 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}] =} shanwavf (@var{lb,ub,n,fb,fc}) ## Compute the Complex Shannon wavelet. ## @end deftypefn function [psi,x] = shanwavf (lb,ub,n,fb,fc) if (nargin < 5); usage('[psi,x] = shanwavf(lb,ub,n,fb,fc)'); end if (n <= 0) error("n must be strictly positive"); endif x = linspace(lb,ub,n); psi = (fc.^0.5).*(sinc(fc.*x).*exp(-2.*i.*pi.*fb.*x)); endfunction ```
 [Octave-cvsupdate] octave-forge/main/signal/inst shanwavf.m, NONE, 1.1 From: sis-sou - 2007-08-31 11:24:06 ```Update of /cvsroot/octave/octave-forge/main/signal/inst In directory sc8-pr-cvs3.sourceforge.net:/tmp/cvs-serv5969 Added Files: shanwavf.m Log Message: Initial commit into CVS. --- NEW FILE: shanwavf.m --- ## Copyright (C) 2007 Sylvain Pelissier ## ## 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}] =} shanwavf (@var{lb,ub,n,fb,fc}) ## Compute the Complex Shannon wavelet. ## @end deftypefn function [psi,x] = shanwavf (lb,ub,n,fb,fc) if (nargin < 5); usage('[psi,x] = shanwavf(lb,ub,n,fb,fc)'); end if (n <= 0) error("n must be strictly positive"); endif x = linspace(lb,ub,n); psi = (fc.^0.5).*(sinc(fc.*x).*exp(-2.*i.*pi.*fb.*x)); endfunction ```