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 &]
结果==> {0.477658, 1.09314, 2.04845, 2.66393, 3.61925, 4.23473, 5.19005, 5.80553}
解析解也是存在的，也可以求出来
FindInstance[XX == YY && 0 <= \[Theta] <= 2*Pi, \[Theta], Reals, 8]
结果==>
{{\[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]]]}, {\[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]]]}}本回答被提问者采纳