41 Cistern Program

[Werner]

Or (in radians, L, R, H on stack):

Code:

\<<
  \-> L R H
  \<<
    1 H R / - ACOS DUP +
    DUP SIN - L * R SQ * 2 /
  \>>
\>>

stack only:

Code:

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

Cheers, Werner