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

波变换

开发平台:

Matlab

  1. function [sx,sy] = cw1dcoor(x,y,axe,in4)
  2. %CW1DCOOR Continuous wavelet 1-D coordinates.
  3. %   [SX,SY] = CW1DCOOR(X,Y,AXE,IN4)
  4. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 12-Mar-96.
  5. %   Last Revision: 22-May-2003.
  6. %   Copyright 1995-2004 The MathWorks, Inc.
  7. %   $Revision: 1.13.4.2 $
  8. % MB2.
  9. %-----
  10. n_coefs_sca = 'Coefs_Scales';
  11. ind_coefs   = 1;
  12. ind_scales  = 2;
  13. ind_frequences = 3;
  14. ind_sca_OR_frq = 4;
  15. nb2_stored  = 4;
  16. sx = ['X = ' , wstrcoor(x,5,7)];
  17. i_axe = find(axe==in4);
  18. if ~isempty(i_axe)
  19.   fig = get(axe,'Parent');
  20.   idx = wmemtool('rmb',fig,n_coefs_sca,ind_sca_OR_frq);
  21.   infos = wmemtool('rmb',fig,n_coefs_sca,idx);
  22.   len = length(infos);
  23.   if (len>0) && (1<=y) && (y<=len)
  24.       y = round(y);
  25.   t = num2str(infos(y));
  26.       switch idx
  27.         case ind_scales     , sy = ['Sca = ' t];
  28.         case ind_frequences , sy = ['Frq = ' t];
  29.       end
  30.   sy = sy(1:min(11,length(sy)));
  31.   else
  32.       sy = ['Y = ' , wstrcoor(y,5,7)];
  33.   end
  34. else
  35.     sy = ['Y = ' , wstrcoor(y,5,7)];
  36. end