당신은 두 가지 기능

Question

의 교회법 그래서 내가

library(ggplot2) 
df <- data.frame(x = rep(x, times = 2), y = c(var1, var2), var = rep(c("10 * x * log(x)^2", "100 * x * log(x)", each = length(x))) 
ggplot(df, aes(x = x, y = y, color = var)) + geom_line() 

에서 플롯 할 수 있습니다

var1 <- 10 * x * log(x)^2 
var2 <- 100 * x * log(x) 

, 견인 로그 기능을 가지고 날의 교차점을 찾을 수 있도록 R의 함수 호출이 있습니까

어떻게 찾을 수 있습니까 var1과 var2?

Answer 1

당신이 범위가있는 교차로가 발생하는 것입니다 알고 있다면 당신은 uniroot()를 사용할 수 있습니다

f1 <- function(x) 10 * x * log(x)^2 
f2 <- function(x) 100 * x * log(x) 

curve(f1,from=1e-3,to=1e8,log="xy") 
curve(f2,add=TRUE,col=2) 

uniroot(function(x) f1(x)-f2(x),c(10,1e8))$root 
## [1] 22026.47 

을하지만 그

## 10*x*log(x)^2 = 100*x*log(x) 
## log(x) = 10 
x <- exp(10) ## 22026.47 

것보다 정말 훨씬 쉽게