cancelar
Mostrando resultados para 
Pesquisar então 
Você quer dizer: 
  • ×
    Informação
    Corrija erros no Windows 10

    Resolva os problemas de atualização do Windows 10 em um PC HP – Clique aqui

  • post a message
  • ×
    Informação
    Corrija erros no Windows 10

    Resolva os problemas de atualização do Windows 10 em um PC HP – Clique aqui

  • post a message
Este 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.
Highlighted
Estudante
Estudante
Mensagem 1 de 2
279Exibiçõ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
Highlighted
Mestrando
Mestrando
Mensagem 2 de 2
271Exibições
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.
Este 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