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

波变换

开发平台:

Matlab

  1. function P = mtimes(A,B)
  2. %MTIMES Laurent polynomial multiplication.
  3. %   P = MTIMES(A,B) returns a Laurent polynomial which is
  4. %   the product of the two Laurent polynomials A and B.
  5. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 19-Mar-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:58 $
  9. if      isnumeric(A) && length(A)==1 , A = laurpoly(A,0);
  10. elseif  isnumeric(B) && length(B)==1 , B = laurpoly(B,0);
  11. end
  12. dA = A.maxDEG;
  13. dB = B.maxDEG;
  14. cA = A.coefs;
  15. cB = B.coefs;
  16. dP = dA+dB;
  17. cP = conv(cA,cB);
  18. [cP,dP] = reduce(cP,dP);
  19. P = laurpoly(cP,dP);