Inicio Ventas Soporte Técnico Documentos Descargas Ejemplos RPL   Contáctenos
 Ejemplo Gráfico Nivel Avanzado UserRPL:
 IF THEN END - FOR NEXT - LINE
 Ángulos Internos y Externos de una figura
[Descargar Ejemplo]  
El siguiente ejemplo combina: bucles, estructuras y la geometría.

Este ejemplo gráfico dibuja una figura plana y muestra los ángulos formados en cada uno de sus vertices. Los vertices de la figura pueden ser modificados y/o aumentados dentro del programa. Active el modo DEG para visualizar los ángulos en grados sexagesimales.

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:
» Lista que contiene las coordenadas de los vertices de la figura.
DUP SIZE devuelve la dimensión de la lista (número de vertices de la figura).

Nota: Si las coordenadas son colocadas en sentido inverso dentro de la lista el programa mostrará los ángulos externos.
 

» Se inicia el subprograma 'ang2r' que permite calcular el ángulo formado entre tres vertices.
Este subprograma toma tres vertices 'a', 'b' y 'c', y asigna el valor ACOS(-1) a la variable local 'pi', de esta forma el valor de pi es independiente del modo angular.

  » Se inicia un procedimiento dentro del subprograma 'ang2r'.
Si el ARGumento (ángulo) del vector b-a es menor que 0 entonces(1) añadirle 2pi.
  » Si el ARGumento (ángulo) del vector c-b es menor que 0 entonces(2) añadirle 2pi.
  » Toma el valor calculado en el primer IF y lo resta de pi, luego le suma el valor calculado en el segundo IF. A continuación se calcula el resto de la división del resultado anterior por 2pi.
» Asigna la lista que contiene las coordenadas de los vertices de la figura, sus dimensiones (número de vertices) y el subprograma ang2r a las variable 'coords', 'dim' y 'ang2r' respectivamente.
  » Inicia un procedimiento. Borra el entorno gráfico y lo visualiza desde {#0 #0}.
  » Toma la lista de coordenadas {C1 C2 ... Cn} y devuelve {Cn C1 C2... Cn C1}.
Re-almacena esta nueva lista en la variable 'coords'
» Se inicia el bucle definido FOR NEXT que recorre las coordenadas en la lista 'coords' desde la segunda posición hasta la última.
  » Extrae las coordenadas 'i' y 'i+1' y dibuja una línea.
» Variable reservada PICT. Refiere al entorno gráfico. Será utilizada por el comando REPL.
  » Extrae la coordenada 'i' que se encuentra en modo rectangular y la convierte en una coordenada de pixeles. La desplaza dos pixeles a la derecha y hacia abajo.
  » Extrae las coordenadas 'i-1', 'i' y 'i+1' y ejecuta el subprograma 'ang2r' para calcular el ángulo entre ellas.
  » Toma el valor calculado del ángulo, lo redondea a 2 decimales, lo concatena con el caracter "º" y lo convierte en un objeto texto gráfico de tamaño 1.
  » Coloca el texto gráfico en el entorno gráfico PICT.
Cierra el bucle FOR NEXT.
  » Visualiza el entorno gráfico con todas sus herramientas de edición.
 
 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