det.mata

是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到

*! version 1.0.0  16nov2004
version 9.0

mata:

numeric scalar det(numeric matrix A)
{
	numeric matrix	LU
	real colvector	r
	real scalar	n, i, sgn
	
	if ((n=rows(A)) != cols(A)) _error(3205)
	if (n==0) return(iscomplex(A) ? C(1) : 1)

	_lud2_la(LU=A, r, .)
	n = rows(r)
	for (sgn=i=1; i<=n; i++) {
		if (r[i]!=i) sgn = -sgn
	}
	return(sgn*dettriangular(LU))
}

end