Предполагая, что b и t являются скалярами с известными значениями (здесь мы предполагаем 1 для обоих), мы можем минимизировать квадрат левой части, предполагая, что ответ лежит в указанном интервале, и если он достигает нуля (что он делает ниже)мы решили это. Обратите внимание, что F означает FALSE в R, поэтому мы использовали FF для ясности.
fun <- function(FF, b, t) (FF - b * log(abs(1+ (FF/b))) - 0.05*t)^2
optimize(fun, c(-10, 10), b = 1, t = 1)
, давая:
$minimum
[1] 0.3503927
$objective
[1] 7.525844e-12