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

[C.Ret]

Here is a version for HP28S/C and any other old style RPL :

Code:


« DUP SIZE → LCoord s         @  LCoord list of vectors - s size of the list - keep both in stack
  « [0 0 0]                   @  Initialize summation of cross products
    1 s FOR i
       LCoord i GETI          @  Get i-th vetor and prepare to get next one vector
       ROT ROT GET            @  Rotate stack and get (i+1)-th vector
       CROSS +                @  Compute cross product and add into summation
    NEXT
    ABS 2 /                   @  Area is the halb the norm of sum
  »
»