<div dir="ltr">Caro Colegas,<div><br></div><div>Boa noite.</div><div><br></div><div>Eu estou tentando solução a integral dessa equação dvg com a função integrate, mas o resultado é muito superior ao esperado, algum colega poderia me ajudar apontando possíveis erros?</div>
<div><br></div><div>Obrigado.</div><div><br></div><div><span class="" style="border-collapse:separate;color:rgb(0,0,0);font-family:'Ubuntu Mono';font-size:14px;line-height:16px;white-space:pre-wrap;border-spacing:0px;background-color:rgb(225,226,229)"><pre tabindex="0" class="" style="font-family:'Ubuntu Mono';outline:none;border:none;word-break:break-all;margin-top:0px;margin-bottom:0px;line-height:1.2;font-size:10.4pt!important;white-space:pre-wrap!important">
<span class="" style="white-space:pre;color:blue">> </span><span class="" style="color:blue">dvg <- function(x, ts, tr, a, n){
</span><span class="" style="white-space:pre;color:blue">+ </span><span class="" style="color:blue">  tr+(ts-tr)/((1+(a*x)^n)^(1-1/n))
</span><span class="" style="white-space:pre;color:blue">+ </span><span class="" style="color:blue">}
</span><span class="" style="white-space:pre;color:blue">> </span><span class="" style="color:blue">dvg <- function(x){
</span><span class="" style="white-space:pre;color:blue">+ </span><span class="" style="color:blue">  0.23+(0.64-0.23)/((1+(1.22*x)^1.34)^(1-1/1.34))
</span><span class="" style="white-space:pre;color:blue">+ </span><span class="" style="color:blue">}
</span><span class="" style="white-space:pre;color:blue">> </span><span class="" style="color:blue">dvg(10) - dvg(1500)
</span>[1] 0.1417496
<span class="" style="white-space:pre;color:blue">> </span><span class="" style="color:blue">integrate(dvg, lower = 10, upper = 1500)
</span>412.4841 with absolute error < 0.0011</pre><pre tabindex="0" class="" style="font-family:'Ubuntu Mono';outline:none;border:none;word-break:break-all;margin-top:0px;margin-bottom:0px;line-height:1.2;font-size:10.4pt!important;white-space:pre-wrap!important">
<br></pre><pre tabindex="0" class="" style="font-family:'Ubuntu Mono';outline:none;border:none;word-break:break-all;margin-top:0px;margin-bottom:0px;line-height:1.2;font-size:10.4pt!important;white-space:pre-wrap!important">
<br></pre><pre tabindex="0" class="" style="font-family:'Ubuntu Mono';outline:none;border:none;word-break:break-all;margin-top:0px;margin-bottom:0px;line-height:1.2;font-size:10.4pt!important;white-space:pre-wrap!important">
<span style="background-color:rgb(255,255,255);font-family:arial;font-size:small;line-height:normal;color:rgb(34,34,34)">-- </span><br></pre></span></div><div><div dir="ltr">Alisson Lucrecio da Costa</div>
</div></div>