<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Veja a documentação da função rootSolve::uniroot(). CMR<br><span style="font-family:courier new,monospace"><br>f1 <- function(x, y){ x^2-3*y }<br>f2 <- function(x, z){ 4*z-x^2 }<br>x <- seq(1,10,0.5); y <- 3; z <- 15<br><br>curve(f1(x, y=y), 1, 10)<br>curve(f2(x, z=z), add=TRUE, col=2)<br>abline(v=6)<br><br>f <- function(x, y, z){<br>  x^2-3*y-(4*z-x^2)<br>}<br><br>curve(f(x, y=y, z=z), 0, 10); abline(h=0, lty=2)<br>abline(v=6)<br><br>require(rootSolve)<br><br>ur <- uniroot(f=f, y=y, z=z, interval=c(0,10))<br>str(ur)<br><br>curve(f(x, y=y, z=z), 0, 10); abline(h=0, lty=2)<br>abline(v=ur$root)<br><br>curve(f1(x, y=y), 1, 10)<br>curve(f2(x, z=z), add=TRUE, col=2)<br>abline(v=ur$root)<br></span><br>À disposição.<br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Walmes.<br></div>​</div>