cancelar
Mostrando resultados para 
Pesquisar então 
Você quer dizer: 
ArchivedEste tópico foi arquivado. As informações e os links desse tópico podem estar desatualizados ou podem não estar mais disponíveis. Se você tiver tiver alguma pergunta relacionada ao tema deste tópico, crie um novo tópico clicando aqui, ou clique no botão acima "Publicar nova pergunta" e selecione a categoria mais apropriada.
Estudante
Estudante
Mensagem 1 de 2
293Exibições
Reportar Mensagem

Programa nao roda

Hp Prime
Other

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;

1 RESPONDER 1
Mestrando
Mestrando
Mensagem 2 de 2
Reportar Mensagem

Programa nao roda

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
 
IMG_20160424_223023.jpg
 
IMG_20160424_233255.jpg
 
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
 
 

 

 

Saudações cordiais.
@Maké.
P.D. : A experiência é como um pente. Isso não fará bem a você, se você for careca.
ArchivedEste tópico foi arquivado. As informações e os links desse tópico podem estar desatualizados ou podem não estar mais disponíveis. Se você tiver tiver alguma pergunta relacionada ao tema deste tópico, crie um novo tópico clicando aqui, ou clique no botão acima "Publicar nova pergunta" e selecione a categoria mais apropriada.
† As opiniões expressas acima são de responsabilidade exclusiva de seus autores, e não da HP. Utilizar este site significa aceitar os termos de uso e as Regras de Participação