Мне нужно найти точку, в которой две функции пересекаются, и построить функции с помеченным пересечением.
Я уже узнал, как построить две функции в r.
Моя первая проблема заключается в том, что мне все еще нужно изменить ось X с осью Y.
Функции:
fun1 = function(d, m = 1.92) {m/((pi/4)*d^2)}
fun2 = function(d, mu = 0.039, kb = 3.5) {mu*(1-exp(-(kb)*d))}
Я нанес их с помощью:
plot(fun1)
par(new=TRUE)
plot(fun2)
Сначала я хотел бы изменить ось, но я не знаю команду.
И, во-вторых, мне нужно найти значения точки, где две функции пересекаются.
В других заданных здесь вопросах я нашел рекомендацию использовать команду uniroot, но мне нужно найти решение, не зная диапазона, в котором происходит пересечение.
Кто-нибудь знает решение?
fun1 = function(d, m = 1.92) {m/((pi/4)*d^2)}
fun2 = function(d, mu = 0.039, kb = 3.5) {mu*(1-exp(-(kb)*d))}
plot(fun1)
par(new=TRUE)
plot(fun2)