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

波变换

开发平台:

Matlab

  1. function S = plus(A,B)
  2. %PLUS Laurent matrices addition.
  3. %   S = PLUS(A,B) returns a Laurent polynomial which is
  4. %   the sum of the two Laurent polynomials A and B.
  5. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 29-Mar-2001.
  6. %   Last Revision 13-Jun-2003.
  7. %   Copyright 1995-2004 The MathWorks, Inc.
  8. %   $Revision: 1.1.6.3 $ $Date: 2004/04/13 00:39:21 $ 
  9. if      isnumeric(A) & length(A)==1 , A = laurmat(A);
  10. elseif  isnumeric(B) & length(B)==1 , B = laurmat(B);
  11. end
  12. MA = A.Matrix;
  13. MB = B.Matrix;
  14. [rA,cA] = size(MA);
  15. [rB,cB] = size(MB);
  16. if (rA~=rB) || (cA~=cB)
  17.     msg = sprintf('Error using ==> +nMatrix dimensions must agree.');
  18.     error(msg)
  19. end
  20. for i=1:rA
  21.     for j=1:cA
  22.         MS{i,j} = MA{i,j}+MB{i,j};
  23.     end
  24. end
  25. S = laurmat(MS);