似乎没有解析解法,但是可以使用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 *)
误差非常小.