怎么用Mathematica求方程20sinx = lnx在x = 65 处的根

问题描述:

怎么用Mathematica求方程20sinx = lnx在x = 65 处的根

可以使用现成的函数 FindRoot ,
In[1]:= FindRoot[20*Sin[x] == Log[x],{x,65}]
Out[1]= {x -> 65.7626}