<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 12pt;
font-family:Calibri
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>André tente este adaptação:<div><br></div><div><div><div>newtonRaphson <- function (x) {</div><div> x - ((exp(-x^2) - x^3 + 2) / (-2 * exp(-x^2) - 3 * x^2))</div><div>}</div><div><br></div><div>x <- 0.5 # valor inicial </div><div>old <- 0 # valor anterior </div><div>tol <- 0.0001</div><div>y <- x</div><div>i <- 0</div><div><br></div><div>while (abs(old - x) > tol) {</div><div> i <- i + 1</div><div> old <- x</div><div> x <- newtonRaphson(x) # Repetir se delta x maior tol </div><div> cat("\nIteração:",i,"\n")</div><div> cat("\nRaiz:",x,"\n") </div><div>}</div><div><br></div></div><div>Att.</div><div><br></div><div>Tiago.</div><div><br><br><div>#################################################################</div><div> </div><div>Tiago de Souza Marçal - Graduando em Agronomia pelo CCA-UFES</div><div> </div><div>Bolsista de Iniciação Científica da área de Genética e Melhoramento de Plantas</div><div> </div><div>################################################################# </div><br><br><div><hr id="stopSpelling">Date: Sat, 2 May 2015 19:39:41 +0000<br>From: andreolsouza@yahoo.com.br<br>To: r-br@listas.c3sl.ufpr.br<br>Subject: [R-br] Algoritimo newtonRaphson<br><br><div style="color:#000;background-color:#fff;font-family:bookman old style, new york, times, serif;font-size:16px;"><div dir="ltr" id="ecxyui_3_16_0_1_1430595367608_2762"><span id="ecxyui_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="ecxyui_3_16_0_1_1430595367608_2842" dir="ltr"><span id="ecxyui_3_16_0_1_1430595367608_2785"><br></span></div><div id="ecxyui_3_16_0_1_1430595367608_2819" dir="ltr"><span id="ecxyui_3_16_0_1_1430595367608_2785"><br></span></div><div id="ecxyui_3_16_0_1_1430595367608_2820" dir="ltr"><span id="ecxyui_3_16_0_1_1430595367608_2785">newtonRaphson <-function (x){<br style="">x - ((exp(-x^2) - x^3 + 2) / (-2 * exp(-x^2) - 3 * x^2))<br style=""> }<br style="">x <- 0.5 # valor inicial <br style="">old <- 0 # valor anterior <br style="">tol <- 0.0001<br style=""><br style="">while (abs(old - x) > tol){ <br style="">old <- x<br style="">x <- newtonRaphson(x) # Repetir se delta x maior tol<br style="">}<br style=""><br style="">print(paste("Raiz: ", x))<br style=""> </span></div><div id="ecxyui_3_16_0_1_1430595367608_2843"><div id="ecxyui_3_16_0_1_1430595367608_2884" dir="ltr"> obrigado <br></div></div><div id="ecxyui_3_16_0_1_1430595367608_2845"><div id="ecxyui_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><br>_______________________________________________
R-br mailing list
R-br@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.</div></div></div> </div></body>
</html>