<div dir="ltr">Bom dia Delcio<div><br></div><div><br></div><div>Sugiro a função <font face="comic sans ms, sans-serif">uniroot</font>.</div><div><br></div><div><div><font face="georgia, serif">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</font></div><div><font face="georgia, serif"><br></font></div><div><font face="georgia, serif">uniroot(fx,c(0,1)) </font></div></div><div><br></div><div>Votos de um bom final de semana</div><div>Elisa</div></div><div class="gmail_extra"><br><div class="gmail_quote">Em 22 de abril de 2017 00:21, Delcio Rudinei Bortolanza via R-br <span dir="ltr"><<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">




<div dir="ltr">
<div id="m_4616964075702874120divtagdefaultwrapper" style="font-size:12pt;color:#000000;font-family:Calibri,Arial,Helvetica,sans-serif" dir="ltr">
<p></p>
<div>Olá!</div>
<div>Tenho esta equação para encontrar a solução e gostaria de utilizar o R para isso.</div>
<div><br>
</div>
<div>(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.<wbr>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.<wbr>574827 - 1) - 1)*((1.574827 - 1)*0.716407)*(1.574827*0.<wbr>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.<wbr>574827
 - 1)*(1.574827*0.716407))))*(2*(<wbr>(1 + (0.716407*x)^1.574827)^((1 - 1/1.574827) - 1)*((1 - 1/1.574827)*((0.716407*x)^(1.<wbr>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</div>
<div><br>
</div>
<div><span style="font-family:Calibri,Arial,Helvetica,sans-serif,EmojiFont,"Apple Color Emoji","Segoe UI Emoji",NotoColorEmoji,"Segoe UI Symbol","Android Emoji",EmojiSymbols;font-size:16px">Utilizando o Wolfram </span><span style="font-family:Calibri,Arial,Helvetica,sans-serif,EmojiFont,"Apple Color Emoji","Segoe UI Emoji",NotoColorEmoji,"Segoe UI Symbol","Android Emoji",EmojiSymbols;font-size:16px">Mathematica
 consigo encontrar a resposta com Solve[</span><span style="font-family:Calibri,Arial,Helvetica,sans-serif,EmojiFont,"Apple Color Emoji","Segoe UI Emoji",NotoColorEmoji,"Segoe UI Symbol","Android Emoji",EmojiSymbols;font-size:16px">(0.501143 -
 0.314445)*((1 + </span><span style="font-family:Calibri,Arial,Helvetica,sans-serif,EmojiFont,"Apple Color Emoji","Segoe UI Emoji",NotoColorEmoji,"Segoe UI Symbol","Android Emoji",EmojiSymbols;font-size:16px">... </span><span style="font-family:Calibri,Arial,Helvetica,sans-serif,EmojiFont,"Apple Color Emoji","Segoe UI Emoji",NotoColorEmoji,"Segoe UI Symbol","Android Emoji",EmojiSymbols;font-size:16px">==0, </span><span style="font-family:Calibri,Arial,Helvetica,sans-serif,EmojiFont,"Apple Color Emoji","Segoe UI Emoji",NotoColorEmoji,"Segoe UI Symbol","Android Emoji",EmojiSymbols;font-size:16px">x, </span><span style="font-family:Calibri,Arial,Helvetica,sans-serif,EmojiFont,"Apple Color Emoji","Segoe UI Emoji",NotoColorEmoji,"Segoe UI Symbol","Android Emoji",EmojiSymbols;font-size:16px">Reals],
 que nesse caso é </span><span style="font-family:Calibri,Arial,Helvetica,sans-serif,EmojiFont,"Apple Color Emoji","Segoe UI Emoji",NotoColorEmoji,"Segoe UI Symbol","Android Emoji",EmojiSymbols;font-size:16px">x = 0.736051, </span><span style="font-family:Calibri,Arial,Helvetica,sans-serif,EmojiFont,"Apple Color Emoji","Segoe UI Emoji",NotoColorEmoji,"Segoe UI Symbol","Android Emoji",EmojiSymbols;font-size:16px">mas
 o problema é que ai toda vez tem ficar abrindo outro software (pago) e transformar em valores as variáveis com atribuição.</span><br>
</div>
<div><span style="font-family:Calibri,Arial,Helvetica,sans-serif,EmojiFont,"Apple Color Emoji","Segoe UI Emoji",NotoColorEmoji,"Segoe UI Symbol","Android Emoji",EmojiSymbols;font-size:16px"><br>
</span></div>
<div>Existe alguma maneira de resolver essa equação utilizando o R?</div>
<div><br>
</div>
<div><br>
</div>
<div>Att., Delcio R. Bortolanza</div>
<div>Doutorando em agronomia - UPF</div>
<p></p>
</div>
</div>

<br>______________________________<wbr>_________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/<wbr>cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-<wbr>guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>