Programacion User RPL

PROGRAMACIN EN USER-RPL CON EJEMPLOS APLICADOS A ING.
CIVIL SEGUNDA EDICIN

ANDRS R. GARCA M.
1

PROGRAMACIN EN USER-RPL CON
EJEMPLOS APLICADOS A
INGENIERA CIVIL
SEGUNDA EDICIN.

PROGRAMACIN EN USER-RPL CON EJEMPLOS APLICADOS A ING. CIVIL SEGUNDA EDICIN
ANDRS R. GARCA M.
2

PROGRAMACIN EN USER-RPL CON
EJEMPLOS APLICADOS A
INGENIERA CIVIL
SEGUNDA EDICIN.

ANDRS R. GARCA M.
INGENIERO CIVIL

ANDRS R. GARCA M.
3

Para poder llegar a entender lo divino, primero tenemos que tratar de
entender lo Humano, es decir nuestro entorno, complejamente descrito a
travs de las ciencias exactas entre otras, las cuales no solamente
desmitifican eventos relevantes de nuestra existencia sino que tambin nos
dan una luz gua de entendimiento en un mundo hecho oscuro y que
finalmente nos llevara a creer plenamente en nosotros mismos como
resultado de un instante en la creacin.

A MI PADRE
+
Y A MI MADRE POR SU PACIENCIA EN
MIS AOS DIFCILES.

ANDRS R. GARCA M.
4

PRESENTACIN SEGUNDA EDICIN.

Me es supremamente grato y emocionante presentar esta segunda edicin
que no es mas que el resultado de lo que fue la primera y mas que eso, de
la acogida que logr dentro de la comunidad estudiantil y profesional no solo
aqu en Colombia sino en otros pases de habla hispana. De hecho, con solo
una persona que me hubiera escrito haciendo comentarios negativos o
positivos de la anterior edicin, me hubiera bastado para escribir esta
edicin.
En mi concepto, creo que hay que detenernos a pensar un poco si realmente
vale la pena aprender programacin en USER-RPL. Para muchas personas
no es importante dentro de su vida estudiantil o profesional dado que es un
lenguaje que solo aplica para las HP (por ahora) y que adems el estudiante
promedio no lo usa de manera muy profunda y sin inters. De nuevo en mi
concepto creo que es muy importante aprender algn lenguaje de
programacin, por lo menos para nosotros los Ingenieros; ya sea USER-
RPL, BASIC o cualquier otro lenguaje, dado que la programacin nos
ensea a pensar de una manera un poco mas estructurada y analtica
adems de los beneficios que nos brinda, esto haciendo referencia a todos
los procesos lgicos que optimiza esto desde luego en funcin del tiempo
empleado para estos.
Decid escribir esta segunda edicin con el fin de incluir temas que faltaron
en la primera y que considero de muy importantes dentro del desarrollo de
nuestros programas como lo es el entorno PICT y sus respectivas
aplicaciones y la creacin de libreras entre otras cosas. Tambin hay mas
ejemplos de temas ya tratados en la edicin pasada y la diferencia mas
importante: los ejemplos se desarrollaron utilizando el Emulador de la 49G y
ANDRS R. GARCA M.
5

ya no de la 48G (esto no quiere decir que no sirvan en la 48G). Adems
dentro del archivo ZIP donde esta este libro vienen algunos cdigos escritos
utilizando HPUserEdit para que los lectores de este libro los puedan analizar
mas detalladamente y puedan experimentar cambiando cosas como el texto,
las coordenadas o lo que ustedes quieran.
Espero que esta segunda edicin sea lo mas provechosa posible para
aquellas personas interesadas en la programacin en USER-RPL y por si
cualquier duda no duden en contactarme a travs del correo electrnico
argarcia35@ucatolica.edu.co o libeval@hotmail.com.
Tambin espero que en esta segunda edicin no me vayan a robar los
crditos como lo hicieron con la primera (Seor Boliviano)

De nuevo quiero agradecer a las siguientes personas:
ROGER BRONCANO REYES por su gran aplicacin HPUserEdit la cual
permite escribir los programas en el computador en ambiente Windows.
Este software es de libre distribucin y lo pueden obtener en la siguiente
direccin: www.hpcalc.org

SEBASTIEN CARLIER Y CHRISTOPH GIEBELINK Por el mejor emulador que
haya visto: EMU48 1.10. Este software tambin es de libre distribucin y lo
pueden obtener tambin en www.hpcalc.org

DANTE CAMARGO por LIBKIT V1.1

ING. ANDRS R. GARCA M.
BOGOTA FEBRERO 15 DE 2005

ANDRS R. GARCA M.
6

CONTENIDO
1. OBJETOS.
1.1 DEFINICIN.
1.2 TIPOS DE OBJETOS.
1.3 NMEROS DE IDENTIFICACIN DE LOS OBJETOS.

2. DELIMITADORES
2.1 DEFINICIN
2.2 TIPOS DE DELIMITADORES

3. VARIABLES
3.1 DEFINICIN
3.2 TIPOS DE VARIABLES

4. PROGRAMAS
4.1 DEFINICIN
4.2 INTRODUCCIN DE DATOS EN UN PROGRAMA.
4.3 OPERACIONES MATEMTICAS DENTRO DE UN PROGRAMA.
4.4 PROGRAMAS DE BLOQUE CONSTITUTIVO

5. PRESENTACIN DE DATOS Y RESULTADOS DE UN PROGRAMA
5.1 MEDIANTE EL COMANDO TAG
5.2 MEDIANTE EL COMANDO DISP
5.3 MEDIANTE EL COMANDO MSGBOX
5.4 OTROS

ANDRS R. GARCA M.
7

6. MANIPULACIN DE LISTAS
6.1 DEFINICIN
6.2 COMO CREAR UNA LISTA
6.3 ADICIN DE OBJETOS A UNA LISTA
6.4 COMANDOS QUE PERMITEN OPERAR SOBRE LISTAS

7. ESTRUCTURA DE VARIABLE LOCAL
7.1 DEFINICIN
7.2 SINTAXIS DE VARIABLE LOCAL DENTRO DE UN PROGRAMA.
7.3 ESTRUCTURA DE VARIABLE LOCAL DENTRO DE UNA SUBRUTINA

8. FLAGS
8.1 DEFINICIN
8.2 COMO MODIFICAR LOS FLAGS DENTRO DE UN PROGRAMA

9. MENS
9.1 NMEROS DE ASIGNACIN DE LOS MENS
9.2 COMO CREAR MENS TEMPORALES
9.3 LOS MENS TEMPORALES DENTRO DE UN PROGRAMA.

10. ESTRUCTURAS DE PROGRAMACIN
10.1 DEFINICIN
10.2 ESTRUCTURAS CONDICIONALES
10.2.1 IF...THEN...END
10.2.2 IF...THEN...ELSE...END
10.2.3 CASETHEN...END
10.2.3.1 ORGANIZACIN DEL TECLADO.
10.3 ESTRUCTURAS DE BUCLE
ANDRS R. GARCA M.
8

10.3.1 STARTNEXT
10.3.2 FORNEXT
10.3.3 DOUNTILEND
10.3.4 WHILEREPEATEND

11. ESTRUCTURAS DE DETECCIN DE ERRORES
11.1 DEFINICIN
11.2 IFERR...THEN...END

12. VENTANA DE OPCIONES
12.1 DEFINICIN
12.2 EL COMANDO CHOOSE
12.3 FORMAS DE UTILIZACIN DEL COMANDO CHOOSE

13. PLANTILLAS DE ENTRADA
13.1 DEFINICIN
13.2 FORMAS DE UTILIZAR LAS PLANTILLAS DE ENTRADA
13.3 COMO PRESENTAR RESULTADOS A TRAVS DE UNA PLANTILLA.

14. EL ENTORNO SOLVR
14.1 COMO SOLUCIONAR ECUACIONES DENTRO DE UN PROGRAMA

15. EL ENTORNO PICT.
15.1 DEFINICIN
15.2 FORMAS DE VISUALIZAR EL ENTORNO PICT
15.3 COMO PONER Y VISUALIZAR TEXTO EN EL ENTORNO PICT.
15.4 COMO PONER Y VISUALIZAR GRFICOS EN EL ENTORNO PICT
15.5 COMANDOS QUE PERMITEN OPERAR SOBRE EL ENTORNO PICT
ANDRS R. GARCA M.
9

16 LIBRERAS
16.1 DEFINICIN
16.2 COMO INSTALAR Y DESINSTALAR LIBRERAS.
16.3 COMO CREAR LIBRERAS

BIBLIOGRAFA.

ANDRS R. GARCA M.
10

ANDRS R. GARCA M.
11

1. OBJETOS

ANDRS R. GARCA M.
12

1. OBJETOS
1.1 DEFINICIN.
Los objetos se definen como los elementos bsicos de informacin utilizados
por la HP. Por ejemplo, un numero real, una ecuacin, una lista, una
secuencia o un programa son objetos.

1.2 TIPOS DE OBJETOS
Todos los objetos utilizados por la HP tienen un numero de identificacin.
As los podemos identificar fcilmente dentro de un programa.
Las siguientes tablas nos muestran el tipo de objeto, un ejemplo de dicho
objeto y su respectivo numero de identificacin.

TIPO DE OBJETO NUMERO
Numero real 0
Numero complejo 1
Secuencia de caracteres 2
Sistema real 3
Sistema complejo 4
Lista 5
Nombre global 6
Nombre local 7
Programa 8
Objeto algebraico 9
Entero binario 10
Objeto de grficos 11
Objeto etiquetado 12
Objeto de unidades 13
Nombre de XLIB 14
Directorio 15
Biblioteca 16
Objeto de seguridad 17

ANDRS R. GARCA M.
13

Como se puede ver, todos los objetos tienen su numero de asignacin.
Tambin existen otros tipos de objetos que para efectos de los ejemplos
propuestos en este libro no se tendrn en cuenta.
Por supuesto hay un comando que nos permite conocer los tipos de objetos
en funcin de su numero de identificacin. Este comando se llama TYPE, y
opera de la siguiente forma:
Ponemos el objeto, cualquiera que sea en el nivel 1 de la pila y ejecutamos
el comando as:
Por ejemplo pongamos un numero real en la pila

Ejecutamos el comando TYPE y obtendremos su numero de identificacin en
el nivel 1 de la pila as:

EJEMPLO 2:
El mismo procedimiento pero ahora para un numero complejo:

ANDRS R. GARCA M.
14

Ponemos en la pila ejecutamos TYPE Obtenemos el numero de id
Mas adelante se explicara con ejemplos la importancia de conocer los
nmeros de identificacin de los objetos

ANDRS R. GARCA M.
15

2. DELIMITADORES.

ANDRS R. GARCA M.
16

2. DELIMITADORES.
2.1 DEFINICIN
Los delimitadores son caracteres que necesitan los objetos, para indicar
de que tipo de objeto se trata. A continuacin se presenta una tabla con los
delimitadores ms importantes y un ejemplo:

OBJETO DELIMITADOR EJEMPLO

Numero real Ninguno 18.8
Numero complejo ( ) ( -6.5, 3.1)
Secuencias " " "Heavy Metal"
Sistemas [ ] [ 18 19 20 ]
Unidades _ 18_N
Programas HOME CLVAR
Operaciones
algebraicas
' ' ' X-Y'
Listas { } { 1 2 3 }
Comandos
incorporados
Ninguno RND
Nombres * ' ' 'ARGM '

* Mas adelante veremos la conveniencia de llamar nombres sin estos
delimitadores.
As por ejemplo para introducir texto necesitamos delimitadores de
secuencia que tambin llamaremos STRINGS.
Estos son los delimitadores que se usaran en los ejemplos presentados en
este libro y son de importancia relevante en la utilizacin de objetos dentro
de un programa como veremos mas adelante.

ANDRS R. GARCA M.
17

3. VARIABLES.

ANDRS R. GARCA M.
18

3. VARIABLES.
3.1 DEFINICIN
Una variable es cualquier objeto el cual esta almacenado bajo un nombre
cualquiera, en el directorio HOME o en cualquier otro directorio. Para
entenderlo mejor veamos el siguiente ejemplo:
Supngase que deseamos guardar nuestro nombre en el directorio actual
bajo el nombre ES
PROCEDIMIENTO:
Lo primero que hacemos es poner nuestro nombre en la pila y luego el
nombre bajo el cual lo deseamos almacenar as:
NOTA: Recordemos que para introducir texto debemos utilizar los
delimitadores de STRING.

Luego pulsamos la tecla STO:

Variable creada
ANDRS R. GARCA M.
19

Observemos que en las teclas de men ahora aparece ES. Para sacar a la
pila el contenido de la variables ES simplemente pulsamos la tecla de men
ES y pondr el contenido en la pila.

As mismo como se almacen nuestro nombre, podemos almacenar cualquier
tipo de objetos como listas, Nmeros reales, Programas etc. con solo poner
el objeto en la pila, asignarle un nombre y grabarlo pulsando la tecla STO

3.2 TIPOS DE VARIABLES
Existen dos tipos principales de variables como sigue

3.2.1 VARIABLES GLOBALES:
Las variables Globales son aquellas que se nombran en un programa
principal y pueden ser reconocidas, en cualquier momento, desde cualquier
bloque constitutivo de un programa.
Entindase por nombrar, el hecho de crear una variable de la manera como
se hizo en el ejemplo de la pagina anterior.
Entindase por bloque constitutivo a las subrutinas que comprenden o que
forman parte de un programa.
Estas dos definiciones anteriores se entendern mucho mejor mas adelante
cuando hablemos de lo que es un programa como tal.

ANDRS R. GARCA M.
20

3.2.2 VARIABLES LOCALES:
Las variables locales son variables provisionales creadas por un programa.
Existen nicamente mientras se ejecuta el programa. Nunca aparecen en el
men VAR, es decir dentro de las teclas de men del men VAR. De igual
manera este concepto ser ampliado mas adelante cuando hablemos de la
estructura de variable local en el numeral 7, pero es importante tener el
concepto desde ahora.

ANDRS R. GARCA M.
21

4. PROGRAMAS.

ANDRS R. GARCA M.
22

4. PROGRAMAS.
Bien, despus de haber aclarado algunos conceptos preliminares muy
importantes hemos llegado a lo que realmente nos interesa ahora: Los
programas.

4.1 DEFINICIN
Un programa en USER-RPL es un objeto definido por los delimitadores ,
que contienen una secuencia de nmeros, comandos y otros objetos que se
desean ejecutar de forma automtica para realizar una tarea.
Pero en realidad los programas pueden contener algo mas que simples
objetos, pueden asimismo contener estructuras como la estructura de
variable local o la estructura de bifurcacin de las que hablaremos mas
adelante.

4.2 INTRODUCCIN DE DATOS EN UN PROGRAMA
La introduccin de datos en un programa se puede hacer de varias maneras.
Consideremos principalmente tres como sigue:

4.2.1 DIRECTAMENTE DESDE LA PILA
Para explicar esta manera de entrada de datos consideraremos el siguiente
ejemplo:
Supngase que deseamos calcular la suma de dos nmeros cualquiera y
dejar el resultado puesto en la pila.
PROCEDIMIENTO
Este procedimiento es muy sencillo. Como sigue:

ANDRS R. GARCA M.
23

En el nivel 2 tenemos el programa y en el nivel 1 el nombre que le vamos a
asignar al programa.
Pulsamos STO

Entonces lo que debemos hacer ahora es poner dos nmeros en la pila y
pulsar la tecla de men SUMA la cual contiene el programa que suma dos
nmeros:

Y ejecutamos la tecla de men SUMA

ANDRS R. GARCA M.
24

Como se puede observar es un ejemplo muy sencillo que lo nico que hace
es sumar dos nmeros que estn puestos en la pila.
En este caso nuestra entrada de datos se hace directamente desde la pila.
Ponemos los nmeros previamente y ejecutamos el programa pulsando la
tecla de men SUMA.

4.2.2 MEDIANTE EL COMANDO INPUT
Esta es una manera mas elaborada de introducir datos dentro de un
programa ya que la entrada esta dentro del programa como tal. El comando
INPUT nos da la posibilidad que la introduccin de datos se haga dentro del
programa como tal y no tengamos que poner los datos en la pila y luego
ejecutar el programa como en el ejemplo anterior.
El comando INPUT cuando se utiliza para entrada de datos, casi siempre
va acompaado del comando OBJ el cual nos quita los delimitadores de
STRING del objeto entrado.
Para entender mejor esto vamos al siguiente ejemplo:
Vamos a considerar el mismo ejemplo anterior: sumar dos nmeros
PROCEDIMIENTO:
Primero escribamos el programa sin el comando OBJ para as entender
mejor. La sintaxis del programa es la siguiente:

ANDRS R. GARCA M.
25

Abre programa
"Primer numero" "" El texto siempre va dentro de delimitadores de
string
INPUT Nos permite hacer la entrada del primer dato
"Segundo numero"
INPUT Nos permite hacer la entrada del segundo dato
+ Suma los dos nmeros
Cierra programa

As se vera en la pila:

Lo grabamos bajo el nombre SUMA Y luego lo ejecutamos: Nos aparecer la
siguiente pantalla al ejecutarlo:

Entonces introducimos cualquier numero

ANDRS R. GARCA M.
26

Y luego pulsamos ENTER Seguir lo siguiente

Entonces introducimos cualquier numero

Y luego pulsamos ENTER
Lo que sigue es que el programa procede a sumar los dos nmeros.
Obsrvese el resultado

ANDRS R. GARCA M.
27

No es lo que esperbamos no es cierto?
Esto sucedi ya que inmediatamente despus del INPUT no pusimos el
comando que nos elimina los delimitadores de string entonces lo que hizo
fue sumar dos string. Cuando sumamos dos strings la accin que se ejecuta
es una concatenacin de los dos strings que estn puestos en la pila como
se puede observar en la pantalla anterior.

Entonces escribmoslo con el comando que hizo falta:

"Primer numero" " "
INPUT OBJ
"Segundo numero" " "
INPUT OBJ
+


ANDRS R. GARCA M.
28

Lo grabamos bajo el nombre SUMA y lo ejecutamos:
Nos aparecer lo mismo que para el ejemplo pero con una diferencia
gigante:
LA RESPUESTA

Espero que se haya entendido la funcin del comando INPUT y la funcin
del comando OBJ y la diferencia de poner solamente el INPUT sin el
OBJ
Estos dos son comandos muy sencillos pero de gran importancia y
aplicacin.
Al lector que tenga alguna experiencia previa en programacin le parecer
innecesaria tanta explicacin pero ese es el objetivo de este libro, hacer
que las sintaxis de los programas se entiendan al mximo. Obviamente que a
medida que avancemos se omitirn algunas explicaciones pero por ahora
dejmoslo as.
ANDRS R. GARCA M.
29

Adicional a esto hay un comando de gran importancia dentro de la
programacin ya que nos permite recorrer paso a paso un programa, y
considero necesario referenciarlo en este numeral. El comando se llama
DBUG y va acompaado de otro comando llamado SST+ y operan de la
siguiente forma:

1. Vertimos el contenido del programa que queremos recorrer paso a paso
en la pila. Esto se hace con la tecla de cambio derecha ( la verde) y el
nombre del programa que queremos recorrer paso a paso.
Primero pulsamos la tecla de cambio derecha y luego la tecla de men
donde este ubicado el programa a recorrer.

2. Pulsamos DBUG y luego SST+ para recorrer el programa.
EJEMPLO:
Vamos a recorrer paso a paso el programa anterior, SUMA. Entonces seria
as:
- Pulsamos la tecla de cambio derecha y luego la tecla de men donde esta
SUMA que en este caso es la primera tecla de men. Saldr la siguiente
pantalla:

Luego pulsamos DBUG

ANDRS R. GARCA M.
30

Nos desaparece lo que esta en la pantalla y en el rea de mensajes nos
presenta el mensaje HALT lo que quiere decir que hemos interrumpido la
ejecucin de un programa. En este caso SUMA
Procedemos a pulsar SST+ hasta que finalice el programa. De esta forma
nos daremos cuenta de que es lo que hace el programa SUMA paso a paso.

ANDRS R. GARCA M.
31

ANDRS R. GARCA M.
32

4.2.3 MEDIANTE UNA PLANTILLA DE ENTRADA
Esta es una forma bastante interesante de introducir datos dentro de un
programa ya que muestra una presentacin bastante amigable pero no se
comentara todava debido a que necesitamos conocer primero otros
elementos de programacin, y a que considero necesario dedicarle un
numeral completo e esta forma de entrada de datos. Por lo tanto no se
comentara si no gasta llegar al numeral 13.

4.3 OPERACIONES MATEMTICAS DENTRO DE UN PROGRAMA
Ya todos sabemos, la HP utiliza la notacin polaca inversa (RPN) para sus
operaciones, y funciones matemticas que se ejecuten en la pila. Dentro de
un programa podemos utilizar esta misma notacin para operaciones
matemticas, pero adems podemos escribir las operaciones tal cual se
escriben en el papel.
ANDRS R. GARCA M.
33

Para que esto sea claro, vamos al siguiente ejemplo en el cual no-solo se
explica lo anterior, adems se utilizarn aplicaciones vistas anteriormente:
Escribamos un programa que nos calcule el rea de un triangulo, la formula
es:

A = ( b * h ) / 2
Donde:
A = rea
b = Base
h = Altura

Entonces escribiendo la operacin en notacin algebraica se vera as:
( b * h ) / 2
Y escribiendo la operacin en Notacin Polaca Inversa se vera as:
b h + 2 /
Pero veamos el cdigo escrito de ambas formas:
- UTILIZANDO LA OPERACIN EN MODO ALGEBRAICO:

"Base" "" INPUT OBJ
b STO
"Altura" "" INPUT OBJ
h STO
'b*h/2' EVAL

ANDRS R. GARCA M.
34


Grabamos bajo el nombre OPER y ejecutamos para b = 10 y h = 15. La
respuesta se ver de la siguiente forma:

h y b
COMENTARIOS:

1. Obsrvese que se debe grabar el valor de la base bajo el nombre b, ( b
STO ) y el valor de la altura bajo el nombre h, ( h STO ) de lo contrario no
se hubiera realizado la operacin. Tampoco se hubiera realizado la
operacin si hubiramos grabado el valor de la base o de la altura con un
nombre diferente a b o con B (mayscula), ya que en la operacin esta
referenciado con b, y debe ser b (minscula) ya que la HP discrimina entre
maysculas y minsculas.

ANDRS R. GARCA M.
35

2. De igual manera debemos percatarnos de que inmediatamente despus de
la operacin debemos ejecutar el comando EVAL (evaluar) accin que no se
ejecutara si la operacin estuviera en RPN

3. La operacin siempre que este escrita en modo algebraico como en el
anterior ejemplo, debe ir entre delimitadores de operacin algebraica ' '

4. Al finalizar el programa nos dejo los valores de b y h grabados en el
directorio actual, algo que para mi gusto es molesto. Mas adelante
comentaremos la manera de evitar grabar valores para ejecutar una
operacin, esto mediante la creacin de una variable local, o simplemente
antes de finalizar el programa eliminar esta variable.

5. Importante tambin darnos cuenta de que para grabar el valor de b y h
se utilizaron estos delimitadores Si no los hubiramos utilizado para
grabar b o h y existiera una variable grabada anteriormente con el mismo
nombre se producira un error y se cancelara la ejecucin del programa. De
igual manera, si ya existiera una variable grabada anteriormente con el
mismo nombre b o h pero utilizando los delimitadores para grabarla no
se producira error. Lo que sucedera seria que la sobrescribira es decir
eliminara el valor del antiguo b o h y lo cambiaria al valor de b o h que
estamos introduciendo.

ANDRS R. GARCA M.
36

- Utilizando la operacin en modo RPN

"Base" "" INPUT OBJ
'b' STO
"Altura" "" INPUT OBJ
'h' STO
b h * 2 /


COMENTARIOS:
1. No necesitamos el EVAL despus de la operacin

2. No necesitamos poner lo delimitadores para la operacin
Para ver la ejecucin del programa paso a paso ejecute el comando DBUG
anteriormente nombrado (se recomienda)

Estas son las formas bsicas de hacer operaciones matemticas
proporcionadas por la HP. Personalmente en mi humilde opinin de
programador, recomiendo ejecutar las operaciones en modo algebraico, ya
ANDRS R. GARCA M.
37

que es mucho ms fcil entenderlas si se les quiere hacer modificaciones
posteriores.
A los usuarios de 49G les recomiendo utilizar su calculadora en modo RPN
recordando que la 49 brinda la posibilidad de trabajar en modo algebraico
tambin. Esto dejmoslo para otras calculadoras.

4.4 PROGRAMAS DE BLOQUE CONSTITUTIVO
Un programa de bloque constitutivo es un programa que se compone no-
solo de una variable sino que se compone de varias variables que tambin
se denominan subrutinas. Observemos el ejemplo anterior (E4) el cual para
calcular el volumen de una esfera solo necesito de una variable E4. Pero
supongamos que el programa hubiera sido muy largo; es decir que hubiera
tenido muchos mas comandos para realizar otras tareas, esto es muy
incomodo desde punto de vista de la edicin del programa: Editar variables
muy largas es bastante incomodo y demorado. Entonces en ese caso la
primera variable, es decir por donde empieza el programa; la referimos a
segunda variable.
Hay ocasiones en que es obligatorio referirnos a una segunda variable o
subrutina, es decir no solo lo hacemos por que la primera es una variable
muy larga sino porque es totalmente necesario. Tambin es importante
aclarar que un programa puede estar compuesto de muchas subrutinas
(hasta que la memoria de su HP se lo permita)
Ejemplo:
Supongamos que deseamos calcular el rea y la longitud de circunferencia
de un circulo dado su radio pero utilizaremos una variable para calcular el
rea y otra para calcular la longitud de circunferencia.
ANDRS R. GARCA M.
38

Como lo pueden imaginar estas son tareas que no representan programas
muy largos. Se escribir en dos variables simplemente para explicar como
se crea una subrutina y como conectar las dos variables
1. Creamos la variable por donde vamos a empezar el programa es decir la
que va a calcular el rea: La llamaremos AREA
2. La segunda variable, es decir; la que calculara la longitud de la
circunferencia la llamaremos LONG
La operacin matemtica para calcular el rea la escribiremos
algebraicamente y entonces la sintaxis ser la siguiente:

"Valor del radio?" " "
INPUT OBJ
' r '
STO
' 3.14 * r^2 '
EVAL
LONG

En la pila se vera as:

La grabamos bajo el nombre AREA: AREA STO

ANDRS R. GARCA M.
39

COMENTARIOS:
1. Observemos que se grabo el valor del radio en el directorio actual bajo el
nombre r r STO

2. La operacin es escrita algebraicamente por lo que tenemos que
adicionar EVAL despus de la operacin

3. Esta es la observacin ms importante. Ntese que antes que se cierre el
programa estamos llamando un nombre (LONG) Este es el nombre de la
variable que sigue, es decir la que va a calcular la longitud de la
circunferencia.
Aqu lo que se hizo fue que inmediatamente se acaban las tareas u
operaciones por hacer en la variable REA nos vamos para la variable
LONG. Esta variable LONG debemos llamarla sin ninguna clase de
delimitadores como se observa en la pantalla anterior.

Pero bueno, escribamos la variable LONG:

2 * 3.14 * r
EVAL

En la pila se vera as

ANDRS R. GARCA M.
40

Lo grabamos con el nombre LONG: LONG STO

COMENTARIOS:

1. Percatarnos del EVAL despus de la operacin

Entonces en este momento debemos tener dos variables grabadas que son:
REA Y LONG

Variables
Entonces ejecutemos nuestro primer programa de bloque constitutivo.
Recordemos que el programa inicia con la variable REA
Entonces para un radio de 8 obtendremos los siguientes valores:

ANDRS R. GARCA M.
41

COMENTARIOS:

1. Este ejemplo es simplemente para explicar como se llama una subrutina
dentro de un programa, ya que este programa en esencia; no necesitaba una
subrutina dado que es muy corto

2. Fijmonos que el programa nos deja la variable r grabada en el directorio
actual. Veamos como eliminar esta variable:
Lo nico que tenemos que hacer es lo siguiente:
Antes de cerrar la subrutina debemos agregar lo siguiente
{ r } PURGE que lo que hace es sacar el nombre a borrar a la pila en este
caso r
y luego borrarlo mediante el comando PURGE
Esta ultima parte (borrar r) debemos ponerla al final de la subrutina (en este
caso LONG) y no al final del programa principal (en este caso AREA) ya que
si lo ponemos al final del programa principal AREA, cuando nos vayamos a
la subrutina LONG no calculara nada porque el valor de r ya no existe, se ha
borrado
Entonces el cdigo completo quedara as
AREA:
"Valor del radio?" " "
INPUT OBJ ' r ' STO
' 3.14 * r^2 ' EVAL
LONG
LONG:
2 * 3.14 * r EVAL { r } PURGE

ANDRS R. GARCA M.
42

Agregando este ultimo comando ya no nos quedara la variable r en el
directorio actual.
Observemos que la variable a borrar debe ir entre delimitadores de lista.
Para terminar con este numeral espero que haya quedado bien clara la
manera como se llaman las subrutinas dentro de un programa. Simplemente
se llaman por su nombre y sin ningn delimitador.
Recomiendo que le pasen el DBUG (comando nombrado anteriormente) a
este pequeo programa que acabamos de hacer (REA) para as lograr una
comprensin total de lo que es un programa de bloque constitutivo.

ANDRS R. GARCA M.
43

5. PRESENTACIN DE
RESULTADOS.

ANDRS R. GARCA M.
44

5. PRESENTACIN DE
RESULTADOS

La presentacin de los resultados que arroja un programa es de vital
importancia ya que de esto depende que los potenciales usuarios de
nuestras creaciones entiendan e interpreten lo que sale a la pila despus de
ejecutar o correr un programa. Notemos que los programas que hemos
escrito hasta el momento nos arrojan o nos ponen resultados en la pila pero
no podemos interpretarlos de manera correcta dado que solo nos pone
nmeros en la pila pero no podemos saber ni interpretar que son.
Para la presentacin de resultados existen varios comandos, unos ms
funcionales que otros pero todos igualmente importantes y de fcil
manipulacin.
A continuacin se presentan comandos que nos permiten etiquetar los
resultados o presentarlos con su respectivo nombre, as por ejemplo un
programa que nos calcule el volumen de una esfera dado el radio, nos
presentara el resultado con su respectivo nombre: V = 35 por ejemplo. En
este numeral haremos referencias a solo algunos de estos comandos, los
dems los referiremos mas adelante.

5.1 MEDIANTE EL COMANDO TAG
Este comando es el mas sencillo para etiquetar los resultados salidos de un
programa. Para ver como funciona consideremos el siguiente ejemplo
sencillo:

ANDRS R. GARCA M.
45

EJEMPLO 1:
Escribamos un programa que nos calcule las soluciones de una ecuacin
cuadrtica.
Recordemos la forma de la ecuacin cuadrtica:
0 * 2 ^ * = + + c x b x a
Y la formula para hallar las soluciones sern:
a c a b b X * 2 / ) * * 4 2 ^ ( 1 + =
a c a b b X * 2 / ) * * 4 2 ^ ( 2 =
Esto Suponiendo que la variable sea X
Bueno, se supone que ustedes manejan las matemticas perfectamente por
lo que de ahora en adelante no dar tantos detalles.
Para el ejemplo los valores de los coeficientes sern a= 1 , b = 2 , c = 1
Vamos al cdigo:

"Valor de a?" ""
INPUT OBJ
'a' STO
"Valor de b?" " "
INPUT OBJ
'b' STO
"Valor de c?" " "
INPUT OBJ
'c' STO
'(-b+\(b^2-4*a*c))/(2*a)' EVAL X1 TAG
'(-b-\(b^2-4*a*c))/(2*a)' EVAL X2 TAG

Lo grabamos bajo el nombre CUAD y ejecutamos:
ANDRS R. GARCA M.
46

Tendr que aparecernos algo como lo que sigue:

COMENTARIOS:

1. Para comenzar observemos que el programa nos grabo los valores de a, b
, c en el directorio actual. Esto se evita poniendo al final del programa { a b
c} PURGE (prubenlo como ejercicio)
En los ejemplos que hagamos de aqu en adelante se incluir esta ultima
parte para borrar la variables grabadas

2. Notemos que inmediatamente despus del EVAL aparece X. Este texto es
el que va a etiquetar el resultado. Inmediatamente despus aparece el
comando que genera la etiqueta: TAG
3. Importantsimo pasarle el DBUG a este programa para que vean lo que
hace paso a paso.

ANDRS R. GARCA M.
47

4. Para que el resultado se vea de esta manera debemos modificar primero
el siguiente FLAG:

Es decir dejarlo como Std stack que significa pila estndar. De lo contrario
se vera as:

Esto seria desactivando el FLAG:

Mas adelante veremos como se modifican los especficamente dentro del
programa.
ANDRS R. GARCA M.
48

Realicmoslo de nuevo pero cambiemos la etiqueta a SOLUCION1 y
SOLUCION2 y adicionmosle la parte final que borra las variables grabadas.
Utilicemos los mismos valores que para el ejemplo anterior (1 2 1)

"Valor de a?" ""
INPUT OBJ
'a' STO
"Valor de b?" " "
INPUT OBJ
'b' STO
"Valor de c?" " "
INPUT OBJ
'c' STO
'(-b+\(b^2-4*a*c))/(2*a)' EVAL SOLUCION1 TAG
'(-b-\(b^2-4*a*c))/(2*a)' EVAL SOLUCION2 TAG
{ a b c } PURGE

COMENTARIOS:

ANDRS R. GARCA M.
49

1. Notemos que borramos los valores que habamos grabado

2. Cambiamos las etiquetas a SOLUCION1 y SOLUCION2

3. Fijmonos que el nombre SOLUCIN quedo pegado el 1 es decir quedo
SOLUCION1. Para que queden separados debemos poner el texto de la
etiqueta entre delimitadores de STRING. Como sigue:

"Valor de a?" ""
INPUT OBJ
'a' STO
"Valor de b?" " "
INPUT OBJ
'b' STO
"Valor de c?" " "
INPUT OBJ
'c' STO
'(-b+\(b^2-4*a*c))/(2*a)' EVAL"SOLUCION 1" TAG
'(-b-\(b^2-4*a*c))/(2*a)' EVAL "SOLUCION 2" TAG
{ a b c } PURGE

Al ejecutar este cdigo, es decir; al correr este programa la respuestas
quedaran presentadas de la siguiente forma:

ANDRS R. GARCA M.
50

COMENTARIOS:

1. Observemos que ahora si quedaron despegados SOLUCIN y 1. No
olvidemos que para poner texto que contenga espacios y que vaya a
etiquetar algn resultado, debemos ponerlo con delimitadores de STRING

Espero se haya entendido como se presentan resultados mediante el
comando TAG, es bastante fcil.

5.2 MEDIANTE EL COMANDO MSGBOX
Este es otro comando bastante funcional ya que nos permite mostrar
resultados pero ahora en una ventana de dialogo. Consideremos el siguiente
ejemplo para aplicar el comando:
Escribamos un programa (muy sencillo) para calcular las perdidas por
friccin en una tubera simple utilizando la Ecuacin de Darcy:
hf = f * (L/D) * (V
2
/2*g) Donde:
f = Factor de friccin
L = Longitud de la tubera
D = Dimetro. (Usualmente se designa con la letra griega fi (u) )
V = Velocidad de flujo
g = Aceleracin de la gravedad (9.81 m / s
2
)
Para el ejemplo utilizaremos los siguientes valores:
ANDRS R. GARCA M.
51

f = 0.012
L = 200 m
D = 0.254 m
V = 3.94 m / s
g = 9.81 m / s
2

Vamos al cdigo:

"Factor de friccin?" " "
INPUT OBJ 'f' STO
"Longitud de la
tubera (En m)" " "
INPUT OBJ 'L' STO
"Diametro de la
tuberia? (EN m)" " "
INPUT OBJ D STO
"Velocidad de flujo?
(En m/s)" " "
INPUT OBJ 'V' STO
' f * (L/D) * V^2/19.62 ' EVAL
STR "hf= " SWAP + MSGBOX
{ f L D V } PURGE

As vera parte del cdigo en la pila:

ANDRS R. GARCA M.
52

Grabamos bajo el nombre PERD ( PERD STO) y lo ejecutamos:

La respuesta se vera de la siguiente forma:

COMENTARIOS:
ANDRS R. GARCA M.
53

1. Observemos en las pantallas anteriores como van apareciendo las
variables que vamos grabando.

2. Notemos el EVAL inmediatamente despus de la operacin y despus
viene lo ms interesante.

3. Despus del EVAL aparece un comando nuevo para nosotros: STR
Este comando lo que hace es convertir el resultado de la operacin en un
STRING, es decir le pone delimitadores de secuencia ya que para poder
mostrarlo aplicando el comando MSGBOX tiene que estar dentro de
delimitadores de secuencia o STRING
Luego viene el texto hf el cual es la etiqueta que le vamos a poner al
resultado. Observemos que este texto esta dentro de delimitadores de
STRING
Despus de esto viene otro comando nuevo: SWAP. Este comando lo que
hace es voltear los dos datos que hay en la pila en ese momento que son
"7.4798..." y "hf= ".
Pero porque se voltean?
Simplemente porque si sumamos estos dos STRINGS (ntese que a
continuacin viene un +) tal cual nos los arrojo el programa la respuesta
nos hubiera quedado al revs. Es decir as:
A continuacin viene un + que es el que suma los dos STRINGS que son:
ANDRS R. GARCA M.
54

3.1 La respuesta arrojada por la operacin "7.4798..."
3.2 La etiqueta para la respuesta " hf = "
Para que todo esto se entienda mejor hganle un DBUG a este programa y
as entendern perfectamente.
Luego viene el comando MSGBOX que lo que hace es coger el STRING que
se encuentre en la pila y presentarlo en una ventana. En este caso el
STRING que estaba en la pila era " hf = 7.4798....."
A continuacin viene { f L D V } PURGE que borra las variables que
habamos grabado: { f L D V }

4. Fijmonos que al presentar el resultado, nos queda de fondo la pantalla
con el ultimo INPUT. Algo que en mi concepto es antiesttico a menos que
fuese totalmente necesario. Para solucionar este problema lo que debemos
hacer es poner el comando CLLCD antes del comando MSGBOX. Este
comando CLLCD lo que hace es borrar la pantalla pero no borra la pila en si,
es decir; no borra los datos que hay en la pila y para estos casos siempre
va antes del comando MSGBOX
Veamos como quedara el cdigo con este nuevo comando y como se vera
la respuesta:

INPUT OBJ 'f' STO
"Longitud de la
tubera (En m)" " "
INPUT OBJ 'L' STO
"Diametro de la
INPUT OBJ D STO
ANDRS R. GARCA M.
55

(En m/s)" " "
INPUT OBJ 'V' STO
' f * (L/D) * V^2/19.62 ' EVAL
STR "hf= " SWAP + CLLCD MSGBOX
{ f L D V } PURGE

Lo grabamos bajo el mismo nombre PERD y lo ejecutamos. Entonces la
respuesta se vera as:

Mucho mejor no les parece?

5. Supongamos que no queremos ver la respuesta con tantos lugares
decimales. Entonces lo que debemos hacer es poner el comando RND el
cual funciona de la siguiente manera:
Inmediatamente despus del numero o respuesta que queremos cortar le
ponemos el numero de lugares decimales que queremos y luego el comando
RND.
Pero veamos como quedara el cdigo del ejemplo anterior con el nuevo
comando RND
Supondremos 2 espacios decimales:

ANDRS R. GARCA M.
56

INPUT OBJ 'f' STO
"Longitud de la
tubera (En m)" " "
INPUT OBJ 'L' STO
"Diametro de la
INPUT OBJ D STO
(En m/s)" " "
INPUT OBJ 'V' STO
' f * (L/D) * V^2/19.62 ' EVAL 2 RND
STR "hf= " SWAP + CLLCD MSGBOX
{ f L D V } PURGE

Veamos como queda la respuesta:

Vemos que recorto la respuesta a dos lugares decimales.
De nuevo recomiendo hacerle un DBUG a este cdigo
Espero haber sido lo suficientemente claro y explicito al explicar estos
nuevos comandos que acabamos de ver (STR, MSGBOX, CLLCD, SWAP,
RND)

ANDRS R. GARCA M.
57

5.3 MEDIANTE EL COMANDO DISP
La presentacin de datos o resultados mediante este comando es en mi
concepto, un poco mas funcional que los otras dos comandos vistos
anteriormente (TAG y MSGBOX) ya que nos permite utilizar toda el rea
de la pantalla para tal fin. El DISP es un comando que suele ir acompaado
de otros comandos, a los cuales tambin haremos referencia en este
numeral.
Este comando no solamente nos sirve para presentar resultados arrojados
de determinada operacin si no que adems nos permite poner texto en la
pantalla de manera organizada y adems los cdigos ocupan poco espacio en
memoria.
1Primero consideraremos un ejemplo en donde lo que se va a presentar es
una respuesta arrojada por un pequeo programa y luego mediante el mismo
comando DISP haremos una sencilla presentacin para el mismo programa.
Esto evocando la posibilidad que nos ofrece DISP de poner texto en
pantalla.
Vamos entonces al primer ejemplo:
Vamos a considerar el mismo ejemplo anterior en donde calculamos las
perdidas por friccin en una conduccin simple con los mismos valores pero
adems vamos a calcular el rea de la seccin de la tubera:
Veamos entonces al cdigo incluyendo el nuevo comando DISP y sus
comandos acompaantes

ANDRS R. GARCA M.
58

"Factor de friccion?" ""
INPUT OBJ ' f ' STO
"Longitud de la
tuberia (En m)" "" INPUT OBJ
' L' STO
"Diametro de la
tuberia? (EN m)" "" INPUT OBJ
' D' STO
(En m/s)" "" INPUT OBJ ' V ' STO
'f*(L/D)*(V^2/19.61)' EVAL 2
RND STR "hf= " SWAP + CLLCD
1 DISP '3.14*(D/2)^2' EVAL 2
RND STR "Area= " SWAP + 2
DISP 3 FREEZE { V D L f }
PURGE

Lo grabamos bajo el nombre PERD2 y ejecutamos
Entonces ahora nos va a arrojar dos respuestas que son: Perdidas y rea de
la seccin de la tubera los cuales se ven as:

ANDRS R. GARCA M.
59

COMENTARIOS:
1. Notemos que despus de haber concatenado los dos STRINGS con el +
(STR "hf= " SWAP + ) aparece el comando 1 DISP donde:
1 es el nivel de la pila donde vamos a ubicar el resultado pero ordenado de
arriba abajo es decir el nivel 1 ya no es el primero de abajo hacia arriba
sino de arriba abajo.
2. Luego aparece DISP el cual nos permite poner el resultado en el nivel
especificado en este caso 1.
Sucede lo mismo para el segundo resultado, despus de haber concatenado
los dos STRINGS con el + (STR "Area= " SWAP + 2 DISP) aparece
el comando 2 DISP donde:
2 es el nivel de la pila donde vamos a ubicar el resultado.
Luego aparece DISP el cual nos permite poner el resultado en el nivel
especificado en este caso 2. Para usuarios de 48G es importante aclararles
que disponen de 7 niveles para poner resultados en pantalla.
Luego viene un comando nuevo: FREEZE
FREEZE nos permite congelar la pantalla para que el resultado se mantenga
visible, sin el FREEZE el resultado se hubiera puesto si en los niveles
especificados pero hubiera desaparecido tan rpido que ni nos hubiramos
dado cuenta.
Fijmonos que el FREEZE viene acompaado de un numero en este caso 3.
Este numero indica que el rea de la pantalla a congelar. En este caso
consideramos 3 ya que es un valor que se ajusta perfectamente a cualquier
ejemplo.
3. Por ultimo aparece { V D L f } PURGE que es el encargado de borrar las
variables que habamos grabado.

ANDRS R. GARCA M.
60

Existe otro comando que nos permite mantener los resultados visibles en la
pantalla. Este comando se denomina WAIT.
El comando WAIT lo que hace es que despus de poner nuestros resultados
en los niveles deseados nos espere un tiempo (en segundos) determinado.
Si ponemos 5 WAIT nos dejara visibles los resultados durante 5 segundos,
si ponemos 10 WAIT nos dejara visibles los resultados durante 10 segundos
y si ponemos 0 WAIT nos dejara visibles los resultados hasta que se pulse
una tecla que es mucho mas conveniente en este caso.
Pero veamos nuestro ejemplo ahora utilizando el WAIT

"Factor de friccion?" ""
INPUT OBJ ' f ' STO
"Longitud de la
tuberia (En m)" "" INPUT OBJ
' L' STO
"Diametro de la
tuberia? (EN m)" "" INPUT OBJ
' D' STO
(En m/s)" "" INPUT OBJ ' V ' STO
'f*(L/D)*(V^2/19.61)' EVAL 2
RND STR "hf= " SWAP + CLLCD
1 DISP '3.14*(D/2)^2' EVAL 2
RND STR "Area= " SWAP + 2
DISP 0 WAIT { V D L f }
PURGE

ANDRS R. GARCA M.
61

Grabamos bajo el mismo nombre PERD2 y ejecutamos. Se vera de la
siguiente forma:

COMENTARIOS:
1. Observemos que nos visualiza el reloj. Esto porque la opcin de ver reloj
estaba activada. Mas adelante veremos como modificar esto (FLAGS) para
que al presentar respuestas no nos deje visible el reloj. Por ahora dejmoslo
as.

2. Si presionamos ENTER o cualquier otra tecla nos dejara un numero
puesto en el nivel 1 de la pila. Mas adelante veremos que significa este
numero (Organizacin del teclado)

3. Fijmonos que el 0 WAIT va despus de que los resultados han sido
puestos en sus respectivos niveles. Si lo ponemos antes pues no tiene
ningn sentido ya que no hay ningn resultado que mostrar.
Si ubicamos el 0 WAIT despus de haber puesto nicamente el primer
resultado pues no nos mostrara el segundo. El 0 WAIT debe ubicarse una
vez estn ubicados los resultados o los datos que queremos mostrar en sus
respectivos niveles.

ANDRS R. GARCA M.
62

Vamos entonces a la segunda parte del ejemplo: Crear una pequea
presentacin para el programa PERD2 mediante la utilizacin del comando
DISP. Desactivemos la opcin de mostrar el reloj para que no nos dae
nuestra presentacin.
Vamos a suponer que los datos que lleva nuestra presentacin son los
siguientes:
Nombre del programa
Nombre del creador del programa
Versin
Ao.
Y por ultimo una indicacin para continuar el programa. En este caso le
vamos a poner PRESIONE ENTER
Veamos el cdigo:

CLLCD
" PERDIDAS

POR: Joe Satriani
VERSION 1.0
2005
PRESIONE ENTER "
1 DISP 0 WAIT

Grabamos bajo el nombre PRES y ejecutamos. Se vera algo como esto.

ANDRS R. GARCA M.
63

COMENTARIOS:
1. Notemos que primero va el comando CLLCD para que nos ponga la
pantalla en blanco, es decir nos borre la pantalla.

2. El texto va dentro de delimitadores de secuencia o STRING con sus
respectivos espacios para que quede centrado en la pantalla.

3. Observemos que necesitamos un solo DISP para poner todo el texto en
pantalla y no uno para cada lnea de texto. Esto debido a que todo el texto
lo pusimos dentro de un solo delimitador de STRING.

4. El texto esta colocado en el nivel 1 (1 DISP) pero lo mostr en varios
niveles de la pantalla. Esto debido a que le dimos espacios entre lneas para
que quedara centrado y bien presentado

Ahora la idea principal es concatenar las dos variables que constituyen
nuestro programa que son PERD2 Y PRES para que una vez presionamos
ENTER despus de la presentacin se ejecute la variable PERD2.
Esta tarea la dejo para que el lector la haga ya que es bastante fcil y
adems se explico unas paginas atrs.

ANDRS R. GARCA M.
64

Espero que hayan quedado suficientemente claros los comandos que nos
permiten visualizar datos y resultados en pantalla, ya que de aqu en
adelante los utilizaremos bastante en los dems ejemplos propuestos.

5.4 OTROS
Existen otros comandos que tambin nos permiten visualizar resultados o
cualquier otro objeto pero ahora utilizando cdigos mucho ms elaborados y
haciendo uso del entorno de grficos PICT
Estos comandos los analizaremos mas adelante ya que para entenderlos y
manejarlos correctamente necesitamos algunas explicaciones previas
adems de otros elementos de programacin

ANDRS R. GARCA M.
65

6. MANIPULACIN DE LISTAS.

ANDRS R. GARCA M.
66

6. MANIPULACIN DE LISTAS.
6.1 DEFINICIN
Para la HP una lista es todo lo que este dentro de los delimitadores { }.
El buen manejo de listas es quizs uno de los elementos de programacin
ms importante que hay, dado que las listas son muy flexibles para manejar
y operar sobre datos dentro de un programa.
Unos ejemplos de lista pueden ser los siguientes:
- { A B C D }
- { 1 2 3 4 }
- { "TRASH METAL" "MI METAL-TENDENCIA FAVORITA" }
Las listas pueden contener cualquier tipo de objeto (nmeros reales,
nmeros complejos secuencias o STRINGS, unidades, programas, otras
listas etc.)

6.2 COMO CREAR UNA LISTA
Primero que todo vamos a ver como se crea una lista directamente desde la
pila y luego veremos come se crea aplicando un programa.
6.2.1 DESDE LA PILA
Para crear una lista debemos tener puestos en la pila los diferentes
elementos que van a conformar la lista, especificar el numero de elementos
que la conformaran y luego si ejecutar el comando LIST
Veamos entonces el siguiente ejemplo:
Supongamos que los elementos que conformaran la lista son los siguientes:
1 2 3 4

ANDRS R. GARCA M.
67

As los veramos en la pila:

Ahora debemos especificar el numero de elementos que conformaran la
lista. En este caso son cuatro elementos:

Entonces ejecutamos el comando LIST

Pero bueno, aqu sabamos cuantos elementos conformaran la lista, pero
consideremos un caso en que no lo supiramos.
Para esto hay otro comando muy interesante que nos indica cuantos objetos
(y digo objetos porque puede tratarse no solo de nmeros reales) hay en la
pila.
Veamos otro ejemplo aplicando este comando:
Los objetos que conformaran la lista son los siguientes:
ANDRS R. GARCA M.
68

(2,1) (1,2) (3,3) (5,2)
As los veramos en la pila:

Entonces ejecutamos el comando DEPTH y luego el comando LIST y
veremos algo as:

De esta manera se crean las listas directamente desde la pila, pero ahora
que tenemos el concepto veamos como se hace con un programa.

6.2.1 MEDIANTE UN PROGRAMA
Para explicar esta manera de crear listas vamos a considerar el siguiente
ejemplo:
Escribamos un programa que nos pida una entrada de datos pero estos
datos ya no Iran separados; es decir ya no haremos un INPUT para cada
dato sino que pediremos la entrada de los datos uno tras otro
Entonces consideremos una serie de datos de dimetros de tuberas en
pulgadas y los convertiremos a metros. Los datos son los siguientes:
6 8 10 12 18 20 24 28 32 (Todos estn pulgadas)
ANDRS R. GARCA M.
69

Veamos entonces el cdigo:
"Diametros en
pulgadas" " " INPUT OBJ
DEPTH LIST 0.0254 *

As lo vemos en la pila:

Grabamos bajo el nombre CONV y ejecutamos:
Entonces introduciremos los datos uno tras otro:

Y la salida ser:

ANDRS R. GARCA M.
70

COMENTARIOS:
1. Notemos que los datos van uno tras otro y separados por espacios

2. Una vez puestos los datos en la pila se ejecuta el comando DEPTH el cual
pone en la pila el numero de datos que se encuentran en esta, recordemos
que tenemos que especificar el numero de datos que hay en la pila para
formar la lista de lo contrario se producir un error.
Luego viene el comando LIST que nos forma una lista con los datos que
estn en la pila y luego viene la operacin para convertir de pulgadas a
metros 0.0254 *, es decir multiplicamos por 0.0254 (Fijmonos que esta en
RPN lo cual aqu es absolutamente necesario)

3. Observemos que la operacin (0.0254 *) se efectu sobre todos los
elementos de la lista lo cual es una gran ventaja.

4. Es necesario hacerle DBUG a este cdigo para as poder ver la ejecucin
paso a paso. (MUY IMPORTANTE)

Supongamos un segundo ejemplo que en realidad es el mismo anterior pero
con una pequea variacin: Mostraremos los resultados con su respectiva
unidad.
Para esto lo nico que haremos ser multiplicar al final por 1_m. Veamos el
cdigo:
"Diametros en
pulgadas" " " INPUT OBJ
DEPTH LIST 0.0254 * 1_m *

ANDRS R. GARCA M.
71

As lo vemos en la pila:

Grabamos este cdigo bajo el nombre CON2 y ejecutamos: La salida ser la
siguiente:

COMENTARIOS:
1. Vemos que no se visualizan todos los datos en pantalla. Para solucionar
esto oprimimos la tecla que tiene la flecha hacia abajo (Tercera fila quinta
tecla)

2. Fijmonos en el cdigo que hay un espacio entre 1_m y el signo * (por)

3. Una vez mas la operacin 1_m * se efectu sobre todos los elementos de
la lista.

ANDRS R. GARCA M.
72

Una vez mas espero que se hayan entendido muy bien los ejemplos y en
especial como se utilizan los comandos DEPTH y LIST fundamentales
en la creacin de listas.

6.3 ADICIN DE OBJETOS A UNA LISTA
Se pueden aadir objetos a una lista despus de que esta ya esta creada. Se
hace de manera muy fcil y es de la siguiente manera:
Supongamos que tenemos la siguiente lista {1 2 3 4 5 3} y queremos
adicionarle el numero 18.
Lo nico que tenemos que hacer es lo siguiente:
- Poner la lista en el nivel dos de la pila.
- En el nivel uno el elemento que vamos a adicionar y presionar el signo +
Veamos como se vera en la pila:

Y presionamos el signo +. Se vera as:

ANDRS R. GARCA M.
73

COMENTARIOS:
1. Aparentemente es una operacin sencilla y en efecto lo es. Pero el
objetivo es que tengan muy en cuenta como se adiciona un elemento a una
lista ya que mas adelante retomaremos bastante este concepto.

6.4 COMANDOS QUE PERMITEN OPERAR SOBRE LISTAS
Como se dijo anteriormente, el buen manejo de listas es quizs uno de los
elementos de programacin ms importante que hay, dado que las listas son
muy flexibles para manejar y operar sobre datos dentro de un programa.
Ahora veremos los comandos que permiten operar sobre las listas. Estos
comandos nos permiten extraer elementos de una lista, sumar los elementos
que componen una lista, etc. Vamos entonces a explicar estos comandos.

6.4.1 ALIST
Este comando determina la diferencia entre dos elementos consecutivos de
una lista. Por ejemplo si tenemos una lista con los siguientes elementos { 2
4 6 6 } lo que hace es devolvernos la lista { 2 2 0 }
Veamos un segundo ejemplo:
Consideremos la siguiente lista y determinemos las diferencias de los
elementos consecutivos:

Ahora ejecutamos el comando ALIST y veremos lo siguiente:
ANDRS R. GARCA M.
74

COMENTARIOS:
1. Importante resaltar que la diferencia se efecta de derecha a izquierda.

2. El resultado es arrojado en lista.

3. Es un comando muy sencillo pero de gran utilidad dentro de programas
donde estemos manejando listas con muchos datos.

6.4.2 ELIST
Este comando nos permite hacer la sumatoria de todos los elementos de una
lista y nos arroja el resultado como un objeto numero real. Veamos el
siguiente ejemplo:
Consideremos la siguiente lista

Ejecutamos el comando ELIST:
ANDRS R. GARCA M.
75

COMENTARIOS:
Ninguno
Veamos ahora un ejemplo con una lista que contiene STRINGS:
Consideremos la siguiente lista.

Ejecutamos el comando ELIST:

Lo que hizo fue sumarnos o concatenarnos los STRINGS que estaban
dentro de la lista

ANDRS R. GARCA M.
76

6.4.3 HLIST
Este comando efecta el producto de todos los elementos de una lista.
Veamos el siguiente ejemplo:

Ejecutamos el comando HLIST:

COMENTARIOS:
Ninguno

6.4.4 SORT
Este comando ordena todos los elementos de una lista en forma ascendente.
Veamos el siguiente ejemplo:
ANDRS R. GARCA M.
77

Ejecutamos el comando SORT:

COMENTARIOS:
1. Prueben este comando pero con una lista que contenga STRINGS con
letras

6.4.5 REVLIST
Este comando invierte el orden de los elementos de una lista. Veamos el
siguiente ejemplo:

Ejecutamos el comando REVLIST:
ANDRS R. GARCA M.
78

COMENTARIOS:
Ninguno

6.4.6 ADD
Este comando suma el contenido de los elementos de dos listas. Veamos el
siguiente ejemplo:
Consideremos las siguientes listas:

Ejecutamos el comando ADD

COMENTARIOS:
Ninguno.

Ahora veremos algunos comandos que nos permiten operar sobre listas
pero son un poco mas elaborados y poderosos

ANDRS R. GARCA M.
79

6.4.6 GET
Este comando nos permite extraer un elemento de una lista dado su ndice
de posicin.
Para entender mejor veamos el siguiente ejemplo:
Consideremos la siguiente lista la cual contiene tres STRINGS

Si queremos extraer el primer elemento de la lista entonces ponemos en la
pila la lista y el ndice de posicin del elemento a extraer, en este caso 1

Ejecutamos el comando GET:

ANDRS R. GARCA M.
80

COMENTARIOS:
Ninguno

6.4.7 PUT
Este comando nos permite poner un elemento dentro de una lista dados su
ndice de posicin y el objeto a introducir. Para entender mejor veamos el
siguiente ejemplo:
Consideremos la siguiente lista:

Entonces vamos a introducir el STRING R en la posicin siete. Colocamos
en la pila lo siguiente:
- La lista
- El ndice de posicin (en este caso siete)
- STRING que vamos a poner

Ejecutamos el comando PUT:

ANDRS R. GARCA M.
81

COMENTARIOS:
1. Fijmonos que el elemento que estaba en la posicin tres (36) fue
sustituido por 45

6.4.8 SIZE
Este comando nos permite saber la cantidad de elementos que componen
una lista. Consideremos la siguiente lista:

Ejecutamos el comando SIZE:

ANDRS R. GARCA M.
82

COMENTARIOS:
Ninguno

6.4.9 POS
Este comando nos permite conocer el ndice de posicin dentro de una lista,
de un elemento dado. Consideremos el siguiente ejemplo:

Queremos saber cual es el ndice de posicin del STRING T. Entonces:

Ejecutamos el comando POS:

ANDRS R. GARCA M.
83

COMENTARIOS:
1. Inicialmente podemos pensar que no tiene ninguna aplicacin funcional. Al
terminar la explicacin de cada uno de los comandos, haremos un ejemplo
donde nos daremos cuenta la importancia de este comando.

6.4.10 HEAD
Este comando nos devuelve el primer elemento (cabeza) de una lista.
Consideremos el siguiente ejemplo:

Si ejecutamos el comando HEAD nos devolver lo siguiente:

COMENTARIOS:
Ninguno

ANDRS R. GARCA M.
84

6.4.11 TAIL
Este comando nos elimina el primer elemento de una lista.
Considerando la misma lista anterior nos devolver lo siguiente:

VEAMOS UN EJEMPLO QUE APLICA ALGUNOS DE LOS COMANDOS
ANTERIORES:
Este ejemplo es la esencia para escribir un programa que emule una
agenda de telefnica o como se le quiera llamar, la cual podr contener
todos los aspectos de determinado contacto.
Escribamos entonces un programa que con base en el nombre del contacto
nos arroje el numero celular y el correo electrnico.
Grabemos entonces tres listas las cuales contendrn:
1. Nombre.
2. Numero celular
3. e-mail.
NOMBRES:
{ "Andrs Garca" "Carlos Daz" "Fabin Herrera" "Santiago Jos Lpez" }
Una vez puesta en pila esta lista la grabamos con el nombre NOMBRES

ANDRS R. GARCA M.
85

NMEROS CELULARES:
{ "3114853881" "3005711826" "3103178192" "3002105072" }
Una vez puesta en pila esta lista la grabamos con el nombre TELS

E - MAIL:
{argarcia35@ucatolica.edu.co "lithus@metallica.com" "fan@megadeth.com"
"santi@gcn.com"}
Una vez puesta en pila esta lista la grabamos con el nombre EMAIL

ANDRS R. GARCA M.
86

Ya teniendo las tres listas grabadas entonces procedemos a escribir el
cdigo:

Abre Programa
"Escriba el nombre del
contacto" "" INPUT
CLLCD Blanqueamos la pantalla
'c' STO Grabamos el nombre introducido
c Llamamos el nombre a la pila
DUP Lo duplicamos
1 DISP Lo colocamos en pantalla
NOMBRES Llamamos la lista nombres a la pila
SWAP Rotamos la pila
POS Encontramos la POS de Carlos Daz
DUP Duplicamos el STRING Carlos Daz

TELS Llamamos la lista TELS a la pila
GET Extraemos el TEL de la POS 2
EMAIL Llamamos la lista EMAIL a la pila
GET Extraemos el EMAIL de la POS 2
"HAY " Ponemos el STRING HAY en la pila
NOMBRES Lamamos la lista Nombres a la pila
SIZE Averiguamos su tamao
ANDRS R. GARCA M.
87

STR Lo convertimos en STRING
+ Concatenamos los 2 STRINGS
"CONTACTOS" Ponemos el STRING CONTACTOS en
la pila
+ Lo concatenamos al STRING que hay
en pila
0 WAIT Esperamos a que se pulse una tecla
DROP Borramos la semilla dejada por la
tecla pulsada
{ c } PURGE Borramos de la memoria la VAR c
Cierra Programa
Grabamos este cdigo con el nombre INICI y lo ejecutamos para Carlos Daz
por ejemplo:

Para Santiago Jos Lpez:

ANDRS R. GARCA M.
88

COMENTARIOS:

1. Notemos que al llamar las listas que contienen los diferentes datos, lo
hacemos sin ninguna clase de delimitador.

2. Al introducir las listas debemos hacerlo en el mismo orden en que
aparecen es decir; el elemento 1 de la lista NOMBRES debe corresponder al
elemento 1 de la lista TELS y Elemento 1 de lista EMAIL.

3. Este cdigo se puede optimizar muchsimo y lo retomaremos mas
adelante, pero para efectos del ejemplo esta bien as. Por ultimo recomiendo
muchsimo hacerle un DBUG a este cdigo si algo no quedo muy claro.

Vamos a un segundo ejemplo:
Para calcular la capacidad de carga de un suelo aplicando la teora y las
ecuaciones propuestas por su eminencia Dr. KARL VON TERZAGHI se
encuentran dentro de dichas ecuaciones, unos coeficientes llamados
FACTORES DE CAPACIDAD DE CARGA (Nc, Nq y N) los cuales son
funcin del ngulo de friccin interna (|.) Estos coeficientes se pueden
calcular mediante una ecuacin pero se hace extenso ya que hay que
conocer muchos otros datos.
A continuacin escribiremos un programa que nos pregunta nicamente el
ngulo de friccin interna y nos devuelve los factores de capacidad de
carga(Nc, Nq y N)
Estos factores se encuentran en CIMENTACIONES de Braja M Das. Ojo, en
el de Cimentaciones no el de fundamentos de Ingeniera Geotcnica.

ANDRS R. GARCA M.
89

Primero que todo debemos grabar nuestros coeficientes dentro de una lista.
Una lista para los valores de |, una lista para los valores de Nc, una lista
para los valores de Nq y otra lista para los valores de N.
Las listas son las siguientes:

VALORES DE|:
{ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14
15 16 17 18 19 20 21 22 23 24 25 26
27 28 29 30 31 32 33 34 35 36 37 38
39 40 41 42 43 44 45 46 47 48 49 50 }
Una vez puesta en pila esta lista la grabamos con el nombre |

VALORES DE Nc:
{ 5.7 6 6.3 6.62 6.97 7.34 7.73
8.15 8.6 9.09 9.61 10.16 10.76
11.41 12.11 12.86 13.68 14.6 15.12
16.56 17.69 18.92 20.27 21.75
23.36 25.13 27.09 29.24 31.61
34.24 37.16 40.41 44.04 48.09
52.64 57.75 63.53 70.01 77.5
85.97 95.66 106.81 119.67
ANDRS R. GARCA M.
90

134.58 151.95 172.28 196.22
224.55 258.28 298.71 347.5 }
Una vez puesta en pila esta lista la grabamos con el nombre Nc

VALORES DE Nq:
{ 1 1.1 1.22 1.35 1.49 1.64
1.81 2 2.21 2.44 2.69 2.98
3.29 3.63 4.02 4.45 4.92 5.45
6.04 6.7 7.44 8.26 9.19 10.23
11.4 12.72 14.21 15.9 17.81
19.98 22.46 25.28 28.52 32.23
36.5 41.44 47.16 53.8 61.55
70.61 81.27 93.85 108.75 126.5
147.74 173.28 204.19 241.8
287.85 344.63 415.14 }
Una vez puesta en pila esta lista la grabamos con el nombre Nq
ANDRS R. GARCA M.
91

VALORES DE N:
{ 0 .01 .04 .06 .1 .14 .2 .27
.35 .44 .56 .69 .85 1.04 1.26
1.52 1.82 2.18 2.59 3.07 3.64
4.31 5.09 6 7.08 8.34 9.84
11.6 13.7 16.18 19.13 22.65
26.87 31.94 38.04 45.41 54.36
65.27 78.61 95.03 115.31 140.51
171.99 211.56 261.6 325.34
407.11 512.84 650.67 831.99
1072.8 }
Una vez puesta en pila esta lista la grabamos con el nombre N

Ya teniendo las tres listas grabadas entonces procedemos a escribir nuestro
programa:

"Valor de " ""
INPUT OBJ
'FI' STO Grabamos el valor de con el nombre FI
Llamamos la lista que contiene los valores de
FI POS Determinamos la posicin del valor de
FI2 STO Grabamos la posicin del valor de
ANDRS R. GARCA M.
92

Llamamos la lista que contiene los valores de
FI2 GET Sacamos el valor de que esta en la posicin FI2
'' TAG Lo etiquetamos
Nc Llamamos la lista que contiene los valores de Nc
FI2 GET Sacamos el valor de Nc que esta en la posicin FI2
'Nc' TAG Lo etiquetamos
Nq Llamamos la lista que contiene los valores de Nq
FI2 GET Sacamos el valor de Nq que esta en la posicin FI2
'Nq' TAG Lo etiquetamos
N Llamamos la lista que contiene los valores de N
FI2 GET Sacamos el valor de N que esta en la posicin FI2
'N TAG Lo etiquetamos
{ FI2 FI } PURGE Eliminamos las variables FI2 y FI

Grabamos el cdigo con el nombre AQU y ejecutamos para un angulo de
23
0
:

COMENTARIOS:

1. Notemos que al llamar las listas que contienen los valores, lo hacemos
sin ninguna clase de delimitador.

ANDRS R. GARCA M.
93

2. Para poner la etiqueta si debemos hacerlo con los delimitadores de lo
contrario nos vertera todo el contenido de la lista a la pila.

3. Este cdigo se puede optimizar muchsimo. Pero para efectos del ejemplo
esta bien as. Por ultimo recomiendo hacerle un DBUG si algo no quedo muy
claro.

Bueno, ahora sigamos explicando los dems comandos que permiten operar
sobre listas.

6.4.12 DOLIST
Este comando nos permite operar sobre un grupo de listas. Veamos un
ejemplo:
Tenemos las siguientes listas en la pila:

Vamos a aplicar la operacin potenciacin. Esta operacin debe ir dentro
de delimitadores de programa as:

ANDRS R. GARCA M.
94

Ejecutamos el comando DOLIST:

COMENTARIOS:
NINGUNO

6.4.13 DOSUBS
Este comando es supremamente funcional y lo que hace es ejecutar varias
operaciones (no-solo una) a todos los elementos de una lista. Veamos un
ejemplo:

Especificamos un tamao de paso igual a 1. Es decir que aplique las
operaciones a cada elemento de la lista

ANDRS R. GARCA M.
95

Vamos a aplicar las siguientes operaciones las cuales deben ir dentro de
delimitadores de programa.

Ejecutamos el comando DOSUBS:

Veamos un segundo ejemplo:

ANDRS R. GARCA M.
96

Ahora especifiquemos un tamao de paso igual a 2

Con la siguiente operacin

Ejecutamos DOSUBS:

Lo que hizo fue sumar los elemento adyacentes entre si.

COMENTARIOS:
Ninguno

ANDRS R. GARCA M.
97

Creo que de a esta instancia del libro ustedes ya estn en capacidad de
seguir examinando que hace y como operan cada uno de los comandos
guindose por el manual de manejo, por lo que de ahora en adelante no har
referencia a los comandos como tal sino solamente a lo que es la
programacin.

ANDRS R. GARCA M.
98

7. ESTRUCTURA DE VARIABLE
LOCAL.

ANDRS R. GARCA M.
99

7. ESTRUCTURA DE VARIABLE
LOCAL.

7.1 DEFINICIN
Las variables locales son variables provisionales creadas por un programa.
Existen mientras se ejecuta el programa y a diferencia de las variables
globales no se pueden utilizar por fuera del programa a menos que la
subrutina este anidada o embebida dentro del proceso de definicin de
variable local, esto lo entendern mejor mas adelante.
Para entender mejor como se crean y utilizan las variables locales veamos
lo siguiente.

7.2 SINTAXIS DE VARIABLE LOCAL DENTRO DE UN PROGRAMA
Para entender veamos el siguiente ejemplo:
Escribiremos un programa que calcula el coeficiente de empuje activo en
muros de retencin en voladizo. La ecuacin (entre otras) que se utiliza es
la siguiente:
Ka = cos(o) * ( cos(o) - \( cos(o) ^2 * cos(|) ^2) / (cos(o) + \( cos(o) ^2 *
cos(|) ^2) )
Donde:
o = Angulo entre la corona del muro y el talud natural.
| = Angulo de friccin interna del suelo de relleno
Los datos que necesitamos son entonces o y |. Veamos el cdigo y luego lo
explico.

ANDRS R. GARCA M.
100

"Valor de o" ""
INPUT OBJ
"Valor de " ""
INPUT OBJ
o
'COS(o)*(COS(o)-(COS(o)^2-COS()^2))/
(COS(o)+(COS(o)^2-COS()^2))' EVAL
2 RND
STR
"Ka= "
SWAP +
CLLCD MSGBOX

En este punto del libro ya conocemos gran parte de este cdigo. Aqu lo
nico nuevo es la definicin de variable local.
En este ejemplo tenamos que definir dos variables locales (o y ). Para
definir estas dos utilizamos el smbolo .
Despus del smbolo vienen los nombres con los cuales vamos a nombrar
las variables. En esta caso eran o y .
Ntese que despus de nombrar las dos variables tenemos que abrir otros
delimitadores de programa.
Despus de esto viene la operacin y luego el comando RND el cual nos
trunca la respuesta a dos posiciones decimales.
El resto del cdigo ya lo conocemos perfectamente. Importante aclarar que
las variables locales no se pueden volver a llamar despus de haber cerrado
los delimitadores de programa que abrimos despus de definir las dos
variables locales ( o )
Recomiendo hacer un DBUG a este cdigo si no se entendi algo.
ANDRS R. GARCA M.
101

7.3 ESTRUCTURA DE VARIABLE LOCAL DENTRO DE UNA SUBRUTINA
Las variables locales tambin las podemos utilizar dentro de una subrutina
siempre y cuando la subrutina este anidada dentro del procedimiento de
variable local. Esto quiere decir que la subrutina debe estar dentro de los
segundos delimitadores de programa que abrimos haciendo referencia al
ejemplo anterior.
Veamos el mismo ejemplo anterior pero ahora supondremos que
necesitamos una subrutina. La subrutina la llamaremos SUBR.
Supondremos tambin que la subrutina la utilizaremos nicamente para
elevar al cuadrado las dos variables.

"Valor de o" ""
INPUT OBJ
"Valor de " ""
INPUT OBJ
o
SUBR
'COS(o)*(COS(o)-(COS(o)^2-COS()^2))/
(COS(o)+(COS(o)^2-COS()^2))' EVAL
2 RND
STR
"Ka= "
SWAP +
CLLCD MSGBOX

ANDRS R. GARCA M.
102

El cdigo de la subrutina es el siguiente:
'o^2' EVAL
'^2' EVAL

COMENTARIOS:
1. Para definir las variables locales debemos anteponerles el smbolo
Esto es para poder llamar las variables dentro de la subrutina SUBR.

2. La subrutina SUBR puede estar antes o despus de la operacin. Esto
depende de las solicitaciones del programa, en este caso puede estar antes
o despus.

3. En la operacin las variables deben aparecer con el smbolo de lo
contrario no las reconoce.

4. En resumen lo que hace este programa despus de haber introducido los
datos es ir a la subrutina, ejecutar las operaciones que hay en la subrutina
SUBR luego sigue con la ejecucin del programa, es decir con lo que hay
despus de SUBR

El siguiente es un ejemplo de aplicacin de variable locales dentro de una
subrutina el cual sirve para calcular empates por lnea de energa en
rgimen supercrtico en aguas negras. Dependiendo del valor de la
operacin '.319*Q / ^2.5' se va para una subrutina llamada E2 si el
valor es mayor que 0.62; o para una subrutina llamada E3 si el valor de la
operacin es menor que 0.62.
ANDRS R. GARCA M.
103

En este cdigo hay algunos comandos que no han sido explicados en este
libro pero que ms adelante entendern. Lo incluyo para que se vea la
importancia de las variables locales y como llamarlas dentro de una
subrutina.

La variable con la que se inicia el programa es E1:

"Caudal de diseo del
tubo de salida
(En m^3/s)" "" INPUT OBJ
"Diametro del tubo de
salida (En in)" "" INPUT OBJ
.0254 * K Q
'.319*Q/^2.5' EVAL 2 RND
'oP' STO
CASE 'oP>.62'
THEN CLLCD "0.319*Q/^2.5=
" oP STR
{ oP } PURGE + 1 DISP
"El empate es sumergido
Presione enter para
solucionar" 3 DISP 0 WAIT DROP E2
END 'oPs62'
THEN CLLCD "0.319*Q/^2.5= "
oP STR
{ oP } PURGE + 1 DISP
"El empate es no
sumergido. Presione
ANDRS R. GARCA M.
104

ENTER para solucionar" 3 DISP 0 WAIT CLEAR
E3
END
END
E4 -40 SF

ANDRS R. GARCA M.
105

8. FLAGS

ANDRS R. GARCA M.
106

8. FLAGS.
8.1 DEFINICIN.
Un FLAG o bandera es un indicador de sistema los cuales se pueden anular,
fijar o probar. Por ejemplo el FLAG 40 es el indicador de sistema del reloj
que nos permite activarlo o desactivarlo, el FLAG 2 es el indicador de
sistema de las constantes el cual nos permite poner constantes de manera
numrica o simblica.

8.2 COMO MODIFICAR FLAGS DENTRO DE UN PROGRAMA
Para activar o desactivar FLAGS utilizamos las palabras SF Y CF. SF para
activar y CF para desactivar. Veamos un ejemplo donde tenemos que
desactivar el reloj para que no nos dae la presentacin de texto en
pantalla:
Primero veamos el cdigo y la presentacin sin desactivar el reloj:

CLLCD
" ELIMINADOR DE BASURA

Por: Andrs R Garca M

Octubre 25 de 2002

ucatolica 2002"
0 DISP 0 WAIT CLEAR

El cual al ejecutarlo nos muestra lo siguiente:

ANDRS R. GARCA M.
107

Como nos podemos dar cuenta el reloj nos esta daando nuestra
presentacin ya que no desactivamos el reloj, mediante el FLAG 40.
Ahora veamos el cdigo desactivando el reloj:
CLLCD -40 CF

Por: Andrs R Garca M

Octubre 25 de 2002

ucatolica 2002"
0 DISP 0 WAIT CLEAR

El cual al ejecutarlo nos muestra lo siguiente:

ANDRS R. GARCA M.
108

COMENTARIOS:
1. Al desactivar el reloj mejoramos mucho la presentacin.

2. De esta misma manera se activan o desactivan los dems FLAGS. Ntese
que el numero de FLAG es negativo.

3. Los FLAGS son muy importantes y hay que tener especial atencin en
programas que trabajan con constantes numricas o simblicas ya que hay
que activar el FLAG antes de cualquier cosa. Lo mismo en programas que
trabajan formulas u operaciones matemticas de manera simblica. Para una
lista completa de los FLAGS refirase al manual de usuario Pagina O
APNDICE D1.
4. En el ejemplo anterior para volver a activar el reloj entonces al final
ponemos
40 SF. Veamos el cdigo:

CLLCD -40 CF

Por: Andres R Garcia M

Octubre 25 de 2002

ucatolica 2002"
0 DISP 0 WAIT CLEAR
-40 SF

ANDRS R. GARCA M.
109

9. MENS.

ANDRS R. GARCA M.
110

9. MENS.

9.1 NMEROS DE ASIGNACIN DE LOS MENS
Todos los mens que ofrece la HP tienen un numero de asignacin. Como
por ejemplo si pulsamos el numero 3 y luego MEN nos enviara al men
MTH.
Como podemos ver a continuacin:

MEN MATH
Veamos un ejemplo en donde vamos a entrar dos datos pero queremos que
durante esta entrada no aparezca nada en las teclas de men y al finalizar la
entrada nos aparezca el men actual, es decir el del directorio donde
estamos:
Vemos el cdigo:
1 MENU
"Valor de a?" ""
INPUT OBJ
"Valor de b?" ""
INPUT OBJ
2.01 MENU

ANDRS R. GARCA M.
111

El cual al ejecutarlo nos muestra:

COMENTARIOS:
1. Como se puede ver durante la entrada de los datos no muestra nada en
las teclas de men. Esto porque antes de iniciar la entrada de los datos
pusimos
1 MENU.

2. Al final de la entrada de los datos nos muestra el men actual. Esto
porque pusimos 2.01 MENU el cual nos permite ver el men actual.

9.2 COMO CREAR MENS TEMPORALES
Los mens temporales son mens creados directamente por el usuario.
Estos mens se pueden crear de dos formas: Mediante la tecla MEN o
mediante el comando TMENU.

ANDRS R. GARCA M.
112

9.2.1 mediante la tecla MEN
Para crear mens personalizados mediante CST debemos hacer los
siguiente:
1. Introducir una lista en la pila que a su vez contiene otras sublistas las
cuales contienen dos argumentos: La etiqueta (es decir lo queremos que
aparezca en el men) y la accin que queremos que se ejecute cuando
pulsemos la tecla de men.
Veamos un ejemplo:
Crearemos un men temporal mediante la tecla MEN con la etiqueta SENO
la cual ejecuta la funcin SEN:

MEN
Entonces veremos lo siguiente:

Si colocamos un numero en la pila y ejecutamos entonces veremos:

ANDRS R. GARCA M.
113

COMENTARIOS:
1. Si volvemos al men donde estbamos antes de ejecutar la tecla MENU
vemos que se ha creado la variable CST.

9.2.2 mediante el comando TMENU
Crear mens mediante este comando se hace de manera similar al comando
anterior. Para entender como se crean mens temporales mediante TMENU
veamos el siguiente ejemplo:
Asignaremos 5 etiquetas de men que contienen los nmeros del 1 al 3
cuyas acciones son poner su correspondiente numero en pantalla mediante
el comando DISP y una quinta cuya accin es volver al directorio donde nos
encontramos:

ANDRS R. GARCA M.
114

{ { 1
CLLCD UNO STR
1 DISP 3 FREEZE

}
{ 2
CLLCD DOS STR
2 DISP 3 FREEZE

}
{ 3
CLLCD TRES STR
3 DISP 3 FREEZE

}
{ } { }
{ ATRS
2.01 MEN
CLLCD "FIN" 4 DISP 0 WAIT DROP
2.01 MENU

} }
TMENU

Lo cual nos muestra:

ANDRS R. GARCA M.
115

Si pulsamos la tecla de men 1 har lo siguiente:



ANDRS R. GARCA M.
116

Si pulsamos la tecla de men ATRS har lo siguiente:

COMENTARIOS:
1. Observemos que la accin a ejecutar esta dentro de delimitadores de
programa.

2. Para dejar una tecla de men en blanco la lista debe ir en blanco { }

ANDRS R. GARCA M.
117

10. ESTRUCTURAS DE
PROGRAMACIN.

ANDRS R. GARCA M.
118

10. ESTRUCTURAS DE
PROGRAMACIN.

10.1 DEFINICIN
Una estructura de programacin permite que un programa decida la tarea a
ejecutar dependiendo de las condiciones existentes o de los valores de
argumento concreto. Una buena utilizacin de estas estructuras permite
crear programas extraordinariamente flexibles.

10.2 ESTRUCTURAS CONDICIONALES
Las estructuras condicionales permiten que un programa tome una decisin
basada en el resultado de una o ms pruebas.

10.2.2 IF ...THEN...ELSEEND
Para entender exactamente como funciona esta estructura veamos el
siguiente ejemplo:
En alcantarillados de aguas negras, el empate del tubo que entra y del tubo
que sale del pozo puede ser sumergido o no sumergido. Sabemos que es
sumergido o no sumergido segn el resultado de la siguiente operacin:
0.319 * Q / u
2.5
Donde :
Q = Caudal de diseo del tubo de salida.
u = Dimetro del tubo de salida.

ANDRS R. GARCA M.
119

Si el resultado de esta operacin es mayor que 0.62 el empate es
sumergido.
Si el resultado es menor o igual a 0.62 el empate es no sumergido.

Escribamos entonces un programa que de acuerdo al resultado de la
operacin 0.319 * Q / u
2.5
nos diga si el empate es sumergido o no
sumergido.

1 MEN Ponemos etiquetas de men en blanco
"Caudal de diseo Entrar el caudal de diseo
del tubo de salida
(En m^3/s)"
"" INPUT OBJ
"Diametro del tubo de Entrar el dimetro en pulgadas
salida (En in)" ""
INPUT OBJ
0.0254 * Por 0.0254 para pasar a m
Q D Definimos variables locales
'0.319*Q/D^2.5'
EVAL 2 RND Evaluamos la operacin y cortamos a dos
lugares decimales

OP Definimos una nueva variable local para el
resultado de la operacin con el nombre OP

IF 'OPs0.62' Si OP es menor o igual a 0.62
THEN -40 CF entonces quitamos el reloj de la pantalla
ANDRS R. GARCA M.
120

CLLCD Ponemos en blanco la pantalla
"El empate es
no sumergido"
1 DISP Ubicamos el texto anterior en el nivel 1
0 WAIT Se ve el texto hasta que se pulsa una
tecla
CLEAR Borramos la semilla dejada cuando se pulsa
la tecla
ELSE De lo contrario (Es decir sino es menor o igual
a 0.62)
-40 CF Quitamos el reloj de la pantalla
CLLCD Ponemos en blanco la pantalla
"El empate es
sumergido"
1 DISP Ubicamos el texto anterior en el nivel 1
0 WAIT Se ve el texto hasta que se pulsa una tecla
CLEAR Borramos la semilla dejada cuando se pulsa
la tecla
END FIN
-40 SF Volvemos a poner el reloj
2.01 MEN Ponemos las etiquetas de MEN del
directorio actual

Ejecutemos este cdigo entonces con los siguientes datos:
Q = 0.56 m^3 / s
u = 24

ANDRS R. GARCA M.
121

Pulsamos ENTER:

COMENTARIOS:

1. Esta estructura IF...THEN...ELSE...END permite elegir entre dos opciones
nada mas.

10.2.3 CASETHEN...END
Esta estructura a diferencia del IF...THEN...ELSE...END permite elegir entre
varias opciones, me explico; en el ejemplo anterior solo se permita decidir
la accin a ejecutar si el resultado era menor o igual a 0.62 o si era mayor a
0.62.
La estructura CASETHEN...END nos permite entonces elegir entre n
opciones.

ANDRS R. GARCA M.
122

Para poder explicar un ejemplo competo de CASETHEN...END veamos
primero un tema de vital importancia en el desarrollo de programas
completos: La organizacin del teclado.

10.2.3.1 ORGANIZACIN DEL TECLADO
Cada tecla de la HP tiene un numero de asignacin. As por ejemplo si
estamos esperando que se pulse una tecla y pulsamos la tecla ENTER
aparecer el numero 105.1. Veamos un ejemplo:
Escribamos el siguiente cdigo el cual espera que se pulse una tecla.
CLLCD -40 CF
"ESPERO UNA TECLA"
1 DISP 0 WAIT
-40 SF

Realmente el comando que espera la tecla es el WAIT. Este cdigo har lo
siguiente:

Si pulsamos por ejemplo la tecla ENTER aparecer lo siguiente:

ANDRS R. GARCA M.
123

Ya se imaginaran ustedes que dependiendo del numero que aparece en la
pila es funcin de la tecla que se pulsa y nos permitir hacer lo que
queramos dependiendo del mismo.
Espero que hayan ledo la primera edicin en donde se hace referencia a la
organizacin del teclado y su correspondiente numero de asignacin de
tecla, ya que en esta edicin no se hace referencia a dicho tema.
Veamos entonces un ejemplo en donde se CASE:

Escribamos un programa o mas bien la presentacin de un programa que
nos presenta un MENU con cuatro opciones y dependiendo la tecla que
pulsemos iniciara cualquiera de las cuatro opciones; y sino es ninguna de
las cuatro nos mostrara de nuevo la presentacin. Estas opciones sern:

1. GRANULOMETRA.
2. CLASIFICACIN AASHTO
3. CLASIFICACIN USC.
4. APAGAR HP
5. SALIR.

Veamos la primera parte del programa para as entenderlo mejor:

ANDRS R. GARCA M.
124

CLLCD Blanquea la pantalla
-40 CF Quita el reloj
" OPCIONES

1. GRANULOMETRA
3. CLASIFICACIN USC
4. SALIR"
1 DISP Pone le texto en pantalla
0 WAIT Espera una tecla

Al ejecutarlo muestra lo siguiente

Pulsemos la tecla 1 por ejemplo: Granulometra:

Ahora pulsemos la tecla 2: Clasificacin AASHTO

ANDRS R. GARCA M.
125

Escribamos entonces todo el cdigo el cual nos permitir escoger la ruta a
seguir en el programa dependiendo de la tecla que se pulso, y si no se pulso
una de las cinco teclas esperadas vuelve a ejecutar la presentacin:

CLLCD
-40 CF
" OPCIONES

1. GRANULOMETRA
3. CLASIFICACIN USC
4. APAGAR HP
5. SALIR"
1 DISP
0 WAIT
i

CASE
' i==92.1'
THEN GRANULOMETRIA
END
'i==93.1'
ANDRS R. GARCA M.
126

THEN AASHTO
END
'i==94.1'
THEN USC
END
'i==82.1'
THEN OFF
END
'i==83.1'
THEN TEXT -40 SF END
'i = 92.1
OR
i = 93.1
OR
i = 94.1
OR
i = 82.1
OR
i = 83.1'
THEN INICIO
END
END

Grabamos Este cdigo bajo el nombre INICIO y ejecutamos. Se vera as:

ANDRS R. GARCA M.
127

Si presionamos 2 por ejemplo:

Si presionamos 4:

Bueno, era de esperarse no?

COMENTARIOS:
1. Las variables GRANULOMETRA, AASHTO y USC son las variables que
se ejecutaran inmediatamente despus de presionar la tecla 1 2 o 3. En
este caso llevan estos nombres, pero podra ser cualquier nombre.

ANDRS R. GARCA M.
128

2. Al teclear 2 no se ejecuto nada, solo se puso el nombre AASHTO en la
pila. Si la variable AASHTO estuviera creada pues obviamente habra
ejecutado dicha variable.

3. Ntese que los nombres GRANULOMETRA, AASHTO Y USC estn sin
los delimitadores

1. Tambin vemos que aparece un comando nuevo: TEXT. Este comando
actualiza la pantalla, es decir REFRESCA la pantalla. Este comando
es recomendado despus del comando 0 WAIT, ES DECIR; DESPUS
DE ESPERAR UNA TECLA.

10.3 ESTRUCTURAS DE BUCLE
Las Estructuras de bucle permiten que un programa ejecute una secuencia
de comandos varias veces. Este numero de veces se especifica al inicio del
programa.

10.3.1 STARTNEXT
Para entender este tipo de estructura veamos el siguiente ejemplo:
Escribamos un programa que ensamble las matrices de rigidez de los
elementos de una cercha plana y los ponga en la pila, obviamente aplicando
el mtodo matricial:
La matriz de rigidez de un elemento de cercha plana en coordenadas
globales esta dada por:

ANDRS R. GARCA M.
129

C
2
S*C -C
2
-S*C
S*C S
2
-S*C -S
2

K = E*A / L -C
2
-S*C C
2
SC
-S*C -S
2
SC S
2

Donde:
E = Modulo de elasticidad del material
A = rea de la seccin transversal del elemento
L = Longitud del elemento
C = Coseno del ngulo que describe el elemento con la horizontal
S = Seno del ngulo que describe el elemento con la horizontal.

Entonces los datos que necesita el programa para calcular la matriz de
rigidez en coordenadas globales de cada elemento son E, A, L, u
Veamos la forma y configuracin de la cercha:

ANDRS R. GARCA M.
130

ELEMENTO 1:
L = 2.5 m
u = 36.87
A = 0.00025 m
2

E = 200 * 10
6
KPA

ELEMENTO 2:
L = 2 m
u = 0
A = 0.0004 m
2

E = 200 * 10
6
KPA

ELEMENTO 3:
L = 1.5 m
u = 90
A = 0.00015 m
2

E = 200 * 10
6
KPA

Teniendo ya estos datos veamos el cdigo:

ANDRS R. GARCA M.
131

"Cuantos elementos son?"
" " INPUT OBJ Entra el numero de elementos
1 SWAP Pone 1 en el n 2 y el # de elem en el n 1
START Inicia el contador de bucle
"Datos asi:
E A L u " " "
INPUT OBJ Entra E A L u
E A L u Define variable local para E A L u y as
poderlas llamar varias veces
E A * L / COS 2 ^ *
E A * L / SIN COS * *
E A * L / COS 2 ^ NEG *
E A * L / SIN COS NEG * *
E A * L / SIN 2 ^ *
E A * L / SIN 2 ^ NEG *
E A * L / COS 2 ^ NEG * Operaciones para cada elemento de
E A * L / SIN COS NEG * * la matriz
E A * L / COS 2 ^ *
E A * L / SIN 2 ^ NEG *
E A * L / SIN 2 ^ *
{ 4 4 } Dimensiones de la matriz
ARRY Forma la matriz
0 RND 0 Posiciones decimales

NEXT Continua con el segundo elem.

ANDRS R. GARCA M.
132

Bueno, realmente NEXT incrementa el valor del contador por 1
Al correr el programa vemos lo siguiente:

Datos para el elemento 1:



ANDRS R. GARCA M.
133

Las respuestas se vern as en la pila:

Es decir no se entiende nada.

COMENTARIOS:
1. La entrada de datos de cada elemento se puede optimizar mediante una
plantilla de entrada, tema que se explicara mas adelante.

2. En este caso eran tres elementos, pero que pasara si fueran 30?. Que
despus de ir en el cuarto o quinto elemento existe la posibilidad de que ya
no sepamos en que elemento vamos. Esto se arregla escribiendo el cdigo
ya no con STAR...NEXT sino con FOR NEXT, el cual se explica a
continuacin.

ANDRS R. GARCA M.
134

3. Las respuestas son un poco difciles de interpretar ya que simplemente
son puestas en la pila. A continuacin mediante FOR NEXT se optimizara
muchsimo esto.

10.3.2 FORNEXT
Este tipo de estructura a diferencia de START NEXT nos permite utilizar el
contador dentro de la clusula-bucle
Para entender mejor este tipo de estructura escribamos el mismo ejemplo
anterior pero ahora utilizando la estructura FOR NEXT.

En este ejemplo ya no dejaremos los resultados (matrices de rigidez de
cada elemento) regados en la pila sino los grabaremos con el nombre
ELEMX donde X es el numero del elemento:


"Cuantos elementos son?"
"" INPUT OBJ
1 SWAP
FOR i Inicia la estructura
"Datos EL" i STR +
" asi: E A L u"
+
" " INPUT OBJ
E A L u

E A * L / u COS 2 ^ *
E A * L / uSIN COS * *
ANDRS R. GARCA M.
135

E A * L / u COS 2 ^ NEG *
E A * L / u SIN uCOS NEG * *
E A * L / u SIN uCOS * *
E A * L / u SIN 2 ^ *
E A * L / u SIN u COS NEG * *
E A * L / u SIN 2 ^ NEG *
E A * L / u COS 2 ^ *
E A * L / u SIN u COS * *
E A * L / u SIN u COS * *
E A * L / u SIN 2 ^ *
{ 4 4 }
ARRY
0 RND
"ELEM"
i STR +
OBJ
STO

NEXT

ANDRS R. GARCA M.
136

Ejecutemos este cdigo:

Ahora pedir los datos del elemento 1 pero ahora si nos dice que elemento
es (EL1):

es (EL2):

es (EL3):

ANDRS R. GARCA M.
137

Y tendremos los resultados grabados:

RESULTADOS

COMENTARIOS:

1. Observemos que el FOR va acompaado de i. Esta letra nos esta
representado el contador lo que quiere decir que i tomara el valor del
contador. En este caso 1, 2 o 3. No necesariamente tiene que ser i. , puede
tomar cualquier carcter alfa

2. Por ultimo recomiendo hacer un DBUG a este cdigo y sino quedo algo
claro lo van a entender muy bien ya que asi van a poder ver como trabaja la
pila durante la ejecucin del programa.

ANDRS R. GARCA M.
138

10.3.3 DOUNTILEND
Esta estructura ejecuta la secuencia clusula
bucle de forma repetida hasta
que se cumple una condicin especifica. Veamos un ejem
plo:

Escribamos un programa que evale repetidamente la raz cuadrada de un
numero puesto en el nivel 1 de la pila hasta que este numero sea igual a 1.
Es un ejemplo muy sencillo.

Veamos el cdigo:

CLLCD
DO
\
DUP DUP
STR 1 DISP
0.1 WAIT
UNTIL
1 ==
END

Debemos poner un numero en la pila. Ej; 9.99999999999E499

ANDRS R. GARCA M.
139

COMENTARIOS:

1. Este cdigo se entiende perfectamente haciendo DBUG.
NOTA: - Intntenlo con un solo DUP.
- intntenlo sin el 0.1 WAIT

10.3.4 WHILEREPEATEND
Esta estructura trabaja de manera similar a DOUNTILEND con la
diferencia de que primero ejecuta la condicin y luego el bucle. Veamos el
ejemplo anterior pero con WHILEREPEATEND:

CLLCD
WHILE DUP 1 =
REPEAT \ DUP
STR 1 DISP
0.1 WAIT
END

COMENTARIOS:

1. Este cdigo se entiende perfectamente haciendo DBUG.
NOTA: - Intntenlo con un solo DUP.
- intntenlo sin el 0.1 WAIT

ANDRS R. GARCA M.
140

11. ESTRUCTURAS DE
DETECCIN DE ERRORES.

ANDRS R. GARCA M.
141

11. ESTRUCTURAS DE
DETECCIN DE ERRORES.

11.1 DEFINICIN
Las estructuras de deteccin de errores permiten que los programas
detecten o intercepten las situaciones de error las cuales provocaran la
interrupcin de la ejecucin del programa.

11.2 IFERR...THEN...END
La estructura de IFERR...THEN...END es la siguiente:
IFERR <accin sospechosa>
THEN < accin a ejecutar si se produjo error>
END

Empecemos con un ejemplo muy sencillo:
Escribamos un programa que suma dos numero reales puestos en la pila.
Una condicin de error seria que hubiera un solo numero en la pila o que no
fueran del mismo tipo de variable los argumentos puestos en la pila, Por lo
tanto la accin sospecha seria +. Veamos este sencillo cdigo:

IFERR +
THEN
"Falta un dato"
CLLCD MSGBOX
END

Al ejecutar con dos nmeros en la pila:
ANDRS R. GARCA M.
142

Ejecutando con un solo numero en la pila (condicin de error):

Se produce tambin un error cuando durante la ejecucin de un programa se
pulsa la tecla ON. Prubenlo como ejercicio para un programa en donde
exista una aplicacin del comando WAIT.

ANDRS R. GARCA M.
143

12. VENTANA DE OPCIONES.

ANDRS R. GARCA M.
144

12. VENTANA DE OPCIONES.

12.1 DEFINICIN
Una ventana de opciones, como su nombre lo indica es una ventana que
puede contener una o varias opciones, las cuales nos permiten seguir una
ruta dentro de un programa.

12.2 EL COMANDO CHOOSE
Esta ventana de opciones se crea mediante el comando CHOOSE. Este
comando toma tres argumentos de la pila para poder ejecutarse, estos
argumentos son en orden los siguientes:
Un STRING el cual contiene el titulo de la ventana.
Una lista con las opciones que queremos ubicar en la ventana.
Un ndice de posicin.

12.3 FORMAS DE UTILIZACIN DEL COMANDO CHOOSE
El comando CHOOSE se puede aplicar de dos maneras, de hecho lo nico
que varia es la lista, es decir el segundo argumento que toma el comando
para ejecutarse. Veamos un primer ejemplo:
EJEMPLO 1:
Escribamos un pequeo programa que cree una ventana con las siguientes
opciones:
- Cercha
- Viga
- Prtico

ANDRS R. GARCA M.
145

Veamos el cdigo:

CLLCD Pone en blanco la pila
"ELIJA UNA OPCIN" Titulo de la ventana (STRING)
{ CERCHA
VIGA
PORTICO } Opciones (lista)
1 ndice de posicin
CHOOSE

Lo cual muestra lo siguiente:

Esto si esta activo el FLAG 90 el cual muestra el texto en FONT pequeo.

Veamos el cdigo desactivando este FLAG

ANDRS R. GARCA M.
146

-90 CF CLLCD
"ELIJA UNA OPCIN"
{ CERCHA VIGA PORTICO }
1
CHOOSE

NOTA: Cual es mejor? A gusto de cada uno.
Con las teclas que contienen las flechas nos podemos mover arriba o abajo.
Eligiendo la opcin 3:

Presionando OK devolver los siguiente a la pila:

ANDRS R. GARCA M.
147

COMENTARIOS:
Este cdigo no nos permite poner texto que contenga mas de dos palabras,
me explico; si fuera por ejemplo cercha plana no podramos ponerlo as. Se
vera en una lnea cercha y en una segunda lnea plana

Veamos ahora una segunda forma de utilizar este comando CHOOSE la cul
nos permite poner mas de una palabra en una sola lnea.
Considerando el mismo ejemplo anterior pero ahora las opciones sern:
- Cercha plana
- Viga continua
- Viga empotrada
Veamos el nuevo cdigo:

CLLCD
"ELIJA UNA OPCIN"
{
{ "CERCHA PLANA" 1 }
{ "VIGA CONTINUA" 2 }
{ "VIGA EN EMPOTRADA" 3 }
}
1
CHOOSE

ANDRS R. GARCA M.
148

COMENTARIOS
1. Como se puede observar este cdigo si nos permite poner mas de una
palabra en una sola lnea.

2. Notemos que las opciones a diferencia del cdigo anterior ahora van
dentro de (STRING)

3. Observemos tambin que la opcin y su ndice de posicin ahora son una
lista anidada dentro de otra lista que contiene todas las opciones.

4. Al ejecutar este cdigo se ve algo como esto:

Eligiendo la opcin 3

El entero del nivel 2 de la pila es el ndice de posicin de la opcin. As por
ejemplo hubisemos elegido cercha plana se hubiera devuelto lo siguiente:

ANDRS R. GARCA M.
149

Dado el caso que no se presione la tecla de men OK sino la tecla de men
CANCL se devolver 0 a la pila

En resumen esta son las dos formas que toman los argumentos que necesita
el comando CHOOSE para su ejecucin. Veamos ahora un ejemplo completo
utilizando este comando y aplicando la segunda forma:
Escribamos un programa que llamaremos KTULU con 3 opciones:
La primera nos permitir averiguar la cantidad de memoria disponible de
nuestra HP en KB (Kilobytes)
La segunda nos permitir averiguar el numero de libreras instaladas en el
puerto
La tercera nos da la opcin salir del programa.
Vamos entonces al cdigo:

ANDRS R. GARCA M.
150

-90 SF IFERR Si error
CLLCD Pone la pantalla en blanco
" ELIJA UNA OPCION" Titulo de la ventana
{ { "Memoria Disp." 1 }
{ "Puerto 0" 2 } Lista con las opciones
{ "Salir" 3}
}
1 ndice de posicin
CHOOSE Ejecuta el comando CHOOSE
DROP Elimina el 1 dejado en la pila
i Define var. local para 1 2 o 3
CASE ' i==1' En caso de que i igual a 1 (es decir memoria
disponible)
THEN Entonces
CLLCD Pone la pantalla en blanco
-40 CF Quita el reloj de la pantala
MEM Pone la cantidad de memoria disp. En la pila
1000 / Divide por 1000 para pasar a KB
0 RND O lugares decimales
STR Convierte a STRING
" KB" + Aade KB al resultado de mem disponible
"Memoria disponible:" Pone el texto "Memoria disponible en la pila
1 DISP Pone el texto anterior en la pantalla
2 DISP Pone el texto de MEM disponible en pantalla
DROP Borra la semilla dejada por la tecla pulsada
END Termina
' i==2' En caso de que I igual a 2 (es decir puerto 0)

THEN Entonces
ANDRS R. GARCA M.
151

0 PVARS Comando que nos devuelve una lista con la
cantidad de libreras en puerto 0 representadas
por su numero (nivel 2) y la memoria disponible
(nivel 1)
DROP Borra el nivel 1 de la pila ya que no necesitamos
el dato de cantidad de mem disponible.
SIZE Obtiene el numero (cantidad) de elementos de la
lista
STR Lo convierte a STRING
" LIBS" + Pone el texto LIBS y lo aade a # de LIBS
"LIBS EN PUERTO 0:" Pone el texto "LIBS EN PUERTO 0:"
1 DISP Pone el texto anterior en la pantalla
2 DISP Pone la cantidad (numero) de LIBS en la pila.
DROP Borra la semilla dejada por la tecla presionada
END Termina
'i==3' En caso de que I igual a (es decir salir)
THEN Entonces
END Termina
END Sale del CASE

THEN Si se produjo error entonces
CLLCD "Se produjo un Muestra "Se produjo un error mediante
MSGBOX
error" MSGBOX
KTULU Vuelve a ejecutar el programa
END Termina

ANDRS R. GARCA M.
152

Grabamos bajo el nombre KTULU y ejecutamos. Obsrvese que se modifico
el FLAG 90:

Si elegimos la opcin 1

Si elegimos la opcin 2

Si presionamos CANCL

COMENTARIOS:

1. Vemos un comando nuevo llamado PVARS que nos devuelve una lista con
la cantidad de libreras en puerto 0 representadas por su numero (nivel
2) y la memoria disponible (nivel 1).

ANDRS R. GARCA M.
153

2. El comando CHOOSE es bastante eficiente cuando tenemos muchas
opciones dentro de nuestras aplicaciones.
EJEMPLO 2:
Ahora supongamos que lo que tenemos es una lista con muchos nombres
(como en una agenda) y lo que queremos es seleccionar dicho nombre:
Veamos la lista con los nombres:
{
"Andres Garcia"
"Santiago Jose Lopez"
"Fabian Herrera"
"Carlos Diaz"
"Cristina Santamaria"
"Joe satriani"
"Juan Gallardo"
"Armando De castro"
"Carlos de Castro"
"Elkin Cardenas"
}
Grabamos bajo el Nombre NOMBRES:

NOMBRES
Veamos el codigo:

ANDRS R. GARCA M.
154

" CONTACTOS"
NOMBRES
1
CHOOSE
DROP

Grabamos bajo el nombre AGENDA y ejecutamos:

Si elegimos a Santiago Jose Lopez:

Este cdigo se relaciona directamente con el cdigo de la pagina 86

ANDRS R. GARCA M.
155

13. PLANTILLAS DE ENTRADA.

ANDRS R. GARCA M.
156

13. PLANTILLAS DE ENTRADA.

13.1 DEFINICIN
Las plantillas de entrada son bsicamente una forma de entrar datos a un
programa de manera bastante cmoda y eficiente ya que nos permite hacer
algunas cosas mas que por ejemplo una entrada mediante el comando INPUT.
La plantillas de entrada se ejecutan o se crean mediante el comando INFORM el
cual necesita tres argumentos bsicos para su ejecucin que son:
- Un titulo (STRING)
- Un conjunto de campos (Una lista)
- Una lnea de mensajes (Un STRING).
Claro esta que una plantilla de entrada tambin nos sirve para mostrar resultados
arrojados por un programa como se vera mas adelante.

Un ejemplo sencillo de una plantilla de entrada sera el siguiente:

13.1 Formas de utilizar las plantillas de entrada
Existen dos formas bsicas de utilizar las plantillas de entrada:
- Una en donde no especificamos el argumento permitido sin lnea de
mensajes.
ANDRS R. GARCA M.
157

- Otra en donde podemos especificar el argumento, el numero de columnas
y adems ponemos una lnea de mensajes.

Veamos entonces la primera forma:

- SIN ESPECIFICAR EL ARGUMENTO A ENTRAR Y SIN LNEA DE
MENSAJES:
Para esto veamos el cdigo del ejemplo anterior (el de pendiente y
longitud):

"ENTRADA DE DATOS" Titulo
{
{ "Q=" }
{ "A=" } Campos utilizados como una sublista y
}
{ } Lista
DUP DUP Duplica la lista
INFORM Crea la plantilla de entrada

Al ejecutar este cdigo veremos lo siguiente:

COMENTARIOS:
ANDRS R. GARCA M.
158

1. Observemos que en la parte baja de la pantalla no hay un mensaje de
ayuda, es decir; no sabemos que quiere decir S ni tampoco L.
2. Hay solo una columna pero que tal si queremos dos?, es decir; que S
no quede sobre L?
3. En esta plantilla no esta especificado el tipo de argumento que el usuario
debe introducir, por ende se puede introducir cualquier argumento, veamos
algunos
PROGRAMAS

SIMBLICOS LISTAS

Pero que tal si la plantilla que creamos es para un programa que utiliza solo
argumentos numricos?. Ahora veamos la segunda forma bsica de una
plantilla de entrada:

-ESPECIFICANDO EL ARGUMENTO, EL NUMERO DE COLUMNAS Y UNA
LNEA DE MENSAJES O STRING DE AYUDA:
Revisemos el ejemplo anterior pero ahora especificando el argumento, el
numero de columnas y una lnea de mensajes o STRING de ayuda:
ANDRS R. GARCA M.
159

"ENTRADA DE DATOS"
{
{ "S=" "PENDIENTE" 0}
{ "L=" "LONGITUD" 0}
}
{ 2 0 }
{ } DUP
INFORM

Ejecutndolo:

COMENTARIOS:
1. Intente introducir un argumento que no sea numrico.
2. Cree la plantilla cambiando a { 1 0 } (Lista que contiene el numero de
columnas y el numero de espacios entre Q y el espacio para poner el
valor) por { 2 0 }.

ANDRS R. GARCA M.
160

Ya teniendo las herramientas para introducir datos en programa mediante
una plantilla de entrada entonces escribamos el siguiente cdigo que nos
permite ensamblar las matrices de rigidez de cada elemento de una cercha
en coordenadas globales, entrando los datos necesarios mediante plantillas
de entrada.
La matriz de rigidez de un elemento de cercha plana en coordenadas
globales esta dada por:

C
2
S*C -C
2
-S*C
S*C S
2
-S*C -S
2

K = E*A / L -C
2
-S*C C
2
SC
-S*C -S
2
SC S
2

Donde:
E = Modulo de elasticidad del material
A = rea de la seccin transversal del elemento
L = Longitud del elemento
C = Coseno del ngulo que describe el elemento con la horizontal
S = Seno del ngulo que describe el elemento con la horizontal.

Entonces los datos que necesita el programa para calcular la matriz de
rigidez en coordenadas globales de cada elemento son E, A, L, u

Veamos la forma y configuracin de la cercha:

ANDRS R. GARCA M.
161

ELEMENTO 1:
L = 2.5 m
u = 36.87
A = 0.00025 m
2

E = 200 * 10
6
KPA

ELEMENTO 2:
L = 2 m
u = 0
A = 0.0004 m
2

E = 200 * 10
6
KPA

ELEMENTO 3:
L = 1.5 m
ANDRS R. GARCA M.
162

u = 90
A = 0.00015 m
2

E = 200 * 10
6
KPA
Teniendo ya estos datos veamos el cdigo:
"NUMERO DE ELEMENTOS"
{
{ "NO:" "NUMERO DE ELEMENTOS" 0}
}
{1 0}
{ } DUP
INFORM
DROP OBJ
DROP
1 SWAP
FOR i
"DATOS ELEMENTO " i
STR +
{
{ "E" "MODULO DE ELASTICIDAD EN KPA" 0}
{ "A" "AREA DE LA SECCION EN M^2" 0 }
{ "L" "LONGITUD DEL ELEMENTO EN M" 0}
{ "u" "ANGULO CON LA HORIZONTAL" 0}
}
{2 0}
{ } DUP
INFORM
DROP
OBJ
DROP
CLLCD
ANDRS R. GARCA M.
163

"Ensamblando matriz
elemento " i STR +

1 DISP
"Espere por favor. . "
4 DISP
E A L u

E A * L / u COS 2 ^ *
E A * L / u SIN COS * *
E A * L / u SIN COS NEG * *
E A * L / u SIN 2 ^ *
E A * L / uCOS 2 ^ NEG *
E A * L / u COS 2 ^ *
E A * L / u SIN 2 ^ *
{ 4 4 }
ARRY
0 RND

"ELE" i STR
+ OBJ
ANDRS R. GARCA M.
164

STO TEXT
NEXT

Al ejecutar el cdigo veremos lo siguiente:

Presionamos OK y nos pedir datos elemento por elemento:

Presionamos OK y nos pedir los datos del elemento 2:

Presionamos OK y nos pedir los datos del elemento .3:

ANDRS R. GARCA M.
165

Presionamos OK.
Los resultados quedaran grabados en el directorio actual bajo los nombres
E1, E2, E3.

RESULTADOS
COMENTARIOS:
1. Primero que todo recomiendo hacer un DBUG a este cdigo por si no se
entendi algo.
2. Intenten escribir este cdigo pero no ensamblando la matriz de cada
elemento a medida que se introducen los datos, sino que ensamble todas las
matrices al final.
3. Importante tener la HP en modo DEG, de lo contrario los resultados no
sern correctos. Esto se logra poniendo la palabra DEG al principio del
Programa.

ANDRS R. GARCA M.
166

14. EL ENTORNO SOLVR.

ANDRS R. GARCA M.
167

14. EL ENTORNO SOVR.

14.1 Como solucionar ecuaciones dentro de un programa.
Como definicin previa, el Entorno SOLVR es una herramienta de la HP que
nos brinda la posibilidad de solucionar ecuaciones en las cuales la variable o
incgnita es difcil de despejar, es decir; Aquellas ecuaciones donde
tenemos que hacer tanteo para encontrar el valor de la incgnita. El
entorno SOLVR utiliza un conjunto de por lo menos dos ecuaciones que van
dentro de una lista
Por ejemplo para encontrar el factor de friccin en tuberas que conducen
algn tipo de fluido a presin se utiliza la Ecuacin de COLEBROOK que
viene dada como:
1 / \ f = - (2 * LOG (1 / 3.7 * Ks /D + 2.51 / R * \ f )
Donde:
f = Factor de friccin (Adimensional)
Ks = Coeficiente de rugosidad del material de la tubera (en mm)
D = Dimetro de la tubera. (En mm)
R = # de Reynolds. (Adimensional)
Como podemos ver, en esta ecuacin es bastante complicado despejar la
incgnita f, tendramos que hacer tanteos hasta que se cumpla la igualdad.
Pero entonces veamos como se utiliza el entorno SOLVR para solucionar
este tipo de ecuaciones, considerando el siguiente ejemplo:

EJEMPLO 1:
Se quiere encontrar el valor del factor friccin en una tubera que conduce
agua con los siguientes datos:
Ks = 0.12 mm (Tubera de concreto CCP)
D = 300 mm
ANDRS R. GARCA M.
168

R = 421847.07
Veamos el cdigo para luego explicarlo:

-3 CF
"Ks (En mm)" " "
INPUT OBJ
"DIAMETRO (En mm):" " "
INPUT OBJ
"# DE REYNOLDS:" " "
INPUT OBJ
Ks D R
CLLCD
"Un momento por favor
Resolviendo ecuacion.."
3 DISP
' 1/F=-(2*LOG(1/3.7*(Ks/D)+2.51/(R*F))) ' EVAL
' Y=0 '
2 LIST
'EQ' STO
MINIT
F MCALC
F MROOT
5 RND
STR
"f=" SWAP +
MSGBOX

Ejecutemos el cdigo:
ANDRS R. GARCA M.
169

COMENTARIOS:
1. En la lnea 1 vemos -3 CF lo que nos indica que estamos cambiando
el FLAG 3. Esto es de vital importancia ya que este FLAG controla el
modo de funcin numrica o simblica. Siempre debe estar en
simblica, para esto ponemos -3 CF.
2. Luego vemos que pide la entrada de los datos necesarios mediante el
comando INPUT.
3. Ks D R Define las variables locales Ks, D, R
4. CLLCD Pone la pantalla en blanco.
ANDRS R. GARCA M.
170

5. "Un momento por favor Resolviendo ecuacin.." 3 DISP. Pone el texto en
el nivel 3 de la pantalla.
6. ' 1/F=-(2*LOG(1/3.7*(Ks/D)+2.51/(R*F))) ' EVAL. Realiza la operacin.
7. ' Y=0 ' Conforma la ecuacin Y=0 Recordemos que el entorno SOLVR
utiliza dos o ms ecuaciones que van dentro de una lista. Esta segunda
ecuacin se puede conformar como una quiera siempre y cuando no
contenga variables que contenga la primera ecuacin en este caso.
8. 2 LIST Conforma la lista
9. 'EQ' STO Graba la lista con el nombre EQ
10. MINIT. Este comando es nuevo para nosotros, y lo que hace es definir la
lista con las dos ecuaciones.
11. F MCALC Este comando tambin es nuevo para nosotros, y lo que hace
es definir a F como la incgnita a despejar.
12. F MROOT Este comando tambin es nuevo para nosotros, y lo que hace
es definir a F como la variable para la cual va a encontrar las races o ceros
de la ecuacin.
13. 5 RND. Trunca la respuesta a 5 lugares decimales.
14. STR Convierte la respuesta a STRING para mostrarla mediante el
comando MSGBOX.
15. "f=" SWAP +. Etiqueta la respuesta f = 0.017
16. MSGBOX Crea una ventana de dialogo para mostrar la respuesta.
17. El programa nos deja grabadas algunas variables en el directorio actual
como ( F, MPAR, EQ) Las cuales hay que eliminar.
17.Recomiendo hacer un DBUG a este cdigo.
NOTA: Aqu en la 49G es necesario modificar el FLAG 105. Como ejercicio
averigen porque.

ANDRS R. GARCA M.
171

EJEMPLO 2:
Se desea calcular la altura de lamina (Y) en un canal trapezoidal que trabaja
a flujo libre. La seccin es como se indica:

La ecuacin para determinar la altura de lamina Y viene dada por la ecuacin:
[ ( b + Z * Y) * Y ]
2.5
/ b + 2 * Y * \(Z
2
+ 1) = (Q * n / S
1/2
)
1.5

Donde:
Y = Altura de la lamina
b = Base del canal en m
Z = Pendiente del talud
Q = Caudal en m^3 / s
n = Coeficiente de friccin de Manning
S = Pendiente longitudinal
Entonces suponiendo los siguientes datos:
b = 2 m
Z = 1.5
Q = 10 m^3 / s
n = 0.017
S = 0.0015
1
Z
b
Y
ANDRS R. GARCA M.
172

Entonces veamos el cdigo:

"DATOS PARA ALTURA DE LAMINA"
{
{ "B" "BASE DEL CANAL EN m" 0 }
{ "Z" "PENDIENTE DEL TALUD" 0 }
{ "Q" "CAUDAL EN M^3/S" 0 }
{ "N" "COEFICIENTE DE MANNING" 0 }
{ "S" "PENDIENTE LONGITUDINAL DEL CANAL" 0 }
}
{ 2 0 }
{ } DUP
INFORM
DROP
OBJ DROP
b Z Q n S
CLLCD
'((b+Z*Y)*Y)^2.5/(b+2*Y*(Z^2+1))=(Q*n/S^.5)^1.5'
EVAL
'X=0'
2 LIST
'EQ' STO
MINIT
Y MCALC
Y MROOT
2 RND
"ALTURA DE LAMINA"
{ { "Y=" "ALTURA DE LAMINA EN M" 0 } }
{ 1 0 }
4 ROLL
1 LIST
ANDRS R. GARCA M.
173

DUP
INFORM

Ejecutemos entonces este cdigo:

COMENTARIOS:
1. Como se puede ver, aqu se utilizo una plantilla de entrada para mostrar
un resultado.
2. Si algo no se entendi, recomiendo hacer un DBUG.

Espero se haya entendido la forma como se utiliza el entorno SOLVR
solucionador de ecuaciones, herramienta supremamente til y fcil de usar.

ANDRS R. GARCA M.
174


ANDRS R. GARCA M.
175


15.1 DEFINICIN
El entorno PICT es una herramienta de la HP que nos permite crear y editar
dibujos creados por nosotros mismos (que tambin llamaremos GROBS) y
representaciones graficas procedentes de datos matemticos. Al igual que
los dems objetos de la HP, los objetos grficos pueden colocarse en la pila
y archivarse dentro de variables.
En la pila un objeto grafico se ve de la siguiente forma:

Donde:
131 es el ancho en puntos (pxeles)
64 es la altura en puntos (Pxeles)
El tamao por defecto del entorno en coordenadas es (-6.5 a6.5) en X y (-
3.1 a 3.1) en Y.

15.2 FORMAS DE VISUALIZAR EL ENTORNO PICT
Existen dos formas bsicas (entre otras) de visualizar el entorno PICT:
Veamos a travs un cdigo la primera forma:
{ } PVIEW

Este pequeo programa nos permite visualizar el entorno PICT bloqueando
el teclado, es decir a la nica tecla que responde es a ON.
ANDRS R. GARCA M.
176

Veamos que pasa al ejecutarlo:

Nos esta mostrando el entorno PICT con el ultimo GROB que se almaceno
all sea proveniente de algn dato matemtico como en este caso que lo
ultimo que se grafico fue la ecuacin Y=X
2
o sea proveniente de alguna
GROB personalizado que se visualizo en este entorno.
Sea cual sea la manera de visualizar el entorno, para que nos se vea lo
ultimo que visualizo all utilizamos el comando ERASE. Veamos el cdigo
anterior con este nuevo comando que lo que hace es borrar por completo lo
que hay en PICT.

Si presionamos CANCL volveremos a la pila:

ANDRS R. GARCA M.
177

Veamos a travs un cdigo la segunda forma:

ERASE {#0 #0 }
PVIEW
0 WAIT

COMENTARIOS:
1. {#0 #0 } son las coordenadas por defecto de las esquinas del entorno
PICT.
2. PVIEW nos muestra el entorno PICT. Pero debemos poner el 0 WAIT para
lo mantenga, de lo contrario se visualizara muy rpido y luego volvera a
verse la pila.
Veamos lo que hace el cdigo:

3. Prubenlo sin el 0 WAIT.
4. Cuando visualizamos el entorno de esta forma se nos crea una variable
llamada PPAR la cual contiene algunos parmetros del entorno como las
dimensiones el tipo de funcin a graficar activada actualmente y el origen
de coordenadas.

Estas son las formas bsicas de visualizar el entrono PICT, que junto con
otros comando que veremos a continuacin nos permiten crear programas
bastante elaborados.
ANDRS R. GARCA M.
178

15.3 COMO PONER Y VISUALIZAR TEXTO EN EL ENTORNO PICT.
15.3.1 MEDIANTE EL COMANDO REPL:
El comando REPL permite colocar texto en entorno utilizando tres
argumentos a seguir:
- PICT
- Las coordenadas donde deseamos colocar el texto.
- Y un texto convertido en GROB. Para convertir el texto a GROB
simplemente lo colocamos en la Pila dentro de delimitadores de STRING, le
damos un tamao que puede estar entre 0 y 3 y ejecutamos el comando
GROB. El cual lo que hace es convertir el STRING con el texto a GROB.
Veamos en ejemplo:
Deseamos colocar nuestro nombre en el entorno PICT en las coordenadas
-6.5, 3.1 (esquina superior izquierda).
Veamos el cdigo:
ERASE {#0 #0 }
PVIEW
PICT (-6.5,3.1) "Andres Ricardo Garcia Morales"
1 GROB REPL
0 WAIT

Ejecutemos el cdigo:

ANDRS R. GARCA M.
179

Presionamos cualquier tecla (en este caso ENTER)

VARIABLE PPAR
COMENTARIOS:
1. Vemos Que nos cre la variable PPAR
2. Nos dejo el numero de asignacin de tecla de la ultima tecla pulsada.
3. En este caso se escogi el tamao de letra mas pequeo 1
Veamos el cdigo pero ahora borrando PPAR, borrando el numero de
asignacin de tecla dejado y con tamao de letra igual a 2
ERASE {#0 #0 }
PVIEW
PICT (-6.5,3.1) "Andres Garcia"
2 GROB REPL
0 WAIT
DROP
{ PPAR } PURGE
ANDRS R. GARCA M.
180

Pulsamos ENTER:

15.3.2 MEDIANTE EL COMANDO GXOR:
Este comando pone texto de la misma manera que en el ejemplo anterior, a
diferencia de que si el fondo fuera negro pone la letra en blanco. Veamos un
ejemplo:
Supongamos que en el entorno PICT ya esta creado el siguiente GROB:

Y queremos colocar texto dentro del recuadro negro. Veamos como seria el
cdigo:

ANDRS R. GARCA M.
181

{#0 #0 }
PVIEW
PICT (-4.5,0) "Andres Garcia"
2 GROB
GXOR
0 WAIT
DROP
{ PPAR } PURGE

Se vera alo as:

Bueno, no me quedo muy en el centro que digamos pero el ejemplo sirve
para ver la diferencia. Donde esta en blanco pone pxeles Negros (prende
pxeles) y donde esta en negro pone pxeles blancos (apaga pxeles).

Tambin podemos visualizar GROBS creados con anterioridad por nosotros
mismos. Veamos un ejemplo en donde creamos el cuadro negro, lo ponemos
en el entorno y le colocamos texto adentro a manera de presentacin de un
programa. Vamos a verlo de dos maneras:

ANDRS R. GARCA M.
182

- CREANDO EL GROB (cuadro negro en este caso) PRIMERO Y LUEGO
COLOCNDOLO DENTRO DEL PROGRAMA:
Para crear el cuadro negro entramos al entorno PICT pulsando la tecla que
contiene la flecha izquierda (segunda fila cuarta tecla):

Pulsamos la tecla EDIT y en las teclas de MEN veremos las herramientas
de dibujo

Para crear el cuadro negro lo haremos mediante la herramienta BOX la cual
dibuja un recuadro as: Nos paramos con la cruz en donde queremos que
quede la esquina superior del cuadro (en este caso el cuadro negro)
ANDRS R. GARCA M.
183

Ejacutamos el comando BOX y nos paramos con la cruz en donde queremos
que quede la esquina inferior derecha del cuadro (en este caso cuadro
negro)

Presionamos BOX:

Subimos un pxel hacia arriba y uno hacia la izquierda y volvemos a ejecutar
BOX:

Repetimos esta operacin (subir un pxel y uno hacia la izquierda) hasta
que el cuadro este totalmente relleno:

ANDRS R. GARCA M.
184

NOTA: Para que la cruz se vea en blanco pulsamos la tecla +/-
Salimos del editor pulsando CANCL:

Volvemos al entorno pulsando la tecla que tiene la flecha a la izquierda:

Ubicamos la cruz en la esquina superior izquierda del cuadro negro:

ANDRS R. GARCA M.
185

Pulsamos la tecla EDIT luego la tecla NEXT dos veces (es decir NEXT
NEXT) y luego la tecla SUB

Movemos la cruz a la esquina inferior derecha y de nuevo presionamos SUB

Salimos del entorno PICT presionando CANCL y ya tendremos nuestro
GROB (cuadro negro) creado en la pila:

ANDRS R. GARCA M.
186

Lo grabamos bajo el nombre GRAF:

GRAF

Ahora veamos las coordenadas donde mas o menos quedara centrado el
texto que vamos a poner (en este caso el titulo del programa TOPORAD),
teniendo en cuenta que va a ser en tamao 2:
Entramos el entorno presionando la tecla que contiene la flecha hacia la
izquierda:

Y nos paramos donde mas o menos quedara centrado el texto. Para obtener
esas coordenadas presionamos la tecla ENTER y salimos del entorno
presionando CANCL:
ANDRS R. GARCA M.
187

Para averiguar la coordenadas de la esquina superior izquierda donde
vamos a colocar el cuadro lo hacemos de la misma forma. En este caso son
(-4.4,2.1)
Ya sabemos cuales serian las coordenadas del cuadro negro, del texto que
va dentro del cuadro negro y tambin tenemos nuestro GROB (cuadro
negro) ya creado entonces vamos al cdigo:

ERASE {#0 #0 }
PVIEW
PICT
(-4.4,2.1)
GRAF
REPL
PICT
(-3.2,1.3)
"TOPORAD"
2
GROB
GXOR
0 WAIT DROP
{ PPAR }
PURGE
ANDRS R. GARCA M.
188

Ejecutemos Este cdigo:

Como podemos ver que el texto no quedo tan centrado entonces
modifiquemos sus coordenadas:

ERASE {#0 #0 }
PVIEW
PICT
(-4.4,2.1)
GRAF
REPL
PICT
(-2.5,1.3)
"TOPORAD"
2
GROB
GXOR
0 WAIT DROP
{ PPAR }
PURGE

ANDRS R. GARCA M.
189

Agregumosle el autor y el ao:

COMENTARIOS:
1. De la misma manera como se creo el cuadro negro se pueden crear
diferentes dibujos como crculos tringulos arcos etc.
2. Para mucha gente es engorroso crear los GROBS utilizando el entorno
PICT para lo cual existen otros programas para PC como PAINT, luego se
utiliza un programa llamado XnVIEW el cual le coloca extensin .grob para
que la HP lo pueda mostrar.

- CREANDO EL GROB DENTRO DEL PROGRAMA:
Veamos el cdigo, mucha atencin:
ERASE {#0 #0 }
PVIEW
(-4.4,2.1)
ANDRS R. GARCA M.
190

'X' STO
(4.4,2.1)
'Y' STO
1 35
FOR i
X
DUP (0,-0.1) +
'X' STO
Y DUP (0,-0.1) +
'Y' STO
LINE
NEXT
PICT
(-2.5,1.3)
"TOPORAD"
2
GROB
GXOR
PICT
(-4,0.3)
"Por: Santiago Lopez"
1
GROB
GXOR
PICT
(-1,-0.5)
"2011"
1
ANDRS R. GARCA M.
191

GROB
GXOR
0 WAIT DROP
{ X Y PPAR }
PURGE


COMENTARIOS:
1. Vemos que aparece un comando nuevo llamado LINE. Este nos permite
dibujar lneas en el entorno PICT dados dos pares de coordenadas (x1,y1)
(x2,y2) con x2 >x1.
2. Recomiendo enfticamente hacer un DBUG a este cdigo.
3. De la manera como se creo el cuadro negro se puede crear cualquier
dibujo que queramos.

ANDRS R. GARCA M.
192

15.4 COMO PONER Y VISUALIZAR GRFICOS EN EL ENTORNO PICT
Bueno, parte de esto se explico en el numeral anterior pero no importa;
veamos otros ejemplos:
EJEMPLO 1:
Vamos a suponer que queremos poner nuestro nombre en el entorno PICT
pero ahora hacindolo letra a letra, primero con una pausa (lapso de tiempo)
entre letras y despus sin pausa. Veamos el cdigo:
- CON PAUSA:
ERASE { #0 #0 }
PVIEW
(-6.5,3.1) 'CO' STO
"ANDRES R GARCIA M"
n
1 17 FOR i
PICT CO DUP
(0.4,0) +
'CO'
STO
n
i DUP
SUB
STR 1
GROB REPL
0.1 WAIT
NEXT
0 WAIT
{ CO PPAR }
PURGE
ANDRS R. GARCA M.
193


As sucesivamente hasta formar el nombre completo:

- SIN PAUSA:
Simplemente quitamos el WAIT y el texto se ubicara ms rpido en pantalla.

EJEMPLO 2:
Ahora vamos suponer que lo que queremos graficar son datos estadsticos,
en este caso una nube de puntos provenientes de tomar datos de 2 variables
por ejemplo: altura (en msnm) vs temperatura (en
0
C). Los datos serian los
siguientes (estos son arbitrarios a manera de ejemplo)
ANDRS R. GARCA M.
194

ALTURA (msnm) TEMPERATURA C
0 38
300 34
600 32
900 31
1200 30
1500 26
1800 25
2100 20
2400 16
2700 13
3000 10
3300 8
3600 7
3900 5
4200 3
4500 1

Veamos el cdigo completo de un programa que grafica estos datos a
manera de puntos en el entorno PICT:

"DATOS"
{ { "h=" "Alturas en msnm en { }" 5. }
{ "T=" "Temperaturas en C en { }" 5. } }
{ 1. 0. } { }
DUP INFORM DROP
HT
ERASE HT 1.
GET SORT DUP
SIZE GET -0.5
SWAP XRNG HT 2.
GET SORT DUP SIZE
GET -0.5 SWAP YRNG
{ # 0d # 0d }
PVIEW HT
ANDRS R. GARCA M.
195

OBJ DROP
2.
RC
DOLIST
1.
PIXON
DOSUBS
DRAX
0. WAIT DROP

Ejecutando el cdigo:

COMENTARIOS:
Es un programa muy sencillo pero es la base para construir programas muy
poderosos cuando se trate de manejar datos estadsticos o variables x e y
en general.
A esta altura del manual solo har comentarios sobre los comandos nuevos
dentro del cdigo:

1. XRNG lo que hace es fijar el rango de visualizacin del eje horizontal en
este caso alturas en metros sobre el nivel del mar utilizando los siguientes
argumentos:
ANDRS R. GARCA M.
196

- un objeto complejo de la forma (x,y) donde x es el menor valor que
tomara el eje x e y el valor mayor que tomara el eje x.

2. YRNG lo que hace es fijar el rango de visualizacin del eje Y en este caso
temperaturas en grados centgrados utilizando los siguientes argumentos:
- un objeto complejo de la forma (x,y) donde x es el menor valor que
tomara el eje y e y el valor mayor que tomara el eje y.

3. RC Toma 2 valores reales de la pila y los transforma en complejo (x,y).

4. PIXON Toma un complejo como el que aparece en la pantalla anterior y
prende el pxel correspondiente en el entorno PICT (prendido)
Ejecutamos PIXON

5. DRAX No necesita argumento alguno para ejecutarlo y lo que hace es
dibujar los ejes x e y en el entorno PICT.

ANDRS R. GARCA M.
197

EJEMPLO 3:
Supngase que queremos escribir un programa que resuelva estructuras
(prticos) en 2 dimensiones que dibuje la estructura que deseamos resolver.
Escribamos es el cdigo que dibuja la estructura: El cdigo adems pide las
dimensiones de cada elemento del prtico.
El Dimensionamiento del entorno PICT se hace de manera similar al ejemplo
anterior.
ERASE { } 'DATA' STO -.5
"Altura" "" INPUT OBJ .5 +
YRNG -.5 "Ancho" "" INPUT OBJ
.5 + XRNG 1.
"Cuantos elementos son?" "" INPUT OBJ
FOR i "Datos elemento "
i STR +
{ { "COOR" "COORD INIC. Y FINAL. EN {}" 5. }
{ "B H L" "BASE ALTURA Y LONGITUD" 5. } }
1. { } DUP INFORM DROP STR DATA +
'DATA' STO
NEXT
TEXT { # 0d # 0d } PVIEW
DATA SIZE 1. SWAP
FOR i DATA REVLIST i
GET OBJ OBJ DROP
DROP E1
E1 1. GET E1 2.
GET RC E1 3. GET
E1 4. GET RC LINE
.2 WAIT
ANDRS R. GARCA M.
198

NEXT -40. CF { PPAR }
PURGE 0. WAIT

Veamos el prtico que queremos resolver:

Los elementos ya estn numerados como se puede apreciar:
Ejecutemos el cdigo con origen de coordenadas en el apoyo 1

3
3
3
4 4 4
12
9
1
2
3 10 11 7
8
9
16 15
20 21
4 5 6
12
17
13
18
14
19
TODAS LAS DISTANCIAS EN METROS
TODAS LAS SECCIONES DE 0.30 X 0.4
ANDRS R. GARCA M.
199

As sucesivamente hasta llegar el elemento No 21 y entonces veremos:

ANDRS R. GARCA M.
200

COMENTARIOS:
Ninguno.

15.5 COMANDOS QUE PERMITEN OPERAR SOBRE EL ENTORNO PICT
De estos comandos ya hemos citado algunos. Veamos otros:

15.5.1 BLANK:
Crea un GROB en blanco en la pila del tamao #nx puesto en el nivel 2 por
#ny puesto en el nivel 1. Ej: Creemos un grafico de 20 de ancho por 30 de
alto

Ejecutamos BLANK.

ANDRS R. GARCA M.
201

15.5.2 LCD
Toma un GROB de la pila y lo muestra en la pantalla sobrescribiendo esta
totalmente. Ej: Suponiendo que el GROB es un circulo:
Ejecutamos LCD

15.5.3 LCD
Devuelve a la pila el GROB de la pantalla actual: No requiere poner ningn
argumento en la pila:

NOTA: Ejecuten ahora LCD Qu pasa?

15.5.4 ARC:
Toma 3 argumentos de la pila:
- NIVEL 4: El centro del arco de la forma (x,y)
- NIVEL 3: Radio del arco, un real
- NIVEL 2: Un angulo inicial, un real
- NIVEL 1: Un angulo final, un real.

ANDRS R. GARCA M.
202

Ejemplo:
Veamos el siguinte codigo:

ERASE { #0 #0 } PVIEW
(0,0)
3
0
45
ARC
0 WAIT


Cambiemos el Angulo a de 45 a 270:

ANDRS R. GARCA M.
203

Para finalizar este capitulo escribamos la presentacin para un programa
que disea el Neopreno para los apoyos de las vigas en el estribo de un
puente y donde se utilizan algunos comandos del entorno PICT (por
ejemplo):
ERASE
{ #0 #0} PVIEW
(-6.5,3.1) (6.5,-3.1)
BOX
(-3.5,-2) 'CO' STO
1 26 START
PICT CO DUP (0,0.2) +
'CO' STO
GRAF REPL
NEXT
PICT
(-3.6,2.1)
#70 #50 BLANK
REPL
(-4.7,1.8) 'CO' STO
"Por: Santiago Jose Lopez"
n
1 24 FOR i
PICT CO DUP
(0.4,0) +
'CO'
STO
n
i DUP
ANDRS R. GARCA M.
204

SUB
STR 1
GROB REPL
NEXT

PICT
(-6.3,0.5)
"Presione 1 para iniciar"
1 GROB
REPL
PICT
(-6.3,-0.5)
"Presione 2 para salir"
1 GROB
REPL
PICT
(-4,-2)
"COLOMBIA 2005"
2 GROB
REPL
{ CO PPAR } PURGE
DO PICT NEG
0.2 WAIT
UNTIL KEY END

Ejecutando el cdigo:

ANDRS R. GARCA M.
205

Se ven estas dos ultimas pantallas hasta que se pulsa una tecla.

COMENTARIOS NINGUNO.

ANDRS R. GARCA M.
206

16. LIBRERAS.

ANDRS R. GARCA M.
207

16. LIBRERAS
16.1 DEFINICIN
Una librera es un objeto que contiene objetos que tienen asignado un
nombre y que pueden funcionar como extensiones del conjunto de
comandos incorporados, es decir que funciona como un comando mas de la
calculadora. Una librera puede residir en cualquiera de los puertos
disponibles en la HP a menos que esta especifique lo contrario. Los puertos
disponibles en la HP49G son el 0, 1, 2 y los podemos visualizar pulsando la
tecla de cambio derecha y luego la tecla donde esta el 2:

Presionando estas dos teclas veremos lo siguiente:

ANDRS R. GARCA M.
208

Donde podemos apreciar los puertos 0, 1, 2 y tambin vemos que hay tres
libreras instaladas GMENU, Jazz, AASHTO.
Si queremos saber en que puerto esta instalada cualquiera de estas libreras
buscamos en cada uno de los puertos. Para esto pulsamos la tecla de men
correspondiente a cada uno de los puertos hasta encontrar la librera que
buscamos.

16.2 COMO INSTALAR Y DESINSTALAR LIBRERAS.
Para explicar esto veamos paso a paso la que hay que hacer para
INSTALAR una librera:
1. Ponemos la librera que queremos instalar en el nivel 1 de la pila:

2. Ponemos en la pila el numero del puerto donde queremos instalar dicha
librera, en este caso elegimos el 0:

ANDRS R. GARCA M.
209

3. Pulsamos la tecla STO (segunda tecla tercera fila) y desaparecer la
librera de la pila:

4. Ahora manteniendo presionada la tecla ON oprimimos la tecla C (tercera
tecla primera fila) para as reiniciar la HP y pegar la librera en la RAM de la
HP.
De esta manera ya tendremos nuestra librera instalada. Para ver si el
procedimiento fue exitoso pulsamos la tecla de cambio derecha y la tecla
que contiene el numero 2 y veremos que nuestra librera ya esta instalada:

AASHTO

Ahora vemos como DESINSTALAR libreras suponiendo que vamos a
desinstalar la librera que acabamos de instalar:

ANDRS R. GARCA M.
210

1. Averiguamos cual es el numero de la librera que vamos a desinstalar
entrando al puerto donde la instalamos presionando la tecla de cambio
derecha, la tecla que contiene el numero 2 y la tecla de men
correspondiente al puerto en este caso 0:

PUERTO 0
Presionamos la tecla de menu 1570 para saber si esta es la librera a
desinstalar:

En efecto vemos que se trata de la la librera AASHTO.

ANDRS R. GARCA M.
211

2. Ya teniendo el numero (1570) borramos de la pila la librera y ponemos el
numero del puerto y el numero de la librera as:

Lo duplicamos presionando ENTER (equivalente en este caso a un DUP)

Ejecutamos el comando DETACH (para despegar la librera de la RAM de la
HP) escribiendolo en la pila o buscndolo en al CAT. En este caso lo
escribiremos en la pila:

PULSAMOS ENTER

ANDRS R. GARCA M.
212

3. Ejecutamos el comando PURGE escribindolo en la pila y listo, ya esta
nuestra librera desinstalada:

16.3 COMO CREAR LIBRERAS
Para crear libreras existen muchos programas como LIB, LIBKIT entre
otros. Por supuesto que nosotros tambin podemos escribir un programa
que cree libreras pero tendramos que tener conocimientos de
programacin en lenguajes de mas bajo nivel lo que no concierne a este
libro. Para el caso utilizaremos un programa llamado LIBKIT V1.1 (el cual
va en el archivo zip donde se encuentra este libro) escrito por el seor
Dante Camargo el cual sirve para crear libreras, instalar y desinstalar
libreras entre otras cosas. El programa que pasaremos a librera ser un
pequeo programa que contiene 3 variables el cual sirve para calcular las
reas de dos figuras geomtricas; un triangulo y un trapecio. Las variables
son como sigue ( primero esta el nombre de la variable y luego la tarea que
ejecuta):
- INICIO: es la entrada al programa y contiene la presentacin de este y las
opciones
- TRIA: Calcula el rea del triangulo en funcin de su altura.
- TRAPE: calcula el rea del trapecio en funcin de sus bases.

ANDRS R. GARCA M.
213

NOTA: Esto es solo un ejemplo ya que es un programa supremamente
sencillo y adems se puede escribir en una sola variable si se quiere as.
Veamos el programa:

Esto en el caso de que se eligiera triangulo.

ANDRS R. GARCA M.
214

Para Trapecio:

Ahora veamos como se crea la librera:
1. Debemos tener un directorio donde se encuentre el programa con todas
sus subrutinas:

Aqu estamos en el directorio REAS (Vase la parte superior de la
pantalla.)

2. Ahora corremos el programa libkit:
PRESIONAMOS OK PRESIONAMOS OK

ANDRS R. GARCA M.
215

PRESIONAMOS SI Y ENTER

EL NOMBRE ES AREAS1 ENTER 1500 POR EJEMPLO. ENTER

PRESIONAMOS ENTER TRIA TRAPE PRESIONAMOS ENTER

PRESIONAMOS INSTA ENTER ELEGIMOS PUERTO 0 Y OK

ANDRS R. GARCA M.
216

Se apagara la HP. La prendemos y ya tenemos nuestra librera creada:

LIBRERA REAS.

Si presionamos esta tecla de MEN reas veremos solamente la variable
INICIO:

3. Recomiendo que despus de haber creado la librera reiniciemos la HP
presionando ON C.

ANDRS R. GARCA M.
217

BIBLIOGRAFA:
- Gua del usuario de la Calculadora HP 48G y 49G.
- De nuevo prefiero no citar la Bibliografa Web ya que me hara demasiado
extenso.

Programacion User RPL

Cargado por

Copyright:

Formatos disponibles

Programacion User RPL

Cargado por

Información del documento

Derechos de autor

Formatos disponibles

Compartir este documento

Compartir o incrustar documentos

Opciones para compartir

¿Le pareció útil este documento?

¿Este contenido es inapropiado?

Copyright:

Formatos disponibles

Programacion User RPL

Cargado por

Copyright:

Formatos disponibles

PROGRAMACIN EN USER-RPL CON EJEMPLOS APLICADOS A ING.

CIVIL SEGUNDA EDICIN

bucle de forma repetida hasta

que se cumple una condicin especifica. Veamos un ejem

Es un ejemplo muy sencillo.

También podría gustarte