determinant   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/core/math_ext.xtm

Implementation

(bind-func determinant:[!b,Matrix:<!a,i64,i64,i1>*]*
  (lambda (m1)
    (if (<> (tref m1 1) (tref m1 2))
        (begin
          (println "Error: Determinant for square matrix's only")
          (convert 0))
        (mdetrm (tref m1 0) (tref m1 1)))))


Back to Index

Similar Entries