Question

Mathematica 如何计算矩阵连乘？

如有一组矩阵M1，M2，...Mn。如何用mathematica按照矩阵点积计算M1.M2.M3....Mn

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏50（财富值+成长值）

Answer 1

如M1={{1,2},{2,1}};
M2={{2,3},{4,5}}
矩阵点积，直接用“.”就可以了

M1.M2
返回{{10, 13}, {8, 11}}

追问

实际上我要求的矩阵是关于NK和i的函数。i可能会很大。
TM[NK_, i_] := {{m11[NK, i], m12[NK, i]}, {m21[NK, i], m22[NK, i]}};
M[NK_] := TM[NK, 1].TM[NK, 2].TM[NK, 3].TM[NK, 4]
i很小我倒是可以求出来，但是如果i很大怎么办。

Answer 2

就M1.M2.M3.M4就行啊

追问

如果有N个的话，有什么办法遍历？不可能全部打出来吧

追答

prodMatrix[n_] :=
ToExpression[
StringJoin @@ Riffle["M" IntegerString[#] & /@ Range[n], "."]]

比如有9个矩阵就写prodMatrix[9]