<html><body><div style="color:#000; background-color:#fff; font-family:HelveticaNeue-Light, Helvetica Neue Light, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:13px"><div id="yui_3_16_0_1_1430459601175_4672"><span>Walmes, Boa noite!</span></div><div id="yui_3_16_0_1_1430459601175_4672"><span><br></span></div><div id="yui_3_16_0_1_1430459601175_4672"><span id="yui_3_16_0_1_1430459601175_10545"> Muito Obrigado pela dica sobre o CAS e o wxMaxima.<br></span></div><div id="yui_3_16_0_1_1430459601175_4672"><span><br></span></div><div id="yui_3_16_0_1_1430459601175_4672"><span id="yui_3_16_0_1_1430459601175_10544"> Depois de sua dica e tentando ajudar o Alessandro busquei mais informações sobre CAS e encontrei o pacote rSymPy. Infelizmente para o modelo (taxa de variação do incremento médio) apresentado pelo Alessandro não consegui entender o erro que o sistema retornou, por isso, instalei o software SymPy e executei o seguinte <br></span></div><div id="yui_3_16_0_1_1430459601175_4672"><span>código no R.</span></div> <br><div class="qtdSeparateBR" id="yui_3_16_0_1_1430459601175_4675"><div class="" id="yui_3_16_0_1_1430459601175_4675" style="">cat('import sympy\nfrom sympy import *\n\ndef main():', file='ioc.py', append = F,'\n');</div><div class="" id="yui_3_16_0_1_1430459601175_4675" style="">cat(paste(' b0, b1, b2, b3, b4, b5, id1, ab1, s, x = symbols(',shQuote('b0 b1 b2 b3 b4 b5 id1 ab1 s x','csh'),')',sep=''), file='ioc.py', append = T,'\n');</div><div class="" id="yui_3_16_0_1_1430459601175_4675" style="">cat(' ioc = solve(exp(b0 + b1/s + b2/x + b3 * (id1/x) * log(ab1) + b4 * (1 - id1/x) + b5 * (1 - id1/x) * s) * (b4 * (id1/x**2) - (b3 * (id1/x**2) * log(ab1) + b2/x**2) + b5 * (id1/x**2) * s)/x - exp(b0 + b1/s + b2/x + b3 * (id1/x) * log(ab1) + b4 * (1 - id1/x) + b5 * (1 - id1/x) * s)/x**2,x)', file='ioc.py', append = T,'\n');</div><div class="" id="yui_3_16_0_1_1430459601175_4675" style="">cat(paste('\n print\n pprint(ioc)\n print\n\nif __name__ ==', shQuote('__main__'),':\n main()\n'), file='ioc.py', append = T);</div><div class="" id="yui_3_16_0_1_1430459601175_4675" style="">system('python ioc.py');<br></div></div><div class="yahoo_quoted" id="yui_3_16_0_1_1430459601175_4670" style="display: block;"><div id="yui_3_16_0_1_1430459601175_4669"><div id="yui_3_16_0_1_1430459601175_4668"><div dir="ltr" id="yui_3_16_0_1_1430459601175_4674" style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 16px;"><font size="2" face="Arial"><br></font></div><div dir="ltr" id="yui_3_16_0_1_1430459601175_4674" style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 16px;"><font size="2" face="Arial"><br></font></div><div dir="ltr" id="yui_3_16_0_1_1430459601175_4674"><font size="2" face="Arial" style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 16px;">Resultado: </font><font face="Arial" size="2" class="" style="" id="yui_3_16_0_1_1430459601175_38313">[-b2 - b3*id1*log(ab1) + b4*id1 + b5*id1*s]</font></div><div dir="ltr" id="yui_3_16_0_1_1430459601175_4674" style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 16px;"><font size="2" face="Arial"><br></font></div><div dir="ltr" id="yui_3_16_0_1_1430459601175_4674"><font face="Arial" size="2"> </font></div><div dir="ltr" id="yui_3_16_0_1_1430459601175_4674"><font face="Arial" size="2" id="yui_3_16_0_1_1430459601175_39320"> Caso alguém queira reproduzir, apenas tomem cuidado com os espaços e tabulações porque o "python" é um pouco exigente. </font></div><div dir="ltr" id="yui_3_16_0_1_1430459601175_4674" style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 16px;"><font size="2" face="Arial"><br></font></div><div dir="ltr" id="yui_3_16_0_1_1430459601175_4674" style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 16px;"><font size="2" face="Arial">At.,</font></div><div dir="ltr" id="yui_3_16_0_1_1430459601175_4674" style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 16px;"><font size="2" face="Arial"><br></font></div><div dir="ltr" id="yui_3_16_0_1_1430459601175_4674" style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 16px;"><font size="2" face="Arial">Cláudio Thiersch</font></div><div dir="ltr" id="yui_3_16_0_1_1430459601175_4674" style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 16px;"><div class="" style="" id="yui_3_16_0_1_1430459601175_39322"><span style="font-size:7.5pt;font-family:"Verdana","sans-serif";mso-fareast-font-family:"Times New Roman";mso-fareast-theme-font:minor-fareast;color:#5F5F5F;mso-fareast-language:PT-BR;mso-no-proof:yes" class="" id="yui_3_16_0_1_1430459601175_41343">Biometria,
Inventário e Manejo Florestal</span><span style="mso-fareast-font-family:"Times New Roman";mso-fareast-theme-font:minor-fareast;color:#1F497D;mso-fareast-language:PT-BR;mso-no-proof:yes" class=""><o:p class="" style=""></o:p></span></div>
<div class="" dir="ltr" style="" id="yui_3_16_0_1_1430459601175_38312"><span style="font-size:7.5pt;font-family:"Verdana","sans-serif";mso-fareast-font-family:"Times New Roman";mso-fareast-theme-font:minor-fareast;color:#5F5F5F;mso-fareast-language:PT-BR;mso-no-proof:yes" class="" id="yui_3_16_0_1_1430459601175_38311">Engenharia Florestal
– UFSCar - Campus Sorocaba</span><span style="mso-fareast-font-family:"Times New Roman";mso-fareast-theme-font:minor-fareast;color:#1F497D;mso-fareast-language:PT-BR;mso-no-proof:yes" class=""><o:p class="" style=""></o:p></span></div></div><div dir="ltr" id="yui_3_16_0_1_1430459601175_4674" style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 16px;"><br></div><div class="y_msg_container" id="yui_3_16_0_1_1430459601175_4667" style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 16px;"><div id="yiv2166822956"><div id="yui_3_16_0_1_1430459601175_4666"><div dir="ltr" id="yui_3_16_0_1_1430459601175_4665"><div class="yiv2166822956yqt2622486447" id="yiv2166822956yqtfd26710"><div class="yiv2166822956gmail_default" style="font-family:trebuchet ms, sans-serif;" id="yui_3_16_0_1_1430459601175_26168"><br></div></div></div></div></div></div> </div> </div> </div></div></body></html>