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

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@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@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.
participantes (1)
-
Robert Iquiapaza