41 Cistern Program

[Gerson W. Barbosa]

(08-14-2016 05:19 PM)Gerson W. Barbosa Wrote:  Regardless the angle mode:

Code:


  « DUP2 OVER / 1 SWAP 
    - DUP ACOSH IM ROT *
    ROT 4 PICK DUP + OVER
    - *  √ ROT * - * *
  »

Or, using the optimal formula rearrangement in SlideRule's attachment:

Code:


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

Or, if the stack contains the more usual L D H instead of L R H:

Code:


  « DUP + OVER / 1 NEG 1
     + DUP ACOSH IM SWAP 1
     OVER SQ - √ * - SWAP
     SQ * * 4 /
  »