mathematica中的有些问题

Question

Solve[{ArcSin[M*L/2125500] + 1.989897/10^7*L^3 == ArcSin[L/802],
L^4/6/10^8 + (10607750/M) - ((10607750/M)^2 - (L/2)^2)^(1/2) ==
401 - (401^2 - (L/2)^2)^2}, {M, L}]
Solve::inex: Solve 无法求解具有不精确系数的系统，或是通过将系统中出现的不精确数直接合理化处理得到的系统. 由于 Solve 所用的许多方法需要精确输入，为 Solve 提供一个精确版本的系统可能会有帮助. >>

这是什么意思啊？怎么办

在线等，急急急

Answer 1

超越方程无解析解的情形很常见。这种时候一般用FindRoot。如果不知道根的大致范围也可以画图观察一下。我不知道你方程的背景，所以取的范围可能不对：

ContourPlot[{ArcSin[M*L/2125500] + 1.989897/10^7*L^3 == ArcSin[L/802],
   L^4/6/10^8 + (10607750/M) - ((10607750/M)^2 - (L/2)^2)^(1/2) == 
   401 - (401^2 - (L/2)^2)^2}, {M, -1/200, 1/200}, {L, -2, 2}, 
 PlotPoints -> 46]