mathematica里面求方程的数值解

最后一行的代码格式不规范,应该使用双等号”==“
FindRoot[XX == YY, {\[Theta], 1}]
这个可以求出在 1 附近的根,你可以根据图像选择合适的初值,把其他的根也求出来,或者可以一次求出所有在区间 0 到 2*Pi 之间的跟来：
Sort@Select[
Flatten[\[Theta] /.
NSolve[1 + 3 Cos[2 \[Theta]]^2 ==
3 Sin[2 \[Theta]]^2, \[Theta]] /. C[1] -> Range[-2, 2]],
0
2 \[Pi] - ArcTan[Sqrt[2 - Sqrt[3]]]}, {\[Theta] ->
ArcTan[Sqrt[2 - Sqrt[3]]]}, {\[Theta] -> \[Pi] +
ArcTan[Sqrt[2 - Sqrt[3]]]}, {\[Theta] -> \[Pi] -
ArcTan[Sqrt[2 + Sqrt[3]]]}, {\[Theta] ->
2 \[Pi] - ArcTan[Sqrt[2 + Sqrt[3]]]}, {\[Theta] ->
ArcTan[Sqrt[2 + Sqrt[3]]]}, {\[Theta] -> \[Pi] +
ArcTan[Sqrt[2 + Sqrt[3]]]}}