(33S) Legendre Polynomials

[Thomas Klemm]

Or then we use program L4 (Legendre Polynomials) of the HP-25 Library of the PPC Journal:

Code:

01: 23 01    : STO 1
02: 01       : 1
03: 23 02    : STO 2
04: 23 04    : STO 4
05: 41       : -
06: 24 01    : RCL 1
07: 15 51    : g x>=0
08: 13 21    : GTO 21
09: 01       : 1
10: 51       : +
11: 71       : /
12: 15 03    : g ABS
13: 14 02    : f SQRT
14: 14 07    : f LN
15: 23 02    : STO 2
16: 24 01    : RCL 1
17: 61       : *
18: 01       : 1
19: 51       : +
20: 32       : CHS
21: 23 03    : STO 3
22: 24 00    : RCL 0
23: 24 04    : RCL 4
24: 14 51    : f x>=y
25: 13 44    : GTO 44
26: 24 02    : RCL 2
27: 61       : *
28: 24 04    : RCL 4
29: 02       : 2
30: 61       : *
31: 01       : 1
32: 23 51 04 : STO + 4
33: 51       : +
34: 24 03    : RCL 3
35: 23 02    : STO 2
36: 24 01    : RCL 1
37: 15 03    : g ABS
38: 61       : *
39: 61       : *
40: 41       : -
41: 24 04    : RCL 4
42: 71       : /
43: 13 20    : GTO 20
44: 14 71    : f x=y
45: 13 48    : GTO 48
46: 24 02    : RCL 2
47: 13 00    : GTO 00
48: 24 03    : RCL 3
49: 13 00    : GTO 00

Examples

CLEAR RPGM

4
STO 0
R/S

1060.375

9
STO 0
0.5
R/S

-0.267898559


The program also implements the Legendre functions of the second kind (Qn)

Use a negative value for \( x \) in this case:

0
STO 0
-0.5
R/S

0.549306145

10
STO 0
-0.4
R/S

0.373991229


Resources

(05-17-2018 02:31 PM)rprosperi Wrote:  Here's a link: HP-25 Library Programs-PPC Jrnl

(05-18-2018 04:07 AM)teenix Wrote:  I have extracted about 63 of the HP-25 programs and have them in a zip file at

http://www.teenix.org/HP25ppc.zip

They are in a format that will load into the HP emulator and MultiCalc and they are also in text format.