Button for 1977 Button for 1984 Button for 1990 Button for 1995 Button for MDC Button for notes Button for examples
☜

$%MTXDET

Draft MDC Standard

☞

2 MATH Library
2.40 MTXDET

MTXDET(A,N) ;
	; Compute determinant of matrix A[N,N]
	If $Data(A)<10 Quit ""
	If $Get(N)<1 Quit ""
	;
	; First the simple cases
	;
	If N=1 Quit $Get(A(1,1))
	If N=2 Quit $Get(A(1,1))*$Get(A(2,2))-($Get(A(1,2))*$Get(A(2,1)))
	;
	New DET,I,SIGN
	;
	; Det A = sum (k=1:n) element (i,k) * cofactor [i,k]
	;
	Set DET=0,SIGN=1
	For I=1:1:N Do
	. Set DET=$Get(A(1,I))*$%MTXCOF^MATH(.A,1,I,N)*SIGN+DET
	. Set SIGN=-SIGN
	. Quit
	Quit DET
Button for 1977 Button for 1984 Button for 1990 Button for 1995 Button for MDC Button for notes Button for examples

Copyright © Standard Documents; 1977-2024 MUMPS Development Committee;
Copyright © Examples: 1995-2024 Ed de Moel;
Copyright © Annotations: 2003-2008 Jacquard Systems Research
Copyright © Annotations: 2008-2024 Ed de Moel.

Some specifications are "approved for inclusion in a future standard". Note that the MUMPS Development Committee cannot guarantee that such future standards will indeed be published.

This page most recently updated on 30-Nov-2011, 20:05:30.

For comments, contact Ed de Moel (demoel@jacquardsystems.com)