我有以下代码。
f1[et_, k_, z_] := (et - 1) Exp[- k z]/z - et Exp[- k z]/(2 k)
f2[et_?NumericQ, k_?NumericQ, z_?NumericQ] :=
k/2 NIntegrate[
Exp[-k Abs[zd - z]] Sinh[et Exp[- k zd]/k], {zd, 0, 200000}]
NSolve[f1[et, 1, 0.36787944117144233] -
f2[et, 1, 0.36787944117144233] == 0, et]
我收到以下错误
NIntegrate::inumr: The integrand E^-Abs[-0.367879+zd] Sinh[E^-zd et] has evaluated to non-numerical values for all sampling points in the region with boundaries {{0,200000}}.
你能告诉我我哪里做错了吗？
非常感谢