<html><body><div style="color:#000; background-color:#fff; font-family:bookman old style, new york, times, serif;font-size:16px"><div dir="ltr" id="yui_3_16_0_1_1430595367608_2762"><span id="yui_3_16_0_1_1430595367608_2785">Pessoal já tentei e não consegui. Como colocar para exibir os valores das iterações passo a passo? E não só a estimativa da raiz. Já tentei colocar i=NULL para receber as iterações ..ma não consegui. <br></span></div><div id="yui_3_16_0_1_1430595367608_2842" dir="ltr"><span id="yui_3_16_0_1_1430595367608_2785"><br></span></div><div id="yui_3_16_0_1_1430595367608_2819" dir="ltr"><span id="yui_3_16_0_1_1430595367608_2785"><br></span></div><div id="yui_3_16_0_1_1430595367608_2820" dir="ltr"><span id="yui_3_16_0_1_1430595367608_2785">newtonRaphson <-function (x){<br style="" class="">x - ((exp(-x^2) - x^3 + 2) / (-2 * exp(-x^2) - 3 * x^2))<br style="" class=""> }<br style="" class="">x <- 0.5 # valor inicial <br style="" class="">old <- 0 # valor anterior <br style="" class="">tol <- 0.0001<br style="" class=""><br style="" class="">while (abs(old - x) > tol){ <br style="" class="">old <- x<br style="" class="">x <- newtonRaphson(x) # Repetir se delta x maior tol<br style="" class="">}<br style="" class=""><br style="" class="">print(paste("Raiz: ", x))<br style="" class=""> </span></div><div id="yui_3_16_0_1_1430595367608_2843"><div id="yui_3_16_0_1_1430595367608_2884" dir="ltr"> obrigado <br></div></div><div id="yui_3_16_0_1_1430595367608_2845"><div id="yui_3_16_0_1_1430595367608_2844">
<br>
<br>André Oliveira Souza.
<br>Graduação em Matemática, mestrado em estatística aplicada.Instituto Federal de Educação, Ciência e Tecnologia do Espirito Santo. IFES
<br>
<br></div></div></div></body></html>