• 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