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

波变换

开发平台:

Matlab

  1. function D = det(M)
  2. %DET Laurent matrix determinant.
  3. %   D = det(M) returns the determinant of the Laurent matrix M.
  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:11 $ 
  8. D = CellDET(M.Matrix);
  9. %-------------------------------------------------------------------%
  10. function D = CellDET(A)
  11. [R,C] = size(A);
  12. if R>1
  13.     D = 0;
  14.     for k=1:R
  15.         idxROWS = setdiff([1:R],k);
  16.         idxCOLS = [2:C];
  17.         D = D + (-1)^(1+k) * A{k,1} * CellDET(A(idxROWS,idxCOLS));
  18.     end
  19. else
  20.     D = A{1,1};
  21. end
  22. %-------------------------------------------------------------------%