命令如下：
Solve[H*(H/q*Cosh[q/H*x] - H/q) ==
q*H*Sqrt[Cosh[q/H*x]^2]*Tanh[q/H*x]/q*(x - (q*x - H*Coth[q/H*x])/q),
H]
系统提示：Solve::ifun: Inverse functions are being used by Solve, so some solutions may not be found; use Reduce for complete solution information.
我应该怎么修改才可以，这个方程的确太复杂，但是就设了一个未知数H，球大神出手相助！

……请仔细阅读这个警告的内容，它只是提示Solve可能会漏解。然后，Solve紧接着输出了{}，这个记号的含义在Solve的自带帮助的“更多信息”一节其实写了，它的含义是——
无解。
然后，这个警告信息也提示了你，可以使用 Reduce 来尝试求解，然后
Reduce[
H*(H/q*Cosh[q/H*x] - H/q) ==
q*H*Sqrt[Cosh[q/H*x]^2]*Tanh[q/H*x]/q*(x - (q*x - H*Coth[q/H*x])/q), H]
(*
Out[117]= False
*)
直接给了False嗯。