我必須寫一個算法找到一個矩陣,它與遞歸函數所做的決定因素:算法找到一個矩陣的行列式
其中A_ij
是矩陣,從而出現當您刪除i
th行和j
th列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]
]
這是功課任何機會? – Szabolcs 2011-12-14 16:08:50
到目前爲止你有什麼?你卡在哪裏? – 2011-12-14 16:11:35
對不起,我忘了.. 這是我的代碼,直到現在,但不起作用: det1 [Mi_ /;模塊[{det1}, det1 = Sum [ ]如果[det1 == 1, Break [],( - 1)^(1 + j)* Mi [[1,j]] * det1 [Drop [Mi,{1},{j}]]],{j, 1,Length [Mi]}]返回[det1 // MatrixForm,模塊]] – user1098185 2011-12-14 16:32:48