Question

Mathematica 矩阵里面如何进行三角函数的化简？

TrigFactor[ Cos[\[Theta]1] Cos[\[Theta]2] - Sin[\[Theta]1] Sin[\[Theta]2]]
可以化为Cos[\[Theta]1 + \[Theta]2]
请问矩阵里面的这种表达式如何化简？如
{{Cos[\[Theta]1] Cos[\[Theta]2] -
Sin[\[Theta]1] Sin[\[Theta]2], -Cos[\[Theta]2] Sin[\[Theta]1] -
Cos[\[Theta]1] Sin[\[Theta]2], 0,
a1 Cos[\[Theta]1] + a2 Cos[\[Theta]1] Cos[\[Theta]2] -
a2 Sin[\[Theta]1] Sin[\[Theta]2]}, {Cos[\[Theta]2] Sin[\[Theta]1] +
Cos[\[Theta]1] Sin[\[Theta]2],
Cos[\[Theta]1] Cos[\[Theta]2] - Sin[\[Theta]1] Sin[\[Theta]2], 0,
a1 Sin[\[Theta]1] + a2 Cos[\[Theta]2] Sin[\[Theta]1] +
a2 Cos[\[Theta]1] Sin[\[Theta]2]}, {0, 0, 1, 0}, {0, 0, 0, 1}}

Answer 1

直接TrigFactor[矩阵]

追问

哦，我用TrigFactor[MatrixForm[矩阵]]所以出错了，该是MatrixForm[TrigFactor[矩阵]]
谢谢!!