Bom dia Delcio Sugiro a função uniroot. fx<-function(x) (0.501143 - 0.314445)*((1 + (0.716407*x)^1.574827)^(((1 - 1/1.574827) - 1) - 1)*(((1 - 1/1.574827) - 1)*((0.716407*x)^(1.574827 - 1)*(1.574827*0.716407)))*((1 - 1/1.574827)*((0.716407*x)^(1.574827 - 1)*(1.574827*0.716407))) + (1 + (0.716407*x)^1.574827)^((1 - 1/1.574827) - 1)*((1 - 1/1.574827)*((0.716407*x)^((1.574827 - 1) - 1)*((1.574827 - 1)*0.716407)*(1.574827*0.716407))))/((1 + (0.716407*x)^1.574827)^(1 - 1/1.574827))^2 - (0.501143 - 0.314445)*((1 + (0.716407*x)^1.574827)^((1 - 1/1.574827) - 1)*((1 - 1/1.574827)*((0.716407*x)^(1.574827 - 1)*(1.574827*0.716407))))*(2*((1 + (0.716407*x)^1.574827)^((1 - 1/1.574827) - 1)*((1 - 1/1.574827)*((0.716407*x)^(1.574827 - 1)*(1.574827*0.716407)))*((1 + (0.716407*x)^1.574827)^(1 - 1/1.574827))))/(((1 + (0.716407*x)^1.574827)^(1 - 1/1.574827))^2)^2 uniroot(fx,c(0,1)) Votos de um bom final de semana Elisa Em 22 de abril de 2017 00:21, Delcio Rudinei Bortolanza via R-br < r-br@listas.c3sl.ufpr.br> escreveu:

Olá! Tenho esta equação para encontrar a solução e gostaria de utilizar o R para isso.

(0.501143 - 0.314445)*((1 + (0.716407*x)^1.574827)^(((1 - 1/1.574827) - 1) - 1)*(((1 - 1/1.574827) - 1)*((0.716407*x)^(1.574827 - 1)*(1.574827*0.716407)))*((1 - 1/1.574827)*((0.716407*x)^(1.574827 - 1)*(1.574827*0.716407))) + (1 + (0.716407*x)^1.574827)^((1 - 1/1.574827) - 1)*((1 - 1/1.574827)*((0.716407*x)^((1.574827 - 1) - 1)*((1.574827 - 1)*0.716407)*(1.574827*0.716407))))/((1 + (0.716407*x)^1.574827)^(1 - 1/1.574827))^2 - (0.501143 - 0.314445)*((1 + (0.716407*x)^1.574827)^((1 - 1/1.574827) - 1)*((1 - 1/1.574827)*((0.716407*x)^(1.574827 - 1)*(1.574827*0.716407))))*(2*((1 + (0.716407*x)^1.574827)^((1 - 1/1.574827) - 1)*((1 - 1/1.574827)*((0.716407*x)^(1.574827 - 1)*(1.574827*0.716407)))*((1 + (0.716407*x)^1.574827)^(1 - 1/1.574827))))/(((1 + (0.716407*x)^1.574827)^(1 - 1/1.574827))^2)^2 == 0

Utilizando o Wolfram Mathematica consigo encontrar a resposta com Solve[(0.501143 - 0.314445)*((1 + ... ==0, x, Reals], que nesse caso é x = 0.736051, mas o problema é que ai toda vez tem ficar abrindo outro software (pago) e transformar em valores as variáveis com atribuição.

Existe alguma maneira de resolver essa equação utilizando o R?

Att., Delcio R. Bortolanza Doutorando em agronomia - UPF

_______________________________________________ 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.