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

波变换

开发平台:

Matlab

  1. function R = isconst(P)
  2. %ISCONST True for a constant Laurent polynomial.
  3. %   R = ISCONST(P) returns 1 if P is a constant Laurent polynomial
  4. %   and 0 if not.
  5. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 23-Apr-2001.
  6. %   Last Revision 13-Jun-2003.
  7. %   Copyright 1995-2004 The MathWorks, Inc.
  8. %   $Revision: 1.1.6.2 $ $Date: 2004/04/13 00:38:45 $ 
  9. D = P.maxDEG;
  10. C = length(P.coefs);
  11. R = (D==0) && length(C)==1;