在线Mathematica怎么计算超越方程?

题目

在线Mathematica怎么计算超越方程?
2*A*asin(2*A/n)+m*cos(r)-2*A*r=(-b)*sqrt(1-(2*A/n)^2)
A是未知量,其他都是已知量 ,..
上面的-b换为-n,不好意思哦

答案

可以用FindRoot寻根：
(*这只是一个随便赋了值的例子*)
a = 1; n = 1; m = 1; r = 1; b = 1;
FindRoot[2*A*a Sin[2*A/n] + m*Cos[r] - 2*A*r == (-b)* Sqrt@(1 - (2*A/n)^2),{A,2}]
这是在2附近寻根的结果.也许还有其他根,可以多试；画个图先观察根的大致位置是一个办法.
——————
你该不会是一点Mathematica 并且还想算出这个方程的解析解?!那洗洗睡吧,这个方程很可能没有解析解.