41 Cistern Program

[Gerson W. Barbosa]

(08-17-2016 06:08 AM)wojtek Wrote:  

Gerson W. Barbosa ' Wrote:  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 * *
»

Gerson, you gave 15 variations of the code!! which one d'u like best?

15? I've counted only 8. Wait, 11 now:

« OVER SQ UNROT
SWAP1. UNROT / -
DUP ACOS SIN DUP2
R→C ARG UNROT * - * *
»

« OVER SQ UNROT 1
UNROT SWAP / - DUP
ASIN COS * LASTARG
R→C ARG SWAP - * *
»

« OVER / 1. SWAP -
DUP ACOS SIN *
LASTARG R→C ARG
SWAP - OVER * * *
»

57.5, 57.5 and 55 bytes, respectively. All require RAD mode. No better than the previous ones, just another attempt.

Test with L = 4, R = 3 and H = 2. The exact result is '4*(9*ATAN(√8)-√8)' (33.0008305252831281644394).

If I had to discard some, I think I would keep the three programs in post #21.