Inicio Ventas Soporte Técnico Documentos Descargas Ejemplos RPL   Contáctenos
 Ejemplo Gráfico Nivel Avanzado UserRPL:
 FOR NEXT - CASE END - WAIT
 Giro de Figuras Vectoriales
[Descargar Ejemplo]  
El siguiente ejemplo combina: bucles, estructuras, gráficos, el teclado y la geometría.

Este ejemplo gráfico permite girar una figura geométrica libremente en la pantalla de la calculadora. Los vertices de la figura pueden ser modificados y/o aumentados dentro del programa.

Nota:
La versión del programa para calculadoras gráficas con pantallas de 131×64 se encuentra en el archivo de descarga.
Ayudanos a mejorar este ejemplo  Date un tiempo y envíanos tus comentarios, sugerencias y/o consultas: [Enviar comentario]
 
Recomendaciones generales:
1- Cambie el modo de trabajo de la calculadora a RPN.
2- Active la opción Aproximado. Ingrese al menú MODE, luego al CAS (Tecla F3) y active con check la opción Approx.
3- Active el indcador (FLAG) -117 Soft Menu. Ingrese al menú MODE, luego a FLAGS (Tecla F1) y active con check el flag 117.
Importante: Coloque a la calculadora en base DEC (decimal) antes de introducir el código del programa (Ir al menú BASE).
El código mostrado abajo es válido para calculadoras con pantallas de 131×80 y sistema operativo superior a 2.00.
Válido para Calculadoras Gráficas HP series: HP 48G 48G+ y 48GX, y series: HP 49G, 48GII, 49G+ y HP 50G.
 
 
 Código:  Descripción:
» Asigna: la matriz que contiene las coordenadas de los vertices de la figura, el número de columnas (coordenadas) y tres ceros a las variables 'data', 'n', 'salir?', 'alfa' y 'subgiro' respectivamente.
La línea DUP SIZE 2 GET duplica la matriz y devuelve el número de columnas del duplicado.

» Inicia un procedimiento.

  » Se inicia el subprograma 'subgiro'. ERASE borra en entorno gráfico.
» Coloca el objeto gráfico "flecha giro a la izquierda" de dimensiones 8×5 en la coordenada {#7 #74}.
  » Coloca el objeto gráfico "flecha giro a la derecha" de dimensiones 8×5 en la coordenada {#29 #74}.
  » Coloca el objeto gráfico "flecha Salir" de dimensiones 8×5 en la coordenada {#117 #74}.
  » Se crea la matriz de rotación 2D de 2×2.
» Se multiplica la matriz de datos por la matriz de rotación. Gira la figura.
» Se extrae la última coordenada de la matriz de coordenadas.
  » Se inicia el bucle definido FOR NEXT que recorre las coordenadas.
» Se toma una copia de la coordenada que se encuentra en el nivel 1 de la pila (stack) y se extrae la coordenada de posición 'i' (valor actual del indice) de la matriz de coordenadas.
» Se duplica la coordenada de posición 'i' yse manda al nivel 3 de la pila (stack). Luego se dibuja una línea entre las coordenadas penúltima y última.
Se cierra el bucle FOR NEXT.
  » Se eliminan los 2 objetos sobrantes que quedaron en la pila (stack): Las dos últimas coordenadas obtenidas.
  » Crea la cadena de texto "Ang: alfa" (concatena "Ang:" y el valor actual del ángulo alfa') y la convierte en un texto gráfico de tamaño 1, luego la coloca en las coordenadas {#1 #1}.
  » Almacena el subprograma en la variable local 'subgiro'.
  » Coloca a la calculadora en modo DEG (grados sexagesimales) y desactiva la opción de mostrar el reloj en pantalla.
Utiliza el comando PVIEW para visualizar el entorno gráfico desde la coordenada {#0 #0}.
Ejecuta el subprograma 'subgiro'.
  » Se inicia el bucle indefinido DO UNTIL END. Utiliza la línea 0 WAIT para detener la ejecución del programa y obtener el código de la tecla presionada.
Almacena el código en la variable local 'K'.
  » Se inicia una subrutina y la estructura condicional CASE END.
  » En caso se presione la tecla F1 entonces disminuir el ángulo 'alfa' en 20 grados. Luego ejecutar el subprograma 'subgiro'.
  » En caso se presione la tecla F2 entonces aumentar el ángulo 'alfa' en 20 grados. Luego ejecutar el subprograma 'subgiro'.
  » En caso se presione la tecla F6 entonces salir del programa. Se asigna el valor 1 a la variable 'salir?' para detener el bucle DO UNTIL END.
  » Repetir hasta que la variable 'salir?' contenga el valor 1.
 
 Almacenamiento y prueba
  1- Digite el código del programa.
2- Presione ENTER.
3- Active el teclado alfabetico (Tecla ALPHA).
4- Ingrese un nombre entre apóstrofes (comillas simples).
5- Finalmente presione la tecla STO para almacenar.

Para ejecutar el programa ingrese al menú de variables (tecla VAR) y presione la tecla del menú correspondiente al programa (Teclas F1~F6).


 
 Comentarios y Sugerencias
Ayudanos a mejorar este tutorial   Date un tiempo y envíanos tus comentarios, sugerencias y/o consultas: [Ver comentarios enviados] 

 

 

 Nombre y Apellido :  E-mail:

Para ver los comentarios y/o sugerencias enviados a DEACHP Dar click [Aquí] 
DEACHP Software - Jr. Virú 471 Rimac Lima - Perú [croquis] Telfs: (+51) 481-0146, (+51) 9-9711-1260 E-mail: informes@deachp.com