wconvcwt.m
上传用户:haiyisale
上传日期:2013-01-09
资源大小:3246k
文件大小:1k
源码类别:

波变换

开发平台:

Matlab

  1. function y = wconv1(x,f,shape)
  2. %WCONV1 1-D Convolution.
  3. %   Y = WCONV1(X,F) performs the 1-D convolution of the 
  4. %   vectors X and F.
  5. %   Y = WCONV1(...,SHAPE) returns a subsection of the
  6. %   convolution with size specified by SHAPE (See CONV2).
  7. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 06-May-2003.
  8. %   Last Revision: 24-May-2003.
  9. %   Copyright 1995-2004 The MathWorks, Inc.
  10. %   $Revision: 1.1.6.2 $  $Date: 2004/03/15 22:42:33 $
  11. if nargin<3
  12.     nx = length(x);
  13.     nf = length(f);
  14.     if ( (nx<2048) && (nf<nx) )     || ...
  15.        ( (nx<4096) && (nx>10*nf) )  || ( (nx>64*nf) )
  16.         y = conv2(x(:)',f(:)');
  17.     else
  18.         y = conv(x(:)',f(:)');
  19.     end
  20. else
  21.     y = conv2(x(:)',f(:)',shape);
  22. end
  23. if size(x,1)>1
  24.     y = y';
  25. end