Вы можете найти решение этого уравнения, используя uniroot
.Решение вашего уравнения такое же, как и решение X / (X + 0.2) * (exp(X + 0.2) -1) - 1.126 = 0
Итак ...
Dec = function(X) X / (X + 0.2) * (exp(X + 0.2) - 1) - 1.126
uniroot(Dec, c(0,2))
(часть), результат равен
$ root [1]
0,6959234
$ f.root [1]
-1,585758e-06
Если вам нужна большая точность, вы можете настроить параметр tol
.
uniroot(Dec, c(0,2), tol= 0.0000001)
$ root
[1] 0,6959241
$ f.root
[1] 7,61391e-13