Интеграция внутри функции корнеобитаемого найти

Question

Я пытаюсь написать код алгоритма корень поиска в R, который будет решать уравнение вида:

интеграл от xinitial-> х е (х) = а

с входами xinitial, a и формой функции f(x).

Нужно ли использовать vectorize для определения интегральных значений перед их запуском через алгоритм поиска корней?

Пример: y = x x1 = 1 a = 2 Я пытался настроить корневую находку для вывода значения x2, при котором интеграл ((x2^2)/2) = a + (x1^2)/2.

Пробовал с помощью

a<-1.5 
ftn<-function(x)return(x) 
f<-function(x)return(-a+integrate(ftn,1,x)$value +0) 
uniroot(f, c(0, 4))  

Answer 1

ftn <- function(x) return(x) 
f <- function(x) return(-a+integrate(ftn, x1, x)$value) 
uniroot(f, c(0, 4))