Método de Newton-Raphson

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Método de Newton-Raphson para encontrar la solución de:
f(x) = cos(x) - x³

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

Algoritmo ProcesoNewtonRaphson

    Escribir "Método de Newton-Raphson. Cálculo de la función: cos(x) - x³";

    Escribir "Ingrese el valor inicial de x:";

    Leer x;

    Escribir "";

    i <- 0;

    Repetir

        x_1 <- x;

        x <- x - (COS(x) - x*x*x) / (-SEN(x) - 3.0*x*x);

        err <- ABS((x - x_1)/x);

        Escribir "x", i, " = ", x, "        error = ", err;

        i <- i + 1;

    Hasta Que x=x_1 O i=100

    Escribir "";

    Si i=100 Entonces

        Escribir "La solución no es convergente.";

    Sino

        Escribir "La solución es ", x;

    FinSi

FinAlgoritmo