HP PRIME Newton Raphson [1]

แชร์
ฝัง
  • เผยแพร่เมื่อ 24 ม.ค. 2025

ความคิดเห็น • 3

  • @JUAN-kv5cz
    @JUAN-kv5cz ปีที่แล้ว

    hay alguna manera de que se muestre el proceso'

  • @pablolascano1400
    @pablolascano1400 6 หลายเดือนก่อน

    ayuda, me sale erro de sintaxis y no se ejecuta

  • @trrsa
    @trrsa  2 ปีที่แล้ว +2

    EXPORT BASE6()
    BEGIN
    PRINT();
    LOCAL f1,X0,tolerancia;
    LOCAL derivada;
    LOCAL error,X1;
    LOCAL i;
    INPUT({{f1,[8],{40,25,1}},
    {X0,[0],{40,25,2}},
    {tolerancia,[0],{40,25,3}} }, "TITULO TRRSA ",
    {"f1(x) ",
    "X0 ",
    "tolerancia "});
    derivada:=CAS.diff(f1,X);
    error:=1;
    WHILE error>tolerancia DO
    X:=X0;
    X1:=EVAL(X-f1/derivada);
    error:=ABS((X1-X0)/X1);
    X0:=X1;
    PRINT(X0);
    END;
    PRINT("Funcion : "+f1);
    PRINT("Derivada: "+derivada);
    PRINT("Solucion: "+X1);
    END;