(50G) (49G+) Trapezoidal rule integration in RPL

[Thomas Klemm]

If you're willing to add \([x_1, 0]\) at the beginning and \([x_n, 0]\) at the end of the list you can use:

Code:

\<< 2
  \<< CROSS \>>
  DOSUBS \GSLIST 2 /
  3 GET NEG
\>>

Example:
{
[ 2 0 ]
[ 2 1 ]
[ 4 5 ]
[ 7 8 ]
[ 7 0 ]
}

Area = 25.5

Compare it to this post.

Cheers
Thomas