|
 |
|
El siguiente ejemplo dibuja una figura vectorial a partir de sus vertices (coordenadas), además muestra el valor de sus ángulos internos.
Importante:
La pantalla de la calculadora sólo muestra un área limitada del sistema rectangular es por eso que se sugiere verificar, antes de ejecutar el programa, que todos los puntos quepan en dicha área y que de preferencia ésta sea proporcional 131×64 (en la 48G, 48G+, 48GX, 49G y 48GII) ó 131×80 (en la 49G+ y 50G) para no distorcionar la figura.
Por defecto los valores de los rangos X e Y en el sistema rectangular de la calculadora son:
En la 48G, 48G+, 48GX, 49G y 48GII: X { -6.5 6.5 } e Y { -3.1 3.2 }
En la 49G+ y 50G: X { -6.5 6.5 } e Y { -3.9 4 }
Leyendo el código:
Al inicio se puede observar la lista conteniendo las coordenadas de cada uno de los vertices de la figura (en este caso 4) la cual se asignará más adelante a la variable local coords. Luego, se duplica la lista y se calcula su número de elementos el cual se almacenará en la variable dim, y en azul podemos observar un subprograma << >> que será almacenado en la variable local ang2r, el cual se describirá más adelante.
Se inicia un procedimiento << >>.
En su interior iniciamos borrando el entorno gráfico y visualizandolo con la línea { #0 #0 } PVIEW.
Se manipula el contenido de la variable coords copiando sus dos primeros elementos al final de la misma.
Se inicia la estructura bucle FOR NEXT desde el segundo elemento de la lista coords hasta el penúltimo. En su interior se dibuja la línea entre el elemento i e i+1 de la lista coords.
A continuación se dibujará el texto en el vertice de la iteración actual de la siguiente forma:
1. Se coloca la variable reservada PICT.
2. Se extrae la coordenada del vertice, la cual es convertida en coordenada de píxeles, y a su vez se le desplaza dos píxeles a la derecha y hacia abajo { 2 2 } ADD.
3. Se extraen de la lista coords los elementos desde i-1 hasta i+1 para aplicarlos en el subprograma ang2r, el cual nos dará el valor del ángulo del vertice actual.
4. Al valor obtenido será redondeado a 2 decimales ejecutando la línea 2 RND, y se concatenará a la cadena "º" para ser dibujado en el entorno gráfico al ejetutar el comando REPL.
Finalmente se cierra la estructura bucle, y se muestran las herramientas del entorno gráfico PICTURE.
A continuación se describe el funcionamiento del subprograma ang2r:
|
|
|
|
El subprograma ang2r se inicia con la línea -1 ACOS la que permite obtener el valor de la constante matemática Pi sin depender del modo DEG, RAD ó GRAD en que se encuentre la calculadora.
Se definen las variables a, b, c y pi como variables locales.
Notese que las variables a, b y c tomarán los valores de las coordenadas de tres en tres que se les darán más adelante al evaluar el subprograma ang2r.
Se inicia un nuevo procedimiento << >> dentro del cual se calcula el ángulo formado por los vectores b-a y c-b. El comando ARG cálcula el argumento ó ángulo de un vector (a,b). Los cálculos dentro de las estructuras condicionales IF THEN END permiten ajustar los valores de los ángulos obtenidos al cuadrante correcto.
Se cierra el subprograma ang2r. |
|
