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

波变换

开发平台:

Matlab

  1. function M = uminus(A)
  2. %UMINUS Unary minus for Laurent matrix.
  3. %   -A negates the elements of A.
  4. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 30-Mar-2001.
  5. %   Last Revision 12-Jun-2003.
  6. %   Copyright 1995-2004 The MathWorks, Inc.
  7. %   $Revision: 1.1.6.2 $ $Date: 2004/04/13 00:39:26 $ 
  8. MA = A.Matrix;
  9. [rA,cA] = size(MA);
  10. for i=1:rA
  11.     for j=1:cA
  12.         MA{i,j} = -MA{i,j};
  13.     end
  14. end
  15. M = laurmat(MA);