www.gusucode.com > wavelet工具箱matlab源码程序 > wavelet/wavelet/wp1dcoor.m

    function [sx,sy] = wp1dcoor(x,y,axe,in4)
%WP1DCOOR Wavelet packets 1-D coordinates.
%   Write function used by DYNVTOOL.
%   [SX,SY] = WP1DCOOR(X,Y,AXE,IN4)

%   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 12-Mar-96.
%   Last Revision: 20-Nov-2011.
%   Copyright 1995-2011 The MathWorks, Inc.

% Tagged object.
%---------------
tag_img_cfs = 'Img_WPCfs';
tag_nodlab  = 'Pop_NodLab';

sx = sprintf('X = %7.2f',x);
sy = sprintf('Y = %7.2f',y);
if axe==in4
   img = findobj(in4,'Type','image','Tag',tag_img_cfs);
   if ~isempty(img)
       typelab = get(findobj(get(in4,'Parent'),'Tag',tag_nodlab),'Value');
       us      = get(img,'UserData');
       k = find(us(:,3)<y & us(:,4)>y);
       if length(k)==1
          if typelab==1
             sy = getWavMSG('Wavelet:wp1d2dRF:Pack_ID_dp',us(k,1),us(k,2));
          else
             sy = getWavMSG('Wavelet:wp1d2dRF:Pack_ID_ind',depo2ind(2,us(k,1:2)));
          end
       end
    end
end