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

波变换

开发平台:

Matlab

  1. function [sx,sy] = wp2dcoor(x,y,axe,in4)
  2. %WP2DCOOR Wavelet packets 2-D coordinates.
  3. %   Write function used by DYNVTOOL.
  4. %   [SX,SY] = WP2DCOOR(X,Y,AXE,IN4)
  5. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 12-Mar-96.
  6. %   Last Revision: 22-May-2003.
  7. %   Copyright 1995-2004 The MathWorks, Inc.
  8. %   $Revision: 1.11.4.2 $
  9. sx = sprintf('X = %0.f',round(x));
  10. sy = sprintf('Y = %0.f',round(y));
  11. if axe==in4
  12.     img = findobj(in4,'type','image');
  13.     if ~isempty(img)
  14.         for k = 1:length(img)
  15.             us = get(img(k),'Userdata');
  16.             if (us(3)<x) && (x<us(4)) && (us(5)<y) && (y<us(6))
  17.                sx = ['Ind  : (' sprintf('%.0f',depo2ind(4,[us(1) us(2)])) ')'];
  18.                sy = ['Pack : (' sprintf('%.0f',us(1)) ',' ...
  19.                                        sprintf('%.0f',us(2)) ')'];
  20.                break;
  21.             end
  22.         end
  23.     end
  24. end