Следующий код выполняется бесконечно. Он имеет 3 параметра и 3 уравнения. Я не понимаю, в чем проблема?
eq1 = ExpandAll[M^2 + L^2 - 2 M L Cos[i] == a]
eq2 = ExpandAll[M^2 + X^2 - 2 M X Cos[cr] == b]
eq3 = ExpandAll[L^2 + X^2 - 2 L X Cos[i - cr] == c]
Solve[{eq1, eq2, eq3}, {L, M, X}, Reals]