[R-br] Ponto de intercepção entre duas funções no R

[Robert Iquiapaza]

Isso resolve?

Sds
------------------------------

f1=function(x,y){
   x^2 - 3 * y
}

f2=function(x,z){
   4 * z - x^2
}

f3=function(x,y,z){
   f1(x,y)-f2(x,z)
}

x=seq(1,10,0.5)
y=3
z=15

plot(x,f1(x,y), type='l', col='red', ylim=c(-50,100))
lines(x,f2(x,z), col='blue')
lines(x,f3(x,y,z), col='green')
grid()

?uniroot
(xo=uniroot(f3, c(0,10),y=y,z=z,tol= 6e-6)$root)
round(c(xo,f1(xo,y),f2(xo,z),f1(xo,y)-f2(xo,z)),4)

-------------------------



-----Mensagem Original----- 
From: Rodolfo Marcondes Silva Souza
Sent: Thursday, October 16, 2014 4:51 PM
To: r-br em listas.c3sl.ufpr.br
Subject: [R-br] Ponto de intercepção entre duas funções no R

Olá pessoal,

Gostaira de saber se é possível calcular o ponto de intercepção entre
das funções/equações não lineares no R?

CMR:
f1=function(x,y){
   x^2 - 3 * y
}

f2=function(x,z){
   4 * z - x^2
}

x=seq(1,10,0.5)
y=3
z=15

plot(x,f1(x,y), type='l', col='red', ylim=c(0,100))
lines(x,f2(x,z), col='blue')

Eu preciso encontrar um função que fazendo f1=f2 possa me retornar o
valor em x onde ocorre a intercepção de f1 e f2. Alguém sabe como se
resolve esse problema no R?

Obrigado,
_______________________________________________
R-br mailing list
R-br em listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código 
mínimo reproduzível.