[R-br] Resolver equações com o R

[Elisa Henning]

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 em 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 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.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20170422/66f75930/attachment.html>