Best (and Newest?) Approximations for Popular Inverse Distributions

[Thomas Klemm]

(03-15-2019 01:02 PM)Pekis Wrote:  Perhaps this one ?

These are programs for the HP-42S:

Code:

00 { 32-Byte Prgm }
01▸LBL "PHI41"
02 10
03 ÷
04 41
05 X<>Y
06 Y↑X
07 1
08 X<>Y
09 -
10 22
11 X<>Y
12 Y↑X
13 +/-
14 2
15 X<>Y
16 Y↑X
17 END

Code:

00 { 36-Byte Prgm }
01▸LBL "iPHI41"
02 LN
03 2
04 LN
05 ÷
06 +/-
07 LN
08 22
09 LN
10 ÷
11 1
12 X<>Y
13 -
14 LN
15 41
16 LN
17 ÷
18 10
19 ×
20 END

Examples:

1
XEQ "PHI41"
0.841442

XEQ "iPHI41"
1.000000

They are easily ported to the HP-25:

Code:

01: 31    :    ENTER
02: 01    :    1
03: 00    :    0
04: 71    :    ÷
05: 04    :    4
06: 01    :    1
07: 21    :    X<>Y
08: 14 03 :    Y↑X
09: 01    :    1
10: 21    :    X<>Y
11: 41    :    -
12: 02    :    2
13: 02    :    2
14: 21    :    X<>Y
15: 14 03 :    Y↑X
16: 32    :    CHS
17: 02    :    2
18: 21    :    X<>Y
19: 14 03 :    Y↑X
20: 13 00 :    GTO 00
21: 14 07 :    LN
22: 02    :    2
23: 14 07 :    LN
24: 71    :    ÷
25: 32    :    CHS
26: 14 07 :    LN
27: 02    :    2
28: 02    :    2
29: 14 07 :    LN
30: 71    :    ÷
31: 01    :    1
32: 21    :    X<>Y
33: 41    :    -
34: 14 07 :    LN
35: 04    :    4
36: 01    :    1
37: 14 07 :    LN
38: 71    :    ÷
39: 01    :    1
40: 00    :    0
41: 61    :    ×
42: 13 00 :    GTO 00

Examples:

CLEAR PGRM
1
R/S
0.841442

GTO 21
R/S
1.000000

Thanks for sharing
Thomas