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

波变换

开发平台:

Matlab

  1. function y = wunique(x)
  2. %WUNIQUE Set unique.
  3. %    WUNIQUE(A) for the array A returns the same values as in A 
  4. %    but with no repetitions. A will also be sorted.
  5. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 13-May-2003.
  6. %   Last Revision: 25-May-2003.
  7. %   Copyright 1995-2004 The MathWorks, Inc.
  8. %   $Revision: 1.1.6.2 $  $Date: 2004/03/15 22:38:43 $
  9. if isempty(x) , y = []; return; end
  10. y = sort(x);
  11. d = diff(y);
  12. J = 1 + find(d>0);
  13. K = [1 ; J(:)];
  14. y = y(K);