Mercurial > octave-nkf

comparison src/DLD-FUNCTIONS/det.cc @ 5164:57077d0ddc8e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-02-25 19:55:24 by jwe]
author jwe
date Fri, 25 Feb 2005 19:55:28 +0000
parents 1e6f653ef1e3
children 23b37da9fd5b
comparison
equal deleted inserted replaced
5163:9f3299378193 5164:57077d0ddc8e
31 #include "error.h" 31 #include "error.h"
32 #include "gripes.h" 32 #include "gripes.h"
33 #include "oct-obj.h" 33 #include "oct-obj.h"
34 #include "utils.h" 34 #include "utils.h"
35 35
36 DEFUN_DLD (det, args, nargout, 36 DEFUN_DLD (det, args, ,
37 "-*- texinfo -*-\n\ 37 "-*- texinfo -*-\n\
38 @deftypefn {Loadable Function} {[@var{d}, @var{rcond}] = } det (@var{a})\n\ 38 @deftypefn {Loadable Function} {[@var{d}, @var{rcond}] = } det (@var{a})\n\
39 Compute the determinant of @var{a} using @sc{Lapack}. Return an estimate\n\ 39 Compute the determinant of @var{a} using @sc{Lapack}. Return an estimate\n\
40 of the reciprocal condition number if requested.\n\ 40 of the reciprocal condition number if requested.\n\
41 @end deftypefn") 41 @end deftypefn")
109 retval(0) = ((info == -1 || xrcond == 1.0) 109 retval(0) = ((info == -1 || xrcond == 1.0)
110 ? Complex (0.0) : det.value ()); 110 ? Complex (0.0) : det.value ());
111 } 111 }
112 } 112 }
113 else 113 else
114 { 114 gripe_wrong_type_arg ("det", arg);
115 gripe_wrong_type_arg ("det", arg);
116 }
117 115
118 return retval; 116 return retval;
119 } 117 }
120 118
121 /* 119 /*