Scheme Lisp 3 × 3 矩阵的行列式

Question

我的代码不工作，它给我一个错误提示:det: arity mismatch; 预期的参数数量与给定数量不匹配 预期:4 给出:9 参数...:

这是我的代码:

(define (det3x3 a b c
                d e f
                g h i)
  (+ (* a ( * e i (* h f)))(* b (* d i (* g f)))(* c (* d h (* e g)))))
(display "(det 0 5 -6 8 -11 4 5 1 1) = ")(det 0 5 -6
                                              8 -11 4
                                              5 1 1)

Answer 1

行列式 = a(ei − fh) − b(di − fg) + c(dh − eg)

(define (det3x3 a b c
                d e f
                g h i)
  (+ (- (* a (- (* e i) (* f h)))
        (* b (- (* d i) (* f g))))
        (* c (- (* d h) (* e g)))))

e,g:

> (det3x3 0 5 -6
          8 -11 4
          5 1 1)
-318