波变换

开发平台：

Matlab

cw1dcoor.m：源码内容

							function [sx,sy] = cw1dcoor(x,y,axe,in4)
%CW1DCOOR Continuous wavelet 1-D coordinates.
%   [SX,SY] = CW1DCOOR(X,Y,AXE,IN4)
%   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 12-Mar-96.
%   Last Revision: 22-May-2003.
%   Copyright 1995-2004 The MathWorks, Inc.
%   $Revision: 1.13.4.2 $
% MB2.
%-----
n_coefs_sca = 'Coefs_Scales';
ind_coefs   = 1;
ind_scales  = 2;
ind_frequences = 3;
ind_sca_OR_frq = 4;
nb2_stored  = 4;
sx = ['X = ' , wstrcoor(x,5,7)];
i_axe = find(axe==in4);
if ~isempty(i_axe)
  fig = get(axe,'Parent');
  idx = wmemtool('rmb',fig,n_coefs_sca,ind_sca_OR_frq);
  infos = wmemtool('rmb',fig,n_coefs_sca,idx);
  len = length(infos);
  if (len>0) && (1<=y) && (y<=len)
      y = round(y);
	  t = num2str(infos(y));
      switch idx
        case ind_scales     , sy = ['Sca = ' t];
        case ind_frequences , sy = ['Frq = ' t];
      end
	  sy = sy(1:min(11,length(sy)));
  else
      sy = ['Y = ' , wstrcoor(y,5,7)];
  end
else
    sy = ['Y = ' , wstrcoor(y,5,7)];
end

						