Programa nao roda

[Fischer_ES]

Olá bom dia!

Estou com uma dificuldade na hora de executar um "programinha" na minha PRIME, acontece que na hora que na hora de executar da erro após o preenchimento dos campos.

Fiz a depuração e pelo que percebi ela nao está lendo a variavel "E1" como sendo a função, e por isso nao deriva e posteriormente nao consegue realizar a divisão por "0". Será que alguem sabe me ajudar?

EXPORT NEWTON_RAPSHON()
BEGIN
LOCAL DER,X0,ECALC,X1;
PRINT;
E1:=0;X0:=0;E:=0;
INPUT({E1,X0,E});                   //leitura de E1 aki
DER:=CAS.diff(E1,X);
ECALC:=2*E;
N:=0;

WHILE E < ECALC DO
X:=X0;
X1:=EVAL(X-E1/DER);
ECALC:=ABS(X1-X0);              //divisão aki
N:=N+1;
X0:=X1;
Spreadsheet.Cell(N,1):=N;
Spreadsheet.Cell(N,2):=X0;
END;

PRINT(X1);
PRINT(DER);

END;

[Maké]

Olá!, @Fisher_ES:

Bem-vindo, ao Fórum!.

Seu, programa ... NEWTON_RAPSHON(), devería chamarse ... NEWTON_RAPHSON()

EXPORT NEWTON_RAPHSON()
BEGIN
LOCAL DER,X0,ECALC;
N:=0;
ECALC:=2*E;
STARTAPP("Function");
INPUT({E1,X0,E});
DER:=CAS.diff(E1,X);
WHILE E<ECALC DO
X:=X0;
X1:=EVAL(X-E1/DER);
ECALC:=ABS(X1-X0);
X0:=X1;
N:=N+1;
Spreadsheet.Cell(N,1):=N;
Spreadsheet.Cell(N,2):=X0;
END;
PRINT();
PRINT(X1);
PRINT(DER);

STARTAPP("Spreadsheet");
END;

Pode olhar, vídeo ... (Ele também, errou o último sobrenome RAPHSON, enquanto eles, colocam RAPSHON)

HP PRIME IMPLEMENTACION NEWTON RAPSHON ...

App. YouTube

Você vê, o que é o algoritmo, para o HP49G/49G+/50G ... PDF]Método de Newton-Raphson para ecuaciones

www.epsem.upc.edu › ~fpq › aplicaciones