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 

Answer 2

您在调用display 的行中调用函数det。将此更改为det3x3。 det 必须定义为 4 元函数。我不确定您使用的是什么版本的 Scheme；那一定是别的东西。