(48) Shoelace Method For Determining A Polygon's Area

[Thomas Klemm]

This program works as well for the HP-48:

Code:

\<<
  DUP HEAD +
  2 \<< CROSS \>> DOSUBS
  \GSLIST ABS 2 /
\>>

However the pair of coordinates are expected in a list.

Example:
{
[ 2 5 ]
[ 7 10 ]
[ 12 20 ]
[ 8 12 ]
[ 4 3 ]
}

Area = 10.5