Glosario

Stack( Pila): La base para el RPN, que tiene un montón con múltiples niveles (4 en las viejas HP e infinito mientras alcance la memoria en las nuevas HP) donde la última entrada queda de primera o last in-first out (LIFO). Un stack, en el caso de la HP48, es un contenedor de objetos de tamaño variable.

Este foro, solamente es de lectura, para los nuevos foros dirígase a www.adictoshp.org

Aquí programa para calcular el Área de un Poligono Irregular

Sin respuestas
Integró: 28/06/2003
Envíos: 194
MonedasHP: 126
Imagen de deachp
deachp Usuario Desconectado. Visto por última vez 2 años 7 semanas.
Aquí programa para calcular el Área de un Poligono Irregular
 
Vie, 12/06/2009 - 00:36

Saludos a todos,

Aquí les envío un pequeño programa para calcular el área de un poligono irregular basado en las coordenadas de sus vertices sobre el plano cartesiano.
[Descargar programa APOLRHP50] (Descarga válida para la HP 49G/G+ 50G)

La formula utilizada es la siguiente:

Programa Cálculo del Área de un Poligono Irregular

«
"Area de un Poligono Irregular"
{"∑DAT:"}
{1 0} {}
IF '∑DAT' VTYPE 3 ==
THEN ∑DAT 1 ->LIST
ELSE {}
END
INFORM
IF THEN
OBJ-> DROP DUP '∑DAT' STO
TRN AXL
OBJ-> DROP
DUP SIZE -> X Y n
«
'1/2*ABS(∑(k=1,n-1,X(k)*Y(k+1)-Y(k)*X(k+1))+X(n)*Y(1)-Y(n)*X(1))'
EVAL
"Area" ->TAG
»
END
»

Graben el programa con el nombre APOLR, al ejecutarlo les pedirá ingresar la matriz de datos [X Y], pares ordenados correspondientes a las coordenas de los vertices del poligono irregular.

[Descargar programa APOLRHP50] (Descarga válida para la HP 49G/G+ 50G)

Este y otros ejemplos totalmente explicados aparecerán en la nueva versión del Manual DEACHP de Programación en User-RPL para calculadoras gráficas HP.

Atte. Dante Aroní C.
www.deachp.com

DEACHP Software www.deachp.com
Todo sobre Calculadoras HP
Ventas, Soporte Técnico y Cursos de Programación
UNI / Lima / Perú
Telfs: (+51)997111260 (+51)4810146

Top

Twitter