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

波变换

开发平台:

Matlab

  1. function POW = POWERS(P,type)
  2. %POWERS Powers of a Laurent polynomial.
  3. %   POW = POWERS(P) returns the powers of all monomials
  4. %   of the Laurent polynomial P.
  5. %   POW = POWERS(P,'min') and POW = POWERS(P,'max') returns  
  6. %   the lowest, the biggest, power of the monomials of P 
  7. %   respectively.
  8. %
  9. %   See also DEGREE.
  10. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 15-Jun-2003.
  11. %   Last Revision 15-Jun-2003.
  12. %   Copyright 1995-2004 The MathWorks, Inc.
  13. %   $Revision: 1.1.6.2 $ $Date: 2004/04/13 00:39:04 $ 
  14. C = P.coefs;
  15. powMAX = P.maxDEG;
  16. powMIN = powMAX-length(C)+1;
  17. if nargin<2 , type = 'all'; end
  18. switch lower(type)
  19.     case 'all' , POW = [powMIN:powMAX];
  20.     case 'min' , POW = powMIN;
  21.     case 'max' , POW = powMAX;
  22.     otherwise
  23.         error('Invalid argument value for ARG 2.')
  24. end