相关疑难解决方法(0)

我必须编写一个算法来找到矩阵的行列式,这是通过递归函数完成的:

A_ij矩阵在哪里,当你删除第ith行和第jth列时出现A.当A有维n x n,那么对于尺寸A_ij为(n-1) x (n-1).我不允许使用Minor[]或Det[].

我该如何编写这个算法？

这是我到目前为止的代码:

det1[Mi_ /; Dimensions[Mi][[1]] == Dimensions[Mi][[2]]] :=
  Module[{det1}, 
    det1 = Sum[ 
      If[det1 == 1, Break[], (-1)^(1 + j) *Mi[[1, j]]*det1[Drop[Mi, {1}, {j}]]], 
      {j, 1, Length[Mi]}]; 
    Return[det1 // MatrixForm, Module]
]