DEACHP Software - Todo sobre Calculadoras gráficas HP [Menú EJEMPLOS RPL][Menú Principal DEACHP]
Ejemplo: Temblor - Animación aleatoria [Descargar ejemplo]
Nota: El ejemplo mostrado a continuación ha sido escrito de manera sencilla para una mejor comprensión, es por eso que en algunos casos parece no aprovecharse al máximo el potencial de la sintáxis RPN. Dentro del archivo comprimido ejtemblor.zip encontrará las versiones para los diversos modelos de calculadoras y para el editor HPUserEdit, además de un texto de ayuda.
Captura de pantalla Breve descripción
 

La siguiente animación muestra la vibración de la pantalla (Pila ó Stack).

Muy Importante: Colocar a la calculadora en base decimal DEC antes de digitar el programa, esto permitirá que los enteros binarios # no afecten la visualización de las imagenes.
El entero binario #65 esta referido a la altura de una pantalla de 131×64, para calculadoras como la HP49G+ y la HP50G que cuentan con pantallas más amplias 131×80 el valor debe ser cambiado a #81.

Leyendo el código:


Iniciando el programa se redimensiona el entorno gráfico a #132 × #65, lo que añade una fila y una columna a las dimensiones fisícas de la pantalla (131×64).
Luego, la imagen de la pantalla LCD es colocada en las coordenadas iniciales { #0 #0 }.
Se inicia el bucle indefinido DO UNTIL END, en su interior se genera una lista con un par de números aleatorios, valores reales ubicados entre 0 y 1, los cuales al ser convertidos a enteros binarios tomarán sólo los valores #0 ó #1. Es decir la lista generada solo podrá ser: {#0 #0}, {#1 #0}, {#0 #1} ó {#1 #1}.
Al aplicar el comando PVIEW, a cualquiera de estas listas, se cambiará el punto de observación del entorno gráfico. Esto es posible ya que al iniciar el programa se redimensionó el entorno gráfico. Para el tamaño estandar del entorno gráfico solo es admitido como punto de observación el {#0 #0}.

Almacenamiento y prueba (En Modo RPN)

1. Digitar y verificar la escritura del programa, luego presionar ENTER.
2. Activar el indicador ALFA y digitar el nombre del programa entre apostrofes: 'NOMBRE'.
3. Presionar la tecla STO.
4. Para ejecutar el programa ingresar al menú VAR y presionar la tecla del menú correspondiente al programa.

Código fuente
DEACHP Software Jr. Virú 471 - Rimac Telf: (+511) 481-0146 / (+511) 9711-1260 E-mail: deachp@uni.edu.pe [Mapa de Ubicación]