Решение уравнения, содержащего числовые интегралы в математике с Nsolve - PullRequest
0 голосов
/ 10 февраля 2019

У меня есть следующий код.

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}}.

Не могли бы вы сказать мне, где я допустил ошибку?

Спасибосерия

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...