Ángulos Internos y Externos, Calcula los ángulos formados en cada uno de los vértices de una figura plana encerrada entre coordenadas rectangulares (X,Y). La lista con los vértices de la figura mostrada en el ejemplo puede ser cambiada dentro del programa. El programa completo, en versiones 48G y 49G, puede ser descargado haciendo click sobre DOWNLOAD NOW. (Archivo en formato ZIP)

Código Fuente:

Breve Resumen:

La lista con las coordenadas de cada uno de los vértices y sus dimensiones son almacenadas en las variables ‘coors’ y ‘dim’ respectivamente, así como el subprograma que permite calcular el ángulo formado por dos de los lados de la figura en la variable ‘ang2r’.

El bucle definido FOR NEXT permite avanzar vértice por vértice para dibujar cada uno de los lados y mostrar el valor de cada uno de los ángulos calculados por el subprograma ‘ang2r’ en el PICT.

Importante: Las coordenadas de los vértices deben ser colocadas en sentido horario (de izquierda a derecha), caso contrario el programa calculará los ángulos externos para cada vértice.

Leyenda:

Azul: Subprograma ‘ang2r’, permite calcular el ángulo formado por dos segmentos, la variable ‘pi’ en su interior permite trabajar de manera independiente al modo angular en el que se encuentre la calculadora, Negro: Se crean las variables locales, se muestra el entorno gráfico y se inicia el bucle FOR NEXT para dibujar la figura y sus ángulos,  Rojo: Convierte la lista inicial de coordenadas: {inicio cuerpo fin}, en: {fin inicio cuerpo fin inicio}, para coger las coordenadas de tres en tres y usarlas en el subprograma ‘ang2r’, Verde: Coge las coordenadas de dos en dos y las une mediante una línea.

Permite calcular el argumento ó ángulo de un vector con respecto al eje X.

En este ejemplo permite extraer un elemento de una lista.

Suma dos listas elemento a elemento.

Aplica el redondeo de un número real a N cifras decimales.

Permite entrar al entorno gráfico PICT en modo edición.