У меня есть следующий код.
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}}.
Не могли бы вы сказать мне, где я допустил ошибку?
Спасибосерия