AYUDA PARA PROGRAMAR EN HP

[lauramarvr]

Hola Amigos, soy un poco nueva en el tema de programación, actualmente estoy tratando de hacer un programa en HPUSE EDIT , con 4 ecuaciones( cada ecuación corresponde al resultado de T1 T2 T3 y T4 respectivamente) que al inicio las variables depende de un valor inicial y luego va actualizando las variables hasta un numero finto determinado, por ejemplo 10, es decir, que el inicia sustituyendo el un valor inicial en todas las variables (T1 T2 T3 y T4), luego vuelve a calcular las variables (T1 T2 T3 y T4) y ese valor de las variables calculada lo sustituye de nuevo en las ecuaciones, hasta 10 veces (numero de iteraciones), se que la funciona que tengo que utilizar es la for next, pero tengo problemas con los comandos y la forma de presentar los resultados de cada iteración. Aquí anexo lo que llevo, les estaría muy agradecida si me pueden ayudar a ver cual es mi error.

DIR

Principal

« RAD "METODOS NUMERICOS"
{
{ "Ti:" "Temperatura inicial" }
{ "L:" "Espesor de pared" }
{ "K:" "Conductividad Termica" }
{ "Œ:" "Difusividad Termica" }
{ "M:" "Numero de nodos" }
{ "Qge:" "Calor generado por unidad de volumen" }
{ "t:" "Tiempo requerido" }
{ "ß:" "Inverso del numero de Fourier" }
}

{ 2 0 } { } { }

IF INFORM
THEN {Ti L k Œ M Qgen t ß} STO

'L/(M-1)' NUM 'dx' STO
'dx^2/(Œ*ß)' NUM 'dt' STO
'1/ß' NUM '™' STO

'dx+0' NUM
'dt+0' NUM
't/dt' NUM

3 LIST "›X / ›t/ N" { "›X:" "›t:" "N:" } { 1 0 } { } 5 ROLL
IF INFORM
THEN { ›X ›t N } STO

x002

IF CHOOSE
THEN
EVAL
ELSE DROP
END
ELSE DROP DROP
END
ELSE DROP DROP
END
»
x002 @ Temperatura especificada en fronterea
«
"CONDICIONES DE CONTORNO"
{
{ "To:" "Temperatura Superficial izquierda" }
{ "TM:" "Temperatura Superficial Derecha" }
}
1
{ }
{ }
INFORM DROP {To T5} STO

'Ti+0' NUM DUP DUP DUP

x003 @ evaluación de la temperatura inicial en las ecuaciones (primera iteracion)

"Numero de Iteraciones
a realizar:" "" INPUT OBJ 'n' STO
1. n
1. -
FOR i DUP x003 @ AQUI ES MI PROBLEMA

NEXT { n 7. } ARRY 4. RND DUP 'Cuadro' STO ['n' 'To' 'T1' 'T2' 'T3' 'T4' 'T5'] 1. ROW+ SCROLL

@ no se como sacar los resultados

{ ™ dt dx Cuadro Ti L k Œ M Qgen t ß ›X ›t N n To T5} PURGE

»

x003 @ Ecuaciones Generales solo para 6 nodos incluyendo el "0"
«
 T1 T2 T3 T4
«

'™*To+(1-2*™)*T1+™*T2+(™*Qgen*(›X^2)/k)' NUM
'™*T1+(1-2*™)*T2+™*T3+(™*Qgen*(›X^2)/k)' NUM
'™*T2+(1-2*™)*T3+™*T4+(™*Qgen*(›X^2)/k)' NUM
'™*T3+(1-2*™)*T4+™*T5+(™*Qgen*(›X^2)/k)' NUM

»


»
END

@ recomendación copiar y pegar en HPUSEREDIT para visualizar todos los caracteres.

Saludos,

[tato1390]

Hola recien me registre en este foro, que por suerte trata temas sobre hp, como tu pregunta es un poco antigua si aun necesitas ayuda con ese programa me lo haces saber por este medio