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

波变换

开发平台:

Matlab

  1. function [count,y] = wimghist(x,nb)
  2. %WIMGHIST Compute histograms.
  3. %   [N,X] = WIMGHIST(Y,NB)
  4. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 01-May-96.
  5. %   Last Revision: 01-May-1998.
  6. %   Copyright 1995-2002 The MathWorks, Inc.
  7. % $Revision: 1.11 $
  8. x    = x(:);
  9. xlen = length(x);
  10. if nargin==1 , nb = 1+length(find(diff(sort(x)))) ; end
  11. minx = min(x);
  12. x    = x - minx;
  13. maxx = max(x);
  14. if abs(maxx)<eps
  15.     count = [xlen zeros(1,nb-1)];
  16.     y     = minx*ones(1,nb);
  17. else
  18.     x       = fix(1 + (nb*x)/maxx);
  19.     x(x>nb) = nb;
  20.     count   = full(sum(sparse(1:xlen,x,1,xlen,nb)));
  21.     y       = minx+((maxx*[0.5:nb])/nb);
  22. end