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.