(50G) Question, has anyone programmed gauss's...

[Thomas Klemm]

This program is for the HP-42S:

Code:

00 { 39-Byte Prgm }
01 LBL "AREA"
02 ENTER
03 DIM?
04 ×
05 X<>Y
06 0
07 X<>Y
08 EDIT
09 LBL 00
10 ENTER
11 →
12 CROSS
13 +
14 ENTER
15 OLD
16 DSE ST Z
17 GTO 00
18 EXITALL
19 X<>Y
20 ABS
21 2
22 /
23 END

Example:
Consider the polygon defined by the points (3,4), (5,11), (12,8), (9,5), and (5,6).

1 ENTER NEWMAT
x: [ 1×1 Matrix ]

0 ENTER COMPLEX +
x: [ 1×1 Cpx Matrix ]

EDIT GROW
3 ENTER 4 COMPLEX →
5 ENTER 11 COMPLEX →
12 ENTER 8 COMPLEX →
9 ENTER 5 COMPLEX →
5 ENTER 6 COMPLEX
EXIT
x: [ 5×1 Cpx Matrix ]

XEQ "AREA"
y: [ 5×1 Cpx Matrix ]
x: 30