Cut the Cards

[Gerson W. Barbosa]

(08-26-2020 03:06 AM)Albert Chan 0.247866177136� 54 Wrote:  HP50g inverse harmonic function:      « 1. Psi + EXP DUP 24. * INV - .5 - »

Both formulas perform well for large H, but this new version is also good for smaller H

For H less than 2.0701076 the first formula is slightly better:

« DUPDUP H H­¹ - SWAP DUP H H­¹2 - / ABS »

50 → 36.4435261708
10 → 6.75851700917
2.0701076 → 1.
1 → 0.290013346857
0.5131 → 2.30966647121E-5
0.5 → 7.2984301462E-3
0.2 → 0.162258684815
0 → 0.247866177136