Vinculos patrocinados:

AYUDA PARA PROGRAMAR EN HP

AYUDA PARA PROGRAMAR EN HP

Notapor lauramarvr » Sab Jul 02, 2016 9:52 am

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,
lauramarvr
Usuario Principiante
Usuario Principiante
Progreso hasta siguiente rango:
0%
 
Mensajes: 1
Registrado: Sab Jul 02, 2016 9:13 am
País: Venezuela (ve)
Ha agradecido: 0 veces
Le han agradecido: 0 veces

Para recibir respuesta mas rapida o hacer este tema mas popular, compartelo en:

Comparte en Facebook Facebook Twittealo Twitter Comparte en MySpace MySpace


Vinculos patrocinados

Volver a Hp

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado

ConstruAprende - Ingeniería Civil y Arquitectura

Compu-Aprende / SoyMexiquense.com / www.izcallibur.com / www.mizcalli.com  /  ¿Qué es la Ingeniería Civil?