怎么用mathematica计算这个结果中的XSin[x]*Sinh[x]=-1
问题描述：
怎么用mathematica计算这个结果中的X
Sin[x]*Sinh[x]=-1
答
*？？？这个符号神马意思？指数？乘法 ？
答
似乎没有解析解法,但是可以使用FindRoot,.也就是说,先用Plot画图观察一下：
Plot[Sin[x]*Sinh[x] + 1,{x,-10,10}]
看出来似乎3附近有解,那么：
ans = FindRoot[Sin[x]*Sinh[x] + 1,{x,3}]
(* {x -> 3.22159} *)
反代检查：
Sin[x] Sinh[x] + 1 /.ans
(* 3.33067*10^-16 *)
误差非常小.