41 Cistern Program

[Gerson W. Barbosa]

(08-13-2016 11:06 AM)Werner Wrote:  Or (in radians, L, R, H on stack):

. . .

stack only:

Code:

\<<
  OVER / 1 SWAP - ACOS DUP +
  DUP SIN - SWAP SQ * * 2 /
\>>

Or, regardless the angle mode, but at the cost of 2.5 bytes and a few milliseconds more:

« OVER / 1 SWAP - DUP
ACOSH IM SWAP DUP
ACOS SIN * - SWAP SQ * *
»

Best regards,

Gerson.