Question

Mathematica 如何求解矩阵方程如下

A1=
{{Cos[\[Theta]1], -Sin[\[Theta]1], 0,
a1 Cos[\[Theta]1]}, {Sin[\[Theta]1], Cos[\[Theta]1], 0,
a1 Sin[\[Theta]1]}, {0, 0, 1, 0}, {0, 0, 0, 1}}
A2=
{{Cos[\[Theta]2], -Sin[\[Theta]2], 0,
a2 Cos[\[Theta]2]}, {Sin[\[Theta]2], Cos[\[Theta]2], 0,
a2 Sin[\[Theta]2]}, {0, 0, 1, 0}, {0, 0, 0, 1}}
T=A1.A2
P={{nx, ox, ax, px}, {ny, oy, ay, py}, {nz, oz, az, pz}, {0, 0, 0, 1}}
Solve[T==P,{\[Theta]1, \[Theta]2}]
求解\[Theta]1, \[Theta]2，用Solve为什么解不出来，请问针对这种情况如何求解？

Answer 1

你是想解

吗？

是的话如果nx^2+ny^2!=0或者ox+ny!=0或者nx!=ny或者nz!=0的话这个方程就无解了。

追问

直接从方程两边【2、1】，【1、1】，【1、4】，【2、4】即可求出theta1和theta2，想用mathematica求解，那么就是说这个方程的条件不足，所以不能求解？