大家好，我想利用mathematica求解一个方程，Solve、NSolve和FindRoot都做了尝试（根据作图得到解的实部在3.471*10^7处），还未得到任何形式的解，方程和条件如下：
wd = 851/
15000000000
;
ew = 1;
em = -4.824 + 0.4871 I;
k0 = 2*Pi/( 193*10^-9);
fun[bt_, a_, b_, k_, w_] :=
Tanh[Sqrt[bt^2 - a*k^2]*w/2] +
a*Sqrt [bt^2 - b*k^2]/b/Sqrt[bt^2 - a*k^2];
out = NSolve[fun[bt, ew, em, k0, wd] == 0, bt];
请求大家的帮助，谢谢大家！

都知道解的大致位置了用FindRoot就行了啊
FindRoot[fun[bt, ew, em, k0, wd] == 0, {bt, 3.471*10^7}]