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

波变换

开发平台:

Matlab

  1. function P = prod(varargin)
  2. %PROD Product of Laurent polynomials.
  3. %   P = PROD(P1,P2,...) returns a Laurent polynomial  
  4. %   which is the product of the Laurent polynomials Pi.
  5. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 31-Mar-2003.
  6. %   Last Revision: 07-Jul-2003.
  7. %   Copyright 1995-2004 The MathWorks, Inc.
  8. %   $Revision: 1.1.6.1 $ $Date: 2004/03/15 22:38:10 $ 
  9. nbIn = nargin;
  10. if nbIn<1
  11.     error('Not enough input arguments.');
  12. end
  13. P = varargin{1};
  14. for k = 2:nbIn
  15.     P = P * varargin{k};
  16. end